Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
... poleciał procek ( ale to kilka zł ) a z portem LPT na szczęście wszystko w porządku i programator STK200 też wytrzymał. A gdyby poleciał LPT - a teraz wykle jest zawsze taki 1 port i to na płycie głównej, to trzeba by się było bawić w szukanie i dokupowanie karty rozszerzeń z LPTkami - i zapewne wyszło by to drożej niż właśnie zrobienie czy kupienie STK200 - więc przemyśl to
wejścia i wyjścia danych są wg ciebie wyprowadzone na zewnątrz przez jakieś rezystorki? ... hmm a jakie? Napewno nie mylisz się, że widzisz obok portu LPT na płycie jakieś rezystorki - ale jest ich mnóstwo na płycie i nie zawsze oznacza to, że jeśli są obok LPT to są do LPT (mogą to być też rezystorki podciągające do plusa ale nie ograniczające jakiś prąd) ... Wyjście danych z LPT to przeważnie wyjście ze scalaka. Dawniej były to na wyjściu jakieś buforki typu 74xx (i one miały możliwość obciążenia nawet większym prądem) ... teraz naczęściej wyjścia i wejścia portu są w jednej większej specjalizowanej kostce - która ma o wiele mniejsze prądy wyjściowe niż TTLe. I dlatego tak "wszyscy" jak zauważyłeś "tylko piszą że idzie(można) spalić LPT"... tak wielu jest takich którzy palą - i to wcale nie amatorów, czasem i doświadczony elektronik się pomyli - to rzecz ludzka... ale po to właśnie robi się proste układy zabezpieczające. Więc jeśli piszesz kolego, że podłączyłeś coś na odwrót - to co masz na myśli??? spróbuj to sobie skonkretyzować i podłącz np jedno czy kilka wyjść LPT na których jest akurat stan wysoki - do MASY i poczekaj chwileczkę .... zapewniam cię, że poczujesz po niedługim czasie lekki swąd i uwierzysz, że "idzie spalić" ... być może gdy akurat podłączałeś jak mówisz odwrotnie przypadkowo nie trafiło wyjście na wyjście z odwrotnym stanem czy zasilanie na wyjście w stanie niskim lub odwrotnie. To jest tylko elektronika - a nie ruletka "idzie czy nie idzie"
(chociaż procedury jeszcze nie są zoptymalizowane pod kątem czasów i nieraz wpada błędny kodzik - ale narazie nie mam potrzeby zastosowania tego więc nie walczyłem z tym dalej)
żeby mniej mniejsca stracić. Kontakt u mnie jest własnie z PC przez RS w 2 strony i przez MAX232
ale z tego co gościu pisze to działa on też z różnymi programami jak grider chyba czy coś takiego - nie wiem dokładnie bo nigdy nie używałem takich gotowców. A poza tym ten drugi - przeze mnie zaproponowany link ze schematem - nie sądzisz że jest o wiele prostszy i szybszy do wykonania jesli chcesz szybko uzyskać gotowy efekt a nie sam się bawić w programowanie???
Cytat:$crystal = 10000000
$baud = 9600
Dim Command As Byte , Adress As Byte
Dim Tempcommand As Byte , Setcommand As Byte
Dim Registered_adress As Byte
Dim Togglebit As Bit
Config Rc5 = Pind.2
Config Pind.2 = Input
Config Portb = Output
Declare Sub Get_rc5
Declare Sub Sendcommand
Declare Sub Address_registration
Enable Interrupts
Set Portb.7
Reset Portb.0
Readeeprom Registered_adress , 1
If Pinb.7 = 0 Or Registered_adress = 255 Then Address_registration
Do
Call Get_rc5
Set Portb.0
If Adress = Registered_adress Then
Reset Portb.0
Tempcommand = Command
Waitms 200
Call Get_rc5
If Adress = Registered_adress Then
If Tempcommand = Command Then
Togglebit = 1
Do
Setcommand = Command Or &B10000000
Call Sendcommand
Call Get_rc5
Loop Until Tempcommand <> Command
Else
Setcommand = Tempcommand And &B01111111
Call Sendcommand
Setcommand = Command And &B01111111
Call Sendcommand
End If
Else
If Togglebit = 0 Then
Setcommand = Tempcommand And &B01111111
Call Sendcommand
End If
End If
Togglebit = 0
End If
Loop
Sub Address_registration
Waitms 50
Print "Nacisnij przycisk pilota."
Do
Adress = 255
Call Get_rc5
If Adress < 32 Then
Writeeeprom Adress , 1
Readeeprom Registered_adress , 1
Print "Adres pilota zapisany. Adress: " ; Registered_adress
Waitms 100
Exit Do
End If
Loop
End Sub
Sub Get_rc5:
Getrc5(adress , Command)
End Sub
Sub Sendcommand:
Print Setcommand
End Sub
Cytat:$crystal = 10000000
$baud = 9600
Dim Command As Byte , Adress As Byte
Dim Tempcommand As Byte , Setcommand As Byte
Dim Registered_adress As Byte
Dim Togglebit As Bit
Config Rc5 = Pind.2
Config Pind.2 = Input
Config Portb = Output
Declare Sub Get_rc5
Declare Sub Sendcommand
Declare Sub Address_registration
Enable Interrupts
Set Portb.7
Reset Portb.0
Readeeprom Registered_adress , 1
If Pinb.7 = 0 Or Registered_adress = 255 Then Address_registration
co potwierdza tylko moją teorię pisaną w postach wyżej , że tak jest z tymi wspaniałymi rozwiązaniami z netu czaem ...
? przecież jej mryganie nie odbywa się jakoś automatycznie poza programem. Trzeba to zjawisko zaprogramować i przeanalizować tę część programu która ew za to odpowiada. I tu własnie wydaje się, że leży pierwszy problem poważny z tym projektem. Bo rzeczywiście jak sam zauważyłeś występują tam polecenia takie jak "Set Portb.7" ale też "If Pinb.7 = 0" ..... wynikałoby z tego, że ta własnie dioda LED powinna być podłączona do pinu19 uC czyli PB7 (zresztą zobacz sam w listingu całego programu jakie niedbalstwo - raz ktoś tam używa Pinb.0 a innym razem Pinb.7 ... albo można wszędzie w programie zmienić polecenia "Set Portb.7" na "Set Portb.0" oraz "Pinb.7" na "Pinb.0" - wtedy zobaczysz czy to jest tylko ten problem z całym układem. Bo przecież wynika z twojego opisu, że jeszcze powinien układ wysyłać odebrany kod RC5 na łącze RS232 (a działa ci terminal? tzn odbierasz coś na terminalu w PCcie???)
