Hallo, und zwar habe ich Basic ein kleines Problem. Es geht um eine Art Zahlen schloss. Ich habe folgendes Script:
Spoiler anzeigen
Program Input2
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim Vergleich as String[4]
Dim Zahler as Word
Dim Wert as String[4]
TRISA = $FF
TRISB = 0
PORTB = 00
Vergleich = ""
Zahler = 0
Wert = "abcd"
main:
[/autoit] [autoit][/autoit] [autoit]while true
IF PORTA.0 = 0 Then
PORTB.1 = 1
Zahler = Zahler + 1
Vergleich[Zahler] = "a"
Delay_ms(1000)
PORTB.1 = 0
End IF
IF PORTA.1 = 0 Then
PORTB.1 = 1
Zahler = Zahler + 1
Vergleich[Zahler] = "b"
Delay_ms(1000)
PORTB.1 = 0
End IF
IF PORTA.2 = 0 Then
PORTB.1 = 1
Zahler = Zahler + 1
Vergleich[Zahler] = "c"
Delay_ms(1000)
PORTB.1 = 0
End IF
IF PORTA.3 = 0 Then
PORTB.1 = 1
Zahler = Zahler + 1
Vergleich[Zahler] = "d"
Delay_ms(1000)
PORTB.1 = 0
End IF
IF Zahler = 4 Then
If (Vergleich[1]Vergleich[2]Vergleich[3]Vergleich[4]) = Wert Then
PORTB = $50
Zahler = 0
Else
PORTB = $10
Zahler = 0
End IF
End IF
wend
end.
[/autoit]
Und zwar soll es so sein, das man 4 Taster an den Ports A.0 A.1 A.2 A.3 hat, und die in einer bestimmten Reihenfolge drücken muss, damit was passiert. Der Zähler wird mit jedem Mal eins hochgedrückt, und zählt somit den String.
Darin soll dan der Buchstabe A-D eingetragen werden. Und sobald der Zähler auf 4 Steht, wird überprüft, ob die 4 Zeichen der Vorgabe entsprechen. Wenn ja, wird etwas ausgeführt. Wenn nein, dann auch. Darum geht es mir. Ich habe es mir Soweit gedacht, wie das Script oben Steht.
Wenn sich nun einer etwas mit BASIC auskennt, kann mir dieser eventuell helfen, wie ich es zu laufen bekomme ?
Zu Zeile 54 habe ich eben die Frage, ob das so richtig ist, denn ich möchte die einzelnen Zeichen des Strings hintereinander afureihen, um so eben ein 4 Zeichen langes wort zu haben. In AutoIT macht das mit dem dem &, aber was verwende ich in Basic.
Würde mich über hilfe freuen, auch wenn das nicht um AutoIt geht
lg Tim