contoh aplikasi standard exe dengan visual basic 6.0 !!!
okk langkah-langkah sebagai berikut :
Buatlah desain seperti gambar berikut ???
1.1 buah frame
2. tambahkan sebuah label
3. buah button
4. dan 2 buah timer
okk langkah-langkah sebagai berikut :
Buatlah desain seperti gambar berikut ???
1.1 buah frame
2. tambahkan sebuah label
3. buah button
4. dan 2 buah timer
dan masukan source code berikut ???
Private Sub Command1_Click()
Command1.Caption = "&stop"
Timer2.Enabled = False
End Sub
Private Sub Command2_Click()
Command2.Caption = "&start"
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
Label1.Caption = Format(Now, "DDD, d MMM YYY hh:mm:ss")
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "DDD, d MMM YYY hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
Dim s As String
s = Label1.Caption
s = Mid(s, 2, Len(s) - 1) & Left(s, 1)
Label1.Caption = s
End Sub

No comments:
Post a Comment