JAM DIGITAL 7 Segment AT89s52
JAM DIGITAL 7 Segment AT89s52
 |
| Ukuran PCB 100 mm x 100 mm |
program JAM DIGITAL 7 Segment AT89s52 menggunakan BASCOM 8051
$crystal = 12000000
' ------------------------------------------alokasi memori-----------------------------------------'
Dim Detik_sat As Byte , Detik_pul As Byte
Dim Menit_sat As Byte , Menit_pul As Byte
Dim Jam_sat As Byte , Jam_pul As Byte
Dim X As Word , Data_segment As Byte
'-----------------------------------Konfigurasi interupsi------------------------------------------'
Porta Alias P2
Portd.0 Alias P3.0
Portd.1 Alias P3.1
Portd.2 Alias P3.2
Portd.3 Alias P3.3
Portd.4 Alias P3.4
Portd.5 Alias P3.5
Pinb.0 Alias P0.0
Pinb.1 Alias P0.1
Portd Alias P3
P2 = 255
P3 = 255
Portb Alias P0
P0 = 255
P1 = 0
'----------------------------------Program utama----------------------------------------------------'
Do
Gosub Baca_tombol 'Gosub Display_detik
Gosub Kalkulasi
Gosub Tampil_segment
Incr Detik_sat
Loop
'---------------------------------------Sub Program--------------------------------------------------'
Kalkulasi:
If Detik_sat = 10 Then
Detik_sat = 0
Incr Detik_pul
End If
If Detik_pul = 6 Then
Detik_pul = 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 = 1 And Jam_sat = 2 Then
Jam_sat = 0
Jam_pul = 0
End If
Return
'------------------------------------Tampilan------------------------------------'
Tampil_segment:
For X = 1 To 157
Portd = &B01000000
Data_segment = Lookup(detik_sat , 7_seg1)
P1 = Not Data_segment
Waitms 1
Portd = &B00100000
Data_segment = Lookup(detik_pul , 7_seg)
Porta = Not Data_segment
Waitms 1
Portd = &B00000001
Data_segment = Lookup(menit_sat , 7_seg)
Porta = Not Data_segment
Waitms 1
Portd = &B00000010
Data_segment = Lookup(menit_pul , 7_seg)
Porta = Not Data_segment
Waitms 1
Portd = &B00000100
Data_segment = Lookup(jam_sat , 7_seg)
Porta = Not Data_segment
Waitms 1
Portd = &B00001000
Data_segment = Lookup(jam_pul , 7_seg)
Porta = Not Data_segment
Waitms 1
Next X
Portd = 255
Return
'-------------------------------------Baca tombol-------------------------------------'
Baca_tombol:
If Pinb.0 = 0 Then
Incr Menit_sat
Gosub Tampil_segment
End If
If Pinb.1 = 0 Then
Incr Jam_sat
Gosub Tampil_segment
End If
Return
'--------------------------------------Data 7-segment-----------------------------------------
7_seg:
Data &B00111111 '0
Data &B00000110 '1
Data &B11011011 '2
Data &B11001111 '3
Data &B11100110 '4
Data &B01101101 '5
Data &B01111101 '6
Data &B10000111 '7
Data &B11111111 '8
Data &B11101111 '9
Return
7_seg1:
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Return
Semoga membantu dengan postingan program JAM DIGITAL 7 Segment AT89s52 menggunakan BASCOM 8051
