Su similasyon devresi neden calismiyor olabilir??

[Digimensch]

arkadaslar ben su PicBasic kodlarini kullanaraktan asagidaki sekildeki devreyi Proteusda yapiyorum.Fakat Virtual Terminala X veya Y karekterini girmeme ragmen Led lamblara yanmiyor.
Oysa Virtual Terminale "X" girince X led lambasi "Y" girince Y led lambasi yanip  bir müddet sonra sönmesi lazim.Fakat benim bu similasyonumdaki led lambalar yanip sönmüyor yani hic bir reksiyon yok.
Sorun PicBasic kodundami??
Yaksa devredeki herhangi bir hatadami??
Not: Serial Portun 2.ve 3.Bacaklarini kisa devre edip deneme yapiyorum, orda sorun yok.

Include "Modedefs.Bas" 
SI VAR PORTB.2 
LEDX VAR PORTB.1 
LEDY VAR PORTB.0 
VERI VAR BYTE 
BAUD CON 396 

TRISA = 0
PORTA = 0
TRISB = %00000000
PORTB = 0 

LOOP: 
    SERIN2 SI,BAUD,[wait(254),VERI] 
    SELECT CASE VERI
        CASE "X","x"
            HIGH LEDX
            PAUSE 500
            LOW LEDX
        CASE "Y","y"
            HIGH LEDY
            PAUSE 500
            LOW LEDY
    END SELECT
GOTO LOOP 
END

[cozturk]

Arkadaş bu devrede mantık hatası var. txd ve rxdyi niyekısadevreettin.yazdığın şeyi görmek içinmi? bunagerek yok sağtuşabas echotyped chars.de tamam  TRISB ve TRISA' yı sıfır yaparak bu portları sadec çıkış yapmışsın.dışarıdan nasıl veri pice girecek? Ayrıca pice compimin txdsini bağlaman yakışır ki buradan gelen veriyi pik okusun. ilk etapta portu karıştırmadan virtual terminali direk pice tx-rx olarak bağlarsan dahakolayolurbaudratedeönemlidir

[Digimensch]

Ben Virtual Terminalin txd ve rxd uclarini baglamadigimda Virtual Terminal icine karekter yazamiyorum.
Oysa ben bu virtual Terminal icine x yazdigimda x led lambasinin , y yazdigimda y led lambasinin yanmasini istiyorum.
Simdi tam baglanti nasil olmali?
Ve PicBasic kodlarinda ne degisikligi yapmaliyim??
yardimci olursan sevinirim.
saygilar

[Digimensch]

Arkadasslar su yukardaki sorunuma bilen arkadaslardan cevap bekliyorum.Virtual terminali yukardaki devreye istedigim islemi yapabilmesi icin nasil baglamaliyim??
Yukarda 'ki  PicBasic kodlarinda nerede yanlis yapiyorum??
Lütfen bana tam bir cevap verin.
bekliyorum

[DumrulBey]

Merhaba,

Ne yapmak istediğini tam anlamadım ama RX ile TX'i kısa devre etmek hiç mantıklı değil. Onun yerine CTS ile RTS'yi kısa devre edip diğer uçları PIC'e ver.

Başarılar...

[GreeN]

kardeş vterm tx'i direk pic versende bir denesen. devre bu şekilde çalışıyormu? birde vterm ayarlarını bir kontrol et boud lar uyuşmuyor olabilir.

[Digimensch]

cevablariniz icin sağol un hocam ama olmuyor.
Benim yapmak istedigim Virtual Teminalden gönderdigim X ile PIC'e bagli X-Led lambasini yakmak, Y ilede yine PIC'e bagli Y-Led lambasini yakmak.
Kullandigim kod bu:

Include "Modedefs.Bas" 
SI VAR PORTB.2 
LEDX VAR PORTB.1 
LEDY VAR PORTB.0 
VERI VAR BYTE 
BAUD CON 396 

TRISA = 0 
PORTA = 0 
TRISB = %00000000 
PORTB = 0 

LOOP: 
    SERIN2 SI,BAUD,[wait(254),VERI] 
    SELECT CASE VERI 
        CASE "X","x" 
            HIGH LEDX 
            PAUSE 500 
            LOW LEDX 
        CASE "Y","y" 
            HIGH LEDY 
            PAUSE 500 
            LOW LEDY 
    END SELECT 
GOTO LOOP 
END

Acaba kod'dami bir hata var anlayamadim.
Bu isi nasil yapabilirim ?

[Digimensch]

Tamam arkadaslar sorunu hallettim.
X-Led lambasinin bacagina 10K 'lik direnc baglamisim ondan calismiyormus.
tamamdir simdi yardimci olmaya calisan tüm arkadaslara tesekkürler

[fsan]

merhaba,
SERIN2 SI,BAUD,[VERI] yazarsan daha mantikli olurdu ama calistirabildiysen sorun yok