Kemudian ubah nilai property setiap kontrol sesuai dengan tabel berikut:
Kontrol
|
Properti
|
Nilai
|
Form
|
BorderStyle
|
1 – Fixed Single
|
Caption
|
Jam Digital
| |
TextBox
|
Name
|
TxtJam
|
Text
|
[kosong]
| |
Command Button
|
Name
|
CmdExit
|
Caption
|
E&xit
| |
Timer
|
Interval
|
1000
|
Tambahkan kode program ke dalam form tersebut seperti diberikan pada listing program berikut ini :
Private Sub cmdExit_Click()
End
End Sub
Private Sub Form_Load()
txtJam.Text = Time
End Sub
Private Sub Timer1_Timer()
txtJam.Text = Time
End Sub
Hasil eksekusi program tersebut terlihat pada gambar berikut :
Nah, sederhana, bukan……?
Tidak ada komentar:
Posting Komentar
Pos kan komentar anda !