VisualBasic講座 第12-3回
Section 1
完成させる・バグ探し 編
完成させる・バグ探し 編ですか。バグは無いはずですし・・・ほぼ完成しているんですが・・・。
でも、ミスを発見!!
次は、CommandButtern2のクリックイベントに
Timer1.Enabled=True
は、CommandButtern1の・・・でした。すいません(-_-)。
では最後に全リストを載せておきます。
プロパティ
Label1 Caption "TIME:" (Fontを好きなように設定してください) Label2 Caption 無し (Fontを好きなように設定してください) Label3 Caption "クリックした数" (Fontを好きなように設定してください) Label4 Caption 無し (Fontを好きなように設定してください) Label5 Caption "回" (Fontを好きなように設定してください) Command1 Caption "スタート" Command2 Caption "くりっく くりっく Click Click" Enabled=False |
リスト
Dim Time As Double 'タイム Dim Click As Integer 'クリックした回数 -------------------------------------------------------------------------------------------- Private Sub Command1_Click() Timer1.Enabled = True Click = Click + 1 Label4.Caption = Click If Click = 100 Then Shuryou End Sub -------------------------------------------------------------------------------------------- Private Sub Timer1_Timer() Time = Time + 0.1 Label2.Caption = Time End Sub -------------------------------------------------------------------------------------------- Private Sub Shuryou() Timer1.Enabled = False MsgBox "記録は" & Time & "秒です" End End Sub |
どうでしたか?分かりにくかった説明は(-_-;;)
Section2では、シューティングゲームを作る予定です。期待してまっててね。