Jam Analog

Jam digunakan sebagai ukuran waktu. Terdapat dua jenis jam yang digunakan yaitu jam analog dan digital. Jam analog sebagai alat penghitung waktu dinyatakan dengan angka 1,2,3,4,5,6,7,9,10,11 dan 12 sebagai jam penunjuk waktu mulai dari tengah malam hingga tengah hari dan angka 1,2,3,4,5,6,7,8,9,10,11,12 yang menunjukkan angka tengah hari hingga tengah malam. Angka-angka di jam sering disebut sebagai pukul. Terdapat 3 jenis jarum pada jam yaitu jarum jam, menit dan detik. Bila jarum detik berputar satu putaran penuh maka jarum menit akan bertambah satu. Jika jarum menit berputar satu putaran penuh maka jarum jam akan bertambah satu.

I.Antar muka program
1. Buka proyek standard.exe
2. Simpan proyek dengan nama PAnalog
3. Simpan form dengan nama FAnalog
4. Ganti properti Form
Name : FrmAnalog
BorderSytel : Dialog
Caption : Analog
WindowState : Normal
5. Masukkan control Timer ke Form
6. Ganti properti Timer
Name : TrmAnalog
Interval : 1000 (dalam milisecond. 1 detik = 1000 milisecond)
7. Masukkan control Picture ke Form
8. Ganti properti Picture
Name : PicAnalog
Height : 3000 (dalam pixel)
Widht : 3000 (dalam pixel)
9. Masukkan command dan ganti propertinya menjadi:
– Name : cmdPlay
– Caption : &Play
10. Masukkan control command dan ganti propertinya menjadi:
– Name : cmdStop
– Caption : &Stop
11. Masukkan control command dan ganti propertinya menjadi:
– Name : cmdSet
– Caption : &Set

II.Implementasi
1. Buka Jendela Kode
2. Ketikkan kode program berikut:

Dim JariLingkaran, JarumJam, xTengah, yTengah, Y, X As Integer
Dim Radian, Derajat As Single
Dim strDetik, StrMenit, StrJam As String * 2
Dim Detik, Menit, Jam As Integer

Private Sub cmdPlay_Click()
TmrAnalog.Enabled = True
End Sub

Private Sub cmdStop_Click()
TmrAnalog.Enabled = False
End Sub

Private Sub Form_Load()
xTengah = PicAnalog.Width / 2
yTengah = PicAnalog.Width / 2
JariLingkaran = yTengah – 115
JarumJam = xTengah
X = JarumJam
Y = 100
Derajat = 264
PicAnalog.Circle (xTengah, yTengah), JariLingkaran, Black
Detik = -1
Menit = 0
Jam = 0
strDetik = “00”
StrMenit = “00”
StrJam = “00”
End Sub

Private Sub Form_Paint()
PicAnalog.Cls
PicAnalog.Line (xTengah, yTengah)-(X, Y), Yellow
End Sub

Private Sub TmrAnalog_Timer()
Derajat = Derajat + 6
If Derajat >= 360 Then
Derajat = 0
End If
Radian = 3.14 / 180 * Derajat
X = JarumJam + Cos(Radian) * 1400
Y = JarumJam + Sin(Radian) * 1400
Form_Paint
Detik = Detik + 1
If Detik 59 Then
Detik = 0
Menit = Menit + 1
If Menit 59 Then
Menit = 0
If Jam 12 Then
Jam = 0
End If
End If
End If
txtJam.Text = StrJam + “:” + StrMenit + “:” + strDetik
End Sub

III. Running
1. Jalankan proyek dengan menekan tombol F5

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: