پاسخ : مقاله آموزشی AVR با کامپایلر بسکام
درست شد ولی الان هر کدوم از برنامه های دوستمون میریزم رو میکرو جواب نمیگیرم.
درست شد ولی الان هر کدوم از برنامه های دوستمون میریزم رو میکرو جواب نمیگیرم.
Do 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
Do 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
دیدگاه