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:
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 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.
Listing
3. Membuat Jam Digital
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
|
Nah, sederhana, bukan?
Tidak ada komentar:
Posting Komentar