Program untuk membuat jam digital dengan Visual Basic merupakan program
yang relatif sederhana. Hanya diperlukan sebuah form dan beberapa
baris pemrograman saja.
Desainlah form seperti terlihat pada gambar
1. Kontrol timer dapat diletakkan di mana saja karena tidak akan
terlihat pada saat runtime. Kemudian beberapa kontrol yang ada harus
diubah nilai propertinya sesuai dengan tabel berikut:
Control 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 1.
Pada prinsipnya, pada saat form di load, teks pada txtJam harus
menunjukkan waktu saat itu yang diberikan oleh objek Time. Kemudian
setiap interval yang ditentukan pada kontrol Timer, teks pada txtJam
juga diupdate sesuai dengan waktu saat itu.
Hasil eksekusi program tersebut terlihat pada gambar 2.
contoh gambar 1 :
Masukkan Code Jam Digitalnya Seperti contoh Di Bawah Ini !
End
End Sub
Private Sub Form_Load()
txtJam.Text = Time
End Sub
Private Sub Timer1_Timer()
txtJam.Text = Time
End Sub
mampir di blog ku juga sob
BalasHapusfollow
http://aunaldy.blogspot.com/