Hi Forum,
Hope you are all well.
I am currently working with Interfacing Multiple 7 segment crystal LCD with 4094 + ATMEGA16 but LCD is showing abnormal behavior. I have attached snapshot of the LCD. Also i do not have LCD Datasheet but 4094 is connected to each other in cascade. It is already working LCD from other machine.
Here are my code:
$regfile = "m16def.dat"
$crystal = 11059200 '8000000
Config Porta.6 = Output
Config Porta.7 = Output
Config Portc.2 = Output
Datain Alias Porta.6
Clock Alias Porta.7
Strobe Alias Portc.2
Dim Kodesat As Byte , Npul As Integer , Nsat As Integer , Kodepul As Byte
Mulai:
Npul = 3
Nsat = 0
Do
Gosub Tampil
If Nsat = 0 Then
Nsat = 9
Decr Npul
End If
If Npul = 0 And Nsat = 0 Then
Goto Mulai
End If
Gosub Tampil
Decr Nsat
Loop
Tampil:
Reset Strobe
Kodesat = Lookup(nsat , Kode)
Kodepul = Lookup(npul , Kode)
Shiftout Datain , Clock , Kodesat , 1
Waitms 500
Shiftout Datain , Clock , Kodepul , 1
Waitms 500
Set Strobe
Waitms 500
Return
Kode:
Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78 , &H00 , &H10
'Data &B11000000 '0
'Data &B11111001 '1
'Data &B10100100 '2
'Data &B10110000 '3
'Data &B10011001 '4
'Data &B10010010 '5
'Data &B10000010 '6
'Data &B11111000 '7
'Data &B10000000 '8
'Data &B10010000 '9
[b:ed524df826][color=red:ed524df826](BASCOM-AVR version : 1.11.9.5 , Latest : 2.0.7.7 )[/b:ed524df826][/color:ed524df826]
↧