MEMBUAT APLIKASI SEDERHANA (STANDAR EXE) VB 6.0

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



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