۲۰-فروردین-۱۳۹۴, ۰۲:۳۵:۱۶
سلام خسته نباشید همه ی مهندسااااااای گل
آقا من با بلوتوث تونستم ولتاژ رو قطع و وصل کنم
بعد به ذهنم رسید که با بلوتوث نور ال ای دی رو هم کم و زیاد کنم
اومدم یکم آموزشارو خوندم و اینا ولی درست نشد که نشد
میخوام با بلوتوث یه عدد بفرستم مثلا 127 بعد تو مدار نور ای ای دی نصف روشن بشه
یا مثلا بفرستم 255 کامل روشن بشه و هر عدد صحیح دیگه ای که وجود داره.
من این رو نوشتم ولی درست کار نکرد میشه شما برنامه درستش رو بهم بگید؟
آقا من با بلوتوث تونستم ولتاژ رو قطع و وصل کنم
بعد به ذهنم رسید که با بلوتوث نور ال ای دی رو هم کم و زیاد کنم
اومدم یکم آموزشارو خوندم و اینا ولی درست نشد که نشد
میخوام با بلوتوث یه عدد بفرستم مثلا 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