gsm modül ve pic16f877 ile arama yapma

[yasargunaydin]

Arkadaşlar merhaba,
telit gsm modül ve  pic16f877 ile AT komutlarını kullanarak arama yaptırmaya çalışyorum.Visual basic kullanarak arama yaptırdım,mesajda attım fakat pic16f877 ye komutları bi türlü yazamadım.Hatta daha henüz gsm modülden "ok" mesajını alamadım bile.Yardımınıza ihtiyacım var.

visual basic6 da aşağıdakileri sıra ile gönderince arama yapıyor
If say = 1 Then MSComm1.Output = "AT" & Chr$(13) & Chr$(10)
If say = 2 Then MSComm1.Output = "ATD0242xxxxxxx;" & Chr$(13) & Chr$(10)

pic komutlarımda aşağıda denemediğimde kalmadı.

DEFINE OSC 4
TRISA=%00000000
TRISB=%00000000
TRISC=%10000001
TRISD=%00000000
TRISE=%00000000


@ DEVICE pic16F877
@ DEVICE pic16F877, WDT_on
@ DEVICE pic16F877, PWRT_ON
@ DEVICE pic16F877, PROTECT_OFF
@ DEVICE pic16F877, XT_OSC

DEFINE LCD_DREG     PORTB
DEFINE LCD_DBIT     0
DEFINE LCD_EREG     PORTB
DEFINE LCD_EBIT     5
DEFINE LCD_RSREG    PORTB
DEFINE LCD_RSBIT    4
DEFINE LCD_BITS     4
DEFINE LCD_LINES    2


DEFINE HSER_TXSTA 20h   'I wonder shall I define as DEFINE HSER_TXSTA 24h???
DEFINE HSER_RCSTA 90h   'same for all

DEFINE HSER_BAUD 2400   'for 2400 Baud rate
'DEFINE HSER_BAUD 4800   'for 4800 Baud rate
'DEFINE HSER_BAUD 9600   'for 9600 Baud rate

DEFINE HSER_SPBRG 25      'for 4Mhz/2400 & 8Mhz/4800 with an error %0.16
'DEFINE HSER_SPBRG 12   'for 4Mhz/4800 & 8Mhz/9600 with an error %0.16

DEFINE HSER_CLROERR 1   'same for all

' Initialization & Declaration

ALICI VAR BYTE   


ADCON1=7

PORTB=%00000000
PORTC=%10000011
PORTD=%00000000
PORTE=%00000000

SO VAR PORTC.6
SI VAR PORTC.7


FIRSTCHECK:
PORTC=%10000011
PAUSE 500
PORTC=%10010011
PAUSE 500
PORTC=%10100011
PAUSE 500
PORTC=%10000011
PAUSE 500
GOTO AT

AT:
SEROUT2 PORTC.6,2400,["A","T"]
'hSEROUT ["AT",13,10]
LCDOUT $fe,$C0,"AT"
GOTO BEKLE1

BEKLE1:
HSerIn 5000,BEKLE1,[Wait ("OK")]
'SERIN2 PORTC.7,2400,[WAIT("OK")]
LCDOUT $fe,$C0,DEC ALICI
PAUSE 1000
goto HEY

HEY:

SEROUT2 PORTC.6,2400,["A","T","D"]
'hSEROUT ["ATD0242xxxxxxx;",13,10]
LCDOUT $fe,$C0,"ATD0242xxxxxxx;"
GOTO BEKLE2

BEKLE2:
'SERIN2 PORTC.7,2400,[WAIT("OK")]
HSerIn 5000,BEKLE2,[Wait ("OK")]
LCDOUT $fe,$C0,DEC ALICI
PORTC=%10110011
GOTO BEKLE2


Yardımlarınız için şimdiden teşekkürler

[yasargunaydin]

Sorun kabloda imiş    Halloldu.

[Murat Mert]

Sorun kabloda imiş    Halloldu.

Problemin giderildiğine sevindim

[yasargunaydin]

Sağol Murat hocam senin sayende ,sen kabloyu kontrol et diye söylemesen daha çok uğraşırdım ben