Cara Membuat Jam Analog Dengan Kode VB6

Pada artikel kali ini Admin akan berbagi sebuah source code untuk menampilkan sebuah Jam Analog yang berjalan secara Real Time berdasarkan waktu pada komputer Anda.

Untuk membuat Jam Analog ini kita hanya butuh Control PictureBox, Control Label dan Timer. 

Untuk membuat jam Analog ini kita tidak perlu menggambar lagi bentuk jarum jam, menit dan detik karena sudah dibuatkan dengan code secara otomatis.

Output

Berikut adalah langkah-langkah Cara Membuat Jam analog dengan Code VB6 :

1. Pada Form1 tanamkan 1 PictureBox, 1 Timer dan beberapa Label

2. Kemudian desainlah Form seperti gambar dibawah ini :

Desain Form

3. Setelah mendesain Form tulislah code dibawah ini :

Dim centerX As Integer

Dim centerY As Integer

Dim lengthHour As Integer

Dim lengthMinute As Integer

Dim lengthSecond As Integer

Private Sub Form_Load()

    ' Inisialisasi variabel

    centerX = Picture1.ScaleWidth / 2

    centerY = Picture1.ScaleHeight / 2

    lengthHour = 1800

    lengthMinute = 2400

    lengthSecond = 2800

    

    ' Mulai Timer

    Timer1.Interval = 1000

    Timer1.Enabled = True

    

    ' Gambar jam pertama kali

    Call DrawClock

End Sub

Private Sub Timer1_Timer()

    ' Gambar ulang jam setiap detik

    Call DrawClock

End Sub

Private Sub DrawClock()

    Dim currentTime As Date

    Dim hourAngle As Double

    Dim minuteAngle As Double

    Dim secondAngle As Double

    

    ' Dapatkan waktu saat ini

    currentTime = Now

    

    ' Hitung sudut untuk setiap jarum jam

    hourAngle = ((Hour(currentTime) Mod 12) + Minute(currentTime) / 60) * 30

    minuteAngle = (Minute(currentTime) + Second(currentTime) / 60) * 6

    secondAngle = Second(currentTime) * 6

    

    ' Hapus gambar sebelumnya

    Picture1.Cls

    

    ' Gambar lingkaran untuk jam

    Picture1.Circle (centerX, centerY), 100, QBColor(0)

    

    ' Gambar jarum jam

    Call DrawHand(centerX, centerY, lengthHour, hourAngle, QBColor(0))

    Call DrawHand(centerX, centerY, lengthMinute, minuteAngle, QBColor(0))

    Call DrawHand(centerX, centerY, lengthSecond, secondAngle, QBColor(4)) ' Merah untuk detik

End Sub

Private Sub DrawHand(x As Integer, y As Integer, length As Integer, angle As Double, color As Long)

    Dim radian As Double

    Dim endX As Integer

    Dim endY As Integer

    

    ' Konversi sudut ke radian

    radian = angle * (3.14159265358979 / 180)

    

    ' Hitung posisi ujung jarum

    endX = x + length * Cos(radian - 1.5708)

    endY = y + length * Sin(radian - 1.5708)

    

    ' Gambar jarum

    Picture1.Line (x, y)-(endX, endY), color

End Sub

Setelah menuliskan kode diatas sekarang jalankan project anda dengan RUN/F5, jika tidak ada error maka hasilnya akan tampak pada gambar ouput diatas.

Demikianlah artikel singkat hari ini tentang cara membuat jam analog dengan kode vb6.

Catatan :

Lebar picturebox sesuaikan dengan panjang jarum jam

Semoga artikel ini bermanfaat buat kita semua, Amin.

Selamat mencoba semoga berhasil.

Related Post: Animasi Aplikasi sederhana