Witam mam taki sobie programik do obsługi zdalnego sterowania na pasmo 433 Mhz. Jest to program do modułu nadajnika pod uC 89C2051P Mam do tego programu pytanie: Program sprawdza czy przycisk jeden został wciśnięty... itd... to ustawia daną i leci do "wyślij" i tam jest coś takiego Acc = Dana a po paru linijkach If Acc.0 = 1 Czy ktoś mi może powiedzieć co to jest to Acc??
P.S. Przepraszam z góry że wkleiłem cały program...
Dim Dana As Byte , Wskaznik As Byte
Dana = 0 Call Wyslij
Do If P3.0 = 0 Then Set P3.0 Dana = 1 'jazda do tylu Call Wyslij Waitms 200 End If If P3.1 = 0 Then Set P3.1 Dana = 2 'przod Call Wyslij Waitms 20 End If If P3.2 = 0 Then Set P3.2 Dana = 3 'przod Call Wyslij Waitms 20 End If If P3.3 = 0 Then Set P3.3 Dana = 4 Call Wyslij Waitms 20 End If If P3.1 = 0 Then If P3.2 = 0 Then Set P3.1 Set P3.2 Dana = 5 'przod obu silnikow Call Wyslij Waitms 20 End If End If If P3.0 = 0 Then If P3.3 = 0 Then Set P3.0 Set P3.3 Dana = 6 'tyl odbu silnikow Call Wyslij Waitms 20 End If End If If P3.0 = 0 Then If P3.1 = 0 Then Set P3.0 Set P3.1 Waitms 20 End If End If If P3.0 = 0 Then If P3.2 = 0 Then Set P3.0 Set P3.2 Dana = 7 Call Wyslij Waitms 20 End If End If If P3.3 = 0 Then If P3.1 = 0 Then Set P3.3 Set P3.1 Dana = 8 Call Wyslij Waitms 20 End If End If If P3.3 = 0 Then If P3.2 = 0 Then Set P3.3 Set P3.2 Waitms 20 End If End If If P3.4 = 0 Then Set P3.4 Incr Wskaznik If Wskaznik = 1 Then Dana = 10 Wskaznik = 0 Call Wyslij End If If Wskaznik = 0 Then Dana = 11 Wskaznik = 1 Call Wyslij Waitms 20 End If If Wskaznik = 2 Then Wskaznik = 0 Dana = 11 Call Wyslij End If End If Loop
Sub Wyslij Acc = Dana If Acc.0 = 1 Then Set P1.7 End If If Acc.0 = 0 Then Reset P1.7 End If If Acc.1 = 1 Then Set P1.6 End If If Acc.1 = 0 Then Reset P1.6 End If If Acc.2 = 1 Then Set P1.5 End If If Acc.2 = 0 Then Reset P1.5 End If If Acc.3 = 1 Then Set P1.4 End If If Acc.3 = 0 Then Reset P1.4 End If End Sub