Jam Digital dengan 7 Segment
Assalamualaikum sahabat elektro ,,,,,
Alhamdulillah saya bisa posting artikel lagi. Nah, kali ini yang mau saya kenalkan sama saudara ialah bagaimana membuat jam Digital dengan seven segment menggunakan aplikasi Mikrokontroler AT89S52.
Buatnya gak susah-susah banget kok, intinya kemauan dan dana …..
Ada kemauan dan dana jadi deh ,,,,,
Ini cara buatnya saya dapat dari buku yang saya pinjam ma teman saya, Tapi saya lupa nama bukunya apa. Maaf ya pak pengarang saya menyebarluaskan buku bapak tanpa membuat sumbernya karena saya lupa. Hehehehe…..
Nah, kita mulai dari bahan aja ya Bro2 ,,,,
1. Seven segment = 4 buah
2. Transistor 2N2222 = 4 buah
3. Mikrokontroler AT89S52 + Soket = 1 buah
4. Saklar Push Button = 3 buah
5. Crystall 11,0 = 1 buah
6. Capasitor keramik 30 pF = 2 buah
7. Capasitor Polar (Elco) 10 μF 16 V = 1 buah
8. Konector putih 2 pin = 1 buah
9. Resistor 1 kΩ = 8 buah
10. Resistor 330 Ω = 4 buah
11. Resistor 8,2 kΩ = 1 buah
12. Resistor 100 Ω = 1 buah
13. IC Regulator 7805 + pendingin Alumunium = 1 buah
14. Soket Baterai = 1 buah
15. Baterai 9 V = 1 buah
16. Speser + mur = 4 buah
Nah, untuk rangkaiannya silahkan rangkai sendiri ya???
ni dy rangkaiannya (jangan lupa kita merangkainnya pakai softwere Eagle ya….?)
Buat program untuk mikronya dapat Anda lihat :
$regfile = "8052.dat"
$crystal = 12000000
' ------------------------------------------alokasi memori-----------------------------------------'
Dim Menit_sat As Byte
Dim Menit_Pul As Byte
Dim Jam_sat As Byte
Dim Jam_pul As Byte
Dim 50ms As word
Dim Detik As Byte
'-----------------------------------Konfigurasi interupsi------------------------------------------'
Config Timer1 = Timer , Gate = Internal , Mode = 2
Enable Interrupts
Enable Timer1
Enable Int0
Enable Int1
On Int0 Menit
On Int1 Jam
On Timer1 waktu
Set Tcon.0
Set Tcon.2
'----------------------------------Program utama----------------------------------------------------'
Load Timer1 , 250
Start Timer1
Main :
Gosub Hitung
Gosub Tampil
Goto Main
'---------------------------------------Sub Program--------------------------------------------------'
Hitung :
If Detik = 60 Then
Detik = 0
Incr Menit_sat
End If
If Menit_sat = 10 Then
Menit_sat = 0
Incr Menit_pul
End If
If Menit_pul = 6 Then
Menit_pul = 0
Incr Jam_sat
End If
If Jam_sat = 10 Then
Jam_sat = 0
Incr Jam_pul
End If
If Jam_pul = 2 And Jam_sat = 4 Then
Jam_sat = 0
Jam_pul = 0
End If
Return
Tampil :
P0 = Lookup (menit_sat , 7_seg)
P2 = &HF1
Waitms 1
P0 = Lookup (menit_pul , 7_seg)
P2 = &HF2
Waitms 1
P0 = Lookup (jam_sat , 7_seg)
P2 = &HF4
Waitms 1
P0 = Lookup (jam_pul , 7_seg)
P2 = &HF8
Waitms 1
Return
'--------------------------------------Data 7-segment-----------------------------------------
7_seg :
Data &HA0 , &HF9 , &HA4 , &HB0 , &H99
Data &H92 , &H82 , &HF8 , &H80 , &H90
'-----------------------------------------Interupt-----------------------------------------------
Waktu :
Incr 50 ms
If 50ms = 4000 Then
50ms = 0
Incr Detik
End If
Return
Menit :
Incr Menit_sat
Return
Jam :
Incr Jam_sat
Return
Untuk Anda yang gak mau susah-susah buatnya, bisa beli langsung ma para pecinta dan penghobby elektronik dan robotic. Harganya gak mahal-mahal banget kok. Palingan sekitar Rp. 100.000-150.000. Untuk belajar jangan tanggung-tanggung teman, kalau kita serius maka akan ada jalan untuk meraih kesuksesan.
1.jpg)
