نحوه ایجاد یک شرط خاص

[arash67]

سلام من برنامه زیر رو نوشتم اما میخوام زمانی که صفر دریافت میکنه عکس العمل خاصی از خودش نشون نده این کار به جه شکلی باید انجام بدم ؟
و دیگه اینکه از اینتراپت پورت سریال به چه شکلی باید استفاده کنم

کد:

'*******************************************************************************
$regfile = "m8def.dat"
$crystal = 11059200
$baud = 9600
'*******************************************************************************
Config Timer1 = Pwm , Prescale = 1 , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up
Config Portb.1 = Output
Config Portb.2 = Output
Config Serialin = Normal , Size = 255
Enable Interrupts
Dim Out_pwm As Word
Dim S As String * 10
Dim F1 As String * 10

Cls
Lcd "Welcome"
Wait 2
Cls
Lcd "Light Control"
Wait 2
Cls
Pwm1a = 1023
Pwm1b = 1023

Do
Home
Lcd "data = " ; S ; "   "
Input S
F1 = Mid(s , 2 , 5)
Out_pwm = Val(f1)
Lcd Out_pwm
Pwm1a = Out_pwm
Pwm1b = Out_pwm
F1 = ""
S = ""
Loop

[behzady]

سلام من برنامه زیر رو نوشتم اما میخوام زمانی که صفر دریافت میکنه عکس العمل خاصی از خودش نشون نده این کار به جه شکلی باید انجام بدم ؟
و دیگه اینکه از اینتراپت پورت سریال به چه شکلی باید استفاده کنم

کد:

'*******************************************************************************
$regfile = "m8def.dat"
$crystal = 11059200
$baud = 9600
'*******************************************************************************
Config Timer1 = Pwm , Prescale = 1 , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up
Config Portb.1 = Output
Config Portb.2 = Output
Config Serialin = Normal , Size = 255
Enable Interrupts
Dim Out_pwm As Word
Dim S As String * 10
Dim F1 As String * 10

Cls
Lcd "Welcome"
Wait 2
Cls
Lcd "Light Control"
Wait 2
Cls
Pwm1a = 1023
Pwm1b = 1023

Do
Home
Lcd "data = " ; S ; " "
Input S
F1 = Mid(s , 2 , 5)
Out_pwm = Val(f1)
Lcd Out_pwm
Pwm1a = Out_pwm
Pwm1b = Out_pwm
F1 = ""
S = ""
Loop

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

کد:

On Urxc Rs
Enable Urxc

برای وقفه ی پایان ارسال

کد:

On Utxc Rs
Enable Utxc

پس یه لیبل به اسم RS میسازی (دیگه اسمش رو عوض کن هرچی میخوای)
بعد کاری که میخوای بکنی
اگه هم وقفه دریافت هست اولین کار باید
UDR رو بخونی که عدد ارسال شده هست بعد از اسکی به حروف تبدیلش بکنی
یادت نره بعد از فعال کردن اینا وقفه سراسری هم باید فعال بشه
بعد از پایان کارت هم return رو بزاری

[arash67]

ممنون در مورد سوال اول زمانی که از دستور S="" و F1="" استفاده می کنم در زمان دریافت دیتا مقادیر غیر صفر میباشد در هنگام عدم ارسال دیتا متغییر OUT_PWM صفر شده مقدار قبلی خود را ندارد و لازم به ذکر است حذف کردن دستور S="" و F1="" باعث می شود که LCD چرت و پرت نمایش دهد حالا سوال من اینجا این است که به چه شکلی میتونم داده دریافتیمو حفظ کنم ؟ درضمن من از ماژول HMT-HMR 433MHZ استفاده می کنم

[aKaReZa75]

راستی باید وقفه سراسری رو هم فعال کنی.
این دستور رو هم باید اضافه کنی:

کد:

Enable Interrupts

[omid_phoenix]

اگه بخواهید مقدار pwm شما بطور ثابت ارسال بشه ؛
یه زیر برنامه ایجاد کنید و مقادیر رو هر لحظه ارسال کنید

کد:

Sub ??
For X = 1 To 10 Step 5
Printbin V
Delay
Next X
pwm1a = 1023
pwm1b = 1023
End Sub

[arash67]

مهندس این برنامه ای که من گذاشتم مربوط به گیرنده هستش

[behzady]

ممنون در مورد سوال اول زمانی که از دستور S="" و F1="" استفاده می کنم در زمان دریافت دیتا مقادیر غیر صفر میباشد در هنگام عدم ارسال دیتا متغییر OUT_PWM صفر شده مقدار قبلی خود را ندارد و لازم به ذکر است حذف کردن دستور S="" و F1="" باعث می شود که LCD چرت و پرت نمایش دهد حالا سوال من اینجا این است که به چه شکلی میتونم داده دریافتیمو حفظ کنم ؟ درضمن من از ماژول HMT-HMR 433MHZ استفاده می کنم

من درست متوجه نشدم
1- شما دارید S رو مینویسید در حالی که هیچ مقداری ندارد!
2-درسته اگه S رو صفر نکنید LCD چرت و پرت نشون میده ولی نیازی به دومی نیست
3- اون چرت و پرت حاصل از ارسال نادرست هست وگرنه برای بار اول هم که شده باشه باید یک مقدار درستی بگیرید
این که حل شد میریم سراغ حفظ داده

کد:

Do
Home
Lcd "data = " ; S ; " "
S = ""
Input S
F1 = Mid(s , 2 , 5)
Out_pwm = Val(f1)
Lcd Out_pwm
Pwm1a = Out_pwm
Pwm1b = Out_pwm
Loop

---

راستی باید وقفه سراسری رو هم فعال کنی.
این دستور رو هم باید اضافه کنی:

کد:

Enable Interrupts

پست رو رو هوا زدید ها! خودم گفته بودم

---

درضمن بهتره از وقفه استفاده کنین چون به احتمال زیاد در زمان درست به input نمیرسید

[arash67]

3- اون چرت و پرت حاصل از ارسال نادرست هست وگرنه برای بار اول هم که شده باشه باید یک مقدار درستی بگیرید

مهندس من زمانی که داده ای به گیرنده نمی فرستم چرت وپرت نشون میده

---

میشه یک شرط تعریف کرد که زمانی که صفر از پورت سریال دریافت کرد کاری انجام نده ؟؟؟؟

3

[behzady]

شما اگه بدونی وقتی داده ای در کار نیست چی خونده میشه بله اگه نه باید با وقفه کار کنید