Pierwszy działa:
Drugi nie działa:
Trzeci działa:
'
Pierwszy i trzeci skacze co 2.
Drugi pokazuje pierwszą wartość i koniec.
Jestem już głupi...
'$sim
$crystal = 16000000.
$regfile = "m32def.dat"
Config Portc = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.2 , Db6 = Portc.3 , Db5 = Portc.4 , Db4 = Portc.5 , E = Portc.7 , Rs = Portc.6
Dim I As Byte
I = 2
Dim Adres As Byte
For Adres = 100 To 144 Step I
Cls
Lcd Adres
Wait 1
Next AdresDrugi nie działa:
'$sim
$crystal = 16000000.
$regfile = "m32def.dat"
Config Portc = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.2 , Db6 = Portc.3 , Db5 = Portc.4 , Db4 = Portc.5 , E = Portc.7 , Rs = Portc.6
Dim I As Byte
I = 2
Dim Adres As Byte
For Adres = 100 To 144 Step 2
Cls
Lcd Adres
Wait 1
Next AdresTrzeci działa:
'
$sim
$crystal = 16000000.
$regfile = "m32def.dat"
Config Portc = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.2 , Db6 = Portc.3 , Db5 = Portc.4 , Db4 = Portc.5 , E = Portc.7 , Rs = Portc.6
Dim I As Byte
I = 2
Dim Adres As Byte
For Adres = 144 To 100 Step -2
Cls
Lcd Adres
Wait 1
Next AdresPierwszy i trzeci skacze co 2.
Drugi pokazuje pierwszą wartość i koniec.
Jestem już głupi...
