Hello, all
I have an code to drive one 7 segment digit but now I will two drive digits
can any explain how I do this.
code:
$regfile = "m328pdef.dat"
$crystal = 20000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Portd = Output
Portd = 0
Dim I As Byte
Dim X(10) As Byte
Restore Value_table
For I = 1 To 10
Read X(i)
Next
Do
For I = 1 To 10
Portd = X(i)
Waitms 250
Next
Loop
End 'end program
Value_table:
Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78 , &H00 , &H10
[b:257ea2d36a][color=red:257ea2d36a](BASCOM-AVR version : 2.0.7.6 )[/b:257ea2d36a][/color:257ea2d36a]
↧