[سوال] کمک فوری درباره HM-T و HM-R

[behzady]

این یه مثال برا کاری که میگم چهار تا عدد 0 یا 1 باید وارد کنی
یه کار دیگه ای که می تونی بکنی این هست که قبل از اعمال تغییرات (توی برنامه من) اول یک دور جمع چهار تا عدد رو بگیری و ببینی با جمعی که برات فرستادن برابر هست یا نه اگر نبود در دریافت مشکل بوده و متوجه می شی

[blackstar368]

این یه مثال برا کاری که میگم چهار تا عدد 0 یا 1 باید وارد کنی
یه کار دیگه ای که می تونی بکنی این هست که قبل از اعمال تغییرات (توی برنامه من) اول یک دور جمع چهار تا عدد رو بگیری و ببینی با جمعی که برات فرستادن برابر هست یا نه اگر نبود در دریافت مشکل بوده و متوجه می شی

با تشکر از برنامه تون ایده در عین حال ساده ولی خیلی قشنگی توش بود که یکم سر در گمم کرده بود نمی دونستم چطور از عدد استریمگ استفاده کنم. منطق برنامه ای که دارم روش کار می کنم تقریبا به همین شکل بود... بازم مرسی از لطفتون..

[behzady]

این یه مثال برا کاری که میگم چهار تا عدد 0 یا 1 باید وارد کنی
یه کار دیگه ای که می تونی بکنی این هست که قبل از اعمال تغییرات (توی برنامه من) اول یک دور جمع چهار تا عدد رو بگیری و ببینی با جمعی که برات فرستادن برابر هست یا نه اگر نبود در دریافت مشکل بوده و متوجه می شی

با تشکر از برنامه تون ایده در عین حال ساده ولی خیلی قشنگی توش بود که یکم سر در گمم کرده بود نمی دونستم چطور از عدد استریمگ استفاده کنم. منطق برنامه ای که دارم روش کار می کنم تقریبا به همین شکل بود... بازم مرسی از لطفتون..

برای پیدا کردن خطا هم از همون روشی که بالا گفتم استفاده کن خیلی موثره

[blackstar368]

آره همین کار می کنم. ولی امرو نتونستم روش کار کنم. فردا ایشالا ج میگیرم... با تشکر از دوستان بازم اگه طرحی به ذهنتون رسید ممنون میشم بهم خبر بدین...

[blackstar368]

:exclamation: دیگه قاط زدم!!! هر کاری می کنم ج نمی ده... در بهترین حات فقط همون لحظه اول دیتا دریافت میشه بعد دیگه هیچ دیتایی نمیاد... یعنی با تغییر دیتا تو ورودی خروجی هیچ تغیری نمیکنه...

کد:

[align=left]

فرستنده


$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
'$sim
'---------------------------------------------
Config Portc = Input
Config Portb = Output

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 _
, Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Cursor Off


Dim Cr As String * 1
Dim Cl As String * 1
Dim Cpw As String * 1
Dim C4 As String * 1
Dim Y As String * 3
Dim A As Byte , B As Byte , C As Byte , D As Word , E As Byte
Dim R As Byte
Dim L As Byte
Dim P As Byte
'---------------------------------------------
Set Portb.1
Reset Portb.2
'---------------------------------------------
Main:
Do
R = Pinc And &B00000011
L = Pinc And &B00001100
P = Pinc And &B00110000
Shift L , Right , 2
Shift P , Right , 4

If R = 1 Then Cr = "U"
If R = 2 Then Cr = "D"
If R = 3 Or R = 0 Then Cr = "X"

If L = 1 Then Cl = "U"
If L = 2 Then Cl = "D"
If L = 3 Or L = 0 Then Cl = "X"

If P = 1 Then Cpw = "U"
If P = 2 Then Cpw = "D"
If P = 3 Or P = 0 Then Cpw = "X"

For A = 0 To 3
Print "H" ; Cr ; Cl ; Cpw ; "E" ; Chr(13)
Waitms 20
Next A

Loop
End



گیرنده

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
'Const Cmaxchar = 20
'$sim
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 _
, Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Cursor Off

'Config Servos = 2 , Servo1 = Portb.6 , Servo2 = Portb.7 , Reload = 20
'Config Timer1 = Pwm , Prescale = 8 , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
On Urxc Rec_isr 'define serial receive ISR
Enable Urxc 'enable receive isr

Enable Interrupts
'Enable Timer1
'Start Timer1

