Beiträge von GtaSpider

  • Tic Tac Toe [mit KI Funktion]

    Hallo,

    Wooow:
    [Blockierte Grafik: http://m61t.img-up.net/Unbenannt9dca.jpg]

    Die Tipps die du hier bekommst, wegen dem sauberen Programmieren, haben nicht nur unbedingt was damit zu tun, ob du alleine Programmierst oder nicht, sondern haben auch den Vorteil, dass du dadurch eine bessere Performance bekommst (Zeitaufwand, Codelänge und Geschwindigkeit).

    Aber natürlich trotzdem krass, dass du dir die Mühe gemacht hast und funktionieren tut es ja einwandfrei ;)

    Gruß,
    Spider

  • [GDI+] Runder, Animierter Ladebalken

    Hey

    UEZ: war auch etwas verwirrt ;) probiers mal so, echt schick :)

    Spoiler anzeigen
    [autoit]

    #include <GDIPlus.au3>

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

    Opt('GUIOnEventMode', 1)

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

    Global Const $PI = 3.14159265358979
    Global Const $Deg2Rad = $PI / 180

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

    Global Const $W = 500, $H = 500

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

    Global $GFX, $SLI, $PER, $PRO[3], $BUF, $BMP, $CNT, $NUM

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

    _GDIPlus_Startup()
    $GUI = GUICreate('Test', $W, $H)
    $GFX = _GDIPlus_GraphicsCreateFromHWND($GUI)
    $BMP = _GDIPlus_BitmapCreateFromGraphics($W, $H, $GFX)
    $BUF = _GDIPlus_ImageGetGraphicsContext($BMP)
    _GDIPlus_GraphicsSetSmoothingMode($BUF, 4)

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

    $SLI = GUICtrlCreateSlider(5, 5, 490, 30)
    GUICtrlSetLimit(-1, 1000, 0)
    ;anz der bars, entfernung, drehrichtung/geschwindigkeit, farbe1, farbe2
    $PRO[0] = _ProgressCreate(50, 20, 0.32, 0x0060FF, 0x30002080)
    $PRO[1] = _ProgressCreate(10, 25, -0.75, 0xFF6000, 0x30802000)
    $PRO[2] = _ProgressCreate(25, 35, 0.2, 0x00FF60, 0x30008020)

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

    OnAutoItExitRegister('_Dispose')
    GUISetOnEvent(-3, '_Event', $GUI)
    GUISetState(@SW_SHOW, $GUI)

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

    While Sleep(40);25fps
    If $PER < 1 Then $PER += 0.01
    $CNT += 1

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

    _GDIPlus_GraphicsClear($BUF)

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

    _ProgressDraw($BUF, $W / 4, $H / 3 + 25, 250, 35, $PER, $PRO[0])
    _ProgressDraw($BUF, $W / 4 * 3, $H / 2 + 25, 150, 45, $PER, $PRO[1])
    _ProgressDraw($BUF, $W / 2, $H / 4 * 3 + 25, 150, 15, $PER, $PRO[2])

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

    _GDIPlus_GraphicsDrawImageRectRect($GFX, $BMP, 0, 50, $W, $H - 50, 0, 50, $W, $H - 50)

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

    WEnd

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

    Func _ProgressSet(ByRef $aProgress, $iAnzahl = 0, $nDist = 0, $nAniTempo = 0, $iCol = 0, $iColIdle = 0, $iPos = 0)
    If $iCol Then $aProgress[1] = StringRight(Hex($iCol, 8), 6) ; Farbe des Ladebalkens (Alpha wird ignoriert), möglich ist also 0xFFAARRGGBB oder 0xRRGGBB
    If $iColIdle Then $aProgress[2] = $iColIdle ; Farbe der nicht benutzen Flächen (Alpha ist relevant !)
    If $iPos Then $aProgress[4] = $iPos ; Animationscounter (drehanimation)
    If $iAnzahl Then $aProgress[5] = $iAnzahl ; Anzahl Segmente für den Ladebalken
    If $nDist Then $aProgress[6] = 360 - 3.6 * $nDist ; Abstand zwischen den Segmenten (0 < $nDist < 100)
    If $nAniTempo Then $aProgress[7] = $nAniTempo ; Drehgeschwindigkeit in Grad/Frame. (negativer Wert = drehung gegen deh Uhrzeigersinn)
    EndFunc ;==>_ProgressSet

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

    Func _ProgressCreate($iAnzahl = 9, $nDist = 10, $nAniTempo = 0.25, $iCol = 0xFF4080FF, $iColIdle = 0x20808080, $iStartPos = 0)
    If Not $iStartPos Then $iStartPos = Random(0, 360)
    Local $a[8]
    $a[0] = _GDIPlus_PenCreate() ; GDI+ Pen
    $a[1] = StringRight(Hex($iCol, 8), 6) ; Farbe des Ladebalkens (Alpha wird ignoriert), möglich ist also 0xFFAARRGGBB oder 0xRRGGBB
    $a[2] = $iColIdle ; Farbe der nicht benutzen Flächen (Alpha ist relevant !)
    $a[3] = 0 ; Animationscounter (100% Animation)
    $a[4] = $iStartPos ; Animationscounter (drehanimation)
    $a[5] = $iAnzahl ; Anzahl Segmente für den Ladebalken
    $a[6] = 360 - 3.6 * $nDist ; Abstand zwischen den Segmenten (0 < $nDist < 100)
    $a[7] = $nAniTempo ; Drehgeschwindigkeit in Grad/Frame. (negativer Wert = drehung gegen deh Uhrzeigersinn)
    Return $a
    EndFunc ;==>_ProgressCreate

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

    Func _ProgressDraw($hGfx, $mx, $my, $d1, $d2, $nPercent, ByRef $aProgress)
    $aProgress[4] += $aProgress[7]
    Local $a, $b = 360 * $nPercent, $c, $d = $aProgress[6] / $aProgress[5], $e = $d1 / 50, $f = ($nPercent = 1), $g = $aProgress[4] - Int($aProgress[4]/360)*360
    If $f Then
    If $aProgress[3] < 15 Then $aProgress[3] += 1
    $d2 *= 0.97 ^ $aProgress[3]
    $aProgress[4] += $aProgress[7] * 1.1 ^ $aProgress[3]
    Else
    If $aProgress[3] > 0 Then
    $aProgress[3] -= 1
    $d2 *= 0.97 ^ $aProgress[3]
    $aProgress[4] += $aProgress[7] * 1.1 ^ $aProgress[3]
    EndIf
    EndIf
    For $i = 0 To $aProgress[5] - 1 Step 1
    $a = $i * 360 / $aProgress[5] + $g
    If $b >= 360 / $aProgress[5] Then
    $c = 1
    $b -= 360 / $aProgress[5]
    Else
    $c = $b / (360 / $aProgress[5])
    EndIf
    Switch $c
    Case 0
    Case 0 To 0.33
    _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x' & Hex(Int($c * 3 * 96) + 32, 2) & $aProgress[1])
    Case 0.33 To 0.66
    _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x80' & $aProgress[1])
    _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2 / 2, $a, $d, $aProgress[0], '0x' & Hex(Int(($c - 0.33) * 150), 2) & 'FFFFFF')
    Case 0.66 To 0.99
    _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x80' & $aProgress[1])
    _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2 / 2, $a, $d, $aProgress[0], '0x32FFFFFF')
    _ProgressDrawPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x' & Hex(Int(($c - 0.66) * 384), 2) & $aProgress[1], 3)
    Case 0.99 To 1
    _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x80' & $aProgress[1])
    _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2 / 2, $a, $d, $aProgress[0], '0x32FFFFFF')
    _ProgressDrawPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x80' & $aProgress[1], 3)
    If $f Then _ProgressDrawPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0xFF' & $aProgress[1], $e / 3)
    EndSwitch
    If $c < 1 Then
    DllCall($ghGDIPDll, 'int', 'GdipSetPenColor', 'handle', $aProgress[0], 'dword', $aProgress[2])
    DllCall($ghGDIPDll, 'int', 'GdipSetPenWidth', 'handle', $aProgress[0], 'float', $d2)
    For $j = $i + 1 To $aProgress[5] - 1 Step 1
    $a = $j * 360 / $aProgress[5] + $aProgress[4]
    $a -= Int($a / 360) * 360
    _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0])
    Next
    ExitLoop
    EndIf
    Next
    EndFunc ;==>_ProgressDraw

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

    Func _ProgressDelete(ByRef $aProgress, $iSLN = @ScriptLineNumber)
    _GDIPlus_PenDispose($aProgress[0])
    $aProgress = 0
    EndFunc ;==>_ProgressDelete

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

    Func _ProgressDrawPieSegment($hGfx, $mx, $my, $d1, $d2, $fStart, $fSweep, $hPen, $iCol, $dPen)
    DllCall($ghGDIPDll, 'int', 'GdipSetPenColor', 'handle', $hPen, 'dword', $iCol)
    DllCall($ghGDIPDll, 'int', 'GdipSetPenWidth', 'handle', $hPen, 'float', $dPen)
    DllCall($ghGDIPDll, 'int', 'GdipDrawArc', 'handle', $hGfx, 'handle', $hPen, 'float', $mx - $d1 / 2, 'float', $my - $d1 / 2, 'float', $d1, 'float', $d1, 'float', $fStart + ($dPen / ($d1 * $PI)) * 180, 'float', $fSweep - ($dPen / ($d1 * $PI)) * 360)
    DllCall($ghGDIPDll, 'int', 'GdipDrawArc', 'handle', $hGfx, 'handle', $hPen, 'float', $mx - $d1 / 2 + $d2, 'float', $my - $d1 / 2 + $d2, 'float', $d1 - $d2 * 2, 'float', $d1 - $d2 * 2, 'float', $fStart + ($dPen / (($d1 - $d2) * $PI)) * 180, 'float', $fSweep - ($dPen / (($d1 - $d2) * $PI)) * 360)
    DllCall($ghGDIPDll, 'int', 'GdipDrawLine', 'handle', $hGfx, 'handle', $hPen, 'float', $mx + ($d1 - $d2 * 2 - $dPen) / 2 * Cos($fStart * $Deg2Rad), 'float', $my + ($d1 - $d2 * 2 - $dPen) / 2 * Sin($fStart * $Deg2Rad), 'float', $mx + ($d1 + $dPen) / 2 * Cos($fStart * $Deg2Rad), 'float', $my + ($d1 + $dPen) / 2 * Sin($fStart * $Deg2Rad))
    DllCall($ghGDIPDll, 'int', 'GdipDrawLine', 'handle', $hGfx, 'handle', $hPen, 'float', $mx + ($d1 - $d2 * 2 - $dPen) / 2 * Cos(($fStart + $fSweep) * $Deg2Rad), 'float', $my + ($d1 - $d2 * 2 - $dPen) / 2 * Sin(($fStart + $fSweep) * $Deg2Rad), 'float', $mx + ($d1 + $dPen) / 2 * Cos(($fStart + $fSweep) * $Deg2Rad), 'float', $my + ($d1 + $dPen) / 2 * Sin(($fStart + $fSweep) * $Deg2Rad))
    EndFunc ;==>_ProgressDrawPieSegment

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

    Func _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $fStart, $fSweep, $hPen, $iCol = 0)
    If Not $iCol Then Return DllCall($ghGDIPDll, 'int', 'GdipDrawArc', 'handle', $hGfx, 'handle', $hPen, 'float', $mx - $d1 / 2 + $d2 / 2, 'float', $my - $d1 / 2 + $d2 / 2, 'float', $d1 - $d2, 'float', $d1 - $d2, 'float', $fStart, 'float', $fSweep)
    DllCall($ghGDIPDll, 'int', 'GdipSetPenColor', 'handle', $hPen, 'dword', $iCol)
    DllCall($ghGDIPDll, 'int', 'GdipSetPenWidth', 'handle', $hPen, 'float', $d2)
    DllCall($ghGDIPDll, 'int', 'GdipDrawArc', 'handle', $hGfx, 'handle', $hPen, 'float', $mx - $d1 / 2 + $d2 / 2, 'float', $my - $d1 / 2 + $d2 / 2, 'float', $d1 - $d2, 'float', $d1 - $d2, 'float', $fStart, 'float', $fSweep)
    EndFunc ;==>_ProgressFillPieSegment

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

    Func _Event()
    Exit
    EndFunc ;==>_Event

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

    Func _Dispose($iSLN = @ScriptLineNumber)
    For $i = 0 To UBound($PRO) - 1 Step 1
    _ProgressDelete($PRO[$i])
    Next
    _GDIPlus_GraphicsDispose($BUF)
    _GDIPlus_BitmapDispose($BMP)
    _GDIPlus_GraphicsDispose($GFX)
    _GDIPlus_Shutdown()
    EndFunc ;==>_Dispose

    [/autoit]

    Gruß
    Spider

  • Mein Fernseher und ich

    Hallo,

    Hatten das gleiche Problem. Waren vorher bei KD und hatten dort Internet und Telefon und dann nachträglich ein TV Angebot, aber Fernsehr hat um verrecken nichts gefunden. Liegt bei uns daran, dass sie im Keller alles neu gemacht haben und der Techniker TV gesperrt hat (da wir am anfang ja kein TV hatten), dies aber vergessen hat einzutragen. Also war danach noch mal ein Techniker hier, hat die Sperre rausgenommen und voila. Wir hatten Fernsehn (welches ich zwar nicht benutzte, aber ich glaub mein Mitbewohner freut sich drüber mit seinem 52"er :D )

    Gruß,
    Spider

  • Random Frage!

    Oder etwas simpler:

    Spoiler anzeigen
    [autoit]


    Local $a, $b, $c
    For $i = 1 To 10000
    Switch Random(1, 10, 1)
    Case 1
    $a += 1
    Case 2
    $b += 1
    Case Else
    $c += 1
    EndSwitch
    Next
    MsgBox(0,"",$a / 100 & "%" & " - " & $b / 100 & "% - " & $c / 100 & "%")

    [/autoit]

  • Elektronische Tanzmusik

    Hallo,

    Ich höre auch sehr gerne Elektro, gerade zum feiern, aber ziemlich konträr zu dem was hier gehört wird, also schreibe ich den Post mal um mal ein wenig die vielfalt von Elektronischer Musik zu zeigen. Ich hab paar Freunde die auch Hardstyle/core hören, ich selber konnte dem aber irgendwie nie was abgewinnen :(

    Wobei ich sagen muss, dass ich auch sehr gerne Dubstep. Sonst sehr gerne die vielen Variationen von Elektro die aber eher in richtung Minimal gehen. So ganz gibt es z.T. dafür wahrscheinlich noch keine richtige Bezeichnung, Minimal ist ja afaik einfach nur.. sehr sehr Einfach.

    Sonst aber auch gerne DnB (Prodigy, pendulum, ...) fidget house (jesse rose) aber auch z.B. Chemical brothers oder Frittenbude.

    Sehr gerne höre ich aber momentan auch sog. Elektro-Swing, Parov Stelar, Caravan Palace, ... wird auch gerne mit Minimal vereint (Alle Farben)

    Mal ein paar Beispiele:
    Umami: https://soundcloud.com/umamiinspace/conquer-the-night
    Stereo-Express: https://soundcloud.com/umamiinspace/u…-express-get-up
    Minimalmix: https://soundcloud.com/guerilla-kiel/g-m-o-t-m-jan-13-bodega
    Jesse Rose (fidgedt house) : http://www.youtube.com/watch?v=faH3m6fIlgw
    Oliver Koletzki: http://www.tape.tv/musikvideos/Ol…The-Devil-In-Me
    Alle Farben: https://soundcloud.com/allefarben/daughter-youth-alle-farben <-- eher nicht zum feiern, aber trotzdem gut ;)
    Parov Stelar: http://www.youtube.com/watch?v=twqM56f_cVo
    Caravan Palace: http://www.youtube.com/watch?v=gqiTM4_ES3I

    Gruß,
    Spider

  • Google Chrome, Firefox und Internetexplorer Auslesen

    Hey,

    Schön ist das nicht, aber es funktioniert:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    $aPage = _GetChromePage()
    _ArrayDisplay($aPage)
    Func _GetChromePage()
    Local $aRet
    $sText = WinGetText("[CLASS:Chrome_WidgetWin_1]")
    $aRet = StringSplit(StringTrimRight($sText,1),@LF,1+2)
    If @error Then Return SetError(0,0,@error)
    Return $aRet
    EndFunc

    [/autoit]

    Sonst kannst du bei IE zumindest via _IEAttach eine aktive Sitzung anzapfen.

    Gruß
    Spider

  • Neues Logo

    Zitat von Gun-Food

    Bekommst du das jetzige Logo ohne die Jahreszahlen hin? Dafür autoit.de minimal größer, dann wäre es für mich mehr als ausreichend. :)


    Das bekomme ich hin, aber erst wenn ich wieder in meiner Heimat bin, ich schätze am 3. Januar.

    Lieben Gruß,
    Spider

  • Neues Logo

    Zitat von chesstiger

    Sieht super aus, aber mir persönlich gefallen die schwarzen Tupfer nicht so sehr...
    Selber kann ich leider nichts zusteuern, ich bin grafisch komplett unbegabt. :D

    lg chess

    Ich sehe es auch gerade, das liegt an der hohen Auflösung des Bildes, nachher wenn es in der kleinen Auflösung zu sehen ist, nimmt man sie nur als eine Art Schatten wahr ;) Ähnliches habe ich auch mit unserem aktuellen Logo gemacht.

    Edit: So würde es aussehen:
    [Blockierte Grafik: http://w70t.img-up.net/Unbenannt964c.jpg]
    Gruß

  • Neues Logo

    Hallo,

    Ich fahre jetzt gleich in den Urlaub um Silvester zu Zelebrieren und schaffe es daher nicht mehr mir noch was neues wegen dem Logo zu überlegen. Mein bisheriger Vorschlag (das Logo, das momentan aktiv ist) gefällt mir nicht mehr so gut, da es a) mit manchen Designs nicht zusammenpasst und b) ich es jedes Jahr ändern muss :D Im Anhang ist nun ein neuer Vorschlag wo vlt noch ein wenig feinschliff fehlt, falls sich da jemand ransetzen möchte kann er dies gerne tun.

    'Aber ich möchte hiermit auch User anregen ihre eigenen Logoentwürfe zu präsentieren und das beliebteste können wir dann ja einfach verwenden.

    hier eine Vorschau:
    [Blockierte Grafik: http://t38t.img-up.net/Design2bd23.jpg]

    Und hier die JPG, PNG und PSD Dateien':
    http://www7.zippyshare.com/v/14700486/file.html

    Gruß,
    Spider

  • Weihnachten Script Hilfe

    Hey remora,

    there is also an english autoit forum out there: https://autoit.de/www.autoitscript.com/forum
    Your question is quite easy to answer. you have to check the date with an easy if condition. therefor you can use marcos like @year @mday and @mon and maybe the time (@hour...). to play a song take a look at SoundPlay in your helpfile, to show a message you could use msgbox and to change the wallpaper you could aks google.

    greets,
    Spider

  • Windows 8 - Was meint ihr?

    Zitat von Cheater Dieter

    Mit dem kleinen Unterschied, dass man kein Auto mit Klimaanlage aufgezwungen bekommt, sondern diese dazu kaufen kann, wenn man diese will.
    Womit ich bei dem Punkt bin, der mich bei Windows 8 am meisten zum Nachdenken bringt: Warum hat Microsoft keinen "Schalter" für die Metro-Oberfläche eingebaut. Wenn man will, kann man diese Aktivieren und wenn man eben nicht will, dann lässt man es eben. Technisch wäre das ja sicher machbar gewesen.

    Wie gesagt, mich stört es nicht wirklich, aber trotzdem gebe ich dir natürlich recht. Das war schlichtweg Dumm von Microsoft ;)

  • Windows 8 - Was meint ihr?

    Hey,

    Ich finde das sollte am besten jeder selbst herausfinden. Ich habe Windows 8 seit der zweiten Beta auf meinem PC und die RTM schon zwei Monate und bin mit zwei Bildschirm die kein Touch haben sehr zufrieden.
    Das das Konzept von zwei UIs kompletter Bullshit ist will ich hier gar nicht dementieren, aber mich stört die Metro (oder MUI oder what ever) auch nicht wirklich. Nett finde ich den Kalender respektive die Integration von Google (Ja, ich bin auch google Nutzer, bitte keine Steine werfen :D ) mit der Kontakt/Mail/Kalender Sync finde ich ziemlich genial. Aber außer in den gerade erwähnten Anwendungen bin ich auf meinem PC nicht in der Metro sondern aufm Desktop.

    Zum Geschwindigkeitaspekt: Ja, Windows 8 ist schneller und fühlt sich schneller an, allerdings wenn man, so wie ich, eine SSD drin hat wäre das für mich nicht der Hauptgrund auf Windows 8 zu wechseln. Ich habe es getan, weil ich es wirklich komplett unter die Lupe nehmen wollte und mich zwingen wollte es gründlich zu testen.

    Windows 8 mit Vista zu vergleichen finde ich kritisch, Vista war geplagt von Abstürzen, BSODs, Treiberinkompatiblität etc. Diese Problem hat Windows 8 nicht, einmal hatte ich ein BlueScreen in der Beta (der mittlerweile viel schöner ist :D ) und sonst auch nie ein Problem wegen Kompatiblität oder Programmabstürzen. Im Gegenteil, Windows 8 macht vieles weitaus besser als Windows 7, angefangen von der Updatefunktion bis hin zu dem verbesserten Explorer und tausenden anderen "Kleinigkeiten"

    Was ich eigentlich nur sagen will: Ausprobieren, eine Chance geben und die Metro bitte nicht als Hauptgrund nehmen, Windows 8 sich nicht zu installieren. Das ist meiner Meinung nach so, als ob man sich ein Auto nicht kaufen würde, weil es eine Klimaanlage hat, man aber keine Klimaanlagen mag ;)

    Gruß,
    Spider