Hello all.
I simulate a small code to drive two digits that count from 0 to 99
look at code:
$regfile = "m328pdef.dat"
$crystal = 8000000
$hwstack = 64
$swstack = 64
$framesize = 64
Dim Thedigits(10) As Byte
Dim I As Integer
Dim Tt As Integer
Dim Et As Integer
Dim Tmp As Integer
Declare Sub Display7s(byval Tiental As Integer , Byval Eental As Integer)
Config Portc.0 = 1
Config Portc.1 = 1
Config Portb = Output
'get number-images for 7segment display
Restore Digits_table
For I = 1 To 10
Read Thedigits(i)
Next
Do
For I = 0 To 99
Waitms 25
Tt = I / 10
Et = I
If Tt > 0 Then
Tmp = Tt * 10
Et = Et - Tmp
End If
Et = Et + 1
Tt = Tt + 1
Call Display7s(tt , Et)
Next
Loop
Sub Display7s(byval Tiental As Integer , Byval Eental As Integer)
Set Portc.0
Portb = Thedigits(tiental)
Reset Portc.1
Waitms 10
Set Portc.1
Portb = Thedigits(eental)
Reset Portc.0
End Sub
End
Digits_table:
'getal 0 1 2 3 4 5 6 7 8 9
Data 221 , 65 , 124 , 117 , 225 , 181 , 185 , 69 , 253 , 229
when I compile this with the command tool from Bascom (bascomp.exe) then this code is not working.... :cry:
when I compile this in bascom self then it works well... :lol:
my question are there differeds in the two compiler?
[b:abb8f59ecb][color=red:abb8f59ecb](BASCOM-AVR version : 2.0.7.7 )[/b:abb8f59ecb][/color:abb8f59ecb]
↧