VisualBasic講座 第12-2回
Section 1
プログラムを作る 編
今回は、プログラムの主な内容を作ります。
内容とは、
・Comand1をクリックするとカウントを始める
・クリックをすると、クリックした回数が1ずつ増える
・100回クリックすると終了
・何秒かかったか表示
です。
まず、CommandButten2のクリックイベントに、
| Click=Click+1 Label4.Caption=Click If Click=100 Then Shuryou |
と書いてください。
つまりこうなります。
| Private Sub Command2_Click Click=Click+1 Label4.Caption=Click '変数Clickに1を足す If Click=100 Then Call Exit End Sub |
If Click=100 Then Call Exit
これは、Clickが100だったら、Exitです。
Q:・・・っていうか、Exitって何(^^;)
A:プロシージャというやつです。(サブルーチンとも)
つまり、Clickが100だったら、Exitプロシージャにとぶってことです。
次に、前回忘れていた(^^;;)Timerを置いてIntervalは100にしてください。EnabledはFalseです。
Timer1のTimerイベントに、
| Time=Time+0.1 Label2.Caption=Time |
つまり、
| Private Sub Timer1_Timer() Time=Time+0.1 Label2.Caption=Time End Sub |
次は、CommandButtern2のクリックイベントに
| Timer1.Enabled=True |
最後に、Exitプロシージャを作ります。
| Private Sub Exit() Timer1.Enabled = False MsgBox"記録は"& Time &"秒です" End End Sub |
これで、一応できました。抜けているところがあったら、教えてください。