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

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

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

سلام
دوست عزیز waiti ها رو 2 بگذار و مقدار شمارش رو از 4 به 250 ببر.
بهتره ارسال کد ها توی زیربرنامه باشه و از حروف استفاده کنی تا اعداد.

[mobin-m]

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

سلام
دوست عزیز waiti ها رو 2 بگذار و مقدار شمارش رو از 4 به 250 ببر.
بهتره ارسال کد ها توی زیربرنامه باشه و از حروف استفاده کنی تا اعداد.

با داداش محمد موافقم ! اینا رو تست کن

[sjaber]

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

سلام
دوست عزیز waiti ها رو 2 بگذار و مقدار شمارش رو از 4 به 250 ببر.
بهتره ارسال کد ها توی زیربرنامه باشه و از حروف استفاده کنی تا اعداد.

ممنونم از راه نماییاتون دوستان دارم روش کارمیکنم به نتیجه رسیدم میگم یه چند ریز برنامه نوشته ام داره راه میفته
راستی یه سوال فنی
اگه در متغیر STRING*Xمقدار Xروتغییر بدم چی میشه ؟چه تاثیری رو گیرنده داره؟؟؟؟؟ به تعداد کانال های دریافتی ربط داره که آقا مبین مقدارش رو 2 گذاشته؟؟؟؟؟؟؟؟
:agree: :agree: :agree: :agree:

[mobin-m]

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

آره !

موقع تعریف متغییر نوع رشته ای (sring) باید تعداد کاراکتری که توش قراره گذاشته بشه رو بدی!
مثلا من گذاشتم 2 یعنی : حداکثر کلمات 2حرفی یا اعداد 2رقمی میشه توش گذاشت!
بازم سوالی داشتی بگو!

موفق باشی :job: :job:

[sjaber]

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

واقعامرسی آقا مبین
این سوال واقعا درگیرم کرده بود حالا که فهمیدم اشکال از کجاس بهتر میتونم روش کار کنم بازم از شما تشکر میکنم.
:applause: :applause: :applause: :applause: :wow: :wow: :applause: :wow: :wow:

[mobin-m]

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

خواهش میکنم :smile: :job: :job:

[sjaber]

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

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

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Input
Dim A As Byte
S1 Alias Pinb.0
S2 Alias Pinb.1
Do
If S1 = 1 Then
 For A = 0 To 4
 Print "F"
 Waitms 2
 Incr A
 Next A
Else
A = Not A
End If
If S2 = 1 Then
 For A = 0 To 4
 Print "B"
 Waitms 2
 Incr A
 Next A
Else
A = Not A
End If
If S1 = 0 Then
For A = 0 To 4
Print "z"
 Waitms 2
 Incr A
 Next A
 End If
If S2 = 0 Then
For A = 0 To 4
Print "z"
 Waitms 2
 Incr A
 Next A
 End If
 Loop

گیرنده:

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Dim A As String * 2
K1 Alias Portb.0
K2 Alias Portb.1
Declare Sub L1
Declare Sub L2
Declare Sub L3

Do
Input A
If A = "F" Then
Call L1
End If
If A = "B" Then
Call L2
End If
If A = "z" Then
Call L3
End If
Loop

Sub L1
K1 = 1
K2 = 0
End Sub

Sub L2
K2 = 1
K1 = 0
End Sub

Sub L3
K1 = 0
K2 = 0
End Sub

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

[mobin-m]

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

دستور for نیازی به incr برای افزایش نداره و خودش وقتی step براش نذاری که شما نذاشتی یه واحد در هر دور به متغیر جلوییش اضافه می کنه! incr رو پاک کن :job:
و متغیر استرینگ رو از 2 به 8 کاراکتر تغییر بده و بجای یه حرف برای هر کانال یه کلمه بفرست! مثلا بجای "F" بفرست : "channel1" بجای "B" بفرست : "channel2" و ....

[sjaber]

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

دستور for نیازی به incr برای افزایش نداره و خودش وقتی step براش نذاری که شما نذاشتی یه واحد در هر دور به متغیر جلوییش اضافه می کنه! incr رو پاک کن :job:
و متغیر استرینگ رو از 2 به 8 کاراکتر تغییر بده و بجای یه حرف برای هر کانال یه کلمه بفرست! مثلا بجای "F" بفرست : "channel1" بجای "B" بفرست : "channel2" و ....

جواب نداد دوست عزیز چکار کنم؟؟؟
راستی برنامه پیشنهادی نداری؟؟؟؟؟؟؟؟؟؟؟؟
:eek: :eek: :eek:

[mobin-m]

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

اصلا ماژول های ask و hmt-r چیزی جز آشغال نیستن!
ولی من با همینا که بهت گفتم جواب گرفتم!

[sjaber]

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

سلام بچه ها
راستی این ای سی های pt2272,pt2262میشه باشون کاری کردوریموت مرد با شون درست کرد؟؟؟؟؟؟؟؟؟
:agree: :agree: :agree:

[mobin-m]

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

آره اگه بتونی اصلشون رو پیدا کنی چون اینایی که تو بازار رایجه آشغاله!!!

[حیدر صالح]

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

اگر برای کوادر می خواهی بله میشه باید در گیرنده از ATMGA8 smd استفاده کنی و برنامه را به زبان سی نوشتم باید با سرعت ارسال 2400 بیت بر ثانیه خوب پروتکل ارسال یمقدار پیچیده است نمی شه اینجا توضیح داد
البته باید از کریستال 16mhz و تنظیم فیوز بیتها اقدام کنید هم در فرستنده و هم در گیرنده سعی کنید از زبان سی و کدویژن استفاده کنید

[sjaber]

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

خیلی ممنون از راهنمایی تون ولی من زبان سی و کار باکدویژن رو بلدنیسم واصلا کار نکردم کتاب یا مقاله ی خاصی رو میتونید بهم معرفی کنید؟؟ :read: :read: :applause: :applause:

[sjaber]

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

سلام بچه ها بالاخره درستش کردم کدشم به زبان بیسیک با ماژول ASKهمجواب داد و من الان دارای یک ریموت کنترل 8 کانال هستم
ازاین که به من راهنمایی دادید ممنون ومتشکرم
حالا برنامه
فرستنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Portb = Input
Dim Q As Byte
W:
Q = Pinb
Printbin Q
Goto W
End

واین هم گیرنده

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Portb = Output
Dim A As Byte
W:
A = Inkey()
Portb = A
Waitms 2
Goto W
End

بازم ازتون متشکرم که کمک کردین