Program Jam Analog Dengan Mengggunakan Objek Timer Dan Line Pada Microsoft Visual Basic 6.0

Program Jam Analog ini hanya menggunakan objek Timer dan Line. Ketika program dijalankan, jarum jam akan berputar seperti layaknya perputaran jarum jam sungguhan. 

Langkah – langkah pembuatan Program Jam Analog adalah sbb :

·      Buka proyek Standard EXE yang baru

·      Masukkan sebuah objek Line dan sebuah objek Timer pada form. Kedua objek tersebut dapat diletakkan di sembarang tempat pada form. Ukuran form sebaiknya diatur lebih besar width  (lebar) daripada height (tinggi) agar bentuk jam bulat tidak oval. 

·      Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
Timer1	Name        Interval	tmrJam 100
Line1	Name        BorderWidth	LinjarumJam 2

Form1

Name Caption

Frm_JamAnalog Program Jam Analog

·      Buka Project1 – Form1 (Code) dengan mengklik View Code (lihat gambar dibawah).

 

Gbr 1

·      Lalu copy paste (copas) kode dibawah ini :

Private Sub Form_Load()

'mengatur Lebar dan Tinggi Form

'mengatur Posisi Jam di Layar

Width = 4000

heigth = 4000

Left = Screen.Width \ 2 - 4000

Top = Screen.Height \ 2 - 4000

End Sub

Private Sub Form_Resize()

'mengatur bentuk dan ukuran jam

Dim i, Sudut

Static Flag As Boolean

If Flag = False Then

    Flag = True

    For i = 0 To 14

        If i > 0 Then Load LinjarumJam(i)

        LinjarumJam(i).Visible = True

        LinjarumJam(i).BorderWidth = 5

        LinjarumJam(i).BorderColor = QBColor(1)

    Next i

End If

For i = 0 To 14

    Scale (-1, -1)-(1, 1)

    Sudut = i * 2 * Atn(1) / 3

    LinjarumJam(i).X1 = 0.9 * Cos(Sudut)

    LinjarumJam(i).Y1 = 0.9 * Sin(Sudut)

    LinjarumJam(i).X2 = Cos(Sudut)

    LinjarumJam(i).Y2 = Sin(Sudut)

Next i

End Sub

Private Sub tmrJam_Timer()

Const LenganJam = 0

Const LenganMenit = 13

Const LenganDetik = 14

Dim Sudut

Static DetikLalu

'Posisi lengan hanya pada detik

If Second(Now) = DetikLalu Then Exit Sub

DetikLalu = Second(Now)

'Posisi Lengan Jam

Sudut = -0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))

LinjarumJam(LenganJam).X1 = 0

LinjarumJam(LenganJam).Y1 = 0

LinjarumJam(LenganJam).X2 = 0.5 * Cos(Sudut)

LinjarumJam(LenganJam).Y2 = 0.5 * Sin(Sudut)

LinjarumJam(LenganJam).BorderColor = QBColor(2)

'Posisi Lengan Menit

Sudut = -0.1047 * (75 - (Minute(Now) + Second(Now) / 60))

LinjarumJam(LenganMenit).X1 = 0

LinjarumJam(LenganMenit).Y1 = 0

LinjarumJam(LenganMenit).X2 = 0.7 * Cos(Sudut)

LinjarumJam(LenganMenit).Y2 = 0.7 * Sin(Sudut)

LinjarumJam(LenganMenit).BorderColor = QBColor(4)

'Posisi Lengan Detik

Sudut = -0.1047 * (75 - Second(Now))

LinjarumJam(LenganDetik).X1 = 0

LinjarumJam(LenganDetik).Y1 = 0

LinjarumJam(LenganDetik).X2 = 0.8 * Cos(Sudut)

LinjarumJam(LenganDetik).Y2 = 0.8 * Sin(Sudut)

LinjarumJam(LenganDetik).BorderColor = QBColor(5)

End Sub

·      Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run => Start

·      Hasilnya ketika program dijalankan

 

  

Gbr 2

Download Program Jam Analog  disini