Cara Membuat Jam Dinding atau Jam Analog di VB 6.0

Assalamualikum Wr.Wb, jumpa lagi kita di Tip dan Trik Visual Basic 6.0 , pada pertemuan kali saya ingin bagikan kepada Anda bagaimana cara membuat jam dinding atau jam Analog di VB 6.0.
Biasanya kalau kita membuat sebuah program untuk menampilkan sebuah waktu biasanya berbentiuk digital, karena membuat jam digital lebih mudah dari pada Analog. Jam digital hanya memerlukan control timer dan satu label.Dimana label ini nantinya akan menampilkan sebuah angka jam berbetuk digital.Tetapi pada kali ini tip dan trik visual basic akan memberikan tip bagaimana membuat jam Analog (Jam Dinding).Tapi sebelum ke tip mari kita simak perbedaan jam Analog dan jam Digital.

Jam Dinding Analog adalah jam dinding konvensioanal yang menggunakan jarum jam dan pendulum untuk membuatnya bergerak. Sedangkan Jam Digital adalah Jam dinding dengan sentuhan lebih modern dimana penunjuk waktunya menggunakan layar LCD  yang menampilkan sederetan angka secara Digital.

Setelah kita tahu pengertian dan perbedaan antar Jam Analog dan Jam Digital, sekarang giliran kita akan membuat tip cara membuat jam Analog. Untuk bisa merancang Form dam membuat Jam Analog ikuti langkah-langkah berikut :

 Cara Membuat Jam Dinding atau Jam Analog di VB 6.0.

1. Buka program VB 6.0 Anda

2. Pada Form VB Anda tanamkan 1 Timer dengan Interval 1000

3. Lalu tanamkan juga 2 Control Shape pilih Circle di Properties (1 shape berukuran besar merah  jambu dan 1 shape berukuran kecil di tengah jam warna hitam)

4. Kemudian tanamkan 3 Control Line atau Garis yang berfungsi untuk penunjuk Jam, Menit, Detik dan tentukan panjang masing-masing

5. Terakhir tambahkan 4 Label masing-masing untuk angka 12, angka 3, angka 6, dan angka 9 atur sesuai selera, Desainlah form seperti gambar dibawah:

Desian Form Jam Analog

6. Setelah itu buka jendela kode dan kosongkan seluruh kode yang ada disitu dengan cara menghapusnya sehingga bener-bener kosong

7. Selanjutnya Copy-paste atau ketik kode dibawah ini dibagian General - Declaration

Private Sub Form_Resize()
Dim i, sudut
Static flag As Boolean
If flag = False Then
flag = True
End If
For i = 0 To 14

Scale (-1, -1)-(1.2, 1)
sudut = i * 2 * Atn(1) / 3
Line1.X1 = 3000
Line1.Y1 = 3000
Line1.X2 = Cos(sudut)
Line1.Y2 = Sin(sudut)
Line2.X1 = 3000
Line2.Y1 = 3000
Line2.X2 = Cos(sudut)
Line2.Y2 = Sin(sudut)
Line3.X1 = 3000
Line3.Y1 = 3000
Line3.X2 = Cos(sudut)
Line3.Y2 = Sin(sudut)
Next i

End Sub

Private Sub Timer1_Timer()
Const jam = 0
Const menit = 13
Const detik = 14
Dim sudut
Static detiklalu

If Second(Now) = detiklalu Then Exit Sub
detiklalu = Second(Now)
Line1.BorderWidth = 4
Line2.BorderWidth = 2

sudut = -0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))
Line1.X1 = 0
Line1.Y1 = 0
Line1.X2 = 0.4 * Cos(sudut)
Line1.Y2 = 0.4 * Sin(sudut)


sudut = -0.1047 * (75 - (Minute(Now) + Second(Now) / 60))
Line2.X1 = 0
Line2.Y1 = 0
Line2.X2 = 0.5 * Cos(sudut)
Line2.Y2 = 0.5 * Sin(sudut)


sudut = -0.1047 * (75 - Second(Now))
Line3.X1 = 0
Line3.Y1 = 0
Line3.X2 = 0.6 * Cos(sudut)
Line3.Y2 = 0.6 * Sin(sudut)

End Sub

8. Simpan hasil pekerjaan Anda dan jalankam Program

Demikian tip cara cara membuat jam dinding atau jam Analog di VB 6.0. Selamat mencoba semoga berhasil.

Related Post: Tools