Mirley - Elektronika i Programowanie

$regfile = "attiny13.dat"
 
Config Portb = &B000011                                     'dwa najmlodsze jako wyjscia
Portb = &B000000                                              
 
Silnik1 Alias Portd.0                                       'zmiana nazw portu
Silnik2 Alias Portd.1
 
 
 
Do                                                          'petla glowna
 
Wait 2                                                      'czekaj 2 sekundy
 
If Pinb.2 And Pinb.3 And Pinb.4 = 1                         'jesli wszystkie czujniki dzialają to wykonaj : Szukaj Linie
Then Gosub Szukaj Linie
End If
 
If Pinb.2 And Pinb.3 And Pinb.4 = 0                         'jesli wszystkie czujniki sa na czarnej lini to jedz prosto
Then Silnik1 And Silnik2 = 1
End If
 
If Pinb.4 = 0                                               'jesli lewy czujnik na czarnej lini to zalącz silnik2
Then Silnik2 = 1                                            'w przeciwnym razie ,gdy prawy czujnik na czarnej lini zalącz silnik1
Else If Silnik1 = 1
 
Loop                                                        'koniec pętli nieskonczonej
End                                                         'koniec programu
 
Szukaj Linie:
If Pinb.2 And Pinb.3 And Pinb.4 = 1
Then Silnik1 And Silnik2 = 1