Membuat Aplikasi Jam Analog dengan Visual Basic 6

Berikut ini adalah tutorial membuat jam analog dengan visual basic 6.0

Oke ,, Langsung saja kita mulai !

1. Buat New Project - Standard EXE.
2. ubah beberapa properti Form sebagai berikut :

• BorderStyle = Fixed Single 
• MinButton = True
• MaxButton = False
• StartUpPosition = CenterScreen

3. Buat 1 buah Shape, ganti beberapa propertinya sebagai berikut :

• Name = Jam
• Shape = Circle

4. Buat 3 Buah Line yang akan berfungsi sebagai jarum jam, jarum menit, dan jarum detik, kemudian  ubah beberapa propertinya seperti berikut:

• untuk Line1 : Name = jrjam , border width = 4
• untuk Line2 : Name = jrmenit , border width = 2
• untuk Line3 : Name = jrdetik , border width = 1

5. Masukan 1 buah Timer, ganti beberapa propertinya :

• Name = Timer
• Interval = 1000

untuk masing-masing Properti yang lainnya tidak perlu diganti !!!

6. Lalu masukan code program berikut ini :

Option Explicit Dim pjjam, pjmenit, pjdetik As Integer Dim pusatx, pusaty As Integer Sub properti() '//sub untuk properti skala bingkai dan jarum jam.Top = 0 jam.Left = 0 jam.Height = Me.ScaleHeight '//menentukan panjang bingkai jam jam.Width = Me.ScaleWidth '//menentukan lebar bingkai jam pjjam = (1 / 5 * jam.Height) '//menentukan panjang jarum jam pjmenit = (2 / 5 * jam.Height) '//menentukan panjang jarum menit pjdetik = (2 / 5 * jam.Height) '//menentukan panjang jarum detik pusatx = jam.Width \ 2 pusaty = jam.Height \ 2 End Sub Private Sub jarumjam() Dim jamsekarang As Single Dim sudutjam As Integer Dim x, y jamsekarang = (Now - Int(Now)) * 24 '/menentukan jam sesuai dengan sistem waktu pada pc anda sudutjam = (jamsekarang - 1) * -30 + 60 '/mencari sudut jarum jam dari waktu sekarang x = pjjam * Cos(sudutjam * 3.14 / 180) y = pjjam * Sin(sudutjam * 3.14 / 180) jrjam.X1 = pusatx jrjam.Y1 = pusaty jrjam.X2 = pusatx + x jrjam.Y2 = pusaty - y End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Copyleft © by MBEN '' '' ck-down.blogspot.com '' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub jarummenit() Dim waktusekarang As Single Dim menitsekarang As Integer Dim sudutmenit As Integer Dim x, y waktusekarang = (Now - Int(Now)) * 24 menitsekarang = (waktusekarang - Int(waktusekarang)) * 60 sudutmenit = (menitsekarang - 1) * -6 + 84 x = pjmenit * Cos(sudutmenit * 3.14 / 180) y = pjmenit * Sin(sudutmenit * 3.14 / 180) jrmenit.X1 = pusatx jrmenit.Y1 = pusaty jrmenit.X2 = pusatx + x jrmenit.Y2 = pusaty - y End Sub Private Sub jarumdetik() Dim waktusekarang As Single Dim detiksekarang As Integer Dim sudutdetik As Integer Dim x, y waktusekarang = (Now - Int(Now)) * 24 * 60 detiksekarang = (waktusekarang - Int(waktusekarang)) * 60 sudutdetik = (detiksekarang - 1) * -6 + 84 x = pjdetik * Cos(sudutdetik * 3.14 / 180) y = pjdetik * Sin(sudutdetik * 3.14 / 180) jrdetik.X1 = pusatx jrdetik.Y1 = pusaty jrdetik.X2 = pusatx + x jrdetik.Y2 = pusaty - y End Sub Private Sub aturjam() Call jarumjam '/memanggil sub jarumjam Call jarummenit '/memanggil sub jarummenit Call jarumdetik '/memanggil sub jarumdetik End Sub Private Sub Form_Load() Me.Height = 4000 Me.Width = 4000 Call properti Me.Visible = True jam.Visible = True Call aturjam End Sub Private Sub Form_Resize() '/agar ukuran form saat di jalankan sesuai dengan skala bingkai Call properti End Sub Private Sub Timer_Timer() Call aturjam End Sub
kemudian silahkan running, dan lihat hasilnya!!
kalau ingin sama persis hasilnya dengan gambar di atas,, silahkan download filenya di bawah !!

Password rar = ck-down.blogspot.com
Link Download (FIX) :

Note: ketika baru di download, nama file adalah Jam analog.rar.ppt
Agar filenya bisa dibuka. Rename dan hapus .ppt (dot ppt) sehingga menjadi file Jam analog.rar

Sekian tutorialnya,,, silahkan kreasikan sendiri!! :) :)
referensi : kuliah + otak-atik dewek.

Thanks for reading Membuat Aplikasi Jam Analog dengan Visual Basic 6