Hi,

ich hab bei unsrem Bot auch mehrere Programme in einem die mit Tastatur angesteuert werden können (Die Tastatur die beim Application board dabei ist hab ich hier verwendet)

Hier mal das Programm:
Code:
'############################################################
'# BASIC Programm für den 1337bot                           #
'# Abschlussprojekt von Marcel Krüger und Kai Stroheker     #
'# an der Erich Kästner Realschule Blankenloch              #
'############################################################

'AD Eingänge definieren
DEFINE SHARP_L AD[1]
DEFINE SHARP_R AD[2]
DEFINE LINE_L AD[3]
DEFINE LINE_R AD[4]
DEFINE LIGHT_L AD[5]
DEFINE LIGHT_R AD[6]
DEFINE keyboard AD[8]


'Digitalports definieren
DEFINE MOTOR_L_V PORT[1]    'Linker Motor, vorwärts
DEFINE MOTOR_L_R PORT[2]    'Linker Motor, rückwärts
DEFINE MOTOR_R_V PORT[3]    'Rechter Motor, vorwärts
DEFINE MOTOR_R_R PORT[4]    'Rechter Motor, rückwärts


'Auswahlmenü
#auswahl
  GOSUB halt                'Motoren anhalten

  BEEP 300,10,2
  BEEP 400,10,2

  PRINT
  PRINT "===1337bot====================="
  PRINT "Programmauswahl:"
  PRINT "1: Linienfolgen"
  PRINT "2: Ausweichen"
  PRINT "3: Lichtfinden"
  PRINT
  PRINT "#: Zur Auswahl zurueckkehren"
  PRINT "*: Programm komplett beenden"
  PRINT "==============================="
  PRINT
  GOTO key_abfrage
auswahl


'Tastatur abfrage
#key_abfrage
  SLOWMODE ON
  WAIT keyboard
  SLOWMODE OFF

  IF keyboard = 90  THEN print "0"           '0
  IF keyboard = 68  THEN GOTO linienfolgen   '1
  IF keyboard = 152 THEN GOTO ausweichen     '2
  IF keyboard < 239 AND keyboard > 233 THEN GOTO lichtfinden    '3
  IF keyboard = 46  THEN print "4"           '4
  IF keyboard = 132 THEN print "5"           '5
  IF keyboard = 214 THEN print "6"           '6
  IF keyboard = 23  THEN print "7"           '7
  IF keyboard = 111 THEN print "8"           '8
  IF keyboard = 193 THEN PRINT "9"           '9
  IF keyboard = 0   THEN GOTO beenden        '*
key_abfrage
Die Tastatur ist am AD[8]
Zuerst werden alle Ein und Ausgänge definiert, dann ein Menü ausgegeben und dann auf die Tastatur eingabe gewartet.

Das programm geht natürlich noch weiter, aber das ist der Abschnitt der hier eine rolle spielt.

Ich hoffe dir geholfen zu haben

Gruß
Marcel