[BASCOM] Sprawdzenie kodu

[Mr.Web123]

Cześć. Po kilku lekcjach i lekturze wrzucam mój kod do line-fllower'a 😃

$regfile "attiny2313.dat"                                   'rodzaj procka
$crystal 10000000                                           'traktowanie procka

Config Portb = Input                                        'PB jako wejscie
Portb = &B0000000                                           'PB0 do PB7 na 0
Config Portd = Output                                       'PD jako wyjscie
Portd = &B000010                                            'PD.0 na 0 PD.1 na 1 PD.2 do PD.6 na 0

'start systemu'
Wait 5                                                      'czekaj 5
Toggle Portd.0                                              'zmien stan wprowadzenia dioda0
Waitms 50                                                   'czekaj 0.5
Toggle Portd.1                                              'zmien stan wprowadzenia dioda1
'koniec start systemu'

'kod jazdy'
If Pinb.0 = 1 Then                                          'jesli czujnik0 na 1 to
Elseif Pinb.1 = 1 Then                                      'albo czujnik1 na 1 to
Elseif Pinb.2 = 0 Then                                      'albo czujnik2 na 0 to
Gosub Lewo                                                  'skocz do Lewo
Else                                                        'albo
Gosub Naprzod                                               'skocz Naprzod
Debounce                                                    'zlikwiduj drganie stykow
End If                                                      'koniec sekwencji

If Pinb.1 = 1 Then                                          'jesli czujnik1 na 1 to
Elseif Pinb.0 = 0 Then                                      'albo czujnik0 na 0 to
Elseif Pinb.2 = 0 Then                                      'albo czujnik2 na 0 to
Gosub Naprzod                                               'skocz do Naprzod
Debounce                                                    'zlikwiduj drganie stykow
End If                                                      'koniec sekwencji

If Pinb.2 = 1 Then                                          'albo czujnik2 na 1 to
Elseif Pinb.0 = 0 Then                                      'albo czujnik0 na 0 to
Elseif Pinb.1 = 1 Then                                      'albo czujnik1 na 1 to
Gosub Prawo                                                 'skocz do Prawo
Else                                                        'albo
Gosub Naprzod                                               'skocz do Naprzod
Debounce                                                    'zlikwiduj drganie stykow
End If                                                      'koniec sekwencji
'koniec kod jazdy'

Loop                                                        'koniec petli
End                                                         'koniec programu


'podprogramy'
Lewo:
Portd.3 = 1 And Portd.2 = 0                                 'silnik3 na 1 i silnik2 na 0
Debounce                                                    'zlikwiduj drganie stykow
Reset                                                       'powrot do petli

Naprzod:
Portd.2 = 1 And Portd.3 = 1                                 'silnik2 na 1 i silnik3 na 1
Debounce                                                    'zlikwiduj drganie styków
Reset                                                       'powrot do petli

Prawo:
Portd.2 = 1 And Portd.3 = 0                                 'silnik2 na 1 i silnik3 na 0
Debounce                                                    'zlikwiduj drganie stykow
Reset                                                       'powrot do petli
'koniec podprogramy'

Niestety nie jestem pewien czy jest poprawny bo po skompilowaniu wyskakują błędy 😕 :

Error : 103 Line : 2 = Expected [10000000] , In File : C : \ Users \ User \ Desktop \ Bascomavr \ Lineflower.bas
Error : 1 Line : 23 Unknown Statement [debounce] , In File : C : \ Users \ User \ Desktop \ Bascomavr \ Lineflower.bas
Error : 7 Line : 23 If Then Expected [ 23] , In File : C : \ Users \ User \ Desktop \ Bascomavr \ Lineflower.bas
Error : 123 Line : 23 End If Expected , In File : C : \ Users \ User \ Desktop \ Bascomavr \ Lineflower.bas

Co o tym sądzicie ?

Pozdr.Artur

[Tolo]

1 Line : 23 Unknown Statement [debounce] Pomyśl która nóżka ma być "zdebouncowana" 😋

to powinno być tak :

 debounce pinb.0

7 Line : 23 If Then Expected [ 23]

123 Line : 23 End If Expected Błąd składni nie masz komend lub masz je w nieodpowiednim miejscu.

[Mr.Web123]

Dzięki leci piwko. Potrzebne były małe poprawki 🙂