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.
Lesezeichen