MEMBUAT JAM DIGITAL DENGAN VB

Yapz  udah lama ga update2 tutorial - tutorial buat kalian belajar VB6 dari blog ini. Oh iya sebelum saya membuat posting ini saya ingin memberitahukan kepada anda tentang EVENT yang akan saya ditahun ini hadiah untuk EVENT ini sebuah E-BOOK Cara cepat menguasai VB6 tunggu tanggal mainya ya cepat atau lambat saya akan buat EVENT itu. Oke berikut tentang tutorial ini tutorial sederhana Cara Membuat Aplikasi Jam Analog VB6, Sebenernya tutorial ini udah banyak di google tapi saya ingin menaruh semua TUTORIAL dari berbagai sumber buat kalian belajar soalnya saya lihat2 di google masih sedikit blog khusus TUTORIAL untuk VB6 hehehe ... baik langsung aja tutorialnya

1. Open VB6 dan pilih 'Standart Exe'
2. Masukan objek ini ke dalam form1 : 1 Label, 3 LineTools, 1 Timer Atur propertinya seperti ini :

Form1 : Name =  frmMain
LineTools : Name = ( Linehour,lineMinute,lineSecond) * Linetool ini untuk jarum jam dengan catatan ketiga line tersebut berada mempunyai titik pusat yang sama.
Label1 : Name = Lbltime , Caption = Kosongkan
Timer : Name = tmrclock Interval = 1

3. Klik View kode dan masukan kode dibawah ini kedalam form1
 
Option Explicit Private Const pi As Double = 3.14159265358979 Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Sub MakeRoundObject(objObject As Object, Value As Long) Static lngHeight, lngLong, lngReturn, lngWidth As Long lngWidth = objObject.Width / Screen.TwipsPerPixelX lngHeight = objObject.Height / Screen.TwipsPerPixelY SetWindowRgn objObject.hWnd, CreateRoundRectRgn(0, 0, lngWidth, lngHeight, Value, Value), True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then App.TaskVisible = False Unload Me End End If End Sub Private Sub Form_Load() Dim intX As Integer Call MakeRoundObject(frmMain, 20) Call tmrClock_Timer For intX = 0 To 360 Step 6 If intX Mod 30 = 0 Then Me.DrawWidth = 6 Me.PSet (1100 * Cos(intX * pi / 180) + lineSecond.X1, 1100 * Sin(intX * pi / 180) + lineSecond.Y1) Else Me.DrawWidth = 3 Me.PSet (1100 * Cos(intX * pi / 180) + lineSecond.X1, 1100 * Sin(intX * pi / 180) + lineSecond.Y1) End If Next intX End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ReleaseCapture SendMessage Me.hWnd, &HA1, 2, 0& End Sub Private Sub lblTime_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Call Form_MouseDown(Button, Shift, X, Y) End Sub Private Sub tmrClock_Timer() Dim dblSecond As Double, dblMinute As Double, dblHour As Double dblSecond = Second(Now) * 6 - 90 dblMinute = (Minute(Now) + Second(Now) / 60) * 6 - 90 dblHour = (Hour(Now) + Minute(Now) / 60) * 30 - 90 lineSecond.X2 = 1000 * Cos(dblSecond * pi / 180) + lineSecond.X1 lineSecond.Y2 = 1000 * Sin(dblSecond * pi / 180) + lineSecond.Y1 lineMinute.X2 = 900 * Cos(dblMinute * pi / 180) + lineMinute.X1 lineMinute.Y2 = 900 * Sin(dblMinute * pi / 180) + lineMinute.Y1 lineHour.X2 = 700 * Cos(dblHour * pi / 180) + lineHour.X1 lineHour.Y2 = 700 * Sin(dblHour * pi / 180) + lineHour.Y1 'kode dibawah ini untuk label lihat lbltime kalau anda tidak mengganti nama lebel1 dengan lbltime tidak akan terbaca dalam kode bisa juga lbltime dibawah ini dirubah menjadi "lebel1" kalau anda tidak tau cara mengganti name pada lebel. lblTime.Caption = Format(Now, "hh:mm:ss") End Sub

4. Selesai coba di test dengan menekan tombol F5 Pada keyboard.

by : pande setiawan i nyoman

Terima kasih telah membaca artikel tentang MEMBUAT JAM DIGITAL DENGAN VB dan anda bisa bookmark artikel MEMBUAT JAM DIGITAL DENGAN VB ini dengan url http://tkjsmkgp.blogspot.com/2013/04/membuat-jam-digital-dengan-vb.html. Terima kasih

Berlangganan artikel via email :

Delivered by PANDE

Share On:

ARTIKEL YANG TERKAIT: