ارسالsms

[ma_bazrafshan]

سلام
من میخوام sms ارسال کنم از طریق avr کسی میتونه کمکی کنه؟ممنون میشم

[alnz]

پاسخ : ارسالsms

سلام
اینا به درد بخور هست ؟ نمی دنم ! ببین .

http://www.eca.ir/forum2/index.php?topic=9411.msg75989#msg75989 :SMS Controller

http://www.serasidis.gr/circuits/smscontrol/smscontroller.htm :SMS remote control

[Zahak]

پاسخ : ارسالsms

سلام

توی شاخه سمپل های خود بسکام یه سورس اس ام اس داره که راحت به شما نشون میده چجوری در مد تکست اس ام اس ارسال کنید...

:bye

[ehsan_akbari]

پاسخ : ارسالsms

سلام
اینا به درد بخور هست ؟ نمی دنم ! ببین .

http://www.eca.ir/forum2/index.php?topic=9411.msg75989#msg75989 :SMS Controller

http://www.serasidis.gr/circuits/smscontrol/smscontroller.htm :SMS remote control

من 2 سال پیش روی همین موضوع با یکی از استادام کار کردم اما جواب نگرفتم تو سایت Serasidis.gr هم گفته من روی گوشی مدل ... Ericson جواب گرفتم ولی برای گوشی های دیگه جواب بده یا نه نمیدونم
باید پروتکل داخلی گوشی ای که میخواهی استفاده کنی بلد باشی
بهترین راه تهیه یک ماژول گوشه مثل نوکیا

طرز کار با ماژول رو بلدی؟؟؟

[AFSHARAN]

پاسخ : ارسالsms


سلام
اگه میشه یک توضیح بدین

[ehsan_akbari]

پاسخ : ارسالsms

سلام
اگه میشه یک توضیح بدین

به نظر من سایت Serasidis.gr یک سایت مرجع تو این زمینه هست.

ابتدا هم آموزش لازم راجع بع AVR و سیستم داخلی گوشی مورد بحث(Ericson) داده و سپس نحوه ی اتصالات و سپس سورس برنامه رو گذاشته

در ضمن برنامه ای هم برای کنترل 8 دستگاه به وسیله SMS داده که با ارسال یک کلمه 8بیتی به صورت 0و1 متشه 8دستگاه رو روشن و خاموش کرد.
:nice:

[ali3635]

پاسخ : ارسالsms

با gsm modem و at command فک کنم بشه این کارو کرد

[ehsan_akbari]

پاسخ : ارسالsms

در مورد GSM مودم ها نشنیدم که بتونه SMS بفرسته اما شاید بشه

اما کارهای خیلی مهمتر و سخت تری رو ازش دیدم

الان یک شرکت بیمه خصوصی روی ساخت یک دستگاه با GSM Modem کار میکنه تا ماشین های مسروقه را ردگیری کنه

این هم ایده خوبیه برای کسایی که دنبال نو آوری هستن

[erfanea]

پاسخ : ارسالsms

gsm ای که Sms نفرسته که gsm نیست .. خیلی کارا میشه باهاش انجام داد .... :nice:

[ma_bazrafshan]

پاسخ : ارسالsms

سلام
من میدونم که با GSM میشه این کار رو کرد اما چطوری رو فعلا نمیتونم بگم

[Zahak]

پاسخ : ارسالsms

خیلی راحت GSM مودمتون رو از طریق یه MAX به میکرو وصل کنین، اینم برنامش: :nice:

$regfile = "2313def.dat"

'XTAL = 10 MHZ
$crystal = 10000000

'By default the modem works at 9600 baud
$baud = 9600

'HW stack 20, SW stack 8 , frame 10
$hwstack = 20
$swstack = 8
$framesize = 8


'some subroutines
Declare Sub Getline(s As String)
Declare Sub Flushbuf()
Declare Sub Showsms(s As String )


'used variables
Dim I As Byte , B As Byte
Dim Sret As String * 66 , Stemp As String * 6

'we use a serial input buffer
Config Serialin = Buffered , Size = 12 ' buffer is small a bigger chip would allow a bigger buffer

