タイマーの使用法． (ID:78546)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 タイマでカウントをして，ある値になったら，イベントを発生させると いうことを，繰り返したいのですが，下のようなプログラムだと うごいてくれません． 何がいけないのでしょうか，誰か教えてください． おねがいします， Private Sub Command1_Click() Sysdata = 1 Diadata = 0 Timer1.Interval = 10 Timer1.Enabled = True Sysdrive: cdata = 0 outb port, Sysdata Do If cdata >= 600 Then GoTo Diadrive Loop Diadrive: cdata = 0 outb port, Diadata Do If cdata >= 900 Then GoTo Sysdrive Loop End Sub Private Sub Timer1_Timer() cdata = cdata + 1 End Sub