---

arkadaşlar sanırım bu proje ete hocanın. bu projede 12 kanal alıcı verici rf projesi var ve butonlar ın 12 side toggle çalışıyor benim istediğim 8 buton toggle 4 buton ile bastığımda led yansın bıraktığımda led sönsün olmasını istiyorum. açık kodlar

alıcı

defıne osc 4
porta=0
trısa=%00000001
trısb=0

bılgı var byte
symbol verıın=porta.0
portb=0
porta=0
maın:
bılgı=0
serın2 verıın,813,[waıt ("ete"),bılgı]
select case bılgı
case 255
goto maın
case 254
portb.0=1
pause 150
portb.0=0
case 253
portb.1=1
pause 150
portb.1=0
case 251
toggle portb.2
case 247
toggle portb.3
case 239
toggle portb.4
case 223
toggle portb.5
case 191
toggle portb.6
case 127
toggle portb.7
case 28
toggle porta.1
case 26
toggle porta.2
case 22
toggle porta.3
case 14
porta.4=1-porta.4

end select

pause 200
goto maın



end


verici

defıne osc 4
trısa=%00011110
trısb=%11111111
optıon_reg.7=0
bılgı var byte


symbol verıout=porta.0

maın: bılgı=255
gosub porta_bak
ıf portb<255 then
bılgı=portb
gosub ver
while portb<255:wend
endıf

pause 10
goto maın


ver:
serout2 verıout,813,[rep$aa\5,rep$00\5,rep$ff\5]
serout2 verıout,813,["e","t","e",bılgı]
serout2 verıout,813,["e","t","e",bılgı]
serout2 verıout,813,["e","t","e",bılgı]
serout2 verıout,813,["e","t","e",bılgı]
return

porta_bak:
bılgı=porta & %00011110
ıf bılgı<30 then
gosub ver
' pause 100
endıf
whıle porta<30 : wend
return
end

yardımlarınızı bekliyorum şimdiden teşekkürler.

---