elseIf bedingung

[Florian Menne (Gast)]

ich bekomme die else bedingung nicht hin!! hier der code:
$regfile = "2313def.dat"
$crystal = 8000000
$baud = 9600

Config Portb = Output
sbi portb, 0
sbi portb, 1
Dim Passwort As Integer
Dim Passwort2 As Integer
Do
First:
Passwort = 0
Passwort2 = 1515
Input "Enter passwort : " , Passwort
If Passwort = Passwort2 Then Print "access granted"
Elseif Then Print "access denied" ;hier irgendwo fehler ohne else if
  ;gehts!
rjmp first
Cbi Portb , 0
Wait 1
sbi portb, 0
Loop

[Markus K. (markus-)]

Du hast else und elseif verwechselt.

[Florian Menne (Gast)]

sorry aber versteh ich nicht ganz ich hab schon versucht nur else oder
else if (also wegen leerzeichen)

[Madget (Gast)]

versuchs mal so

                      $regfile = "2313def.dat"
$crystal = 8000000
$baud = 9600

Config Portb = Output
sbi portb, 0
sbi portb, 1
Dim Passwort As Integer
Dim Passwort2 As Integer
Do
First:
Passwort = 0
Passwort2 = 1515
Input "Enter passwort : "
If Passwort = Passwort2 Then Print "access granted" else Print
"access denied"

rjmp first
Cbi Portb , 0
Wait 1
sbi portb, 0
Loop

[Madget (Gast)]

If Passwort = Passwort2 Then Print.... "access denied"

das muss in einer zeile stehen. at hier nicht reingepasst. oder so:

If Passwort = Passwort2 Then
Print "access granted"
Else
Print "access denied"
End If

[Florian Menne (Gast)]

ich habs jetzt so ist zwar umständlich aber geht denn ich muss ja zwei
befehle mit einer bedingung ausführen!!
$regfile = "2313def.dat"
$crystal = 8000000
$baud = 9600

Config Portb = Output
sbi portb, 0
sbi portb, 1
Dim Passwort As Integer
Dim Passwort2 As Integer
Do
First:
Passwort = 0
Passwort2 = 1515
Input "Enter passwort : " , Passwort
If Passwort = Passwort2 Then Print "access granted" Else Print
"access denied"
If Passwort = Passwort2 Then Rjmp Nex Else Rjmp First
Nex:
Cbi Portb , 0
Wait 1
sbi portb, 0
Loop

[Madget (Gast)]

ach so wolltest du das das geht ach in einer anweisung:

$regfile = "2313def.dat"
$crystal = 8000000
$baud = 9600

Config Portb = Output
sbi portb, 0
sbi portb, 1
Dim Passwort As Integer
Dim Passwort2 As Integer
Do
First:
Passwort = 0
Passwort2 = 1515

Input "Enter passwort : "  , Passwort

If Passwort = Passwort2 Then

Print "access granted"
Cbi Portb , 0
Wait 1
sbi portb, 0

Else

Print "access denied"
Rjmp First

End If

Loop

[Florian Menne (Gast)]

Ja Danke so wollte ich das denn ich wollte mir vielleicht ein
garagentoröfner mit uart bauen weil es ja zu unsicher währe die
Leitungen direkt vom motorblock nach draußen zu legen da man ja dann
einfach kabel durchschneidet und dann kurz schließt mit uart will ich
dann nur das passwort an den chip senden der dann den impuls gibt