سلام من یه برنامه با زبان بسکام خریدم که وقتی گرما بالاتر از رنج تعریف شده میره sms میده.توی توضیحاتش نوشته به 3 تا سیم کارت پیام میده اما فقط به یکی پیام میده چه جوری میشه کاری کرد که به سه تا سیم کارت پیام بده
Data_sms:
Var = 0 : Data_eram = "" : Code = ""
Incr T2
If T2 > 3 Then
T2 = 0
Gosub Meno
End If
If T2 = 1 Then
Code = Tell1
Waitms 10
Var = Asc(code)
If Var = 255 Or Code = "" Then Gosub Data_sms
End If
If T2 = 2 Then
Code = Tell2
Waitms 10
Var = Asc(code)
If Var = 255 Or Code = "" Then Gosub Data_sms
End If
If T2 = 3 Then
Code = Tell3
Waitms 10
Var = Asc(code)
If Var = 255 Or Code = "" Then Gosub Data_sms
End If
Var = 0 : T2 = 5
Print "AT+CMGS=" ; Chr(34) ; Code ; Chr(34)
Wait 1
Print Sms ; " SERVER ROOM" ; Chr(26)
Gosub Data_sms
Return
'************************************************* ************ Sub [Status_Temp]
Status_temp:
Sms = ""
If Error = 2 Then
Sms = "Temp ERROR!!! / "
End If
Code = Fusing(temp , "#.#")
Sms = Sms + "Temp : " + Code + " C"
Waitms 20
Gosub Data_sms
Return
Var = 0 : Data_eram = "" : Code = ""
Incr T2
If T2 > 3 Then
T2 = 0
Gosub Meno
End If
If T2 = 1 Then
Code = Tell1
Waitms 10
Var = Asc(code)
If Var = 255 Or Code = "" Then Gosub Data_sms
End If
If T2 = 2 Then
Code = Tell2
Waitms 10
Var = Asc(code)
If Var = 255 Or Code = "" Then Gosub Data_sms
End If
If T2 = 3 Then
Code = Tell3
Waitms 10
Var = Asc(code)
If Var = 255 Or Code = "" Then Gosub Data_sms
End If
Var = 0 : T2 = 5
Print "AT+CMGS=" ; Chr(34) ; Code ; Chr(34)
Wait 1
Print Sms ; " SERVER ROOM" ; Chr(26)
Gosub Data_sms
Return
'************************************************* ************ Sub [Status_Temp]
Status_temp:
Sms = ""
If Error = 2 Then
Sms = "Temp ERROR!!! / "
End If
Code = Fusing(temp , "#.#")
Sms = Sms + "Temp : " + Code + " C"
Waitms 20
Gosub Data_sms
Return
دیدگاه