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