goo_accountのプロフィール

お世話になっております。 Visual Basic6.0を使用して表示板を製作しています。まだまだプログラムレベルが低いので ご教示ください。 外部信号を受け取ったらText Boxの値に+1します。外部信号（0 or 1）受け取りはできたので、 カウントアップの仕方を教えてください。 スタート　⇒　トリガーが入ったらカウントアップ　⇒　トリガーが入ったらカウントアップ　⇒　 終了ボタン押すまで繰り返します。 トリガー　：　dioInpDataが0か1が入力される スタート、終了はボタン押下 Praivate Sub START Click() Dim dioInpData as string Dim i as string i = 0 If dioInpData = 1Then 　Text1.text = i + 1 End If End sub これだと、以下の問題が。。。 　・スタートボタン押したらdioInpData一回確認したら終わってしまう。 　・i = 0から始まるから常に1を表示していまう。 これまでボタン押下で一回処理で終了するプログラムしか組んでないので、 何回もトリガーが入ったら処理する、カウントアップの処理が初めてです。 自分で書いてて悲しくなりますが、こんなこともわからないんです。 どなたか教えてください。 何卒、よろしくお願いいたします。

お世話になっております。 Visual Basic6.0を使用して表示板を製作しています。まだまだプログラムレベルが低いので ご教示ください。 外部信号を受け取ったらText Boxの値に+1します。外部信号（0 or 1）受け取りはできたので、 カウントアップの仕方を教えてください。 スタート　⇒　トリガーが入ったらカウントアップ　⇒　トリガーが入ったらカウントアップ　⇒　 終了ボタン押すまで繰り返します。 トリガー　：　dioInpDataが0か1が入力される スタート、終了はボタン押下 Praivate Sub START Click() Dim dioInpData as string Dim i as string i = 0 If dioInpData = 1Then 　Text1.text = i + 1 End If End sub これだと、以下の問題が。。。 　・スタートボタン押したらdioInpData一回確認したら終わってしまう。 　・i = 0から始まるから常に1を表示していまう。 これまでボタン押下で一回処理で終了するプログラムしか組んでないので、 何回もトリガーが入ったら処理する、カウントアップの処理が初めてです。 自分で書いてて悲しくなりますが、こんなこともわからないんです。 どなたか教えてください。 何卒、よろしくお願いいたします。