اوكي الان من وصلش كردم به اپ امپ . فقط اون adc هم توضيح بديد چه جوري تنظيمش كنم كه رنگاي ديگه هم تشخيص بده (لبته همون بعدا كه خودتون گفتين)
فقط من اينو با l293 بستم نمي دونم چرا تغيير نيميك نه سرعت اون كليد تغيير جهت كه مزنم كه اصلا موتور وايميسه (البته اپ امپ ها رو برداشتم تا بتونين شبيه سازي كنين)
http://upload.parsiking.com/file3/1269837823.rar
اينم برنامه
$regfile = "M16DEF.DAT" : $crystal = 8000000
Config Portb = Input : Config Portd = Output
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 64
Dim A As Word , B As Word
A = 0 : B = 0
Set Pind.1
Reset Pind.0
Set Pind.2
Reset Pind.3
Main:
Do
If Pinb.0 = 1 Then : A = A + 10 : B = B + 10 : Waitms 100 : End If
If Pinb.1 = 1 Then : A = A -10 : B = B -10 : Waitms 100 : End If
If Pinb.2 = 1 Then Goto S
Pwm1a = A : Pwm1b = B
Loop
S:
Toggle Portd.0
Toggle Portd.1
Toggle Portd.2
Toggle Portd.3
Goto Main
End