elseIf bedingung

Gast #230788
Lesenswert?
• ▲
▼
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
Gast #230791
Lesenswert?
• ▲
▼
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
Gast #230792
Lesenswert?
• ▲
▼
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
Gast #230793
Lesenswert?
• ▲
▼
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
Gast #230794
Lesenswert?
• ▲
▼
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
Gast #230795
Lesenswert?
• ▲
▼
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

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren