کنترل سرعت فلاشر

[hmajid]

سلام دوستان ،من میخوام سرعت یک فلاشر 12ولت رو با ولوم کنترل کنم ،کسی هست راهنمایی کنه ؟

[moslem1368]

پاسخ : کنترل سرعت فلاشر

سلام
شماتیک مدارتو بذار تا بشه روش نظر داد

[mrs049]

پاسخ : کنترل سرعت فلاشر

بار عرض سلام و خسته نباشید به اساتید و مهندسان گرامی
خواستم تایپک ایجاد نکنم و در همین تایپیک سوال بنویسم.

من یه برنامه برا کنترل فلاشر خود نوشتم که خدا را شکر کار می کنه ولی می خوام زمان سرعت در اختیار خودم باشه. سرعت مد نظرم این که 50 درصذ ولوم 20ثانیه باشد و به یک طرف ولوم زمان کم و طرف برعکس ولوم زیاد بشه زمان.
خواهشا کمک کنیدد :cry: :cry:

این برنامه

 $regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Config Adc = Single , Prescaler = Auto


Dim A As Long
Dim B As Byte

Do

 Start Adc
 Enable Adc
 A = Getadc(0)
 B = A - 180
 Portb = &B00000001
 Waitms A
 Portb = &B00000010
 Waitms A
 Portb = &B00000100
 Waitms A


Loop
End

به نظرم باید تغیرات تو متغییر B بدهم ولی دقیش نمی دونم لطفا راهنمایی کنید.
راستی نمی خوام از تایمر استفاده کنم چون دقت کامل نیاز نیست و اگه ثانیه تا خیرر داشت اشکالی ندارد.

[6759]

پاسخ : کنترل سرعت فلاشر

سلام
میتونی برنامه ی مربوط به تاخیر رو مثلا اینجوری بنویسی
dim a as word
dim b as word
a=0
b=0
enable adc
start adc
(a=get adc(channel
for b=0 to a
waitms 200 هر زمانی که مد نظرته
next a
........................
یا
(a=get adc(channel
for b=0 to 1000
a=a*5 در اینجادر 5 ضرب شده شما میتونید برای توقف بیشتر زمان مقدار ضریب رو بیشتر کنی مثلا 20
waitms a
next a

[mrs049]

پاسخ : کنترل سرعت فلاشر

سلام
میتونی برنامه ی مربوط به تاخیر رو مثلا اینجوری بنویسی
dim a as word
dim b as word
a=0
b=0
enable adc
start adc
(a=get adc(channel
for b=0 to a
waitms 200 هر زمانی که مد نظرته
next a
........................
یا
(a=get adc(channel
for b=0 to 1000
a=a*5 در اینجادر 5 ضرب شده شما میتونید برای توقف بیشتر زمان مقدار ضریب رو بیشتر کنی مثلا 20
waitms a
next a

مرسی مهندس واقعا تشکر فروان مشکل حل شد :wow: :wow: :wow: راهنمایی تون حرف نداشت :applause: