Elektrotekno.com Ana Sayfa || Programlanabilir Cihaz ve Elemanlar || Microchip Pic Serisi

toggle şeklinde çalışan bazı butonları dönüştürmek istiyorum - yardım

Açıklama:
Elektrik, Elektronik, Haberleşme ve Otomasyon konularının ağırlıklı olarak konuşulduğu, tartışıldığı ve bilgi paylaşımı yapıldığı forumumuza hoşgeldiniz.
Şu an Kod Paylaşım ve Soru Cevap Alanı kategorisi içerisindeki Microchip Pic Serisi forumunda bulunuyorsunuz.
Bu sayfada üyelerimizin "PİC e tek LCD nasıl bağlanır? - yardım" konusundaki problem, görüş ve önerileri okuyabilir ayrıca konu hakkındaki doküman, resim, proje, devre ve programlara ücretsiz olarak ulaşabilirsiniz. Üye olduktan sonra sizler de konu hakkında sorular sorabilir ya da yorum ve paylaşım yaparak birikimlerinizi aktarabilirsiniz.
Forumdan tam olarak yararlanabilmek için üye olmayı unutmayınız!

Önceki başlık || Sonraki başlık

Kayıt: 16 Nis 2006
Mesajlar: 74
Konum: UZAYDAN
Offline

hikmetservili

Tarih: 05 05 2008 09:35

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.

toggle şeklinde çalışan bazı butonları dönüştürmek istiyorum - yardım

Benzer Konular

- bazı emu girişli olan uyduların giriş kodları!!

- Matlab da histogram,yardım
- PIC16F84 Haftaya perşembeye kadar Yardım!!!(çok Önemli)
- Analog Haberleşme projesi yardım!
- acil yardım
- matlab ödevi yardım ?
- anfi devreleri ile ilgilenen arkadaslardan bir yardım...
- Alternatif akımda güç hesabı yapmak istiyorum.
- Akülü tekerlekli sandalye icin yardım

- telefonla açılan kapı projesi yardım...

- D.A Servo motor modellemesi - yardım

Sitemize üyelik ve içeriğin indirilmesi tamamen ücretsizdir. Sitemizde paylaşılan tüm dokümanlar (Tezler, makaleler, ders notları, sınav soru cevaplar, projeler) paylaşımcıların bireysel çalışmaları olup telif hakları kendilerine aittir ya da açık bir şekilde kamusal alana yerleştirilmiş dokümanların birer kopyalarıdır. Kişilerin bireysel çalışmalarını sitemizde yüklemesinde, sitemizde paylaşıma teşvik eden puanlama sisteminin de etkisi büyüktür. Bunlara rağmen hala size ait olan ve burada bulunmasına izin vermediğiniz dokümanlar varsa iletişim bölümünden yöneticilere bildirmeniz durumunda derhal silineceklerdir.