Zitat Zitat von Accenter
Ja Richard ich denke die Inputauswertung ist echt das Problem. Ich hab nur keine Ahnung wie ich mit INKEY mehrere Stellen abfragen kann. Also beim Login z.B. möchte ich nach Eingabe eines Passwortes alles nötige zurückbekommen. Ein einstelliges Passwort zu haben wäre nicht schlau Auch wenn es keine sensiblen Daten sind die meine Wohnungssteuerung ausspuckt.
Code:
Dim S As String * 30
Dim I As Integer


Print "**** RN-Control  V1.4 *****"
Print "Demoprogramm zu RN-MotorControl"


Do
  Wait 3
  Print "##" ; Chr(3) ; Chr(5) ; Chr(3) ; Chr(0)
Dim S As String * 30
Dim I As Integer


Print "**** RN-Control  V1.4 *****"
Print "Demoprogramm zu RN-MotorControl"


Do
  Wait 3
  Print "##" ; Chr(3) ; Chr(5) ; Chr(3) ; Chr(0)            'Beide Motoren Links drehen
  Input S
  If Instr(s , "99") = 0 Then Beep

Input S
If Instr(s , "PASSWORD") = 0 Then Beep

Muss natürlich angepasst werden aber die Demos laufen gut.

Gruß Richard