no commentgrysek67 pisze:Reset wyswietlacza masz podpięty do PB.2?Domel pisze:a w progrmie takConfig Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
dobrze ????
DZIAŁA
GRA I BUCZY
programik tez poprawiłem
WIELKIE DZIEKI
Reset miałem dobrze podpiety ENABLE był źle
EDIT: 12.VIII.2008
całośc wygla mniej wiecej tak:

napisałem program....
Kod: Zaznacz cały
$regfile = "m8535.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2
Config Porta = &B11111111 'port a obsługuje WYJSCIA routera
Porta = &B11111111
Config Portd = &B11111111 'port d obsługuje WEJSCIA routera
Portd = &B00000000
Config Portc = &B11111111 'wr PC5 i latch PC4 wyjsciami
Portc = &B00010000
Cls
Lcd "switch video" 'razem 38 znaków
Do
Set Porta.0
Reset Porta.1
Reset Porta.2
Set Portd.0
Reset Portd.1
Reset Portd.2
Reset Portd.3
Waitms 100
Reset Portc.4
Waitms 100
Set Portc.5
Waitms 100
Set Portc.4
Waitms 10
Reset Portc.5
Waitms 100
Loop : End
tutaj opisałem wejscia i wyjscia routera

program działa tak wstepnie i router elegancko przepuszczał mi sygnały z generatora PAL...
ale cos mnie podksusiło zeby dopisac po LOOP drugi raz to samo
Kod: Zaznacz cały
Do
Set Porta.0 ' 1
Reset Porta.1 ' 0 wyjscie routera 2
Reset Porta.2 ' 0
Set Portd.0 ' 1
Reset Portd.1 ' 0
Reset Portd.2 ' 0 wejscie routera 2
Reset Portd.3 ' 0
Waitms 100
Reset Portc.4
Waitms 100
Set Portc.5
Waitms 100
Set Portc.4
Waitms 10
Reset Portc.5
Waitms 100
Loop
Do
Set Porta.0 ' 1
Set Porta.1 ' 1 wyjście routera 4
Reset Porta.2 ' 0
Set Portd.0 ' 1
Set Portd.1 ' 1
Reset Portd.2 ' 0 wejscie routera 4
Reset Portd.3 ' 0
Waitms 100
Reset Portc.4
Waitms 100
Set Portc.5
Waitms 100
Set Portc.4
Waitms 10
Reset Portc.5
Waitms 100
Loop : End;/
nie wiem czy teraz router jest zwalony l...
wstepnie chciałem napisac i napisałem program dla wejscia 2 i wyjscia 2 i chodziło ładnie a jak dopisałem program dla wejscia tam np 3 i wyjscia 4 juz mi router nie zaskoczył...
nie wiem czy go czasem nieuszkodziłem przez to...
grrr..
help
any ideas ?
to tylko wstepny program
_____________________________
wykasowałem puste linię co zmniejszyło rozmiar posta o połowę = przejrzystość, Spark