Beiträge von Timiboy

  • FileGetSize überschreibt alten Wert!

    Hallo,
    ist es möglich, weil FileGetSize überschreibt mir immer meinen neuen Wert mit einem alten,
    den neuen irgendwie zu behalten?


    [autoit]

    func _ende()
    $groese = FileGetSize($Zeichen &".txt")/1048576
    If $groese > 5 Then $Zeichen = $Zeichen+1

    if $Zeichen = 21 Then $Zeichen = 8
    $groese = $groese + 5
    MsgBox(1,"",$groese)
    endif
    EndFunc

    [/autoit]

    MfG Timiboy

  • Gui in einer Gui

    Hallo,

    ich hab grad nen problem wenn ich oben auf Datein und dann Einstellungen klicke und es dann schließe kann ich es nicht mehr öffnen.
    Was kann das sein?

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    $IE = _IECreateEmbedded ()
    Global $html

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

    $startseite = IniRead("Browser.ini","Seite","Startseite","N/A")
    if $startseite = "N/A" then
    $startseite = "google.de"
    EndIf

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

    sleep(150)
    #Region ### START Koda GUI section ###
    $Form1 = GUICreate("Webbrower", @DesktopWidth-100, @DesktopHeight-100)
    $Menu_Datei = GUICtrlCreateMenu("&Datei")
    $Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
    $Menu_beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
    $GUI_url = GUICtrlCreateInput("http://", 92, 8, 801, 21)
    $Label1 = GUICtrlCreateLabel("Adresse:", 8, 8, 67, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $GUI_go = GUICtrlCreateButton("Go!", 900, 6, 65, 25, $WS_GROUP)
    $GUI_home = GUICtrlCreateButton("HOME", 1072, 6, 89, 25, $WS_GROUP)
    $browser = GUICtrlCreateObj($IE,0, 40, 1217, 673)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    _IENavigate($IE,$startseite)
    GUICtrlSetData($GUI_url,$startseite)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    _Exit()
    Case $Menu_beenden
    _Exit()
    case $GUI_go
    _go()
    case $GUI_home
    _Home()

    case $Menu_Einstellungen
    $form2 = GUICreate("Einstellungen",250,250)
    GUISetState(@SW_SHOW,$form2)
    GUICtrlCreateLabel("Startseite",5,18)
    $startseite = GUICtrlCreateInput($startseite,70,15,170)
    $bestaetigen = GUICtrlCreateButton("Bestätigen",10,220,230)
    GUISetState(@SW_SHOW)

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    case $bestaetigen
    $startseite_r = GUICtrlRead($startseite)
    IniWrite("Browser.ini","Seite","Startseite",$startseite_r)

    endswitch
    wend
    EndSwitch
    WEnd

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

    #region ---------------- FUNC ----------------

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

    Func _go()
    $html = GUICtrlRead($gui_url)
    _IENavigate($IE,$html)
    EndFunc

    Func _Exit()
    Exit
    Endfunc

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

    Func _Home()
    _IENavigate($IE,$startseite)
    GUICtrlSetData($GUI_url,$startseite)
    EndFunc

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

    #endregion ---------------- FUNC ----------------

    [/autoit]

    Danke schonmal

    MfG

  • Kleines Spiel. Brauche Hilfe

    Hallo,

    ich habe versucht ein kleines Spiel zu erstellen so ähnlich wie Monopoly.
    Jetzt habe ich ein kleines Problem undzwar:
    Wenn ich z.B. auf Los stehe und dann eine 12 hab wie bekomme ich es hin das mein Spielstein um die Ecke nach oben läuft und nicht immer weiter gerade aus?

    Spoiler anzeigen
    [autoit]

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

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

    HotKeySet("{ESC}","_Exit")
    Func _Exit()
    Exit
    EndFunc

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

    HotKeySet("{space}","wurfeln")

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

    $91=600
    $92=630
    $93=45
    $94=45

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

    GUICreate("Meine Gui",700,700)
    $pic1 = GUICtrlCreatePic("feld.jpg", 0, 0,700,700)
    $pic2 = GUICtrlCreatePic("stein.jpg", 600, 630,45,45)

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

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

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

    func wurfeln ()
    $wurf = Random(1,12,1)
    $laufen = $wurf * 54
    MsgBox(1,"Gewürfelt","Du hast eine "&$wurf&" gewürfelt!")
    GUICtrlSetPos ($pic2,$91-$laufen,$92,$93,$94)
    $91=$91-$laufen
    endfunc

    [/autoit]


    MfG

  • Zufällige zahl ausgeben

    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]