Rabu, 26 Mei 2010

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
 

7 komentar:

  1. mf sebelumnya
    Q mank belum tau cara buat form bulatnya mas,,
    maksih

    BalasHapus
  2. untuk membuat form bulatnya silakan anda baca artikel Membuat form unik dengan visual basic.
    Saya juga masih dalam taraf belajar.


    Terima Kasih Atas kunjungan Anda!

    BalasHapus
  3. keren om..
    cara buat antivirus gimna... n tlong di ajarkan sedetail mungkin ...
    http://jawaposting.blogsop.com

    BalasHapus
  4. pak boleh minta sourcenya ?

    BalasHapus
  5. bisa ga kalo menggabungkan aplikasi vb dengan mac flash atau animasi

    BalasHapus
  6. bisa sob...
    untuk contohnya mungkin nanti akan saya postingkan

    BalasHapus
  7. keren banget!!!!! mantap bos source code nya.

    BalasHapus

Need Your Comments, Please !!!