Ongki Suhendar: 5v

Sunday, March 1, 2015

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

LCD 16x2 AT89s52

TES LCD 16x2

Tes LCD 16x2 AT89s52

$crystal = 12000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = P1.3 , Db5 = P1.2 , Db6 = P1.1
Config Lcdpin = Pin , Db7 = P1.0 , E = P1.4 , Rs = P1.5
Cursor Off
Cls
Wait 2
Cls
Locate 1 , 7
Lcd "ASA"
Wait 2
Locate 2 , 2
Lcd "HAYANG TORPEDO"
Wait 10