Jam Digital Manual Bascom AVR

JAM DIGITAL MANUAL

VIA AVR/BASCOM

Salam elektro,untuk kalian yang ingin mencoba membuat jam digital dengan menggunakan tampilan 7 segment,bisa kalian ikuti tutorial yang akan aruselektronika paparkan mudah mudahan bermanfaat 

TOLONG BACA DENGAN DETAIL !

Siapkan alat dan bahan :

• Minimum system avr
• 7 segment common anoda 0.56 inch 
• Transistor bc547
• Resistor 1k 
• Kabel jumper disesuaikan
• Breadboard
• Kabel usb
• Laptop
• Software bascom avr 
• Download schematic pdf

1. Sambungkan semua komponen dengan minimum system avr

CATATAN !
a. jika 7 segment ingin lebih cerah atur nilai r pada basic transistor atau bisa juga mengganti supply pada emmitor transistor

2. Copy paste sketch/program di bawah ini  ke dalam software arduino 

'Jam Digital Manual 4 Digit
'Programmer Fickry Muhammad 20-05-1995

$regfile = "m16def.dat"
$crystal = 12000000
Config Portc = Output
Config Portd = Output
Config Portb = Input
Portb = &HFF

Dim I As Byte
Dim Jam As Byte , Menit As Byte , Detik As Byte
Dim Men_pul As Byte , Men_sat As Byte , Det_pul As Byte , Det_sat As Byte
Dim Jam_pul As Byte , Jam_sat As Byte
Jam = 12
Menit = 33
Detik = 59
Do
Jam_pul = Jam / 10
Jam_sat = Jam Mod 10
Men_pul = Menit / 10
Men_sat = Menit Mod 10
Det_pul = Detik / 10
Det_sat = Detik Mod 10

For I = 0 To 75

Portd = &B00000001
Portc = Lookup(jam_pul , Angka)
Waitms 2
Portd = &B00000010
Portc = Lookup(jam_sat , Angka)
Waitms 2
Portd = &B00000100
Portc = Lookup(men_pul , Angka)
Waitms 2
Portd = &B00001000
Portc = Lookup(men_sat , Angka)
Waitms 2
Portd = &B00010000
Portc = Lookup(det_pul , Angka)
Waitms 2
Portd = &B00100000
Portc = Lookup(det_sat , Angka)
Waitms 2
Next

Incr Detik
If Detik > 59 Then
Detik = 0
Incr Menit
If Menit > 59 Then
Menit = 0
Incr Jam
If Jam > 23 Then
Jam = 0
End If
End If
End If

Loop
End
Angka:
Data &HC0 , &HF9 , &HA4 , &HB0 , &H99 , &H92 , &H82 , &HF8 , &H80 , &H90

3. Compile program bascom avr,apabila tidak terjadi error lanjut dengan proses upload

4. Upload program,apabila succes akan muncul tulisan flash used 100%,apabila ada yang belum tahu bagaimana cara upload code/sketch ke minimum system bisa baca disini

5. Sekarang kalian lihat tampilan pada 7 segment display