پتانسیومتر

[HaMeD.HP]

سلام خدمت تمامی عزیزان
دوستان من یک برنامه نوشتم که به وسیله تغییر پتانسیومتر ledخاموش وروشن میشه
1.من میخوام برنامه بنویسم که با تغییر پتانسیومتر سرعت افکت ledها کم زیاد بشه (این دستور قالب نوشتنش چطوری ؟ میشه از ifاستفاده کرد؟)
مثلا بنویسم اگر(if ) با زیاد کردن پتانسیومتر سرعت افکت های زیاد بشه و با کم کردن سرعت افکت ای کم بشن
چه تغییر در این برنامه ایجاد کنم ممنون دوستان

$regfile = "m8def.dat"
$crystal = 8000000

Config Portc = Input
Config Portb = Output

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim A As Byte

Start Adc

Do

A = Getadc(0)

 Portb = A

Waitms 10

 Loop

Stop Adc
  End

[Masood Ashoori]

پاسخ : پتانسیومتر

درود. خب برنامه افکت چیه ؟ اون رو هم قرار بدید

[HaMeD.HP]

پاسخ : پتانسیومتر

درود. خب برنامه افکت چیه ؟ اون رو هم قرار بدید

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

$regfile = "m8def.dat"
$crystal = 8000000


Config Portb = Output
Config Portd = Input

Dim I As Byte

Do
If Pind.0 = 0 Then Gosub On_led
If Pind.0 = 1 Then Gosub On_led1

Loop



On_led:

Portb = &B11111111



Portb = &B11111111

Return

On_led1:

For I = 0 To 4
If Pind.0 = 0 Then Gosub On_led
Portb = &B00000000
Waitms 100
Portb = &B11111111
Waitms 100
Next


For I = 0 To 4
If Pind.0 = 0 Then Gosub On_led
Portb = &B00110110
Waitms 100
Portb = &B11001001
Waitms 100
Next


 For I = 0 To 4
  If Pind.0 = 0 Then Gosub On_led
Portb = &B01010101
 Waitms 100
Portb = &B10101010
Waitms 100
 Next I
Return

[Makaveli]

پاسخ : پتانسیومتر

سلام
فک کنم باید توی کانفیگ adc بجای single بنویسی free و هرجا که وقفه داشتی بجای عدد، متغیر adcd رو بنویسی... درضمن خروجی پتانسیومتر رو به پایه c0 و وصل کن