Random Text

    Blöde Frage Kurzer sinn :D
    Ich meinte es sei möglich einen schon vor festgelegten text in ein label zu schreiben, was aber nicht das eigentliche meiner frage ist.
    Sondern, wen ich Mehrere Texte habe die via Random bei jedem Start des Scriptes zu setzen?

    z.B.:
    1ter start des Scriptes, Label Text = Guten Tag
    2ter start des Scriptes, Label Text = Hallo
    3ter start des Scriptes, Label Text = Guten Abend
    usw
    ist das ihrwie möglich?
    Wen ja!?!, dann WIE??
    Bin offen für Beispiele und anregungen :D hab dazu leider nichts mit der sufu gedunden, oder ich wahr mal wieder zu blöd die SuFu Richtig befragen :D

    Skilkor

    Einmal editiert, zuletzt von Skilkor (19. März 2011 um 00:45)

    [autoit]

    Dim $aText[4] = ["Guten Tag", "Hallo", "Moin", "Servus"]

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

    $hGUI = GUICreate("Beispiel", 150, 50)
    GUISetFont(15, 400, 0, "MS Sans Serif")
    $hLabel = GUICtrlCreateLabel($aText[Random(1, UBound($aText) - 1, 1)], 30, 15, 250, 30)
    GUISetState()

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

    Do
    Sleep(50)
    Until GUIGetMsg() = -3

    [/autoit]

    Hi,
    Schreibe dazu alle Texte in ein Array und suche den Index zum anzeigen per Random aus.
    Edit: Genau das hat PenGuin ein Paar Sekunden vor mir abgeschickt :(

    2 Mal editiert, zuletzt von progandy (19. März 2011 um 01:13)

    hey hey
    Ging richtig fix :D
    Danke @ PenGuin, sieht vielversprechend aus :thumbup: werd morgen mal versuchen das im script um zu setzen:D

    @progandy: Was habe ich mit dir gemacht? oO
    Also wen ich mal böse wahr oder so, dan nicht mit absicht :rolleyes:

    Oder du arbeitest mit einen Zähler in der Registry.
    Folgendes Script müßte na klar noch angepaßt werden, aber es soll nur eine Anregung sein.

    Spoiler anzeigen
    [autoit]


    $regread = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\zaehler", "zaehler")
    If $regread < 4 Then
    If $regread = "" Then
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\zaehler", "zaehler", "REG_SZ", "1")
    Else
    $regread += 1
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\zaehler", "zaehler", "REG_SZ", $regread)
    EndIf
    Else
    MsgBox(0, "", "Bitte die aktuellen Daten in den Ordner xyz kopieren.")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\zaehler", "zaehler", "REG_SZ", "1")
    EndIf

    [/autoit]

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    OuBVU5ebLhHu5QvlnAyQB4A7SzBrvWulwL7RLl2BdH5tI6sIYspeMKeXMSXl

    @ Progandy: Achsou :D dachte schon :P hihi

    @Alini: Danke für dein euserst Interesantes Bsp :D
    Leider hab ich mit Registry nicht viel zu tun und Ihrgedwie währe Dieses Bsp dan doch zuviel der Inteligenz :D

    Aber Danke für den vorschlag, Falls mal in der zugunft jmd sowas sucht wird es die SuFu bestimmt rausrücken :P

    SKilkor