با سلام و عرض احترام
من هر مقدار یا متنی که در محیط ترمینال توی کامپیوتر مینویسم و با پورت سریال ارسال میکنم ؛ راحت و کامل متن ارسال شده توسط میکرو با این تابع دریافت میشه و توی السیدی نمایش داده میشه
اما هر کاری میکنم نمیتونم متنی که با برنامه سوکت گوشی از طریق ماژول وای فای میفرستم به سریال میکرو تا توی ال سیدی نمایش بدم نمیشه!! فقط یک یا دوحرف آخر متن ارسال شده با گوشی رو تو السیدی نشون میده
خواهشا راهنمایی کنید
با بسکام مینویسم .. تازه کار هم هستم
من هر مقدار یا متنی که در محیط ترمینال توی کامپیوتر مینویسم و با پورت سریال ارسال میکنم ؛ راحت و کامل متن ارسال شده توسط میکرو با این تابع دریافت میشه و توی السیدی نمایش داده میشه
اما هر کاری میکنم نمیتونم متنی که با برنامه سوکت گوشی از طریق ماژول وای فای میفرستم به سریال میکرو تا توی ال سیدی نمایش بدم نمیشه!! فقط یک یا دوحرف آخر متن ارسال شده با گوشی رو تو السیدی نشون میده
خواهشا راهنمایی کنید
با بسکام مینویسم .. تازه کار هم هستم
Sub Get_data(s As String)
S = ""
Do
_data = Inkey()
Select Case _data
Case 0
Case 13
Case 32
Case 10 : If S <> "" Then Exit Do
Case Else
S = S + Chr(_data)
End Select
Loop
End Sub
دیدگاه