کنترل شدت نور led با avr

[rahpak]

سلام خسته نباشید همه ی مهندسااااااای گل
آقا من با بلوتوث تونستم ولتاژ رو قطع و وصل کنم
بعد به ذهنم رسید که با بلوتوث نور ال ای دی رو هم کم و زیاد کنم
اومدم یکم آموزشارو خوندم و اینا ولی درست نشد که نشد
میخوام با بلوتوث یه عدد بفرستم مثلا 127 بعد تو مدار نور ای ای دی نصف روشن بشه
یا مثلا بفرستم 255 کامل روشن بشه و هر عدد صحیح دیگه ای که وجود داره.
من این رو نوشتم ولی درست کار نکرد میشه شما برنامه درستش رو بهم بگید؟

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Dim C As Byte , X As Byte , Led(8) As Byte
Dim M As Byte
Config Timer0 = Timer , Prescale = 1
On Ovf0 Rgbpwm
Enable Timer0
Enable Interrupts
For X = 1 To 8
Led(x) = 0
Next

Do
M = Inkey()
Led(1) = M


Loop

End

Rgbpwm:
Timer0 = 0
Incr C
If C = 0 Then Portb = &B11111111
If Led(1) = C Then Reset Portb.1
Return

[a.mehran]

سلام
شما چرا بادستور inkeyمیخونید !
با دستور input بخونید
و مقدارpwm رو برابر m بدید
pwm1a=m
موفق باشی

[rahpak]

ممنون بابت جوابتون
اما یه سوال دیگه
امکانش هست شما کد رو تغییر بدید؟ من تغییر دادم ارور داد.
اگه تغییر بدید که ممنون میشم

[a.mehran]

کد:

$regfile = "m8def.dat"
$crystal = 1000000
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Prescale = 8
$baud = 9600


Dim A As Word

Dim B As Word



Do
Input , A
Pwm1a = A
waitms 50
Loop

ببین جواب میده یا نه

[kimiafars]

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

[rahpak]

سلام
شما چرا بادستور inkeyمیخونید !
با دستور input بخونید
و مقدارpwm رو برابر m بدید
pwm1a=m
موفق باشی

کد:

$regfile = "m8def.dat"
$crystal = 1000000
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Prescale = 8
$baud = 9600


Dim A As Word

Dim B As Word



Do
Input , A
Pwm1a = A
waitms 50
Loop

ببین جواب میده یا نه

من اینو تست کردم کار نکرد
خب باید به پایه ی pb1 وصل میکردم درسته دیگه؟

[rahpak]

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

ماژول hc-05 هستش
گوشیم ویندوز فون هست و یه برنامه دانلود کردم که فقط یه جای تایپ داره که بعد از وصل شدن به ماژول کد رو ارسال میکنم
بلوتوث تا حالا که مشکلی نداشته سرعت و برد فاصله کاریش هم خوب بوده راضی هستم
از ده متر هم تست کردم

[rahpak]

کسی نیست یه کمکی کنه به من؟

[a.mehran]

ماژولو به پایه rx بزن

[rahpak]

ماژولو به پایه rx بزن

خب tx اتمگا به rx ماژول و rx اتمگا به tx ماژول مگه نباید وصل بشه؟؟

[a.mehran]

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