Witam jestem początkującym programista w bascomie. Napisałem program do sterowania 2 silnikami krokowymi. Nie mogę zamieścić całej treści programu ponieważ zamierzam go wykorzystać do pracy dyplomowej. Program działa ale potrzebuję dodatkowego miejsca w pamieci na kilka instrukcji.
oto część kodu:
do uP podłaczone sa cztery przełaczniki odpowiedzialne za podanie sygnału ruchu.
Moje pytanie brzmi czy jest możliwość zastąpienia tych funkcji:
If Pind.0 = 0 And Pind.1 = 1 And Pind.2 = 1 And Pind.3 = 1 Then Gosub Ff
jakimiś prostszymi mniej pamięcio żernymi???
Próbowałem już zapisać to w ten sposób:
If Pind = &B1110 Then Gosub Ff
ale program nie chce się uruchomić.
Jeżeli ktoś ma jakiś pomysł będę wdzięczny. Wkońcu kto pyta podobno nie błądzi
oto część kodu:
$regfile = "ATtiny2313.dat"
$crystal = 4000000
Dim Wa As Byte
Config Portb = Output
Config Portd = Input
Wa = 99
Portd = &B1111
Lus:
'silniki
If Pind.0 = 0 And Pind.1 = 1 And Pind.2 = 1 And Pind.3 = 1 Then Gosub Ff 'do przodu
If Pind.0 = 1 And Pind.1 = 0 And Pind.2 = 1 And Pind.3 = 1 Then Gosub Bb 'do tylu
If Pind.0 = 1 And Pind.1 = 1 And Pind.2 = 0 And Pind.3 = 1 Then Gosub Rr 'prawo w miejscu
If Pind.0 = 1 And Pind.1 = 1 And Pind.2 = 1 And Pind.3 = 0 Then Gosub Ll 'lewo w miejscu
If Pind.0 = 0 And Pind.1 = 1 And Pind.2 = 0 And Pind.3 = 1 Then Gosub Fr 'przod prawo
If Pind.0 = 0 And Pind.1 = 1 And Pind.2 = 1 And Pind.3 = 0 Then Gosub Fl 'przod lewo
If Pind.0 = 1 And Pind.1 = 0 And Pind.2 = 0 And Pind.3 = 1 Then Gosub Br 'tyl prawo
If Pind.0 = 1 And Pind.1 = 0 And Pind.2 = 1 And Pind.3 = 0 Then Gosub Bl 'tyl lewo
Goto Lus
'dalej znajdują się funkcje od każdego rodzaju obrotu
do uP podłaczone sa cztery przełaczniki odpowiedzialne za podanie sygnału ruchu.
Moje pytanie brzmi czy jest możliwość zastąpienia tych funkcji:
If Pind.0 = 0 And Pind.1 = 1 And Pind.2 = 1 And Pind.3 = 1 Then Gosub Ff
jakimiś prostszymi mniej pamięcio żernymi???
Próbowałem już zapisać to w ten sposób:
If Pind = &B1110 Then Gosub Ff
ale program nie chce się uruchomić.
Jeżeli ktoś ma jakiś pomysł będę wdzięczny. Wkońcu kto pyta podobno nie błądzi