کمک در برنامه نوشته شده sim900

[salmon]

سلام دوستان من میخوام دما رو با adc بخونم و با sim 900 ارسال کنم حالا هم برنامه Adc درسته و هم برنامه sim900 (جدا جدا تست کردم )برنامه ارسال sms رو به صورت زیر برنامه در آوردم و گفتم هر موقع دما زیاد شد زیر برنامه sms رو صدا بزنه مشکلم اینه که چه جوری متن پیام ارسالی رو با آرایه از دستورات at جدا کنم که فقط مثلا اندازه دما رو sms کنه و دستورات at توی sms ارسالی نباشن

سلام دوستان

من میخوام دما رو با adc بخونم و با sim 900 ارسال کنم

حالا هم برنامه Adc درسته و هم برنامه sim900 (جدا جدا تست کردم )



برنامه ارسال sms رو به صورت زیر برنامه در آوردم و گفتم هر موقع دما زیاد شد زیر برنامه sms رو صدا بزنه

مشکلم اینه که چه جوری متن پیام ارسالی رو با آرایه از دستورات at جدا کنم که فقط مثلا اندازه دما رو sms کنه و دستورات at توی sms ارسالی نباشن

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
'~~~~~~~~~~~~~~~~~~~~~ Configurations ~~~~~~~~~~~~~~~~~~~~~

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1


Config Pind.2 = Input
Config Porta = Input
Ddrc = &B11111111

'    ~~~~~~~~~~~~~~~~~~~~~Main program   ~~~~~~~~~~~~~~~~~~~~~
Dim A As String * 10
Dim Dama As Word
Dim Dod As Byte
Dim Harekat As Byte
Dim Rotobat As Byte
Dim K As Word



Declare Sub S_sms(text As Word )





Config Adc = Single , Prescaler = Auto , Reference = Internal




Start Adc

Dama = Getadc(0) : Dama = Dama \ 4


   If Dama >= 35 Then

    Call S_sms(dama)

   End If



End


Sub S_sms(text As Word)
   

   Print "at"

   Waitms 500

   Print "AT+CMGF=1"
   Waitms 500

   Print "AT+CMGS=" ; Chr(34) ; "0919xxxxxxx7" ; Chr(34)
   Waitms 100
   Print "AVR Test 1" ; Chr(26)
   Print Text

   Waitms 550

 End If
End Sub

[hamid69]

سلام،
بیسیک بلد نیستم،
اما قاعده اینه شما اطلاعات دما رو در یک متغییر sprintf باید بکنید و بعد از این که دستور At+cmgs رو ارسال کردین اطلاعاتتون رو ارسال می کنید و بعد کد اسکی ctrl+z (البته تابع sprintf برای زبان c هستش)

[salmon]

ممنون مشکلم کمی حل شد الان یه سوالی که دارم اینه من نمیخوام این دستورات At تو متن ارسالی sms باشن و وفقط میخوام test باشه یا داده ای که خودم میفرستم
یک جا خوندم باید از دستور ATE0 استفاده کنم
این کارو هم کردم ATE0 هم فرستاد
عکس اظافه نکرد اینجا گداشتم حجمش کمه
http://s6.uplod.ir/i/00640/i3y3zu8lu1kp.png