Jam Digital Dengan Timer

27 Juni 2009

Visual Basic menyediakan suatu komponen pencacah waktu dengan nama timer. Timer akan dikerjakan berdasarkan jatah waktu yang diberikan. Jatah waktu pengerjaan timer dalam satuan milisecond (1/1000 detik).
Jam digital merupakan salah satu jenis jam yang banyak digunakan untuk menentukan waktu. Visual basic menyediakan suatu fungsi untuk mengetahui jam sistem yang aktif yaitu fungsi time(). Dengan menjalankan timer setiap 1000 milisecond dan memanggil fungsi time() maka otomatis jam akan ditampilkan seperti jam sistem yang aktif.


Jam Analog

17 Juni 2009

Jam digunakan sebagai ukuran waktu. Terdapat dua jenis jam yang digunakan yaitu jam analog dan digital. Jam analog sebagai alat penghitung waktu dinyatakan dengan angka 1,2,3,4,5,6,7,9,10,11 dan 12 sebagai jam penunjuk waktu mulai dari tengah malam hingga tengah hari dan angka 1,2,3,4,5,6,7,8,9,10,11,12 yang menunjukkan angka tengah hari hingga tengah malam. Angka-angka di jam sering disebut sebagai pukul. Terdapat 3 jenis jarum pada jam yaitu jarum jam, menit dan detik. Bila jarum detik berputar satu putaran penuh maka jarum menit akan bertambah satu. Jika jarum menit berputar satu putaran penuh maka jarum jam akan bertambah satu.

I.Antar muka program
1. Buka proyek standard.exe
2. Simpan proyek dengan nama PAnalog
3. Simpan form dengan nama FAnalog
4. Ganti properti Form
Name : FrmAnalog
BorderSytel : Dialog
Caption : Analog
WindowState : Normal
5. Masukkan control Timer ke Form
6. Ganti properti Timer
Name : TrmAnalog
Interval : 1000 (dalam milisecond. 1 detik = 1000 milisecond)
7. Masukkan control Picture ke Form
8. Ganti properti Picture
Name : PicAnalog
Height : 3000 (dalam pixel)
Widht : 3000 (dalam pixel)
9. Masukkan command dan ganti propertinya menjadi:
– Name : cmdPlay
– Caption : &Play
10. Masukkan control command dan ganti propertinya menjadi:
– Name : cmdStop
– Caption : &Stop
11. Masukkan control command dan ganti propertinya menjadi:
– Name : cmdSet
– Caption : &Set

II.Implementasi
1. Buka Jendela Kode
2. Ketikkan kode program berikut:

Dim JariLingkaran, JarumJam, xTengah, yTengah, Y, X As Integer
Dim Radian, Derajat As Single
Dim strDetik, StrMenit, StrJam As String * 2
Dim Detik, Menit, Jam As Integer

Private Sub cmdPlay_Click()
TmrAnalog.Enabled = True
End Sub

Private Sub cmdStop_Click()
TmrAnalog.Enabled = False
End Sub

Private Sub Form_Load()
xTengah = PicAnalog.Width / 2
yTengah = PicAnalog.Width / 2
JariLingkaran = yTengah – 115
JarumJam = xTengah
X = JarumJam
Y = 100
Derajat = 264
PicAnalog.Circle (xTengah, yTengah), JariLingkaran, Black
Detik = -1
Menit = 0
Jam = 0
strDetik = “00”
StrMenit = “00”
StrJam = “00”
End Sub

Private Sub Form_Paint()
PicAnalog.Cls
PicAnalog.Line (xTengah, yTengah)-(X, Y), Yellow
End Sub

Private Sub TmrAnalog_Timer()
Derajat = Derajat + 6
If Derajat >= 360 Then
Derajat = 0
End If
Radian = 3.14 / 180 * Derajat
X = JarumJam + Cos(Radian) * 1400
Y = JarumJam + Sin(Radian) * 1400
Form_Paint
Detik = Detik + 1
If Detik 59 Then
Detik = 0
Menit = Menit + 1
If Menit 59 Then
Menit = 0
If Jam 12 Then
Jam = 0
End If
End If
End If
txtJam.Text = StrJam + “:” + StrMenit + “:” + strDetik
End Sub

III. Running
1. Jalankan proyek dengan menekan tombol F5