Glückstester

    Mir war langweilig und für 9 Zeilen ist das irgendwie lustig :) :)
    Das Programm rechnet aus wieviel Versuche du brauchst bis du Lotto Jackpot knackst wieviel Geld du dabei verloren hättest und wieviel gewonnen :P
    Bitte euer Ergebnis posten thx :)

    Spoiler anzeigen
    [autoit]

    $Versuche=0
    While 1
    If Random(1,14000000,1)=1 Then
    MsgBox(0,"Versuche:","Du hättest "&$Versuche&" Versuche gebraucht um den Lottojackpot zu knacken und dabei "&$Versuche*8&" Euro ausgegeben. Das sind genau : "&Int(($Versuche*8)/1000000)&" Millionen Euro und dabei gerade mal 23 Millionen gewonnen!")
    Exit 1
    Else
    $Versuche=$Versuche+1
    EndIf
    WEnd

    [/autoit]
    Zitat


    Du hättest 345541 Versuche gebraucht um den Lottojackpot zu knacken und dabei 2764328 Euro ausgegeben. Das sind genau : 2 Millionen Euro und dabei gerade mal 23 Millionen gewonnen!


    Lohnt sich doch! (Nein, ich hab nicht gecheatet...)

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

    :D soll ich noch machen dass man das 5 mal macht und dann wird ausgerechnet wieviel mal es sich gelohnt hätte :D

    Nein.
    Besser: vorher ausrechenen:

    [autoit]

    $versuche=Random(1,14000000,1)
    MsgBox(0,"Versuche:","Du hättest "&$Versuche&" Versuche gebraucht um den Lottojackpot zu knacken und dabei "&$Versuche*8&" Euro ausgegeben. Das sind genau : "&Int(($Versuche*8)/1000000)&" Millionen Euro und dabei gerade mal 23 Millionen gewonnen!")

    [/autoit]


    Ist zwar etwas anders, hat aber letztlich den sleben Effekt...

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

    Du hättest 25524813 Versuche gebraucht um den Lottojackpot zu knacken und dabei 204198504Euro ausgegeben. Das sind genau: 204 Millionen Euro und dabei gerade mal 23 Millionen gewonnen!


    Ich find das Script geil :D

    Wie lange ist das script bei euch gelaufen? bei mir läufts jetz schon 5 min. und es kommt nix ...

    Hab mir erlaubt es mal auf 17 Zeilen zu erweitern.
    Wer nen Bleifuß hat, soll die Sleep (50) Bremse weg machen ^^

    [autoit]

    Global $Versuche = 0
    GUICreate ("Versuche zähler", 300, 55)
    $Zahl = GUICtrlCreateLabel ("", 10, 10, 280, 35)
    GUICtrlSetFont (-1, 20)
    GUISetState (@SW_SHOW)
    While 1
    If Random(1,14000000,1)=1 Then
    MsgBox(0,"Versuche:","Du hättest "&$Versuche&" Versuche gebraucht um den Lottojackpot zu knacken und dabei "&$Versuche*8&" Euro ausgegeben. Das sind genau : "&Int(($Versuche*8)/1000000)&" Millionen Euro und dabei gerade mal 23 Millionen gewonnen!")
    Exit 1
    Else
    $Versuche=$Versuche+1
    $String = String ($Versuche)
    GUICtrlSetData ($Zahl, $String)
    EndIf
    Sleep (1)
    WEnd

    [/autoit]

    Ich schwöre, ohne zu cheaten, ich hatte nur 156 Versuche, schade dass ich nicht beim Lotto mitgemacht habe :rofl: :D

    @nof@ker2:
    Wenn du erlaubst, habs noch etwas aufgewertet ^^
    Find aber die idee sau lustig xD


    Spoiler anzeigen
    [autoit]

    #include <staticconstants.au3>
    Global $Versuche = 0
    GUICreate ("Versuche zähler", 400, 200)
    GUISetBkColor (0x00FF00)
    $Zahl = GUICtrlCreateLabel ("", 10, 10, 380, 35, $SS_SUNKEN)
    GUICtrlSetFont (-1, 20, 600, 0)
    $ausgegeben1 = GUICtrlCreateLabel ("", 10, 60, 380, 24, $SS_SUNKEN)
    GUICtrlSetFont (-1, 14)
    $ausgegeben2 = GUICtrlCreateLabel ("", 10, 90, 380, 24, $SS_SUNKEN)
    GUICtrlSetFont (-1, 14, 400, 0)
    $gewonnen = GUICtrlCreateLabel ("", 10, 120, 380, 24, $SS_SUNKEN)
    GUICtrlSetFont (-1, 14, 400, 0)
    $neu = GUICtrlCreateButton ("Neuer Versuch", 150, 160, 100, 25)
    GUISetState (@SW_SHOW)
    _Go ()
    Func _Go ()
    AdlibEnable ("_versuchen", 1)
    EndFunc
    While 1
    $msg = GUIGetMsg ()
    Switch $msg
    Case -3
    Exit
    Case $neu
    GUICtrlSetData ($ausgegeben1, "")
    GUICtrlSetData ($ausgegeben2, "")
    GUICtrlSetData ($gewonnen, "")
    GUICtrlSetData ($Zahl, "")
    $Versuche = 0
    _GO ()
    EndSwitch
    WEnd
    Func _versuchen ()
    If Random(1,14000000,1)=1 Then
    AdlibDisable ()
    GUICtrlSetData ($ausgegeben1, "Du hast " & $Versuche*8 & " € ausgegeben.")
    GUICtrlSetData ($ausgegeben2, "Das sind genau " & Int(($Versuche*8)/1000000) & " Millionen €.")
    GUICtrlSetData ($gewonnen, "Und 23 Millionen € gewonnen.")
    Else
    $Versuche=$Versuche+1
    $String = String ($Versuche)
    GUICtrlSetData ($Zahl, $String)
    EndIf
    EndFunc

    [/autoit]

    du hättest genau 13938122 Versuche gebraucht um den Lottojackpot zu knacken und dabei 111504976 Euro ausgegeben. Das sin genau 111 Millionen Euro und dabei gerade mal 23 Millionen gewonnen!

    Bei mir zahlt sichs eindeutig nicht aus^^

    Computers are like Airconditioning. They don´t work with open Windows.

    kann man das auch iwie so schreiben das die graka Mitrechnet? z.b. bei nVidia ber CUDA, weis aber nicht wie man das dann schreiben muss

    Mfg

    Computers are like Airconditioning. They don´t work with open Windows.