Forum Elektroników
elektroniczne forum dla wszystkich



Forum Forum Elektroników Strona Główna Problemy elektroniczne RC-5
Obecny czas to Śro 19:53, 13 Gru 2017

Odpowiedz do tematu Zobacz poprzedni temat Zobacz następny temat
Autor
mateusz19955
początkujący
początkujący



Dołączył: 25 Maj 2010
Posty: 1
Przeczytał: 0 tematów

Ostrzeżeń: 0/8

Wto 15:35, 25 Maj 2010

Wiadomość
RC-5
mam taki program:

$regfile = "m16def.dat"
$crystal = 16000000
Config Portb = Output
Config Portc = Output
Config Portd = Output
Config Porta = Input
Reset Porta.0
Reset Portc.0
Reset Portd.0
Reset Portb.0
Do
Dim Adres As Byte
Dim Klawisz As Byte
Config Rc5 = Pina.2
Enable Interrupts
Do
Getrc5(adres , Klawisz)
Klawisz = Klawisz And &B1011111
If Klawisz = 0 Then
Set Portb.0
Else
If Klawisz = 1 Then
Set Portb.1
Else
If Klawisz = 2 Then
Set Portb.2
Else
If Klawisz = 3 Then
Set Portb.3
Else
If Klawisz = 4 Then
Set Portb.4
Else
If Klawisz = 5 Then
Set Portb.5
Else
If Klawisz = 6 Then
Set Portb.6
Else
If Klawisz = 7 Then
Set Portb.7
Else
If Klawisz = 8 Then
Set Portc.0
Else
If Klawisz = 9 Then
Set Portc.1
Else
If Klawisz = 10 Then
Set Portc.2
Else
If Klawisz = 11 Then
Set Portc.3
Else
If Klawisz = 12 Then
Set Portc.3
Else
If Klawisz = 13 Then
Set Portc.4
Else
If Klawisz = 14 Then
Set Portc.5
Else
If Klawisz = 15 Then
Set Portc.6
Else
If Klawisz = 16 Then
Set Portc.7
Else
If Klawisz = 17 Then
Set Portd.0
Else
If Klawisz = 18 Then
Set Portd.1
Else
If Klawisz = 19 Then
Set Portd.2
Else
If Klawisz = 20 Then
Set Portd.3
Else
If Klawisz = 21 Then
Set Portd.4
Else
If Klawisz = 22 Then
Set Portd.5
Else
If Klawisz = 23 Then
Set Portd.6
Else
If Klawisz = 24 Then
Reset Portb.0
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Reset Portb.7
Reset Portc.0
Reset Portc.1
Reset Portc.2
Reset Portc.3
Reset Portc.4
Reset Portc.5
Reset Portc.6
Reset Portc.7
Reset Portd.0
Reset Portd.1
Reset Portd.2
Reset Portd.3
Reset Portd.4
Reset Portd.5
Reset Portd.6
Reset Portd.7
Set Portd.7
End If
Loop
End

program sam napisałem (jestm dopiero początkujący w pisaniu programów do procków) i gdy chcem go skompilować to wyskakuje mi taki błąd:
ERROR : 7 Line : 0 IF THEN expected [120] , in File:
ERROR : 123 Line : 0 END IF expected , in File:
gdzie tu jest błąd?
proszę o pomoc


Post został pochwalony 0 razy

Ostatnio zmieniony przez mateusz19955 dnia Wto 15:36, 25 Maj 2010, w całości zmieniany 1 raz
Zobacz profil autoraZnajdź wszystkie posty mateusz19955

Odpowiedz do tematu Strona 1 z 1

Forum Forum Elektroników Strona GłównaProblemy elektroniczneRC-5
Obecny czas to Śro 19:53, 13 Gru 2017
Wszystkie czasy w strefie CET (Europa)
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group - Glass˛ Created by DoubleJ(Jan Jaap)
Regulamin