hallo

hab mal wieder ein Problem rein Theoretisch müsste ich doch mit Declare Subine Schleife auf bauen können die klappt. Jedoch habe ich das Gefühl das irgendwie im Programm das next bei der Motorsteuerung stört und nicht nach den Befehlen geht in der Do-Schleife, sondern nach dem next was ich allerdings nicht möchte habe schon viel Probiert aber vielleicht habt ihr eine Idee !!!

hier der Code:
Code:
$regfile = "m8def.dat"
$crystal = 7372800
$baud = 9600
$hwstack = 34
$framesize = 34
$swstack = 34

Dim A As Word
Dim B As Word

Config Portc = &B11111111
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
Config Pinb.1 = Output
Motor1_pwm Alias Portb.1
Config Pind.4 = Output
Motor1_in1 Alias Portd.4
Config Pind.5 = Output
Motor1_in2 Alias Portd.5

Declare Sub Fahr_v()
Declare Sub Stop_v()
Declare Sub Fahr_r()


Start Adc

Do

B = Getadc(1)
Print B


If B > 200 Then
Stop_v

Else
Fahr_v
End If


Loop
End




Fahr_v:
  Motor1_in1 = 1
  Motor1_in2 = 0

 For A = 255 To 511
  Pwm1a = A
  Waitms 10
 Next

Stop_v:
  Motor1_in1 = 1
  Motor1_in2 = 1

 For A = 255 To 0
  Pwm1a = A
  Waitms 10
 Next




Fahr_r:
  Motor1_in1 = 0
  Motor1_in2 = 1

 For A = 255 To 511
  Pwm1a = A
  Waitms 10
 Next
könnte man vielleicht die Pwm Modulation noch anders ausdrücken wie??

For A = 255 To 511
Pwm1a = A
Waitms 10
Next

gruß
patrick