Forum Elektroników
elektroniczne forum dla wszystkich
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Prywatne Wiadomości
Zaloguj
Forum Forum Elektroników Strona Główna
Problemy elektroniczne
Obecny czas to Wto 19:51, 23 Kwi 2024
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
TAK
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz HTML w tym poście
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie CET (Europa)
Skocz do:
Wybierz forum
decyzje adminów i moderatorów
----------------
TOP LISTA !!!!!
DATA!!!
Regulamin
Ogłoszenia
ciekawostki elektroniczne
----------------
Newsy
Tuning
DIY
Przydatne Linki
Śmieszne sytuacje
zagadki
ciekawe schematy
----------------
schematy TV , radia ... itp.
schematy ciekawych urządzeń
Zestawy do samodzielnego montażu
Wasze schematy
Porady
Szkoła konstruktorów
Temat miesiąca
Jak to działa ?
Nagrody / to co najlepiej wam wyszło w elektronice
gazety, programy o elektronice
----------------
Elektronika dla wszystkich
Nowy elektronik
Elektronika Praktyczna
USTERKA
problemy z elektroniką
----------------
Problemy elektroniczne
sklepik
----------------
Kupię
Sprzedam
Zainteresowanie
Zamienię
Off - Topic
----------------
Gry
Off - Topic
BANNER
piłka nożna
Wasze sugestie
Przegląd tematu
Autor
Wiadomość
mateusz19955
Wysłany: Wto 15:35, 25 Maj 2010
Temat postu: 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
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group - Glass˛ Created by
DoubleJ(Jan Jaap)
Regulamin