Witam mam taką prośbę , potrzebuje kody z pilotów philips od tv a dokładniej podstawowe funkcje vol+ vol- program+ program- program 1 2 3 ... Korzystam z BASCOM-A i chce zaprogramować attiny2313 a nie mam wyświetlacza lcd .
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
pini0 napisał:Witam mam taką prośbę , potrzebuje kody z pilotów philips od tv a dokładniej podstawowe funkcje vol+ vol- program+ program- program 1 2 3 ... Korzystam z BASCOM-A i chce zaprogramować attiny2313 a nie mam wyświetlacza lcd .
pini0 napisał:lv2-0 0x0000000000001300
lv2-1 0x0000000000001301
lv2-2 0x0000000000001302
lv2-3 0x0000000000001303
lv2-4 0x0000000000001304
lv2-5 0x0000000000001305
lv2-6 0x0000000000001306
lv2-7 0x0000000000001307
lv2-8 0x0000000000001308
lv2-9 0x0000000000001309
no dobra ale jak to wpisać
If Address = 3 And Command = 1 Then ??? pomocy bo nigdy nie widziałem jak wygląda kod w bascom-ie i czy girder ma jakieś powiązanie z tymi kodami .
)
pini0 napisał:
no dobra ale jak to wpisać
If Address = 3 And Command = 1 Then ??? pomocy bo nigdy nie widziałem jak wygląda kod w bascom-ie i czy girder ma jakieś powiązanie z tymi kodami .
. Metoda z diodą jest chyba łatwiejsza.
$regfile = "m8def.DAT"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portb.3 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Cursor Off
Cls
Lcd " LAMPY_RC-5"
Config Rc5 = Pinb.0
Config Pind.0 = Output
Config Pind.1 = Output
Config Pind.2 = Output
Config Pind.3 = Output
Config Pind.4 = Output
Config Pind.6 = Output
Config Pinc.4 = Input
Set Portc.4
Led Alias Portd.6
Lampa1 Alias Portd.0
Lampa2 Alias Portd.1
Lampa3 Alias Portd.2
Lampa4 Alias Portd.3
Lampa5 Alias Portd.4
Przycisk Alias Portc.4
Set Lampa3
Wait 3
Reset Lampa3
Rem * * * Zmienne I Podprogramy * * *
Dim X As Byte
Declare Sub Odczyt
Dim Address As Byte , Command As Byte
Enable Interrupts 'odblokowanie przerwań
Rem * * * Pętla Główna * * *
Do
Getrc5(address , Command)
Command = Command And &B01111111
If Address <> 255 Then
Call Odczyt
End If
Toggle Led
Loop
Rem * * * Odczyt Z Pilota * * *
Sub Odczyt 'program odczytu kodu
Rem * * * Lampy Pojedyńcze * * *
If Command = 1 Then
Toggle Lampa1
End If
If Command = 2 Then
Toggle Lampa2
End If
If Command = 3 Then
Toggle Lampa3
End If
If Command = 4 Then
Toggle Lampa4
End If
If Command = 5 Then
Toggle Lampa5
End If
If Command = 12 Then
Reset Lampa1
Wait 1
Reset Lampa2
Wait 1
Reset Lampa3
Wait 1
Reset Lampa4
Wait 1
Reset Lampa5
End If
If Command = 0 Then
Set Lampa1
Waitms 200
Set Lampa2
Waitms 200
Set Lampa3
Waitms 200
Set Lampa4
Waitms 200
Set Lampa5
Waitms 200
End If
If Command = 7 Then
Set Lampa1
Waitms 200
Reset Lampa2
Waitms 200
Set Lampa3
Waitms 200
Reset Lampa4
Waitms 200
Set Lampa5
Waitms 200
End If
If Command = 8 Then
Reset Lampa1
Waitms 200
Set Lampa2
Waitms 200
Reset Lampa3
Waitms 200
Set Lampa4
Waitms 200
Reset Lampa5
Waitms 200
End If
Waitms 500
End Sub
-------------------------------------------------------------------
' RS232BUFFEROUT.BAS
' (c) 2000-2002 MCS Electronics
' Przykład pokazuje jak używać bufora wyjściowego transmisji szeregowej.
'-------------------------------------------------------------------
$baud = 9600
$crystal = 4000000
'ustawienie bufora transmisji dla wysyłanych znaków o długości 20 znaków
Config Serialout = Buffered , Size = 20
'Jest szczególnie ważne by włączyć globalny system przerwań, gdyż używane jest przerwanie UDRE
Enable Interrupts
Print "Witaj świecie!"
Do
Wait 1
'UWAGA! Procedura obsługi przerwania spowoduje zwolnienie działania instrukcji opóźniających
Print "Test"
Loop
End
(c) Zbigniew Gibek, 2002-2003 (c) MCS Electronics, 1999-2003
