Morgen,

ich hab mein Programm jetzt mal nach euren Ratschlägen umgeschrieben:

Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600

Config Adc = Single , Prescaler = Auto

Config Pina.7 = Input                                       'Config ADC für Tastenabfrage
Porta.7 = 1

Config Pinc.6 = Output                                       'Config Ports und PWM für Motoren
Config Pinc.7 = Output
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pind.4 = Output
Config Pind.5 = Output

Portc.6 = 0                                                 'Drehrichtung Links
Portc.7 = 1

Portb.0 = 0                                                 'Drehrichtung Rechts
Portb.1 = 1

Portd.4 = 1                                                 'Motor Links Ein
Portd.5 = 1                                                 'Motor Rechts Ein

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down

Pwm1a = 0
Pwm1b = 0
Tccr1b = Tccr1b Or &H02                                     'Prescaler = 8

Dim T As Word

Start Adc

Sound Portd.7 , 200 , 200
Sound Portd.7 , 400 , 400

T = Getadc(7)
While T > 500                                               'Verlasse Schleife nach drücken beliebiger Taste
T = Getadc(7)
Print T
Wend


Print "start erfolgt"                                       'Startbedingung wurde erfüllt
Sound Portd.7 , 400 , 400
Waitms 100

Pwm1a = 300                                                 'Fahre los
Pwm1b = 300

Wait 2

Pwm1a = 0                                                   'Halte An
Pwm1b = 0

Portd.4 = 0
Portd.5 = 0

Sound Portd.7 , 400 , 350

End                                                         'end program
Und jetzt scheint es auch zu laufen. \ Bild  /

Danke!