Also hier das bisherige Programm:
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32

Dim I As Integer
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600


I = 0
Sound Portd.7 , 400 , 450                                   'BEEP
Sound Portd.7 , 400 , 250                                   'BEEP
Sound Portd.7 , 400 , 450                                   'BEEP



'Linker Motor
Config Portc.7 = Output
Portc.6 = 0
'Rechter Motor
Config Pinb.1 = Output
Portb.1 = 0



Dim W As Word

Enable Interrupts

Start Adc

Do
W = Getadc(0)


If W > 384 Then Portc.7 = 1 Else Portc.7 = 0
If Portc.7 = 1 Then Sound Portd.7 , 400 , 500               'BEEP


Waitms 10
Loop
End
Kritik, Ideen und Anregungen zum Bot sind natührlich erwünscht.