کمک در تغییر دادن سرعت رقص نور توسط دو کلید

[rayanelectronic]

کمک در برنامه زیر :
میخواهم بوسیله دو کلید دیگر در برنامه زیر سرعت رقص نور را کم یا زیاد کنم
$regfile = "m16def.dat"
$crystal = 1000000
'-----------------------------
Config Portd = Output : Config Porta = Output : Config Pinc.1 = Input : Config Pinc.2 = Input

Do
Debounce Pinc.1 , 1 , Main1
Debounce Pinc.2 , 1 , Main2
Loop

لطفا کمک کنید
End 'end program

Main1:
Portd = &B00000011
Debounce Pinc.2 , 1 , Main2
Wait 5
Portd = &B00000110
Debounce Pinc.2 , 1 , Main2
Wait 5
Goto Main1

Main2:
Porta = &B00000011
Debounce Pinc.1 , 1 , Main1
Waitms 100
Porta = &B00000110
Debounce Pinc.1 , 1 , Main1
Waitms 100
Goto Main2

[مهران چمنی]

پاسخ : کمک در تغییر دادن سرعت رقص نور توسط دو کلید

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

کم و زیاد کردن سرعت هم به اون روشی که گفتی امکان پذیر نیست

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


البته کار نشد نداره
میشه با ترکیب کردن VB.NET و میکرو این کار رو انجام داد ولی همیشه باید میکروت به کامپیوتر متصل باشه :smile:
موفق باشی

[raad07]

پاسخ : کمک در تغییر دادن سرعت رقص نور توسط دو کلید

نمیشه بعد "wait" یه متغیر تعریف کرد؟ :rolleyes:
مثلا x و با یه دستور هر موقع یـ پین 1 شد ، یه مقداری به اون متغیر اضافه کنه

[sina_mehraban]

پاسخ : کمک در تغییر دادن سرعت رقص نور توسط دو کلید

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

اینو امتحان کن ...

$regfile = "m16def.dat"
$crystal = 1000000
'-----------------------------
Config Portd = Output : Config Porta = Output : Config Pinc.1 = Input : Config Pinc.2 = Input
Dim A As Word

A = 1000
Do
If Pinc.1 = 1 Then Incr A
If Pinc.2 = 1 Then Decr A

Portd = &B00000011
Waitms A
Portd = &B00000110
Waitms A


Loop


End

یه برنامه آماتوره ...
ولی جواب کارتو میده
یه برنامه خوب هم میزارم به زودی ...

[sina_mehraban]

پاسخ : کمک در تغییر دادن سرعت رقص نور توسط دو کلید

مشکل برنامه بالا اینه که INCR و decr در خود برنامه اصلی هست و نظمی نداره و سرعت تغییرشم افتضاحه
ولی این برنامه که گذاشتم کامله تقریبا ..
منظمه و با سرعت یکسانی میتونی سرعت رو کم و زیاد کنی ...
فایل شبیه سازشم هست ...
تست کن ..
مقاومت های PULL UP هم یادت نره ....

[sina_mehraban]

پاسخ : کمک در تغییر دادن سرعت رقص نور توسط دو کلید

ببخشید اینم لینکش

http://www.4shared.com/rar/AB1dsFef/Led.html

[nilofar1036]

پاسخ : کمک در تغییر دادن سرعت رقص نور توسط دو کلید

دوست عزیز سری به لینک زیر بزن شاید به دردت بخوره
http://wle.ir/?p=1665