کمک در مورد سرعت تنظیم فلاشرها

[rayanelectronic]

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

[محسن(م.ع)]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

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

[milad2546]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

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

سلام.
این کار عملیه ولی در عمل به هیچ عنوان نباید از این راه استفاده کرد چون خیلی زیاد فضای داخلی میکرو رو میگیره.

من این کار رو با دو زبان اسمبلی و بیسیک انجام دادم و خیلی هم خوب جواب داده.
1- در اسمبلی تاخیر رو با حلقه های تو در تو ایجاد کرده بودم به این صورت:

delay:
MOV R1,B
L:MOV R2,#70H
M:MOV R3,#30H
NJNZ R3,N
JNB P1.4,UP
JNB P1.6,DOWN
DJNZ R2,M
DJNZ R1,L
ret

در حلقه اول متغییر b صابت نیست در واقع من در اول برنامه یه مقدار به اون دادم و در زمان اجرای برنامه هر موقع کلید فشرده شد یکی به b اضافه یا کم میکنیم.

با بیسیک هم میتونی هم از تایمر و هم از دستور wait استفاده کنی. به این صورت Wait delay باز هم مثل بالا به متغییر delay یه مقدار اولیه میدیم و با هر بار فشار دادن کلید مقدار متغییر delay رو کم یا زیاد میکنیم.

با تایمر هم میتونی مقدار عدد داخل تایمر ها رو کم و زیاد کنی.

[rayanelectronic]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

اگه می شد با یک دکمه مقدار کریستال داخلی رو تغییر داد دیگر مشکلی نداشتم ولی من دیدم که می شود این کار رو کرد و به سادگی آیا کسی هست کمکم کند

[hamed_online62]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

دقیقا می خوای چیکار کنی؟ یعنی یه کلید داری که با هربار فشردن اون سرعت فلاش بیشتر بشه؟ بعد چجوری سرعت رو دوباره کم می کنی؟
یه تعریف بکن پروژه رو اگه با بیسیک کار می کنی من کمکت می کنم :agree:

[milad2546]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

حامدجان دوستمون میخواد یه فلاشر درست کنه که بشه با دو تا کلید سرعت افکت هارو کم و زیاد کنه.

rayanelectronic اگه درست گفتم ok رو بده تا استاد جعفری کمکت کنه.(ما هم 1 سال از عمرمونو تو ساخت فلاشر گذاشتیم میتونیم کمکت کنیم :agree

[محسن(م.ع)]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

یه پیشنهاد بدم یه پتانسیومتر بذار تو یه پایه adc بعد عدد adc رو طبق گفته اقا میلاد موسوی بذار داخل زمان تاخیر هات یعنی مثلا به basic میشه:
dim w as word
w=getdac(0)
waitms w

[rayanelectronic]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

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


بازم ممنون

[milad2546]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

سلام.

اگه زبان برنامه نویسیتو بگی همه چی حله :agree:

و اگه برات مقدوره یکی از افکت ها رو بذار تا ببینیم به چه صورت داری تاخیر ایجاد میکنی؟(تایمر؟یا wait)

[rayanelectronic]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

باز هم ممنون
چون من می خواهم فلاشر رو با کنترل سرعت بنویسم پس هنوز برنامه رو شروع نکردم ولی نحوه قرار دادن و برنامه نویسی من تقریبا شبیه برنامه زیر است
regfile = "m8def.dat"
$crystal = 1000000
Config Portd = Output
Config Pinb.0 = Output
Dim Y As Byte , Z As Byte
'============================================ ===============================
Main:
Portd = &H01
Reset Portb.0
Wait 1
'========================
Portd = &H02
Reset Portb.0
Wait 1
'========================
Portd = &H04
Reset Portb.0
Wait 1
'========================
Portd = &H08
Reset Portb.0
Wait 1
'========================
Portd = &H10
Reset Portb.0
Wait 1
'========================
Portd = &H20
Reset Portb.0
Wait 1
'========================
Portd = &H40
Reset Portb.0
Wait 1
'========================
Portd = &H80
Reset Portb.0
Wait 1
'========================
Portd = &H00
Set Portb.0
Wait 1
'========================
Portd = &H01
Set Portb.0
Wait 1
'========================
Portd = &H02
Set Portb.0
Wait 1
'========================
Portd = &H04
Set Portb.0
Wait 1
'========================
Portd = &H08
Set Portb.0
Wait 1
'========================
Portd = &H10
Set Portb.0
Wait 1
'========================
Portd = &H20
Set Portb.0
Wait 1
'========================
Portd = &H40
Set Portb.0
Wait 1
'========================
Portd = &H80
Set Portb.0
Wait 1
'========================
Portd = &H81
Set Portb.0
Wait 1
'========================
Portd = &H82
Set Portb.0
Wait 1
'========================
Portd = &H84
Set Portb.0
Wait 1
'========================
Portd = &H88
Set Portb.0
Wait 1
'========================
Portd = &H90
Set Portb.0
Wait 1
'========================
Portd = &HA0
Set Portb.0
Wait 1
'========================
Portd = &HC0
Set Portb.0
Wait 1
'========================
Portd = &HC1
Set Portb.0
Wait 1
'========================
Portd = &HC2
Set Portb.0
Wait 1
'========================
Portd = &HC4
Set Portb.0
Wait 1
'==================== و ادامه آن

[rayanelectronic]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

میلاد جان همین طور که معلومه برنام بیسیک می باشد و از wait برای تاخیر استفاده می کنم

[milad2546]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

سلام.

ببینید به این صورت میتونی عمل کنی ولی در عمل باید کلید هارو به اینتراپت ها وصل کنی تا به مشکل نخوری.
برای افکت هات هم از دستور for-next استفاده کن خیلی بهتر و کوتاه تره نیاز نیست اینقدر برنامه بنویسی.

$regfile = "m8def.dat"
$crystal = 1000000
Config Portd = Output
Dim Y As Byte , Z As Byte , Delay1 As Word
Delay1 = 500
'============================================ ===============================

Z = &B10000000
Main:
Do
Portd = Z
Waitms Delay1
Debounce Pinb.0 , 0 , Up1
Debounce Pinb.1 , 0 , down1
Rotate Z , Right
Loop
End

Up1:
Delay1 = Delay1 - 100
jmp main

Down1:
Delay1 = Delay1 + 100
jmp main

[rayanelectronic]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

ممنون میلاد جان
همان طور گفتم من تازه کارم
و هنوز نمی دونم چگونه افکت با فرمان for -next بزارم و از اینتراپت ها استفاده کنم
میشه میلاد یه نمونه کوچیک برنامه به این صورت برام بزاری ازت ممنن می شم

[milad2546]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

سلام این روزا سرم یه خورده شلوغه....

اگه حامد جان زحمتشو کشید که هیچی اگه نه خودم تا یکی دو روز دیگه یه برنامه یا 8 تا حرکت برات مینویسم خودت کاملش کن ..خوبه؟

[rayanelectronic]

پاسخ : کمک در مورد سرعت تنظیم فلاشرها

خوبه ازت واقعا ممنونم
زیاد هم زحمت نکش فقط یه نمونه کوچک کفایت می کنه میلاد جان
پس منتظر می مانم
تا سه شنبه خوبه اگه برام آ÷لود کنی
راستی میلاد من دنبال یه برنامه ساعت با ds 1307 با سون سگمنت می گردم و دارای فعال کردن خروجی هم باشد می توانی در این زمینه هم کمکم کنی