Skocz do zawartości

[BASCOM] Sprawdzenie kodu


Pomocna odpowiedź

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

Link to post
Share on other sites

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.

  • Lubię! 1
Link to post
Share on other sites

Dołącz do dyskusji, napisz odpowiedź!

Jeśli masz już konto to zaloguj się teraz, aby opublikować wiadomość jako Ty. Możesz też napisać teraz i zarejestrować się później.
Uwaga: wgrywanie zdjęć i załączników dostępne jest po zalogowaniu!

Anonim
Dołącz do dyskusji! Kliknij i zacznij pisać...

×   Wklejony jako tekst z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Twój link będzie automatycznie osadzony.   Wyświetlać jako link

×   Twoja poprzednia zawartość została przywrócona.   Wyczyść edytor

×   Nie możesz wkleić zdjęć bezpośrednio. Prześlij lub wstaw obrazy z adresu URL.

×
×
  • Utwórz nowe...

Ważne informacje

Ta strona używa ciasteczek (cookies), dzięki którym może działać lepiej. Więcej na ten temat znajdziesz w Polityce Prywatności.