https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiOM9zXBISE2670yHxNeffl_Ri6zyNkKnSCgp47CWOuzxQxAPeHVEwBhmBunWcZAgvFMinEMdhYSModnGC8fe4Wy3lM6wNHTXynBTI02EzqsCP73mkCHq6gMZL-dqYJVM9-4lihhNLaGjIh/s800/skull-fire-monozcore.png https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiOM9zXBISE2670yHxNeffl_Ri6zyNkKnSCgp47CWOuzxQxAPeHVEwBhmBunWcZAgvFMinEMdhYSModnGC8fe4Wy3lM6wNHTXynBTI02EzqsCP73mkCHq6gMZL-dqYJVM9-4lihhNLaGjIh/s800/skull-fire-monozcore.png https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiOM9zXBISE2670yHxNeffl_Ri6zyNkKnSCgp47CWOuzxQxAPeHVEwBhmBunWcZAgvFMinEMdhYSModnGC8fe4Wy3lM6wNHTXynBTI02EzqsCP73mkCHq6gMZL-dqYJVM9-4lihhNLaGjIh/s800/skull-fire-monozcore.png FREIEND FREE

Sabtu, 19 November 2011

Cara mbuat stop watch bomb di visual basic 6.0

1. buat 4 label, 1 command button, dan 1 timer
2. lalu isikan nama-nama dan property seperti berikut ini
     NAMA    PROPERTY        
      label1------caption=1
      label2------caption=10
      label3------caption=60
      label4------caption=THE BOMB HAS BEEN PLANTED
      label4------visible=false
      timer1------enable=FALSE
     command1--_none_
3.isikan perintah di timer1 seperti ini
        Label3.Caption = Label3.Caption - 1
If Label3.Caption = "0" Then Label2.Caption = Label2.Caption - 1
If Label3.Caption = "0" Then Label3.Caption = "60"
If Label2.Caption = "0" Then Label1.Caption = Label1.Caption - 1
If Label2.Caption = "0" Then Label2.Caption = "10"
If Label1.Caption = "0" Then Timer1.Enabled = False
If Label1.Caption = "0" Then Label4.Visible = True

4. isikan perintah di command1 seperti ini
      Timer1.Enabled = True
Label1.Caption = "1"
5. lalu jalankan program itu
    

Tidak ada komentar:

Posting Komentar