ساخت ریموت کنترل با avrوماژول ASK

[sjaber]

بچه یه چند وقت پیش یه ماژول ask 315فرستنده و گیرندشواز سایت خریدم . میخواستم بدونم کسی میدونه چطوری باید راه اندازیش کنم راستی این رو هم بگم برای کواد میخوام اگه کسی میتونه کمک کنه بسم الله راستی نوع میکرو avr و زبان بیسیک یا سی .راســــــــــــــــــــتی دارم رو یه کواد ارزون قیمت کار میکنم فقط ریموتش مونده پس کمکم کنید. قـــــ oo: oo: oo: oo:ــــــــــــــــربان شمـــــــــــــــــــا<sjabe>

[mobin-m]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

سلام

ماژول های ask اصلا برای کوآد مناسب نیستن ولی ارتباط این ماژول ها از نوع سریاله و کافیه :
با دستور print یا printbin کد های دلخواه ارسال و با دستور input آنرا در گیرنده بخوانید!

[sjaber]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK


ممنون از این که نظر تون و گفتید ولی من این ماژول رو خریدم دیگه مجبورم درستش کنم
خوب من توراه اندازی این ماژول و ارتباط سریال یکم ضعیفم و راهنمایی میخوام
بعد راستی دیتا شیت این ماژول و کسی نداره؟؟؟؟ :agree: :agree: :agree:

[mobin-m]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

دیتا شیت واسه چی میخوای ؟؟ اینا که دیتاشیت نیاز ندارن!

با چه زبانی برنامه می نویسی؟

[sjaber]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

زبان بیسیک یاسی البته به بیسیک تسلط بیشتری دارم اما سریال کار نکردم ممنون میشم کمکم کنید. oo: oo: oo: oo:

[mobin-m]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

سادست!نگران نباش

مثلا :

فرستنده :

if pinb.0 = 1 then print "ch1"
if pinb.1 = 1 then print "ch2"

گیرنده :

input s
if s = "ch1" then portb.0 =1
if s = "ch2" then portb.1=1

[sjaber]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

ممنون ازت که راهنمایی میکنی میشه مدار شو بزاری با 2 تا Atmega8 لطفا برنامه رو هم کامل بنویسید گفتم که اصلا سریال کارنکردم ازش سر در نمیارم؟؟
بازم یـــــــــــــــــــــه دنیا ممــــــــــــــــــــــــــنون :cry2: :cry2: :cry2:

[mobin-m]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

داداش امر دیگه ای نداری؟؟ میخوای برات بسازمش؟؟ :icon_razz:

احتمالا تا امشب برنامه و شماتیک رو میرسونم!

[محمد مومنی22]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

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

[sjaber]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

داداش امر دیگه ای نداری؟؟ میخوای برات بسازمش؟؟ :icon_razz:

احتمالا تا امشب برنامه و شماتیک رو میرسونم!

دادش راست خیلی سوال کردم معذرت می خوام ببخشید ولی گفتم که من تا حالا باسریال کارنکردم باور کن هیچی ازش سردر نمیارم بازم شرمنده :redface: :redface: :redface:

[محمد مومنی22]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

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

print""

اینکارو میکنی.که بین " " کدت قرار میگیره . مثلا ch12
حالا توی گیرنده ات هم میای یک متغییر مثلا A تعریف میکنی بعد با دستور

 INPUT A

یا

A=INKEY()

یا

A=WAITKEY()

کدت رو دریافت میکنی.
حالا میای میگی اگر مثلا A=CH12(کدی که توی فرستنده تعریف کردی ارسال بشه) بود فلان کار رو انجام بده.

[sjaber]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

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

print""

اینکارو میکنی.که بین " " کدت قرار میگیره . مثلا ch12
حالا توی گیرنده ات هم میای یک متغییر مثلا A تعریف میکنی بعد با دستور

 INPUT A

یا

A=INKEY()

یا

A=WAITKEY()

کدت رو دریافت میکنی.
حالا میای میگی اگر مثلا A=CH12(کدی که توی فرستنده تعریف کردی ارسال بشه) بود فلان کار رو انجام بده.

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

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Dim A As Byte

Do
Input A
 If A = Waitkey(1) Then
 Portb.0 = 1
 If A = Waitkey(2) Then
 Portb.1 = 1
 End If
 End If
Loop

وکد فرستنده

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portc = Input
Dim A As Bit



Do
If Pinc.0 = 1 Then
Print "1"
End If
If Pinc.1 = 1 Then
Print "2"
End If
Loop

چکار کنم؟ :eek: :eek: :eek: :eek:

[mobin-m]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

برنامه گیرنده خیلی خیلی اشتباهه!!!!!!!! :eek:


این گیرنده :

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Dim A As String * 2

Do
Input A
If A = "1" Then
Portb.0 = 1
Portb.1 = 0
Elseif A = "2" Then
Portb.0 = 0
Portb.1 = 1
Else
Portb.0 = 0
Portb.1 = 1
End If
Loop

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

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portc = Input
Dim I As Byte



Do

If Pinc.0 = 1 Then
For I = 0 To 4
Print "1"
Waitms 5
Next I
End If

If Pinc.1 = 1 Then
For I = 0 To 4
Print "2"
Waitms 5
Next I
end if
Loop

[sjaber]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

آقامبین مرسی به خاطر کمک تون
فقط یه سوال برنامه ای نوشتین کدرو دریافت میکنه ولی ولی فقط کداول دریافت میشه و مبکرو به حالت اغما میره و کار نمیکنه چکــــــــــــار کــــــــــــــــــــــــــــــــــــــــــنم؟؟؟؟؟ oo: oo: oo:

[mobin-m]

پاسخ : ساخت ریموت کنترل با avrوماژول ASK

سلام

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