Witam, prosiłbym o skompilowanie programu, ponieważ mam system windows8 i nie potrafię znaleźć bascoma który będzie działał.
'************* Konfiguracja uC *****************
'***********************************************
$regfile = "attiny2313.dat"
$crystal = 8000000
Config Portb = &B11111111 : Portb = &B11111111
Config Portd = &B11111011 : Portd = &B11111111
Config Rc5 = Pind.2
Dioda Alias Portd.6
Enable Interrupts
'********** Konfiguracja uC Koniec ************
'****************** Zmienne *******************
'***********************************************
Dim Komenda As Byte , Adres As Byte
'************* Zmienne Koniec ****************
'************** Petla glowna ******************
'***********************************************
Do
Getrc5(adres , Komenda)
Komenda = Komenda And &B01111111
If Adres = 0 Then
Reset Dioda
Select Case Komenda
Case 1:
Toggle Portb.2
Case 2:
Toggle Portb.3
Case 3:
Toggle Portb.4
Case 5:
Toggle Portb.5
End Select
Waitms 100
Set Dioda
Waitms 100
End If
Loop
End
'************ Petla glowna Koniec **************