Poblem z programem w Bascomie [AVR]

[RaV123]

Proszę o pomoc. Mam problem z następującym kodemz BASCOMA:

$regfile = "m8def.dat" 
$crystal = 8000000                                          'jesli się da ustawić taki wewnętrzny RC

Ddrb.0 = 1                                                  'Wyjścia
Ddrb.1 = 1
Ddrb.2 = 1

Ddrd = &B11111111                                           'Cały port wyjście

'Silnik prawy
P_e Alias Portb.1                                           'Prawy enable
P1 Alias Portd.5                                            'Prawy 1 przewód
P2 Alias Portd.6                                            'Prawy 2 przewód

'Silnik lewy
L_e Alias Portb.2                                           'Lewy enable
L1 Alias Portd.7                                            'Lewy 1 przewód
L2 Alias Portb.0                                            'Lewy 2 przewód

'LED
Led1 Alias Portd.0                                          'Led 1
Led2 Alias Portd.1                                          'Led 2
Led3 Alias Portd.2                                          'Led 3
Led4 Alias Portd.3                                          'Led 4

'deklaracja funkcji silnika
Declare Sub Silnik(byval Ktory As Bit , Byval Co As Byte)   'deklaracja funkcji sterującej silnikami

'Konwerter Analogowo\Cyfrowy
Config Adc = Single , Prescaler = Auto , Reference = Avcc   'konfiguracja ADC

Dim Cz1 As Word                                             'Wartośc czujnika 1
Dim Cz2 As Word                                             'Wartośc czujnika 2
Dim Cz3 As Word                                             'Wartośc czujnika 3
Dim Cz4 As Word                                             'Wartośc czujnika 4

Dim Pom1 As Long                                            'zmienna pomocnicza
Dim Pom2 As Bit
Dim K_s As Bit                                              'który silnik 1 - prawy
Dim Co_robi As Byte                                         'co robi silnik


P_e = 1                                                     'wejście enable będzie nieużywane
L_e = 1                                                     'przy sterowaniu więc włączam silniki
Start Adc                                                   'włącza przetwornik
Do
If Cz2 = 1 And Cz3 = 1 Then                                 'jedź prosto

Silnik 1 , 1                                                'prawy cała naprzód

Silnik 0 , 1                                                'lewy cała naprzód
End If


Loop

End

Sub Silnik(byval Ktory As Byte , Byval Co Byte)             'funkcja sterująca silnikami
If Ktory = 1 Then                                          '1 dla prawego
 Select Case Co
  Case 1 : P1 = 1                                          '1 - cała naprzód
            P2 = 0
  Case 2 : P1 = 0                                          '2 - stop
           P2 = 0
  Case 3 : P1 = 0                                          '3 - cała wstecz
           P2 = 1
 End Select
Else                                                       '0 dla lewego
 Select Case Co
  Case 1 : L1 = 1                                          '1 - cała naprzód
            L2 = 0
  Case 2 : L1 = 0                                          '2 - stop
           L2 = 0
  Case 3 : L1 = 0                                          '3 - cała wstecz
           L2 = 1
 End Select

End If
End Sub

Bascom zgłasza błędy:

243x2 dla lini

Silnik 1 , 1                                                'prawy cała naprzód

Silnik 0 , 1                                                'lewy cała naprzód

oraz błędy 7 i 123 dla tej drugiej linii

DZIĘKUJE

[Sabre]

Pomyliłeś się w tej linijce

Declare Sub Silnik(byval Ktory As Bit , Byval Co As Byte)   'deklaracja funkcji sterującej silnikami 

Powinno być:

Declare Sub Silnik(byval Ktory As Byte , Byval Co As Byte)   'deklaracja funkcji sterującej silnikami

[RaV123]

Dzięki 🙂