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

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 "toggle şeklinde çalışan bazı butonları dönüştürmek istiyorum - 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

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

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

hikmetservili

Tarih: 05 05 2008 10: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ı!!

- 7 segment yapmak istiyorum
- c# ile yazılmış sürücü kursu otomasyon programı -yardım
- pascal açılımındaki katsayıları verecek bir kod - yardım
- Ring sinyali ile Röle kontrol - yardım
- iki ayrı trafo merkezinden gelen iki hat - yardım
- ses ile digital saat alarımının kontrolü - yardım
- protesus-İSİS programında gerçek paralel port uygulaması - yardım
- Arkadaşlar Baskı devre Plaket yaptırabileceğim yerler Hakkında Yardım?

- bilgisayar açılış yardım

- çok güzel kararlı çalışan sıvı tanklarda seviye kontrol sistemi pic 16f84A

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 için iletişim bölümünden yöneticilere bildirmeniz durumunda derhal silineceklerdir.