Beiträge von UEZ

  • WM-Tippspiel

    Zitat von peethebee

    Das ist Fußball, UEZ führt meiner Erinnerung nach zum allerersten Mal mit dem letzten Spieltag, holt die Bonuspunkte für den Weltmeistertipp und gewinnt das Tippspiel. Wer diesen Weltmeistertipp vor dem Turnier richtig gemacht hat, hat es aber auch verdient :).
    Herzlichen Glückwunsch an den ersten Nicht-Admin-Tippspielsieger UEZ! :party:

    Johannes

    p.s. Ich habe extra noch taktisch getippt beim letzten Spiel, hätte eigentlich Holland favorisiert ;).


    Haette nicht gedacht, dass ich dich noch kriegen würde, obwohl ich einen misserablen Start hingelegt hatte... :D

    Grüsse aus Ankara,
    UEZ

  • Gdi+ objekt löschen

    Nein, du kannst keine einzelnen Objekte löschen, ohne das komplette Bild neu zu zeichnen, da sich die Objekte in einer Bitmap befinden, wie z.B. auf einer Tafel.

    Gruß,
    UEZ

  • Funktion für die Verteilung von Rechtecken in einer Fläche

    Du kannst nur Rechtecke plazieren, wenn die Summer der Fläche der Rechtecke kleiner als die Fläche der GUI ist.

    Beim Positionieren musst du das Rechteck mit allen anderen Rechtecken auf Kollision testen, damit es nicht zu Überschneidungen kommt!

    Die Kollisionsberechnung von solchen Flächen ist im Prinzip relativ "einfach":

    [autoit]


    Func _RectCollision($Rect1X1,$Rect1Y1,$Rect1X2,$Rect1Y2, $Rect2X1, $Rect2Y1, $Rect2X2, $Rect2Y2)
    ; Prog@ndy
    Local Const $tagRECT = "long;long;long;long"
    Local $1 = DllStructCreate($tagRECT)
    Local $2 = DllStructCreate($tagRECT)
    Local $3 = DllStructCreate($tagRECT)
    DllStructSetData($1,1,$Rect1X1)
    DllStructSetData($1,2,$Rect1Y1)
    DllStructSetData($1,3,$Rect1X2)
    DllStructSetData($1,4,$Rect1Y2)
    DllStructSetData($2,1,$Rect2X1)
    DllStructSetData($2,2,$Rect2Y1)
    DllStructSetData($2,3,$Rect2X2)
    DllStructSetData($2,4,$Rect2Y2)
    Local $r = DllCall("User32.dll", "int", "IntersectRect", "ptr", DllStructGetPtr($3), "ptr", DllStructGetPtr($1), "ptr", DllStructGetPtr($2))
    If @error Then Return SetError(1,0,0)
    Return $r[0]<>0
    EndFunc

    [/autoit]

    Gruß,
    UEZ

    PS: ich hatte auch das Problem mit "Simple Ball Collision Simulation" bei dem Platzieren auf dem Bildschirm (mit /debug kann man zuschauen, wie zufällige Positionen auf Kollision geprüft werden)

  • EditBox - GuiCtrlSetData

    0xfffffff ist ein Hex Wert -> Dezimal = 268435455

    _GUICtrlEdit_LineScroll($hWnd, $iHoriz, $iVert) -> _GUICtrlEdit_LineScroll($eLog, 1, 0xfffffff)

    Bemerkungen
    Das Control scrollt nicht vertikal, wenn die letzte Zeile des Textes im Edit-Control erreicht wurde.
    Falls die aktuelle Zeile plus die Anzahl von Zeilen (festgelegt durch den $iVert Parameter) die gesamte Anzahl von Zeilen im Edit-Control überschreitet, wird der Wert so angepasst, dass die letzte Zeile des Edit-Controls ganz nach oben in das Edit-Control gescrollt wird.

    Gruß,
    UEZ

  • EditBox - GuiCtrlSetData

    Ich habe heute im engl. Forum dieses Skript erstellt.

    Vielleicht hilft dir das Skript:

    Spoiler anzeigen
    [autoit]


    ;Coded by UEZ Build 2010-06-30
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <File.au3>
    #Include <GuiEdit.au3>
    Opt("GUIOnEventMode", 1)

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

    Global $iMemo, $new_line
    $width = 1024
    $height = 600
    $hGUI = GUICreate("Realtime Log Reader by UEZ 2010", $width, $height, -1, -1, Default, $WS_EX_TOPMOST)
    $iMemo = GUICtrlCreateEdit("", 0, 0, $width, $height, $ES_AUTOVSCROLL + $WS_VSCROLL + $WS_HSCROLL + $ES_READONLY)
    GUICtrlSetLimit(-1, 0x7FFFFFFF)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState()
    If $CmdLine[0] > 0 And FileExists($CmdLine[1]) Then
    $file = $CmdLine[1]
    Else
    $file = @WindowsDir & "\WindowsUpdate.log"
    EndIf
    $hFile = FileOpen($file)
    $txt = FileRead($hFile)

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

    GUICtrlSetData($iMemo, $txt, 1)
    _GUICtrlEdit_LineScroll($iMemo, 1, 0xfffffff)
    $cl = _FileCountLines($File)
    $fs = FileGetSize($file)

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

    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

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

    While Sleep(1000)
    $fs_new = FileGetSize($file)
    If $fs < $fs_new Then
    $cl_new = _FileCountLines($file)
    For $i = $cl + 1 To $cl_new
    $new_line &= FileReadLine($hFile, $i) & @CRLF
    Next
    GUICtrlSetData($iMemo, $new_line, 1)
    ;~ _GUICtrlEdit_LineScroll($iMemo, 0, 0xfffffff)
    $cl = $cl_new
    $fs = $fs_new
    $new_line = ""
    EndIf
    Wend

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

    Func _Exit()
    FileClose($hFile)
    GUIDelete($hGUI)
    Exit
    EndFunc

    [/autoit]

    Gruß,
    UEZ

  • Bild auf Knopfdruck drehen

    Spoiler anzeigen
    [autoit]


    #include <GDIplus.au3>
    #include <GUIConstants.au3>
    #include <Windowsconstants.au3>
    #include <SliderConstants.au3>
    #include <EditConstants.au3>

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

    Opt("GUIOnEventMode", 1)

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

    ;~ #NoTrayIcon

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

    _GDIPlus_Startup()

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

    Global $dice = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\dice.gif")

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

    Global $sizedice_x = _GDIPlus_ImageGetWidth($dice)
    Global $sizedice_y = _GDIPlus_ImageGetHeight($dice)

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

    $guiwidth = @DesktopWidth/2
    $guiheigth = @DesktopHeight/1.5
    Global $hWnd = GUICreate("Spiel zur Erlösung",$guiwidth,$guiheigth, -1, -1, Default)

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

    $rolldicebutton = GUICtrlCreateButton("Roll Dice",$guiwidth-120,$guiheigth - 100,100,50)
    $diceresultinput = GUICtrlCreateInput("",$guiwidth-120,$guiheigth - 40,100,20)

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

    GUISetState()

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

    GUISetOnEvent($GUI_EVENT_CLOSE,"_exit",$hWnd)
    GUICtrlSetOnEvent($rolldicebutton,"rolldice")

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

    Global $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    Global $hdiceBitmap = _GDIPlus_BitmapCreateFromGraphics($sizedice_x, $sizedice_y, $hGraphics)
    Global $hdiceBackbuffer = _GDIPlus_ImageGetGraphicsContext($hdiceBitmap)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $dice, $guiwidth/1.4,$guiheigth/1.2,$sizedice_x, $sizedice_y)

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

    Global $hdiceMatrix = _GDIPlus_MatrixCreate()
    _GDIPlus_MatrixTranslate($hdiceMatrix, $sizedice_x / 2, $sizedice_y / 2)

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

    _GDIPlus_GraphicsSetTransform($hdiceBackbuffer, $hdiceMatrix)
    _GDIPlus_GraphicsDrawImageRect($hdiceBackbuffer, $dice, -$sizedice_x * 0.5, -$sizedice_y*0.5,$sizedice_x, $sizedice_y)
    _GDIPlus_MatrixRotate($hdiceMatrix, 33, 0)

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

    While Sleep(100)
    WEnd

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

    Func rolldice()
    GUICtrlSetData($diceresultinput,Random(1,6,1))
    $count = 1
    ;~ For $count = 1 to 12 Step 1
    _GDIPlus_GraphicsClear($hdiceBackbuffer, 0xFFF0F0F0)
    _GDIPlus_GraphicsSetTransform($hdiceBackbuffer, $hdiceMatrix)
    _GDIPlus_GraphicsDrawImageRect($hdiceBackbuffer, $dice, -$sizedice_x * 0.5, -$sizedice_y*0.5,$sizedice_x, $sizedice_y)
    _GDIPlus_MatrixRotate($hdiceMatrix, 33, 0)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hdiceBitmap,$guiwidth/1.4,$guiheigth/1.2, $sizedice_x, $sizedice_y)

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

    ;~ Next
    EndFunc

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

    Func _Exit()
    _GDIPlus_MatrixDispose($hdiceMatrix)
    _GDIPlus_ImageDispose($dice)
    _GDIPlus_BitmapDispose($hdiceBitmap)
    _GDIPlus_GraphicsDispose($hdiceBackbuffer)
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_Shutdown()
    Exit
    EndFunc

    [/autoit]


    Gruß,
    UEZ

  • [Beendet] µitLight März

    Ich wollte nur erwähnen, dass mein Code von Post#106 keine extra Includes benötigt und der ASM Code von mir geschrieben wurde mit reichlich Unterstützung von Andy (keine 3rd party DLLs!)

    Der Code beinhaltet die AU3 + ASM (als Bytecode) Versionen!

    Was ist nativer AutoIt Code? Nun ja, darüber kann man sich streiten...

    Da stimme ich mit Andy überein. Z.B. sind alle WinAPI oder GDI+ Aufrufe keine nativen AutoIt Codes, denn die DLLs erledigen ja die Arbeit, was in Maschinensprache erfolgt!

    In Zukunft sollte man besser die Rahmenbedingungen definieren, damit es nicht zu Ungereimtheiten kommt.

    Gruß,
    UEZ

  • Hochbegabt

    Zitat von Antispeed


    UEZ: Will mich noch mit GDI+ auseinander setzten... Und du bist ja auch nicht 14Jahre alt...


    Dafür bin ich 38 und schon lange nicht mehr in der Schule! Dies ist auch kein Test, um Hochbegabte zu bestimmen! War eben nur so eine Idee, die leider kaum Resonanz gefunden hat. Egal...

    Gruß,
    UEZ

  • Hochbegabt

    Zitat von Sprenger120

    Wenn sowas angeboren sein soll, wie kann man erkennen ob ein Kind von ~6 Jahren inteligent ist.

    Durch Tests! Es gibt eine Instutition, die genau das testet, ob ein Kind ein hochbegabtes Kind ist oder nicht!


    Zitat von Sprenger120

    Aber ob das auf Angeborene Inteligenz schließt kann ich nicht sagen.

    Z.B. war Mozart ein hochbegabtes Kind (Konzert mit 5 glaube ich)! Kann ja nicht nur von Übungen kommen oder? ;)

    Gruß,
    UEZ

  • Hochbegabt

    Was ist Intelligenz? Ist jemand intelligent, wenn er mehrere Telefonbücher auswendig, aber selbstständig nicht die Straße überqueren kann? Wenn er über eine Stadt fliegt und anschließend detailiert die Ansicht von oben als Zeichnung zu Papier bringt, aber immer in Begleitung leben muss, da er alleine nicht überleben würde? -> Authismus als Stichwort.

    Es gibt verschiedene Arten der Intelligenz und Wissen ist nicht gleich Intelligenz!

    Intelligenz ist angeboren und kann nicht erlernt werden, Wissen schon!

    Hochbegabung fängt schon im Kindesalter an...

    Gruß,
    UEZ