این برنامه منه برای ارسال sms ولی درست ارسال نمیکنه
کد:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.6 , Rs = Portc.7
Cursor Off
Dim B As Byte , S As String * 20
Config Pina.5 = Input , Pina.4 = Input
Set Porta.5
Set Porta.4
Config Portc.0 = Output
Portc.0 = 0
Cls
Home L
Lcd "SIM900A"
S = ""
Do
If Pina.4 = 0 Then
Portc.0 = 1
Print "AT"
Waitms 500
Print "AT+CMGF=1"
Waitms 500
Print "AT+CMGS=" ; Chr(34) ; "091xxxxxxx" ; Chr(34)
Waitms 100
Portc.0 = 0
Print "salam" ; Chr(26)
Waitms 550
End If
Loop
End
وقتی هم ارسال میکنه توی گوشی به صورت زیر sms میاد
AT
AT+CMGF=1
AT+CMGS=091xxxxxxx
salam
یعنی این همه رو ارسال میکنه
مشکل از کجا میتونه باشه ؟