'enable the interrupts because the serial input buffer works interrupts driven
Enable Interrupts

'define a constant to enable LCD feedback
Const Uselcd = 1
Const Senddemo = 1 ' 1= send an sms
Const Pincode = "AT+CPIN=1234" ' pincode change it into yours!
Const Phonenumber = "AT+CMGS=+989126162135" ' phonenumber to send sms to

#if Uselcd = 1
Cls
Lcd "SMS Demo"
#endif

'wait until the mode is ready after power up
Waitms 3000

#if Uselcd = 1
Lcd "Init modem"
#endif


Print "AT" ' send AT command twice to activate the modem
Print "AT"
Flushbuf ' flush the buffer
Print "ATE0"
#if Uselcd = 1
Home Lower
#endif

Do
Print "AT" : ' Waitms 100
Getline Sret ' get data from modem
#if Uselcd = 1
Lcd Sret ' feedback on display
#endif
Loop Until Sret = "OK" ' modem must send OK
Flushbuf ' flush the input buffer
#if Uselcd = 1
Home Upper : Lcd "Get pin mode"
#endif
Print "AT+cpin?" ' get pin status
Getline Sret
#if Uselcd = 1
Home Lower : Lcd Sret
#endif
If Sret = "+CPIN: SIM PIN" Then
Print Pincode ' send pincode
End If
Flushbuf
#if Uselcd = 1
Home Upper : Lcd "set text mode"
#endif
Print "AT+CMGF=1" ' set SMS text mode
Getline Sret ' get OK status
#if Uselcd = 1
Home Lower : Lcd Sret
#endif

'sms settings
Print "AT+CSMP=17,167,0,0"
Getline Sret
Print "AT+CNMI=0,1,2,0,0"
Getline Sret

#if Senddemo = 1
#if Uselcd = 1
Home Upper : Lcd "send sms"
#endif
Print Phonenumber
Waitms 100
Print "BASCOM AVR SMS" ; Chr(26)
Getline Sret
#if Uselcd = 1
Home Lower : Lcd Sret 'feedback
#endif
#endif


'main loop
Do
Getline Sret ' wait for a modem response
#if Uselcd = 1
Cls
Lcd "Msg from modem"
Home Lower : Lcd Sret
#endif
I = Instr(sret , ":&quot ' look for :
If I > 0 Then 'found it
Stemp = Left(sret , I)
Select Case Stemp
Case "+CMTI:" : Showsms Sret ' we received an SMS
' hanle other cases here
End Select
End If
Loop ' for ever


'subroutine that is called when a sms is received
's hold the received string
'+CMTI: "SM",5
Sub Showsms(s As String )
#if Uselcd = 1
Cls
#endif
I = Instr(s , ",&quot ' find comma
I = I + 1
Stemp = Mid(s , I) ' s now holds the index number
#if Uselcd = 1
Lcd "get " ; Stemp
Waitms 1000 'time to read the lcd
#endif

Print "AT+CMGR=" ; Stemp ' get the message
Getline S ' header +CMGR: "REC READ","+98xxxxxxxxxx",,"02/04/05,0149+00"
#if Uselcd = 1
Lowerline
Lcd S
#endif
Do
Getline S ' get data from buffer
Select Case S
Case "PORT" : 'when you send PORT as sms text, this will be executed
#if Uselcd = 1
Cls : Lcd "do something!"
#endif
Case "OK" : Exit Do ' end of message
Case Else
End Select
Loop
#if Uselcd = 1
Home Lower : Lcd "remove sms"
#endif
Print "AT+CMGD=" ; Stemp ' delete the message
Getline S ' get OK
#if Uselcd = 1
Lcd S
#endif
End Sub


'get line of data from buffer
Sub Getline(s As String)
S = ""
Do
B = Inkey()
Select Case B
Case 0 'nothing
Case 13 ' we do not need this one
Case 10 : If S <> "" Then Exit Do ' if we have received something
Case Else
S = S + Chr(b) ' build string
End Select
Loop
End Sub

'flush input buffer
Sub Flushbuf()
Waitms 100 'give some time to get data if it is there
Do
B = Inkey() ' flush buffer
Loop Until B = 0
End Sub