پاسخ : دریافت دیتا به صورت آرایه ای از پورت سریال
دوست عزیز منم یه مشکل برای ارسال داشتم اما اینجوری حلش کردم.
فرستنده:
چیزی که می خوای ارسال کنی به string تبدیل کن بعد سند کن.
Print Send
گیرنده:
$regfile = "m8def.dat"
$crystal = 11059000
$baud = 9600
'$sim
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Cursor Off
Dim S_temp As String * 6 , Temp As String * 5
Cls
Lcd "Reciver"
Do
Input S_temp
If S_temp <> "" Then
Temp = Mid(s_temp , 2 , 5) 'haegame daryaft (abtedaye reshte 1 CHR ezafe daryaft mishod).ba in dastor hazf shode ast.
Cls
Lcd "Temp: " ; Temp ; " C"
S_temp = ""
End If
Loop
End
توضیح : مشکل من با ارسال این بود که کاراکتر اول اشتباه دریافت میشد و کاراکتر اخر حذف میشد.
که من رشته دریافتی را یه کاراکتر بیشتر تعریف کردم و توی برنامه نویسی نیز کاراکتر اول رو حذف کردم.
امید وارم کمکتون کرده باشم.
دوست عزیز منم یه مشکل برای ارسال داشتم اما اینجوری حلش کردم.
فرستنده:
چیزی که می خوای ارسال کنی به string تبدیل کن بعد سند کن.
Print Send
گیرنده:
$regfile = "m8def.dat"
$crystal = 11059000
$baud = 9600
'$sim
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Cursor Off
Dim S_temp As String * 6 , Temp As String * 5
Cls
Lcd "Reciver"
Do
Input S_temp
If S_temp <> "" Then
Temp = Mid(s_temp , 2 , 5) 'haegame daryaft (abtedaye reshte 1 CHR ezafe daryaft mishod).ba in dastor hazf shode ast.
Cls
Lcd "Temp: " ; Temp ; " C"
S_temp = ""
End If
Loop
End
توضیح : مشکل من با ارسال این بود که کاراکتر اول اشتباه دریافت میشد و کاراکتر اخر حذف میشد.
که من رشته دریافتی را یه کاراکتر بیشتر تعریف کردم و توی برنامه نویسی نیز کاراکتر اول رو حذف کردم.
امید وارم کمکتون کرده باشم.
دیدگاه