کمک برای ساخت مدار فرستنده وگیرنده

[sky_man847]

با سلام به همه اساتید ودوستان
میخواستم یه مداری بسازم برای کنترل یه بالابر که 3تا رله رو کنترل کنه میخواستم بیشترین برد که میتونه داشته باشه رو درست کنم کسی میدونه از چه ماژولی استفاده کنم؟؟

[amirxers]

سلام
ماژولهای ask تا 100 متر_ hmt-r ها تا 200 متر _ rfm01_02 یا rfm12bp که با آنتن مناسب تا 2000 متر برد دارن.
اما اگه هدفت فقط سوییچ کردنه همون ماژولهای ask که کد و دیکدش بوسیله آی سی های pt2260_pt2272 هست و پیشنهاد میدم.
البته کیت آمادش هم تو بازار هست!

[sky_man847]

بیشترین برد رو لازم داشتم پس این rfmها بیشترین برد رو بین ماژولها رو دارن؟؟؟میشه با اینا 3تا رله رو کنترل کرد ممنون میشم کمک و راهنماییم کنید

[amirxers]

بله! البته ماژولهای دیگه هم هست! اینهایی که نام بردم مرسوم ترین هاست!!!
شما محیط استفاده و حداکثر برد مورد نیازتو بگو ؟
یه سر به فروشگاهای اینترنتی هم بزنی بد نیست،قیمتا هم دستت میاد.

[kendab]

سلام
من میخواهم با hmrوhmtیه کنترل بسازم
برنامه با زبان بسکام هست
تا حدودی میدونم چکار کنم ولی نمیتونم پشت سر هم قرارشون بدم و اطلاعاتم در مورد این مازول کمه
میتونید کمکم کنید؟
ممنون

[amirxers]

سلام
من میخواهم با hmrوhmtیه کنترل بسازم
برنامه با زبان بسکام هست
تا حدودی میدونم چکار کنم ولی نمیتونم پشت سر هم قرارشون بدم و اطلاعاتم در مورد این مازول کمه
میتونید کمکم کنید؟
ممنون

سلام
چی رو پشت سر هم قرار بدی؟؟؟؟؟ دیتا.....
روشن تر مشکلت و بگو ؟
hmr-t ها از مدولاسیون فرکانسی استفاده میکنن(FSK). ارتباطشون هم با کنترلرها،سریال آسنکرونه.
تو بسکام بهتره بافر ورودی و خروجی هم واسه تبادل داده تعریف کنی...

[kendab]

سلام
چی رو پشت سر هم قرار بدی؟؟؟؟؟ دیتا.....
روشن تر مشکلت و بگو ؟
hmr-t ها از مدولاسیون فرکانسی استفاده میکنن(fsk). ارتباطشون هم با کنترلرها،سریال آسنکرونه.
تو بسکام بهتره بافر ورودی و خروجی هم واسه تبادل داده تعریف کنی...

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

[kendab]

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

$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 Word
C1 = "canal1"
C2 = "canal2"
C3 = "canal3"
C4 = "canal4"
C5 = "canal5"
C6 = "canal6"
Dim X As Word : X = 1364
Main:
Do
Printbin X
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
Dim X As Word
Cursor Off
Main:
Do
X = Waitkey()
If X = 1364 Then
Input S
If S = "canal1" Then Goto C1 Else Reset Portc.5
If S = "canal2" Then Goto C2 Else Reset Portc.4
If S = "canal3" Then Goto C3 Else Reset Portc.3
If S = "canal4" Then Goto C4 Else Reset Portc.2
If S = "canal5" Then Goto C5 Else Reset Portc.1
If S = "canal6" Then Goto C6 Else Reset Portc.0
End If
Loop
End
C1:
Set Portc.5
Goto Main
C2:
Set Portc.4
Goto Main
C3:
Set Portc.3
Goto Main
C4:
Set Portc.2
Goto Main
C5:
Set Portc.1
Goto Main
C6:
Set Portc.0
Goto Main
امکان دارد راهنمایی کنید اشکالات را
ممنون

[kendab]

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

$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 word
c1 = "canal1"
c2 = "canal2"
c3 = "canal3"
c4 = "canal4"
c5 = "canal5"
c6 = "canal6"
dim x as word : X = 1364
main:
Do
printbin x
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
dim x as word
cursor off
main:
Do
x = waitkey()
if x = 1364 then
input s
if s = "canal1" then goto c1 else reset portc.5
if s = "canal2" then goto c2 else reset portc.4
if s = "canal3" then goto c3 else reset portc.3
if s = "canal4" then goto c4 else reset portc.2
if s = "canal5" then goto c5 else reset portc.1
if s = "canal6" then goto c6 else reset portc.0
end if
loop
end
c1:
Set portc.5
goto main
c2:
Set portc.4
goto main
c3:
Set portc.3
goto main
c4:
Set portc.2
goto main
c5:
Set portc.1
goto main
c6:
Set portc.0
goto main
امکان دارد راهنمایی کنید اشکالات را
ممنون

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