PICBasic serin komutu

[seckinalan]

Merhaba

Device 16F84A
XTAL 4
Dim SerData
program:
SerIn PORTB.1 , 24660 , [SerData]
DelayUS 100
SerOut PORTB.0 , 24660 , [SerData,13,10]
GoTo program

yukarıdaki kodu derleyip pice atıp hyperterminalden çalıştırdığımda aldığım mesaj sadece 'T kafayı yicem
hyperterminal:
baundrate:9600
veribiti:8
eşlik yok
durbiti:1
akış kont : yok

picten rahat pcye veri gönderebiliyorum

 

[muratmert4]

Merhaba

Device 16F84A
XTAL 4
Dim SerData
program:
SerIn PORTB.1 , 24660 , [SerData]
DelayUS 100
SerOut PORTB.0 , 24660 , [SerData,13,10]
GoTo program

yukarıdaki kodu derleyip pice atıp hyperterminalden çalıştırdığımda aldığım mesaj sadece 'T kafayı yicem
hyperterminal:
baundrate:9600
veribiti:8
eşlik yok
durbiti:1
akış kont : yok

picten rahat pcye veri gönderebiliyorum

Sn. Arkadaşım siz burada ne yapmak istiyorsunuz. Pic haberleşme baud hızını 24660 seçmişsiniz hyper teminalde ise 9600 baud seçmişsiniz bu başta yanlış. Ve programınızdada veri yollamaya çalışıyorsunuz ama veriyi belirtmemişsiniz.

 

[seckinalan]

hocam CSC C ile program yazıyorum fakat okulda bunu gördüğüm için öğrenmem gerekiyor bu dile pek hakim değilim.
asıl yapmak istediğim şu
terminalden led3 dicem port a 3 nolu led yanacak
buradaki amaç yazdığım vceriyii geri yollamak onu çözebilirsem diğerlerinide yapacağım yönünde idi onu beceremedim.
olay bu gereklli ayarlamalar nasıl olacak yazarsanız sevinirim
Oradaki ayar Elektronik Hobi kitabundaki veriye endeksliydi.

 

[seckinalan]

söyle yeni bir soru

prg:
If PORTA.0 = 0 Then
SerOut PORTB.0 ,16468, ["1.Sensor Algiladi",13,10]
ElseIf PORTA.2 = 0 Then
SerOut PORTB.0 ,16468, ["2.Sensor Algiladi",13,10]
ElseIf PORTA.4 = 0 Then
SerOut PORTB.0 ,16468, ["3.Sensor Algiladi",13,10]
Else
SerIn PORTB.1,16468, [SerData]
If SerData= 1 Then
High PORTB.3
DelayMS 500
Low PORTB.3
EndIf
EndIf

GoTo prg

burada sorun nedir?
amacım hem veri göndermek hem almak ama sadece pice veri alabiliyorum

 

[muratmert4]

S.A.
Sn. Arkadaşım ben proton ile çalışıyorum istediğini tam olarak söylersen yardımcı olurum.

 

[seckinalan]

çözdüm olayı baundrateleri help dosyasındakine uyarladım

 

[muratmert4]

Sn. Arkadaşım adına sevindim