InputBox und If und then

  • Hi ^^
    Kann mir jemand bitte die einzelnen Sachen der InputBox erklären, denn ich verstehe die Hilfe ned.
    Und bitte ein Script machen, in dem eine InputBox aufgeht, den Nutzer auffordert, was einzugeben und dann überprüft, ob das richtig ist.
    Wenns richtig ist, dann eine Meldung und wenns falsch ist, eine Meldung.

    Wie könnte man das einstellen, dass bei zB 3 falschen Anworten von 10 Fragen der Computer runterfährt?

    Danke!!!

  • [autoit]

    $password = "blubbstar"

    [/autoit][autoit][/autoit][autoit]

    $inputbox = InputBox("", "pw?")
    If @error Then Exit
    If $inputbox == $password Then
    MsgBox(0, "", "Richtig :)!")
    Else
    MsgBox(0, "", "Falsches Passwort :(!")
    EndIf

    [/autoit]

    Und für die andere Frage: Du zählst einfach bei jeder falsch beantworteten Frage einer Variable eins dazu, wenn sie am Ende über 3 ist, dann einfach nen Shutdown.

    Edit: Haha Tweaky ;) Deins kann man auch mit PeTeR lösen :D Aber deine Box hat mehr style als meine :(

  • so mal auf die schnelle eine Frage

    [autoit]

    $box1 = InputBox("Frage", "Wie heißen Sie?", "", "*", 30, 200, -1, -1, 10)
    If $box1 = "Peter" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    EndIf

    [/autoit]

    Den Rest mit den 3 falschen Fragen bekommste mit nem Zähler hin ($zaehler +=1)
    Wenn $zaehler = 3 dann shutdown

    Probiers mal, das schauffst du.
    Und immer die Hilfe anschauen :P

  • ich geb mein Bestes!!!
    WO habt ihr das gelernt?

    Was sind die Zahlen da am Ende?

    Und wie macht man das, wenn man 3 x falsch hat, dass dann heruntergefahren wird?

    DANKE!!!

  • hmmm, helpfile :)
    Selber ausprobiert, Davor ein paar VB-Bücher gelesen, Delphi in der Schule gehabt :)

  • In der Hilfe steht die Func

    Zitat

    InputBox ( "title", "Prompt" [, "Default" [, "password char" [, Width, Height [, Left, Top [, TimeOut]]]]] )


    und darunter steht was "title", "Prompt" usw bedeutet, sogar auf deutsch 8o

  • Hab keine Bücher, und Informatik im G8 in der 8. is ned <.<

    Das verstehe ich eben nicht!!!!
    Die Hilfedatei!!!!

    Einmal editiert, zuletzt von Nightfire (6. Mai 2008 um 18:49)

  • komplett

    Spoiler anzeigen
    [autoit]

    $falsche = 0

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Peter"
    $box1 = InputBox("Frage", "Wie heißen Sie?", "", "*", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Peter"
    $box1 = InputBox("Frage", "Wie heißen Sie?", "", "*", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Peter"
    $box1 = InputBox("Frage", "Wie heißen Sie?", "", "*", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    $loesung = "Peter"
    $box1 = InputBox("Frage", "Wie heißen Sie?", "", "*", 30, 200, -1, -1, 10)
    _check()

    [/autoit] [autoit][/autoit] [autoit]

    Func _check()
    If $box1 = $loesung Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $falsche +=1
    EndIf
    If $falsche = 3 Then
    Shutdown(1)
    EndIf
    EndFunc

    [/autoit]
  • richtisch, aber nur bei 4x der gleichen Frage, ich weiß nicht :rofl:
    habs ja nur so gemacht, weil mir keine Fragen mehr einfielen :D

  • Geht das auch?
    Ich will mir nicht alles machen lassen, denn ich will später auch was können ^^

    $box1 = InputBox("Todes Quiz", "1. Wer war der erste Member nach Vasgalaine?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "Werwolf" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $1 = 1
    EndIf

    $box1 = InputBox("Todes Quiz", "2. An welchem tag wurde NTR gegründet? (Bitte mit Am TT/MM/JJJJ)", "", "", 30, 200, -1, -1, 10)
    If $box1 = "Am 4.10.2006" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $2 = 1
    EndIf

    $box1 = InputBox("Todes Quiz", "3. Auf welcher Massenclanpage wurde die erste Clanpage von NTR gemacht?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $3 = 1
    EndIf

    $box1 = InputBox("Todes Quiz", "4. Wer hat die meisten beiträge im forum?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $4 = 1
    EndIf

    $box1 = InputBox("Todes Quiz", "5. Wer war der bis jetzt - vermutlich- beste MPH spieler in NTR und hatte 2 brüder die auch schon in NTR waren?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $5 = 1
    EndIf

    $box1 = InputBox("Todes Quiz", "6. Wie viele pages hatte NTR schon?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $6 = 1
    EndIf

    $box1 = InputBox("Todes Quiz", "7. Nenne den ältesten Member im clan", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $7 = 1
    EndIf

    $box1 = InputBox("Todes Quiz", "8. Wer hat die jetzige clanpage gemacht?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $8 = 1
    EndIf

    $box1 = InputBox("Todes Quiz", "9. Wer hat die jetzige clanpage gemacht?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $9 = 1
    EndIf

    $box1 = InputBox("Todes Quiz", "10. Wer ist der hauptchatadmin in NTR?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    If MsgBox(0,"","Falsch") Then $10 = 1
    EndIf

    If $1 + $2 + $3 + $4 + $5 + $6 + $7 + $8 + $9 + $10 = 5,6,7,8,9,10 Then Shutdown(0)

  • OHHHHHH, bitte die Formatierung Spoiler und Autoit Quellcode verwenden :D

    führe es mal aus und du siehst, dass gleich ein Fehler kommt, also nein :D

    so würde das Script wenigstens laufen

    Spoiler anzeigen
    [autoit]

    $box1 = InputBox("Todes Quiz", "1. Wer war der erste Member nach Vasgalaine?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "Werwolf" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $1 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $box1 = InputBox("Todes Quiz", "2. An welchem tag wurde NTR gegründet? (Bitte mit Am TT/MM/JJJJ)", "", "", 30, 200, -1, -1, 10)
    If $box1 = "Am 4.10.2006" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $2 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $box1 = InputBox("Todes Quiz", "3. Auf welcher Massenclanpage wurde die erste Clanpage von NTR gemacht?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $3 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $box1 = InputBox("Todes Quiz", "4. Wer hat die meisten beiträge im forum?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $4 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $box1 = InputBox("Todes Quiz", "5. Wer war der bis jetzt - vermutlich- beste MPH spieler in NTR und hatte 2 brüder die auch schon in NTR waren?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $5 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $box1 = InputBox("Todes Quiz", "6. Wie viele pages hatte NTR schon?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $6 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $box1 = InputBox("Todes Quiz", "7. Nenne den ältesten Member im clan", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $7 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $box1 = InputBox("Todes Quiz", "8. Wer hat die jetzige clanpage gemacht?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $8 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $box1 = InputBox("Todes Quiz", "9. Wer hat die jetzige clanpage gemacht?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $9 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $box1 = InputBox("Todes Quiz", "10. Wer ist der hauptchatadmin in NTR?", "", "", 30, 200, -1, -1, 10)
    If $box1 = "clanplanet" Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $10 = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $gesamt = $1 + $2 + $3 + $4 + $5 + $6 + $7 + $8 + $9 + $10

    [/autoit] [autoit][/autoit] [autoit]

    If $gesamt >= 5 And $gesamt <= 10 Then Shutdown(0)

    [/autoit]

    Wobei sehr umständlich undes werden erst alle 10 Fragen durchlaufen und dann erst der PC abgeschaltet wird

  • Dann mach ich doch gleich mal weiter: ne UDF, fehlt noch Fragelöschen :P

    Spoiler anzeigen
    [autoit]

    Global $Fragen_Fragen[100][2], $Fragen_maxFehler

    [/autoit] [autoit][/autoit] [autoit]

    Func _FragenStellen()
    Local $falsche = 0,$i
    For $i = 1 To $Fragen_Fragen[0][0]
    If InputBox("Frage",$Fragen_Fragen[$i][0]) = $Fragen_Fragen[$i][1] Then
    MsgBox(0,"", "Richtig")
    Else
    MsgBox(0,"", "Falsch")
    $falsche +=1
    EndIf
    If $falsche >= $Fragen_maxFehler Then
    MsgBox(0, '', $falsche)
    Return SetExtended($falsche,False)
    EndIf
    Next
    Return SetExtended($falsche,True)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _FrageAdd($Frage,$AntWort)
    $Fragen_Fragen[0][0] += 1
    If $Fragen_Fragen[0][0] >= 99 Then ReDim $Fragen_Fragen[$Fragen_Fragen[0][0]+1]
    $Fragen_Fragen[$Fragen_Fragen[0][0]][0] = $Frage
    $Fragen_Fragen[$Fragen_Fragen[0][0]][1] = $AntWort
    EndFunc
    Func _FragenMaxFehler($fehler=-1)
    If $fehler > -1 Then $Fragen_maxFehler = $fehler
    Return $Fragen_maxFehler
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    _FrageAdd("Wie heißen sie?","Peter")
    _FrageAdd("Wie heißen sie?","Peter")
    _FrageAdd("Wie heißen sie?","Peter")
    _FrageAdd("Wie heißen sie?","Peter")
    _FragenMaxFehler(3) ;Setzen
    $max3Fehler = _FragenStellen()
    $FehlerMade = @extended

    [/autoit] [autoit][/autoit] [autoit]

    MsgBox(0, 'Ergebnis', "Weniger als "&_FragenMaxFehler()&" Fehler:" & $max3Fehler & @CRLF & "Fehler: " & $FehlerMade)

    [/autoit]
  • Überleg dir ein Projekt und versuche, alles nur mit Hilfe des Tutorials und dem Helpfile zu machen :) Und erst, wenn dir dann keine Lösung einfällt, posten ;)