hikmetservili
| | Tarih: 05.05.2008, 10:35 Mesaj konusu: toggle şeklinde çalışan bazı butonları dönüştürmek istiyorum | |
| 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.
|
|
