Random

  • Also ich wollte mir einfach so aus Spaß an der Freude
    (habe grad langweile und kB auf Call of Duty xX)
    ein Random script machen mit optisch schnick schnack zeug sonst is es ja langweilig und schnell getan :'P
    so dann hab ich jetzt ewig für son scheiß hier gebraucht (weil ich nicht weiß wie mans kürzer schreiben kann xX),
    so kann man auh die zeit totschlagen^^, und trotzdem gibt der egal was ich eingebe beim random innerhalb des scriptes (werdet ihr sehen) immer nur 3 oder 4 raus=? was mache ich da falsch :'P

    Einmal editiert, zuletzt von aflakes (29. Januar 2011 um 23:45)

  • [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("ZZ-F ", 632, 217, 197, 141)
    $zmin = GUICtrlCreateButton("minimale Zahl eingeben", 16, 16, 193, 25, $WS_GROUP)
    $zmax = GUICtrlCreateButton("maximale Zahl eingeben", 224, 16, 185, 25, $WS_GROUP)
    $ready = GUICtrlCreateLabel("Zahlen eingeben", 16, 64, 252, 25)
    $load = GUICtrlCreateProgress(16, 168, 601, 17)
    $lastS = GUICtrlCreateLabel("letze suche:", 280, 64, 93, 17)
    $LastSNumber = GUICtrlCreateLabel("letzte nummer", 384, 64, 236, 17)
    $LastSTime = GUICtrlCreateLabel("Uhrzeit der Suche", 384, 88, 244, 17)
    $Search = GUICtrlCreateButton("Zufall's Zahl finden", 424, 16, 201, 25, $WS_GROUP)
    $nr = GUICtrlCreateLabel("Zahl", 80, 120, 36, 17)
    $done = GUICtrlCreateLabel("Ergebnis:", 16, 120, 48, 17)
    $reset = GUICtrlCreateButton("reset", 552, 193, 65, 15, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    $z=Random(1,1000,1)
    $zl1=Random(1,7,1)
    $zl2=Random(7,15,1)
    $zl3=Random(15,22,1)
    $zl4=Random(22,30,1)
    $zl5=Random(30,35,1)
    $zl6=Random(35,50,1)
    $zl7=Random(50,57,1)
    $zl8=Random(57,60,1)
    $zl9=Random(60,70,1)
    $zl10=Random(71,90,1)
    $zl11=Random(90,95,1)
    $zl12=Random(97,99,1)
    $zl13= 100

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $zmin
    inputbox("ZZ-F","Gib die minimale Zahl ein (???-")
    Case $zmax
    inputbox("ZZ-F","Gib die maximale Zahl ein -???)")
    Case $Search
    guictrlsetdata($load, $zl1)
    sleep(100)
    guictrlsetdata($ready, $zl1)
    sleep(100)
    guictrlsetdata($load, $zl2)
    sleep(100)
    GUICtrlSetData($ready, $zl2)
    sleep(100)
    guictrlsetdata($load,$zl3)
    sleep(100)
    guictrlsetdata($ready, $zl3)
    sleep(100)
    guictrlsetdata($load, $zl4)
    guictrlsetdata($ready,$zl4)
    sleep(100)
    guictrlsetdata($load, $zl5)
    guictrlsetdata($ready, $zl5)
    sleep(100)
    guictrlsetdata($load, $zl6)
    guictrlsetdata($ready, $zl6)
    sleep(100)
    guictrlsetdata($load, $zl7)
    guictrlsetdata($ready, $zl7)
    sleep(100)
    guictrlsetdata($load, $zl8)
    guictrlsetdata($ready, $zl8)
    sleep(100)
    guictrlsetdata($load, $zl9)
    guictrlsetdata($ready, $zl9)
    sleep(100)
    guictrlsetdata($load, $zl10)
    guictrlsetdata($ready, $zl10)
    sleep(100)
    guictrlsetdata($load, $zl10)
    guictrlsetdata($ready, $zl11)
    sleep(100)
    guictrlsetdata($load, $zl11)
    guictrlsetdata($ready, $zl12)
    sleep(100)
    guictrlsetdata($load, $zl12)
    guictrlsetdata($ready,$zl13)
    sleep(100)
    guictrlsetdata($load, $zl13)
    sleep(300)
    guictrlsetdata($ready, "fertig")


    $fin=Random($zmin,$zmax,1)
    guictrlsetdata($nr, $fin)
    guictrlsetdata($lastSnumber, $fin)
    guictrlsetdata($lastStime, @HOUR&":"&@MIN&":"&@SEC)
    msgbox(0,"ZZ-F","done")
    sleep(3)
    guictrlsetdata($load, 0)


    Case $reset
    guictrlsetdata($load, 0)
    guictrlsetdata($lastStime, "")
    guictrlsetdata($lastsnumber, "")
    guictrlsetdata($nr, 0)
    msgbox(0,"","reseted")
    EndSwitch
    WEnd

    [/autoit]
  • [autoit]


    $alpha= Inputbox("Anfangswert", "Gib hier den Anfangswert ein", 0, " M")
    $beta= Inputbox("Endwert", "Gib hier den Endwert ein", 100, " M")
    Msgbox(0, "Deine Zufallszahl von" & @Hour & @min & @sec, "Deine Zufallszahl:"& Int( Random($alpha, $beta)))

    [/autoit]


    So gehts viel einfacher :) Kannst ja anpassen

    [align=center]Meine Werke mit der Irrlicht Engine
    AutoIt Picture Viewer Dreidimensionaler Bildbetrachter
    Mr Bubble 3D Neue Interpretation des Flashklassikers Bubble trouble

  • Du fragst nicht ab was eingegeben wurde als Min und Max Wert, sondern du minnst die nummern der Kontrollelemente.

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("ZZ-F ", 632, 217, 197, 141)
    $zmin = GUICtrlCreateButton("minimale Zahl eingeben", 16, 16, 193, 25, $WS_GROUP)
    $zmax = GUICtrlCreateButton("maximale Zahl eingeben", 224, 16, 185, 25, $WS_GROUP)
    $ready = GUICtrlCreateLabel("Zahlen eingeben", 16, 64, 252, 25)
    $load = GUICtrlCreateProgress(16, 168, 601, 17)
    $lastS = GUICtrlCreateLabel("letze suche:", 280, 64, 93, 17)
    $LastSNumber = GUICtrlCreateLabel("letzte nummer", 384, 64, 236, 17)
    $LastSTime = GUICtrlCreateLabel("Uhrzeit der Suche", 384, 88, 244, 17)
    $Search = GUICtrlCreateButton("Zufall's Zahl finden", 424, 16, 201, 25, $WS_GROUP)
    $nr = GUICtrlCreateLabel("Zahl", 80, 120, 36, 17)
    $done = GUICtrlCreateLabel("Ergebnis:", 16, 120, 48, 17)
    $reset = GUICtrlCreateButton("reset", 552, 193, 65, 15, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    $z=Random(1,1000,1)
    $zl1=Random(1,7,1)
    $zl2=Random(7,15,1)
    $zl3=Random(15,22,1)
    $zl4=Random(22,30,1)
    $zl5=Random(30,35,1)
    $zl6=Random(35,50,1)
    $zl7=Random(50,57,1)
    $zl8=Random(57,60,1)
    $zl9=Random(60,70,1)
    $zl10=Random(71,90,1)
    $zl11=Random(90,95,1)
    $zl12=Random(97,99,1)
    $zl13= 100

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $zmin
    $Min = inputbox("ZZ-F","Gib die minimale Zahl ein (???-")
    Case $zmax
    $Max = inputbox("ZZ-F","Gib die maximale Zahl ein -???)")
    Case $Search
    guictrlsetdata($load, $zl1)
    sleep(100)
    guictrlsetdata($ready, $zl1)
    sleep(100)
    guictrlsetdata($load, $zl2)
    sleep(100)
    GUICtrlSetData($ready, $zl2)
    sleep(100)
    guictrlsetdata($load,$zl3)
    sleep(100)
    guictrlsetdata($ready, $zl3)
    sleep(100)
    guictrlsetdata($load, $zl4)
    guictrlsetdata($ready,$zl4)
    sleep(100)
    guictrlsetdata($load, $zl5)
    guictrlsetdata($ready, $zl5)
    sleep(100)
    guictrlsetdata($load, $zl6)
    guictrlsetdata($ready, $zl6)
    sleep(100)
    guictrlsetdata($load, $zl7)
    guictrlsetdata($ready, $zl7)
    sleep(100)
    guictrlsetdata($load, $zl8)
    guictrlsetdata($ready, $zl8)
    sleep(100)
    guictrlsetdata($load, $zl9)
    guictrlsetdata($ready, $zl9)
    sleep(100)
    guictrlsetdata($load, $zl10)
    guictrlsetdata($ready, $zl10)
    sleep(100)
    guictrlsetdata($load, $zl10)
    guictrlsetdata($ready, $zl11)
    sleep(100)
    guictrlsetdata($load, $zl11)
    guictrlsetdata($ready, $zl12)
    sleep(100)
    guictrlsetdata($load, $zl12)
    guictrlsetdata($ready,$zl13)
    sleep(100)
    guictrlsetdata($load, $zl13)
    sleep(300)
    guictrlsetdata($ready, "fertig")

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

    $fin=Random($min,$max,1)
    guictrlsetdata($nr, $fin)
    guictrlsetdata($lastSnumber, $fin)
    guictrlsetdata($lastStime, @HOUR&":"&@MIN&":"&@SEC)
    msgbox(0,"ZZ-F","done")
    sleep(3)
    guictrlsetdata($load, 0)

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

    Case $reset
    guictrlsetdata($load, 0)
    guictrlsetdata($lastStime, "")
    guictrlsetdata($lastsnumber, "")
    guictrlsetdata($nr, 0)
    msgbox(0,"","reseted")
    EndSwitch
    WEnd

    [/autoit]
  • @twodollarbillie
    ja klar aber genau das wollte ich ja nciht das is doch langweilig :'P


    @marsi
    thx :D

  • omg jetzt hab ich's gecheckt
    ah bin ich dumm ich hab die codes von den buttons genommen
    und die inputboxen standen in der luft rum ah wie dum ey sry xD^^