مشکل ارسال چندین SMS توسط مازول Sim800

[rasoulfazel]

با سلام خدمت دوستان گرامی،
من دو تا مشکل در ارتباط با ماژول SIM800 دارم. البته مشکلات من نرم افزاری هستش و مربوط به سخت افزار نمیشه.
اول اینکه من می توانم اس ام اس فارسی را ارسال کنم ولی وقتی تعداد کاراکترهای من بیشتر از 70 عدد می شود، دیگر اس ام اس ارسال نمیشه.
دوم اینکه برای ارسال گروهی وقتی اس ام اس اول ارسال میشود من یک تاخیر 5 ثانیه ای دارم و سپس اس ام اس دوم را ارسال می کنم ولی متاسفانه اس ام اس اول فقط ارسال می شود.
لطفا از دوستان هر کسی که میتواند کمک کند.
با سپاس فراوان

[EhsaN_ME2]

پاسخ : مشکل ارسال چندین SMS توسط مازول Sim800

با سلام خدمت دوستان گرامی،
من دو تا مشکل در ارتباط با ماژول SIM800 دارم. البته مشکلات من نرم افزاری هستش و مربوط به سخت افزار نمیشه.
اول اینکه من می توانم اس ام اس فارسی را ارسال کنم ولی وقتی تعداد کاراکترهای من بیشتر از 70 عدد می شود، دیگر اس ام اس ارسال نمیشه.
دوم اینکه برای ارسال گروهی وقتی اس ام اس اول ارسال میشود من یک تاخیر 5 ثانیه ای دارم و سپس اس ام اس دوم را ارسال می کنم ولی متاسفانه اس ام اس اول فقط ارسال می شود.
لطفا از دوستان هر کسی که میتواند کمک کند.
با سپاس فراوان

اگه دوست داری همونطوری که میگی مشکلت نرم افزاریه ، برنامه را بذار ببینیم ، اینجوری کسی نمیتونه کمکت کنه ، چون نمیدونه چی و چجوری نوشتی

[rasoulfazel]

پاسخ : مشکل ارسال چندین SMS توسط مازول Sim800

این قسمتی از برنامه من است. البته یک سری تابع دارم که درست دارن کارشون را انجام میدن و برای اینکه نمی خواستم زیاد شلوغ نشه آنها را نیاوردم. البته همونجوری که گفتم اس ام اس ارسال میشه ولی فقط اولی و فقط اگر تعداد کاراکترها کمتر از 70 عدد باشد.

Dim i, j As Integer
Dim a, c As String
For j = 0 To Phone_List.ListCount - 1
Phone_List.ListIndex = j
Name_List.ListIndex = j
Date_List.ListIndex = j
a = Name_List.Text & vbCr & Date_List.Text
For i = 1 To Len(a)
c = c & Convert_To_Hex(Mid(a, i, 1))
Next
Port_Input = vbNullString
Main_Form.COM.Output = "AT+CMGF=1" & Chr(10) & Chr(13)
T_FeedBack_Port.Enabled = True
Do
DoEvents
Loop Until Port_Input <> vbNullString
Port_Input = vbNullString
Main_Form.COM.Output = "AT+CSCS=" & Chr(34) & "HEX" & Chr(34) & Chr(10) & Chr(13)
T_FeedBack_Port.Enabled = True
Do
DoEvents
Loop Until Port_Input <> vbNullString
Port_Input = vbNullString
Main_Form.COM.Output = "AT+CSMP=49,167,0,8" & Chr(10) & Chr(13)
T_FeedBack_Port.Enabled = True
Do
DoEvents
Loop Until Port_Input <> vbNullString
Port_Input = vbNullString
Main_Form.COM.Output = "AT+CMGS=" & Chr(34) & Phone_List.Text & Chr(34) & Chr(10) & Chr(13)
T_FeedBack_Port.Enabled = True
Do
DoEvents
Loop Until Port_Input <> vbNullString
Port_Input = vbNullString
Main_Form.COM.Output = c & chr(26)
T_FeedBack_Port.Enabled = True
Do
DoEvents
Loop Until Port_Input <> vbNullString
delay_ms 5000
Next