get paid to paste

coding1

Option Explicit
Dim panjangjjam As Integer
Dim panjangjmenit As Integer
Dim panjangjdetik As Integer
Dim pusatx As Integer
Dim pusaty As Integer

Sub hitungskala()
Bingkai.Top = 0
Bingkai.Left = 0
Bingkai.Height = Me.ScaleHeight
Bingkai.Width = Me.ScaleWidth
panjangjjam = (4 / 10 * Me.ScaleHeight) \ 2
panjangjmenit = (6 / 10 * Me.ScaleHeight) \ 2
panjangjdetik = (8 / 10 * Me.ScaleHeight) \ 2
pusatx = Me.ScaleWidth \ 2
pusaty = Me.ScaleHeight \ 2
End Sub

Private Sub aturjarumjam()
Dim jamsekarang As Integer
Dim sudutjam As Integer
Dim x, y
jamsekarang = (Now - Int(Now)) * 24
sudutjam = (jamsekarang - 1) * -30 + 60
x = panjangjjam * Cos(sudutjam * 3.14 / 180)
y = panjangjjam * Sin(sudutjam * 3.14 / 180)
jarumJam.X1 = pusatx
jarumJam.Y1 = pusaty
jarumJam.X2 = pusatx + x
jarumJam.Y2 = pusaty - y
End Sub

Private Sub aturjarummenit()
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 = panjangjmenit * Cos(sudutmenit * 3.14 / 180)
y = panjangjmenit * Sin(sudutmenit * 3.14 / 180)
jarumMenit.X1 = pusatx
jarumMenit.Y1 = pusaty
jarumMenit.X2 = pusatx + x
jarumMenit.Y2 = pusaty - y
End Sub

Private Sub aturjarumdetik()
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 = panjangjdetik * Cos(sudutdetik * 3.14 / 180)
y = panjangjdetik * Sin(sudutdetik * 3.14 / 180)
jarumDetik.X1 = pusatx
jarumDetik.Y1 = pusaty
jarumDetik.X2 = pusatx + x
jarumDetik.Y2 = pusaty - y
End Sub

Private Sub aturjarum()
Call aturjarumjam
Call aturjarummenit
Call aturjarumdetik
End Sub

Private Sub form_load()
Me.Height = 3000
Me.Width = 3000
Call hitungskala
Me.Visible = True
Bingkai.Visible = True
Call aturjarum
jarumJam.Visible = True
jarumMenit.Visible = True
jarumDetik.Visible = True
End Sub

Private Sub form_resize()
Call hitungskala
End Sub

Private Sub timer_timer()
Call aturjarum
End Sub

Pasted: Dec 21, 2012, 2:59:58 pm
Views: 5