Zufällige zahl ausgeben

1. offizieller Beitrag

    Hallo,

    ich versuche gerade ein kleines script zu machen das mir eine zufällige zahl ausgibt.
    Ich will eine kleine 1x1 übung machen für meinen bruder.


    Das z.B. kommt 4x7 oder 8x3

    Vielen Dank

    MFG

    • Offizieller Beitrag

    Da fehlt zwar die Frage, aber ich schreib Dir mal ein Beispiel:

    Spoiler anzeigen
    [autoit]


    $a = Random(1, 9, 1)
    $b = Random(1, 9, 1)
    $erg = InputBox('Rechenaufgabe', 'Wie viel ist ' & $a & ' mal ' & $b & ' ?', '')
    If $a * $b = $erg Then
    MsgBox(0, 'Aufgabe', 'Richtig!')
    Else
    MsgBox(0, 'Aufgabe', 'Falsch!')
    EndIf

    [/autoit]
    [autoit]


    $iInt1 = Random(1, 9, 0)
    $iInt2 = Random(1, 9, 0)
    $iResult = $iInt1 * $iInt2
    $sUserInput = Inputbox("Ergebnis", StringFormat("Gib das Ergebnis von %i mal %i ein", $iInt1, $iInt2), "", " M")
    If $sUserInput = $iResult Then
    MsgBox(64, "Info", "Richtig")
    Else
    MsgBox(16, "Info", "Falsch")
    EndIf

    [/autoit]

    @Edit: Oscar war schneller :D

    es klappt soweit jetzt mein 3. problem (2.selbst gelöst)
    ich möchte jetzt das es eine datein erstellt und rein schreibt z.B 4 gelöst 7ungelöst

    mein code bis jetzt

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <File.au3>

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

    _FileCreate("C:\Gelöst.txt")
    GUICreate("1 x 1 Übung",220,315)
    $1 = GUICtrlCreateButton("1er Reihe",10,10,200)
    $2 = GUICtrlCreateButton("2er Reihe",10,40,200)
    $3 = GUICtrlCreateButton("3er Reihe",10,70,200)
    $4 = GUICtrlCreateButton("4er Reihe",10,100,200)
    $5 = GUICtrlCreateButton("5er Reihe",10,130,200)
    $6 = GUICtrlCreateButton("6er Reihe",10,160,200)
    $7 = GUICtrlCreateButton("7er Reihe",10,190,200)
    $8 = GUICtrlCreateButton("8er Reihe",10,220,200)
    $9 = GUICtrlCreateButton("9er Reihe",10,250,200)
    $alles = GUICtrlCreateButton("Ganzes kleines 1x1",10,280,200)
    GUISetState() ; will display an empty dialog box

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop

    Case $msg = $1
    while 1
    $a = 1
    $b = Random(1,9,1)
    $erg = InputBox('Rechenaufgabe', 'Wie viel ist ' & $a & ' mal ' & $b & ' ?', '')
    If $a * $b = $erg Then
    MsgBox(0, 'Aufgabe', 'Richtig!')

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

    $file = FileOpen("C:\Gelöst.txt", 1)
    FileWrite($file, "richtig")
    FileWrite($file, @CRLF)
    Else
    MsgBox(0, 'Aufgabe', 'Falsch!')

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

    $file = FileOpen("C:\Gelöst.txt", 1)
    FileWrite($file, "falsch")
    FileWrite($file, @CRLF)
    EndIf
    wend

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


    EndSelect
    WEnd

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

    so auch ok ?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <File.au3>

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

    $file="c:\Gelöst.txt"

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

    GUICreate("1 x 1 Übung",220,315)
    $1 = GUICtrlCreateButton("1er Reihe",10,10,200)
    $2 = GUICtrlCreateButton("2er Reihe",10,40,200)
    $3 = GUICtrlCreateButton("3er Reihe",10,70,200)
    $4 = GUICtrlCreateButton("4er Reihe",10,100,200)
    $5 = GUICtrlCreateButton("5er Reihe",10,130,200)
    $6 = GUICtrlCreateButton("6er Reihe",10,160,200)
    $7 = GUICtrlCreateButton("7er Reihe",10,190,200)
    $8 = GUICtrlCreateButton("8er Reihe",10,220,200)
    $9 = GUICtrlCreateButton("9er Reihe",10,250,200)
    $alles = GUICtrlCreateButton("Ganzes kleines 1x1",10,280,200)
    GUISetState() ; will display an empty dialog box

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop

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

    Case $msg = $1
    while 1
    $a = 1
    $b = Random(1,9,1)
    $erg = InputBox('Rechenaufgabe', 'Wie viel ist ' & $a & ' mal ' & $b & ' ?', '')
    If $a * $b = $erg Then
    MsgBox(0, 'Aufgabe', 'Richtig!')
    FileWriteLine($file,$a & "*" & $b & " Das Ergebnis: " & $erg & " war richtig.")
    Else
    MsgBox(0, 'Aufgabe', 'Falsch!')
    FileWriteLine($file,$a & "*" & $b & " Das Ergebnis: " & $erg & " war falsch.")
    EndIf
    wend

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

    EndSelect
    WEnd

    [/autoit]

    nach c:\ kannst du evtl. je nach OS / UAC nicht schreiben, nimm sonst @Desktopdir oder so.

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

    Hallo timiboy,

    ich muss mich wundern, wie man (nach über einem Jahr auf autoit.de) immer noch die Hilfe so ignorieren kann und lieber die einfachsten Fragen hier postet. Da könnte man fast auf die Idee kommen, dass du es nur zu Werbezewecken

    Zitat

    Dein Profil auf [Name entfernt] eröffnet dir eine ganze Welt

    große Community, viele neue Freunde!
    einzigartiges Belohnungssystem!
    aktiv sein, regelmäßig Punkte erhalten

    Mit unseren Punkten kannst Du

    Wünschen und Einkaufen, Helfen und Spielen oder einfach nur Netzwerken.

    machst.
    Solche Links in Signaturen sollten Imho auf diesem Board verboten werden, schliesslich ist es auch werbefrei. Und dass du auch mit bottypische Themen eröffnest bestärkt mich in der Meinung, dass du nur Belohnungspunkte abstauben willst,

    mfg autoBert

    mfg autoBert