[ایرانویجی] برنامه اي براي ماژول 915

[RahimEdison]

با سلام به شما برو بكس هاي ايرانويچي

من توي يه برنامه فرستنده گيرنده ماژول 915 هرتز شبيه يه چيز گير كردم
اونم اينه كه
من برنامه دقيقي ندارم كه وقتي (براي مثال)
دكمه حركت روبات رو ميزنم
و پشت سرش دكمه چپ يا راست رو ميزنم دكمه دومي عمل نميكنه و در نتيجه روبات هين حركت دور نمي زنه
يعني تا وقتي دستتم روي دكمه جلو هست هيچ دكمه ديگه اي عمل نمي كنه تا اون موقعي كه دكمه جلو رها نشده

به نوعي گيرنده فرستنده هلكپتر مدل رو مي خوام درست كنم

زبان برنامه هم بيسيك هست
و با آي سي مگا 8

ممنون

[رسول]

یاشاسین

خب برنامتون مشکل داره دیگه ...

احتمالا با یه تغییر کوچولو بشه درستش کرد , اما باید برنامتونو بذارین تا بیشتر بشه راهنماییتون کرد

----------------------------------------------------------------
اگر کوهها به لرزه درآمدند , تو پابرجا باش (حضرت علی(ع))

[RahimEdison]

برنامه فرستنده:

$regfile = "M8Def.dat"
$crystal = 1000000
$baud = 9600
Config Portc = Input

Dim C1 As String * 13
Dim C2 As String * 13
Dim C3 As String * 13
Dim C4 As String * 13
Dim C5 As String * 13
Dim C6 As String * 13
Dim A As Byte

C1 = "CANAL1"
C2 = "CANAL2"
C3 = "CANAL3"
C4 = "CANAL4"
C5 = "CANAL5"
C6 = "CANAL6"

Main:

Do

If Pinc.5 = 1 Then Goto C1
If Pinc.4 = 1 Then Goto C2
If Pinc.3 = 1 Then Goto C3
If Pinc.2 = 1 Then Goto C4
If Pinc.1 = 1 Then Goto C5
If Pinc.0 = 1 Then Goto C6

Loop

End

C1:

For A = 1 To 5
Print C1 ; Chr(13);
Waitms 20
Next A
Goto Main

C2:

For A = 1 To 5
Print C2 ; Chr(13);
Waitms 20
Next A
Goto Main

C3:

For A = 1 To 5
Print C3 ; Chr(13);
Waitms 20
Next A
Goto Main

C4:

For A = 1 To 5
Print C4 ; Chr(13);
Waitms 20
Next A
Goto Main

C5:

For A = 1 To 5
Print C5 ; Chr(13);
Waitms 20
Next A
Goto Main

C6:

For A = 1 To 5
Print C6 ; Chr(13);
Waitms 20
Next A
Goto Main


برنامه گيرنده:

$regfile = "M8Def.dat"
$crystal = 1000000
$baud = 9600

Config Portc = Output

Dim S As String * 13

Main:
Do
Input S

If S = "CANAL1" Then Goto C1
If S = "CANAL2" Then Goto C2
If S = "CANAL3" Then Goto C3
If S = "CANAL4" Then Goto C4
If S = "CANAL5" Then Goto C5
If S = "CANAL6" Then Goto C6
Loop

End

C1:
Set Portc.5
Waitms 500
Reset Portc.5
Goto Main

C2:
Set Portc.4
Waitms 500
Reset Portc.4
Goto Main

C3:
Set Portc.3
Waitms 500
Reset Portc.3
Goto Main

C4:
Set Portc.2
Waitms 500
Reset Portc.2
Goto Main

C5:
Set Portc.1
Waitms 500
Reset Portc.1
Goto Main

C6:
Set Portc.0
Waitms 500
Reset Portc.0
Goto Main

اين برنامه براي سبحان سروريه

من كه خودمو كشتم نتونستم
دگه نا اميدم

راستي داداش گلم
اين مي خواد 20 كانال بشه.
ببينيم أقا رسول چي كار مي كنه ها.

---

مي كنه ها.

[رسول]

یاشاسین

برنامه فرستنده رو کاری نداشته باش و همون رو بذار ...

اما گیرنده رو تغییر دادم (در این حالت همه کلید ها بطور جداگانه کنترل میشن و با یک بار فشار یک میشه و با یکبار فشار دیگر صفر میشه ...):

کد php:

$regfile = "M8Def.dat"
$crystal = 1000000
$baud = 9600

Config Portc = Output

Dim S As String * 13

Main:
Do
Input S

If S = "CANAL1" Then Goto C1
If S = "CANAL2" Then Goto C2
If S = "CANAL3" Then Goto C3
If S = "CANAL4" Then Goto C4
If S = "CANAL5" Then Goto C5
If S = "CANAL6" Then Goto C6
Loop

End

C1:
Toggle Portc.5
Goto Main

C2:
Toggle Portc.4
Goto Main

C3:
Toggle Portc.3
Goto Main

C4:
Toggle Portc.2
Goto Main

C5:
Toggle Portc.1
Goto Main

C6:
Toggle Portc.0
Goto Main 


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

حالا بازم ببین اگه طور دیگه ای خواستی بگو!!


راستی برای 20 کاناله شدنش هم کافیه که همون روش رو ادامه بدی و فقط پورتهای دیگه رو اضافه کنی و اگه پایه های مگا 8 کافی نبود از مگا 32 استفاده کن < * 0 * >
-----------------------------------------------------------------------
وسیله فرمانروایی , زیاد داشتن حوصله است {حضرت محمد (ص)}

[RahimEdison]

آقا رسول واقعأ آقايي

دستت درد نكنه
الان راش مي ندازم ببينم چي ميشه

امشب خبر مدم
قربانت

[RahimEdison]

خيلي با مرامي آقا رسول

امروز كه خواستم مدارو راه اندازي كنم
شانس با من يار نبود و پروگرمرم خراب شد
منم كه توي شهرستان
قطعه فروشي هم نيست

حالا هم موندم تو كف

به هر حال دستت درد نكنه
حالا واقعأ مطمعنيد كه با اين برنامه كه گفتيد مدار همون طوري كار ميكنه؟
يعني با فشوردن 2 كليد 2 خروجي هم زمان روشن بشن

---

خيلي با مرامي آقا رسول

امروز كه خواستم مدارو راه اندازي كنم
شانس با من يار نبود و پروگرمرم خراب شد
منم كه توي شهرستان
قطعه فروشي هم نيست

حالا هم موندم تو كف

به هر حال دستت درد نكنه
حالا واقعأ مطمعنيد كه با اين برنامه كه گفتيد مدار همون طوري كار ميكنه؟
يعني با فشوردن 2 كليد 2 خروجي هم زمان روشن بشن