[VB] Jam Analog Dengan VB

Buatlah sebuah project baru
1. Tambahkan Command Button
2. Buatlah 2 buah Timer, property interval pada Timer1=1000, property interval pada Timer2=10000
3. Tambahkan 3 buah line control, buatlah sehingga 3 buah garis tersebut menyerupai 3 jarum jam

Source Code:

    
Dim aans As Integer
Dim aans As Integer
Dim aanh
Dim hh
Dim aanm As Double
Dim i As Integer
Dim ii As Integer
Dim TWI



Private Sub Command1_Click()

Unload Me

End Sub



Private Sub Form_Load()

ii = -360

aans = -360 + (Second(Now) - 15) * 6

hh = Hour(Now)

If hh = 0 Then hh = 12

If hh > 12 Then

hh = hh - 12

End If

If hh > 3 Then

hh = hh

End If

aanh = -360 + (hh - 3) * 30 + (Minute(Now) * 0.5) + (Second(Now) * 0.0083333333)

If hh = 1 Then

aanh = -60 + (Minute(Now) * 0.5) + (Second(Now) * 0.0083333333)

End If

If hh = 2 Then

aanh = -30 + (Minute(Now) * 0.5) + (Second(Now) * 0.0083333333)

End If

Line2.X2 = Line2.X1 + (1560 * (Cos(aanh * (22 / 7) / 180)))

Line2.Y2 = Line2.Y1 + (1560 * (Sin(aanh * (22 / 7) / 180)))

aanm = -360 + (Minute(Now) - 15) * 6 + (Second(Now) * 0.1)

End Sub



Private Sub Timer1_Timer()

TWI = Second(Now)

If TWI < 15 Then

TWI = 60 - (15 - TWI)

Else

TWI = TWI - 15

End If



aanm = aanm + 0.1

aans = aans + 6

If aans = 6 Then

aans = -354

End If

If aanm = 0.1 Then

aanm = 359.9

End If

Line1.X2 = Line1.X1 + (2160 * (Cos(aans * (22 / 7) / 180)))

Line1.Y2 = Line1.Y1 + (2160 * (Sin(aans * (22 / 7) / 180)))



Line3.X2 = Line3.X1 + (1920 * (Cos(aanm * (22 / 7) / 180)))

Line3.Y2 = Line3.Y1 + (1920 * (Sin(aanm * (22 / 7) / 180)))
If TWI = 0 Then TWI = 60
End Sub

Private Sub Timer2_Timer()
aanh = aanh + 0.083333333
If aanh = 0.083333333 Then
aanh = 359.9166667
End If
Line2.X2 = Line2.X1 + (1560 * (Cos(aanh * (22 / 7) / 180)))
Line2.Y2 = Line2.Y1 + (1560 * (Sin(aanh * (22 / 7) / 180)))
End Sub

Jangan Lupa Komentar Yaa..