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

Share On:

ARTIKEL YANG TERKAIT:

JARINGAN KOMPUTER

KEMAPUAN PERSONAL

MERAKIT KOMPUTER

Senin, 22 April 2013

MEMBUAT JAM DIGITAL DENGAN VB

ARTIKEL YANG TERKAIT:

Belum ada komentar untuk "MEMBUAT JAM DIGITAL DENGAN VB "

About Me

POSTINGAN

JAM

ANDA PENGUNJUNG KE

ARTIKEL TERPOPULER

My Facebook

TERJEMAHKAN

Daftar Blog Sejenis

Categories

ANGGOTA

SELAMAT DATANG