۰۲-فروردین-۱۳۸۸, ۱۵:۱۰:۵۹
سلام
کسی تا حالا با wheel موس کار کرده
کارش مثل مادون قرمز گلوله موس های قدیمی به طوری که دوتا سوییچ است که اگر از طرف چپ به راست بچرخه اول چپ و سپس راستی یک می شود .من این کلید ها رو به int میکرو وصل کردم و با یک شدن هر اینتراپت ال ای دی مخصوص به آن روشن می شود. یعنی یک ال ای دی مخصوص چپ و یک ال ای دی مخصوص راست
اما وقتی کلید رو می چرخونم این اتفاق نمی افته یعنی وقتی که به طرف چپ یا راست می چرخونم گاهی لابه لای چشمک زدن ال ای دی ها به جای ال ای دی راست یا چپ اون یکی روشن میشه برنامه من هم اینه:
$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Output
Enable Interrupts
Enable Int0
Enable Int1
Config Int0 = Rising
Config Int1 = Rising
On Int0 Lef
On Int1 Righ
Do
Loop
End
Lef:
Portc.5 = 1
Portc.4 = 0
Return
Return
Righ:
Portc.4 = 1
Portc.5 = 0
Return
Return
کسی تا حالا با wheel موس کار کرده
کارش مثل مادون قرمز گلوله موس های قدیمی به طوری که دوتا سوییچ است که اگر از طرف چپ به راست بچرخه اول چپ و سپس راستی یک می شود .من این کلید ها رو به int میکرو وصل کردم و با یک شدن هر اینتراپت ال ای دی مخصوص به آن روشن می شود. یعنی یک ال ای دی مخصوص چپ و یک ال ای دی مخصوص راست
اما وقتی کلید رو می چرخونم این اتفاق نمی افته یعنی وقتی که به طرف چپ یا راست می چرخونم گاهی لابه لای چشمک زدن ال ای دی ها به جای ال ای دی راست یا چپ اون یکی روشن میشه برنامه من هم اینه:
$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Output
Enable Interrupts
Enable Int0
Enable Int1
Config Int0 = Rising
Config Int1 = Rising
On Int0 Lef
On Int1 Righ
Do
Loop
End
Lef:
Portc.5 = 1
Portc.4 = 0
Return
Return
Righ:
Portc.4 = 1
Portc.5 = 0
Return
Return