seri veri alma sorunu

[isikyasar]

Merhaba arkadaşlar

-pic 16f877 den seri porttan veri gönderiyorum. sorunsuz bir şekilde gidiyor.
-veri gönderildikten sonra, veri alma işlemi yaptırıyorum. Alınan bu veriyi lcd ekranda görmek istiyorum ama nasıl yapacağım konusunda fikri olan varmı?

SerOut PORTC.6,16468, ["AT+CMGR=1",13,10]   (giden veri sorunsuz olarak gidiyor)
SerIn PORTC.7,16468,[ Str SerString\10 ]           ( gelen verinin içeriğini lcd ekranda görüntülemek istiyorum)
Print At 2,1, Str SerString ,"

[isikyasar]

yardımcı olabilecek kimse yokmu?

[Kazım]

Sevgili ısıkyasar , bence sana verilebilecek en büyük yardım Proton 'la başlamış biri olarak protondan terfi etmen olacaktır.Aksi halde her projende, şunun - bunun için hangi fonksiyon ne şekilde kullanılır gibi sorularınız asla bitmeyecektir.

[Maxim]

devreyi ve kodu (problemli kısmını) çalışır bir şekilde isis proteus ile birlikte verin
bir yere yükleyin isteyen oradan indirsin
kimse sizin için oturup kod ve şema çizmez denemek için

[einstain]

HSERIN VE HSEROUT KOMUTLARINI KULLAN

       HSERIN 6000,TIMEOUT,[STR CEPGEL\2]    ' TELEFONDAN GELECEK CEVABI AL , 6 SN TIME OUT ZAMANI
       delayms 200
       PRINT AT 2,1,STR CEPGEL                          ' CEVABI EKRANA YAZ

örnektir  zamanları kafana göre değiştirirsin.

[isikyasar]

teşekkürler

[drmp]

protonda 2 pic'in haberleşme kodu var elimde  şu an işe gidecem yarın atarım belki yardımı olur

[OG]

"NANELIMONKABUGU" olarak ara.

Ayrıca https://www.picproje.org/index.php/topic,16623.msg109382.html#msg109382

[drmp]

bu yapmış olduğum  bir projenin parçası

Declare Hserial_Baud=9600 
Declare Hserial_RCSTA = $90 
Declare Hserial_TXSTA  =%00100000 
Declare Hserial_Clear = On


verici:

SEND:     
     LATB.0=1
     HRSOut "Z"
      DelayMS 50
            HRSOut  "A",#V_SET," B",#ADD," C",#D,"  R=",#R,10,13
           
            LATB.0=0
            Return



alıcı :

    HSerIn 1000,HATA,[Z]
    If Z="Z" Then
    For I=0 To 20
    HSerIn 1000,HATA,[VAR1[I]]
    Next I
 



FIND:
    For I=0 To 20
    If  VAR1[I]="A" Then GET_VALUE
    Next I

    Return

GET_VALUE:
    V1=VAR1[I+1]
    V2=VAR1[I+2]
    V3=VAR1[I+3]
    V4=VAR1[I+4]
    V5=VAR1[I+5]

    C1=VAR1[I+8]
    C2=VAR1[I+9]
    C3=VAR1[I+10]
    C4=VAR1[I+11]
    C5=VAR1[I+12]

    N1=VAR1[I+15]
   
    R =VAR1[I+18]

   


    Return

SCREEN:
    Print $FE,1,"V_SET=",V1,V2,V3,V4,V5
    Print $FE,$C0,"AMP=",C1,C2,C3,C4,C5   
    Print $FE,$94,"TIMES=",N1,"  T_SET= ",R 
    DelayMS 100
    Return