include "MODEDEFS.BAS"
TRISB=% 00000010
TRISA=% 00000000
'-----Degiskenler-----
b0 Var Byte
b01 Var Byte
'-----Define----------
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 2400
DEFINE HSER_CLROERR 1
'-----Program---------
loop:
HSerIn [Wait ("CKG"), b0,b01]
If b01=" , " Then
Select Case "i"
Case "i"
Toggle PORTB.4
Toggle PORTB.5
PORTB.3=0
PORTB.6=0
Case "g"
Toggle PORTB.3
Toggle PORTB.6
PORTB.4=0
PORTB.5=0
Case "r"
Toogle PORTB.4
PORTB.3=0
PORTB.5=0
PORTB.6=0
Case "I"
Toggle PORTB.5
PORTB.3=0
PORTB.4=0
PORTB.6=0
Case "k"
Toggle PORTB.7
PORTA.6=0
Case "j"
Toggle PORTA.6
PORTB.7=0
Case "a"
Toggle PORTA.2
Case "b"
Toggle PORTA.3
Case "c"
Toggle PORTB.0
Case "d"
Toggle PORTA.7
Case "e"
Toggle PORTA.0
Case "f"
Toggle PORTA.1
Case "x"
PORTA.0=0
PORTA.1=0
PORTA.2=0
PORTA.3=0
PORTA.4=0
PORTA.5=0
PORTA.6=0
PORTA.7=0
PORTB.0=0
PORTB.3=0
PORTB.4=0
PORTB.5=0
PORTB.6=0
PORTB.7=0
End Select
Else
GoTo loop
End If
Pause 250
GoTo loop
herkese hayırlı akşamlar arkadaşlar ben bu kodu
vissual basic de yazdım bu kod visual basic de geliştirilmiş bir kod bu kodu yazdıktan sonra benim pc çöktü :-) acaba programlama dilini yanlış mı kullandım yoksa c/c++ damı yazılıyor acaba neden çökmüş olabilir...