'---------------------------------------------
Config Pind.7 = Output , Pind.6 = Output , Pind.5 = Output
Config Portb = Output

Dim S As String * 5
Dim Sr As String * 1
Dim Sl As String * 1
Dim Spw As String * 1
Dim A As Byte , B As Bit , D As Byte , P As Word , X As Word , Y As Word
S = " "
P = 23
'---------------------------------------------
Main:
Home : Lcd "Elahe" : Wait 3 : Cls
Do
If B = 1 Then 'we received something
Disable Serial
Incr Y : Locate 2 , 11 : Lcd Y
Home : Lcd S ; " "
'Locate 2 , 6 : Lcd Left(s , 1) ; Mid(s , 4 , 1) ; Mid(s , 3 , 1) ; Mid(s , 2 , 1) ; Right(s , 1)
If Right(s , 1) = "H" Then
Sr = Mid(s , 2 , 1)
Sl = Mid(s , 3 , 1)
Spw = Mid(s , 4 , 1)

If Sr = "X" Then : Reset Portb.5 : Reset Portb.0 : End If
If Sr = "D" Then : Reset Portb.5 : Set Portb.0 : End If
If Sr = "U" Then : Set Portb.5 : Reset Portb.0 : End If

If Sl = "X" Then : Reset Portb.3 : Reset Portb.4 : End If
If Sl = "D" Then : Reset Portb.3 : Set Portb.4 : End If
If Sl = "U" Then : Set Portb.3 : Reset Portb.4 : End If

If Spw = "D" Then : P = P + 200 : If P > 1023 Then P = 1023 : End If
If Spw = "U" Then : P = P - 200 : If P < 23 Then P = 23 : End If
Pwm1a = P : Pwm1b = P
End If
Home L : Lcd P ; " "
Reset B 'reset receive flag
Enable Serial
End If
Loop
End

Rec_isr: 'read UDR only once
D = Udr
If Chr(d) = "P" Or Chr(d) = "H" Then
Smhha:
S = S + Chr(d)
A = Len(s)
Incr X : Locate 1 , 9 : Lcd X
If A < 5 Then : D = Udr : Goto Smhha : End If
Set B
End If 'set flag
Return

[/align]

لطفا کمکم کنید نمی دونم مشکل از کجاست!!!

[abbasalifix]

فرمان $SIM رو باید از توی برنامه تون پاک کنید

---

منم قبلا با این ماژول ها مشکل داشتم همه میگن به کرستال خارجی ربطی نداره اما من میگم ربط داره

[blackstar368]

فرمان $SIM رو باید از توی برنامه تون پاک کنید

---

منم قبلا با این ماژول ها مشکل داشتم همه میگن به کرستال خارجی ربطی نداره اما من میگم ربط داره

میدونم $sim رو برای شبیه ساز خوده بسکام گزاشتم موقع پروگرام غیر فعالش می کنم. مشکل از ارسال فک نمی کنم باشه اخه همین الان تو پروتئوس بستم دقیقاً همون مشکل رو داره... اگر اشتباه نکنم مشکل از مقدار S ، چطور میشه مقدار S را خالی کرد بعد از هر بار اجرا شدن دستورات!!؟

[behzady]

شما تو پروتیوس با حالت دیباگ برید ببینید مشکل از کجا شروع میشه

[blackstar368]

شما تو پروتیوس با حالت دیباگ برید ببینید مشکل از کجا شروع میشه

میشه بیشتر توضیح بدین!!!؟

[behzady]

$sim رو وردار
جای فایل هگز یه فایل obj هست اونو بزار بعد به جای دکمه ران بقلیش step رو بزن
اگه نتونستی کلا همه رو بفرست برات یه چکی بکنم

[blackstar368]

$sim رو وردار
جای فایل هگز یه فایل obj هست اونو بزار بعد به جای دکمه ران بقلیش step رو بزن
اگه نتونستی کلا همه رو بفرست برات یه چکی بکنم

متوجه شدم که طول کارکترم تو گیرنده با این حال که تا 5 تا محدود شده 8 تا شده... اینم فایل برنامه به همراه پروتئوس و...

---

$sim رو وردار
جای فایل هگز یه فایل obj هست اونو بزار بعد به جای دکمه ران بقلیش step رو بزن
اگه نتونستی کلا همه رو بفرست برات یه چکی بکنم

متوجه شدم که طول کارکترم تو گیرنده با این حال که تا 5 تا محدود شده 8 تا شده... اینم فایل برنامه به همراه پروتئوس و...