Witam serdecznie
Mam problem z emulowaniem klawiatury na ps2.
Wykonałem prototyp urządzenia jak na tym schemacie:
Głównym celem tego urządzenia ma być sterowanie wybranymi przyciskami klawiatury z pilota IR (pilot obsługuje RC5).
Orłem w bascomie nie jestem ale udało mi się napisać coś takiego:
Zasilanie biorę z portu ps2.
Po uruchomieniu układu program wydaje się "zawieszony" , dioda nie reaguje na sygnały z pilota. Po restarcie komputera dioda reaguje na pilocik ale komputer nie odbiera żadnych sygnałów.
Nie mam pojęcia dlaczego to nie działa.
Pomocy !
Mam problem z emulowaniem klawiatury na ps2.
Wykonałem prototyp urządzenia jak na tym schemacie:
Głównym celem tego urządzenia ma być sterowanie wybranymi przyciskami klawiatury z pilota IR (pilot obsługuje RC5).
Orłem w bascomie nie jestem ale udało mi się napisać coś takiego:
$regfile = "attiny2313.dat"
$crystal = 8000000
Enable Interrupts
Config Rc5 = Pind.6
Set Portd.6
Dim Adres As Byte , Komenda As Byte , Togglebit As Bit
'---------------------------------------------
Set Portd.2
Set Portd.3
Config Atemu = Int1 , Data = Pind.3 , Clock = Pind.2
' ^------------------------ used interrupt
' ^----------- pin connected to DATA
' ^-- pin connected to clock
'Note that the DATA must be connected to the used interrupt pin
'---------------------------------------------
Config Pinb.7 = Output
Set Portb.7
Do
Getrc5(adres , Komenda)
Togglebit = Komenda.7
Komenda = Komenda And &B01111111
If Komenda = 32 Then
Sendscankbd Volup
Reset Portb.7
Waitms 500
End If
If Komenda = 33 Then
Sendscankbd Voldown
Set Portb.7
Waitms 500
End If
Loop
End
Volup:
Data 5 , &HE0 , &H32 , &HE0 , &HF0 , &H32
Voldown:
Data 5 , &HE0 , &H21 , &HE0 , &HF0 , &H21
Zasilanie biorę z portu ps2.
Po uruchomieniu układu program wydaje się "zawieszony" , dioda nie reaguje na sygnały z pilota. Po restarcie komputera dioda reaguje na pilocik ale komputer nie odbiera żadnych sygnałów.
Nie mam pojęcia dlaczego to nie działa.
Pomocy !