دوستان خواهشا کمک کنین
من بوسیله یرنامه زیر پیامها رو براختی میخونم
فقط میخوام قسمتی بهش اضافه بشه که بتونم پیامها رو به طور اتوماتیک بخونه
یعنی زمانی که پیامی رسید وارد متغیر بشه و روی ال سی دی نمایش داده بشه
اینم از برنامه:
من بوسیله یرنامه زیر پیامها رو براختی میخونم
فقط میخوام قسمتی بهش اضافه بشه که بتونم پیامها رو به طور اتوماتیک بخونه
یعنی زمانی که پیامی رسید وارد متغیر بشه و روی ال سی دی نمایش داده بشه
اینم از برنامه:
Print "AT+CMGR=1"
Sms = ""
G = 0
A = 0
Do
B = Inkey()
Select Case B
Case 0:
Case 13:
Incr G
If Sms <> "" Then
A = 1
Exit Do
End If
Case 10:
If Sms <> "" Then
A = 1
Exit Do
End If
Case Else
If G = 3 Then
Sms = Sms + Chr(b)
End If
End Select
Loop
Cls
Locate 2 , 1
Lcd Sms
Sms = ""
G = 0
A = 0
Do
B = Inkey()
Select Case B
Case 0:
Case 13:
Incr G
If Sms <> "" Then
A = 1
Exit Do
End If
Case 10:
If Sms <> "" Then
A = 1
Exit Do
End If
Case Else
If G = 3 Then
Sms = Sms + Chr(b)
End If
End Select
Loop
Cls
Locate 2 , 1
Lcd Sms
دیدگاه