Beiträge von RR04

  • taschenrechner problem

    Hi, eine Null könnte noch fehlen. 8)

    Spoiler anzeigen
    [autoit]


    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <ButtonConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiButton.au3>

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

    Opt("GUIOnEventMode", 1)

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

    $textresult = ""
    #region ### START Koda GUI section ###
    $Form2 = GUICreate("Form2", 203, 139, 289, 253)
    GUISetOnEvent(-3, "Form2close")
    $Button1 = GUICtrlCreateButton("=", 152, 104, 43, 25)
    GUICtrlSetOnEvent(-1, "Button1Click")
    $Button2 = GUICtrlCreateButton(" / ", 152, 72, 41, 25)
    GUICtrlSetOnEvent(-1, "Button2Click")
    $Button3 = GUICtrlCreateButton(" * ", 152, 40, 41, 25)
    GUICtrlSetOnEvent(-1, "Button3Click")
    $Button = GUICtrlCreateButton(" + ", 152, 8, 41, 25)
    GUICtrlSetOnEvent(-1, "ButtonClick")
    $Button5 = GUICtrlCreateButton("9", 104, 104, 41, 25)
    GUICtrlSetOnEvent(-1, "Button5Click")
    $Button6 = GUICtrlCreateButton("8", 56, 104, 41, 25)
    GUICtrlSetOnEvent(-1, "Button6Click")
    $Button7 = GUICtrlCreateButton("7", 8, 104, 41, 25)
    GUICtrlSetOnEvent(-1, "Button7Click")
    $Button8 = GUICtrlCreateButton("6", 104, 72, 41, 25)
    GUICtrlSetOnEvent(-1, "Button8Click")
    $Button9 = GUICtrlCreateButton("5", 56, 72, 41, 25)
    GUICtrlSetOnEvent(-1, "Button9Click")
    $Button10 = GUICtrlCreateButton("3", 104, 40, 41, 25)
    GUICtrlSetOnEvent(-1, "Button10Click")
    $Button11 = GUICtrlCreateButton("2", 56, 40, 41, 25)
    GUICtrlSetOnEvent(-1, "Button11Click")
    $Button12 = GUICtrlCreateButton("4", 8, 72, 41, 25)
    GUICtrlSetOnEvent(-1, "Button12Click")
    $Button13 = GUICtrlCreateButton("1", 8, 40, 41, 25)
    GUICtrlSetOnEvent(-1, "Button13Click")
    $Button4 = GUICtrlCreateButton(" - ", 104, 8, 41, 25)
    GUICtrlSetOnEvent(-1, "Button4Click")
    $Result = GUICtrlCreateButton($textresult, 8, 8, 89, 25)

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

    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While True
    Sleep(100)
    WEnd

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

    Func Form2close()
    Exit
    EndFunc ;==>Form2close

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

    Func Button10Click()
    $3 = _GUICtrlButton_GetText($Button10)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $3)
    EndFunc ;==>Button10Click

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

    Func Button11Click()
    $2 = _GUICtrlButton_GetText($Button11)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $2)
    EndFunc ;==>Button11Click

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

    Func Button12Click()
    $4 = _GUICtrlButton_GetText($Button12)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $4)
    EndFunc ;==>Button12Click

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

    Func Button13Click()
    $1 = _GUICtrlButton_GetText($Button13)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $1)
    EndFunc ;==>Button13Click

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

    Func Button2Click()
    $division = _GUICtrlButton_GetText($Button2)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $division)
    EndFunc ;==>Button2Click

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

    Func Button3Click()
    $multiplikation = _GUICtrlButton_GetText($Button3)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $multiplikation)
    EndFunc ;==>Button3Click

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

    Func Button4Click()
    $minus = _GUICtrlButton_GetText($Button4)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $minus)
    EndFunc ;==>Button4Click

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

    Func Button5Click()
    $9 = _GUICtrlButton_GetText($Button5)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $9)
    EndFunc ;==>Button5Click

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

    Func Button6Click()
    $8 = _GUICtrlButton_GetText($Button6)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $8)
    EndFunc ;==>Button6Click

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

    Func Button7Click()
    $7 = _GUICtrlButton_GetText($Button7)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $7)
    EndFunc ;==>Button7Click

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

    Func Button8Click()
    $6 = _GUICtrlButton_GetText($Button8)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $6)
    EndFunc ;==>Button8Click

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

    Func Button9Click()
    $5 = _GUICtrlButton_GetText($Button9)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $5)
    EndFunc ;==>Button9Click

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

    Func ButtonClick()
    $plus = _GUICtrlButton_GetText($Button)
    $textresult = _GUICtrlButton_GetText($Result)
    _GUICtrlButton_SetText($Result, $textresult & $plus)
    EndFunc ;==>ButtonClick

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

    Func Button1Click()
    $resultmenge = GUICtrlRead($Result)
    GUICtrlSetData($Result, Execute($resultmenge))
    EndFunc ;==>Button1Click
    ; Ende

    [/autoit]

  • ZahlenRaten

    Der PC ermittelt eine zufällige Zahl zwischen 0 und 999, die von Dir mit so wenigen wie möglichen
    Versuchen, erraten werden soll. Als Hinweis bekommst Du eine Meldung, ob Deine Zahl kleiner, größer
    oder richtig geraten war.

    Hinweis:
    ZahlenRaten kommt ohne Includes aus und ist dennoch voll funktionfähig. Als Erweiterung könnte ich
    mir einen Button zum starten eines neuen Spiels, ein weiteres Level oder eine Datei in der die Punkte
    (Highscore) notiert werden gut vorstellen.

    Spoiler anzeigen
    [autoit]


    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Outfile=zahlenraten.exe
    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Run_Tidy=y
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/striponly
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    _main()
    Func _main()
    Local $sTitle = "ZahlenRaten - Tut", $sDate = "15.09.2012", $sVersion = "0.4"
    Local $sMsgUpdate = $sTitle & '\n\nDer PC ermittelt eine zufällige Zahl, die von Dir\t\nmit so wenig wie möglichen Versuchen,\nerraten werden soll.\nAls Hinweis bekommst Du eine Meldung,\nob Deine Zahl kleiner, größer oder richtig war.\n\nVersion:\t%s\nBuild:\t%s\n\nAutor:\nRitzelrocker04 / RR04\nritzelrocker04.bplaced.net\n\nWeiter zum UpdateCheck?'
    Local $nMsg, $btnClose, $btnGo, $iptZahl, $lblOut, $lblOutMsg, $btnAbout
    Local $zfzhl, $zahl, $try = 0

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

    GUICreate($sTitle, 250, 155)
    GUICtrlCreateLabel("Rate die Zahl zwischen 0 und 999", 10, 10, 230, 17, 0x001)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
    $iptZahl = GUICtrlCreateInput("Hier eine Ganzzahl eingeben", 10, 35, 230, 20, 0x2000)
    GUICtrlSetLimit(-1, 3)
    $lblOut = GUICtrlCreateLabel("Hinweise.", 10, 65, 230, 17, 0x001)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
    $lblOutMsg = GUICtrlCreateLabel("Anzahl der Versuche :" & @TAB & $try, 10, 95, 230, 17, 0x001)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
    $btnAbout = GUICtrlCreateButton("&About", 10, 125, 75, 22)
    $btnGo = GUICtrlCreateButton("&Start", 90, 125, 75, 22, 0x0001)
    $btnClose = GUICtrlCreateButton("&Beenden", 170, 125, 75, 22)
    GUISetState()

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

    $zfzhl = Random(0, 999, 1)
    ;~ ConsoleWrite("Die zufällige Zahl lautet : " & $zfzhl & @CRLF)

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3, $btnClose
    ExitLoop
    Case $btnAbout
    If MsgBox(64 + 4, $sTitle & ' UpdateCheck', StringFormat($sMsgUpdate, $sVersion, $sDate)) = 6 Then ShellExecute("http://ritzelrocker04.bplaced.net/")
    Case $btnGo
    $try += 1
    $zahl = GUICtrlRead($iptZahl)
    ;~ ConsoleWrite("Die vom Nutzer eingegebene Zahl : " & $zahl & @CRLF)
    If ($zahl >= 0) And ($zahl <= 999) Then
    Switch $zfzhl
    Case $zfzhl < $zahl
    GUICtrlSetData($lblOut, "Die gesuchte Zahl ist kleiner.")
    GUICtrlSetData($lblOutMsg, "Anzahl der Versuche :" & @TAB & $try)
    Case $zfzhl > $zahl
    GUICtrlSetData($lblOut, "Die gesuchte Zahl ist groesser.")
    GUICtrlSetData($lblOutMsg, "Anzahl der Versuche :" & @TAB & $try)
    Case Else
    GUICtrlSetData($lblOut, "Super ! Du hast die Zahl geraten !")
    GUICtrlSetData($lblOutMsg, "Anzahl der Versuche :" & @TAB & $try)
    EndSwitch
    Else
    MsgBox(64, "Error", "Bitte eine Zahl zwischen 0 und 999 eingeben !")
    EndIf
    EndSwitch
    WEnd
    EndFunc ;==>_main
    ; Ende

    [/autoit]

  • Probleme mit Dll-Datei

    [autoit]


    $dll = "autoit.dll"
    $a = 5.0
    $b = 10.0

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

    $add = DllCall($dll, "double:cdecl", "_add", "double", $a, "double", $b)
    MsgBox(0, "DLL-Tut", "Das Ergebnis ist: " & $add[0] & @TAB)
    Exit

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

    #cs
    // main.cpp erstellt mit CodeBlocks 10.05

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

    // Das Problem lag bei $add[0]

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

    extern "C" double __declspec(dllexport) _add (double a, double b)
    {
    return a + b;
    }

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

    #ce

    [/autoit]

  • Array Index hoch- bzw. runterzählen

    Siehe mal hier $i+1, $i*30 . 8)

    [autoit]


    #include <GUIConstantsEx.au3>

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

    Dim $btn[3]
    #region - GUI Create
    GUICreate("Array + 1")
    For $i = 0 To 2
    $btn[$i] = GUICtrlCreateButton($i + 1, 20, 20 + $i * 30, 75, 22)
    Next
    #endregion - GUI Create

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

    GUISetState(@SW_SHOW)

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • Animation in GUI

    Hi,

    für animierte Gif-Dateien gibt es eine UDF, Du kannst animierte Gif-Dateien auch in das avi-Format wandeln. Eine weitere Möglichkeit sind Funktionen die es wohl schon gibt, aber welche das sind, da komme ich jetzt nicht drauf.

  • Bei mehreren Checkboxen nur eine auswählbar machen

    Hi, zwei Schleifen sind nicht nötig.

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Global $RB_PLAYER[18], $LB_PLAYER[18]
    ;Global $vTop = 10 ;, $iPosTop

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

    GUICreate("", 700, 430)
    For $i = 0 To 17
    $RB_PLAYER[$i] = GUICtrlCreateRadio("", 419, 10 + $i * 20, 13, 13)
    $LB_PLAYER[$i] = GUICtrlCreateLabel($i+1 & ":", 435, 10 + $i * 20, 16, 13)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    ;~ $vTop = $vTop + 17
    Next
    ;~ $vTop = $iPosTop + 13

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    EndSwitch
    WEnd
    ; Ende

    [/autoit]