Also hier das bisherige Programm:
Kritik, Ideen und Anregungen zum Bot sind natührlich erwünscht.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






Zitieren

Lesezeichen