Cara Membuat Jam Analog dengan Visual Basic 6.0

Mungkin jika kita ingin membuat jam digital dengan visual basic adalah hal yang mudah namun bagaimana dengan Sebuah Jam Analog. Kali ini kita akan mencoba membuat sebuah jam analog dengan menggunakan visual basic 6.0

Langkah-langkahnya adalah sebagai berikut.
>>> Seperti Biasa anda terlebih dahulu buka Program Microsoft Visual Basic anda.
>>> kemudian Siapkan sebuah Form,ada baiknya jika kita menggunakan Form Bulat yang telah kita buat sebelumnya.
>>> Kemudian anda tambahkan 2 buah shape,dan 3 buah line dan sebuah kontrol timer sehingga tampilannya seperti ini.

Gambar.1 Tampilan Visual Awal dari Program

>>>setelah itu anda cukup menambahkan beberapa listing program diprogram sebelumnya. Sehingga listing program utuhnya akan menjadi seperti dibawah ini.




Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim atas As Long
Dim hasil As Long
Me.Width = 1000 * Screen.TwipsPerPixelX / 2
Me.Height = 1000 * Screen.TwipsPerPixelY / 2
atas = CreateEllipticRgn&(10, 50, 450, 470)
hasil = SetWindowRgn(Me.hWnd, atas, True)

Left = Screen.Width \ 2 - 4000
Top = (Screen.Height - Height) \ 2

End Sub





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)

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

>>> Dan Hasilnya dari proram yang telah kita buat


 Gambar.2 Hasil Akhir Dari Program Kita
Anda baru saja membaca artikel yang berkategori Programmer / Vb dengan judul Cara Membuat Jam Analog dengan Visual Basic 6.0. Anda bisa bookmark halaman ini dengan URL http://serbatutorial-it.blogspot.com/2012/05/cara-membuat-jam-analog-dengan-visual.html. Terima kasih!
Ditulis oleh: Buduri Buduri - Selasa, 29 Mei 2012

Belum ada komentar untuk "Cara Membuat Jam Analog dengan Visual Basic 6.0"

Poskan Komentar