Beiträge von eukalyptus

  • SoundPlay Ausgabegerät wählen

    Mit DirectSound geht das auch ohne externe DLL:

    Die benötigte DirectSound-UDF findest du in meinem Anhang

  • [GDI+] Asteroiden Generator

    Vielleicht kannst du ja das brauchen.
    Dieses Script erstellt eine Kugel mit einer zufälligen Gleichverteilung:

    Hier noch die "Matrix.au3"


    Da du ja nur die Vorderseite benötigst, reicht es, wenn du "$fTheta = Random(0, $cPI)" schreibst.


    LgE

  • Solitaire classic mit größeren Karten

    Wie viele Einträge im Internet beweisen, bin ich nicht der einzige, der das alte Solitär-Spiel aus Windows XP mitgenommen hat und noch immer verwendet.
    Die neueren Versionen von Microsoft konnten, trotz besserer Grafik, leider nicht mithalten.
    Einfach Sol.exe und Cards.dll kopiert und man konnte auch mit den neuen Windowsversionen sein gewohntes Kartenspiel zeitvertreiben.

    Leider hat die Classic-Version von Solitär eine fixe Auflösung der Spielkarten, was einem ungetrübten Spielspaß mit großer Bildschirmauflösung entgegenwirkt.
    (Und nein, es ist NICHT die langsam einsetzende Altersweitsichtigkeit!! :D )

    Ich hab nun aus diesem Grund meine eigene Cards.dll geschrieben.
    Damit lässt sich die Große der Spielkarten ganz einfach anpassen.

    In diesem Paket befinden sich alle nötigten Dateien (Sol.exe, Cards.dll, Cards.png, Cards.ini):
    Download: Solitaire.7z

    Die Cards.ini enthält die Auflösung der Spielkarten und kann leicht mit einem Texteditor bearbeitet werden.
    Cards.png enthält die Spielkarten und könnte auch durch ein anderes Kartendeck, bzw. den wirklich originalen Rückseiten aus Windows 95 ersetzt werden.

    Wer Angs vor Viren hat, kann sich die Sol.exe aus einem alten Windows(XP) kopieren und die Cards.dll selber kompilieren, hier ist der Freebasic-Sourcecode:

    Auch andere Klassiker benutzen die Cards.dll, jedoch hab ich noch nicht alle Funktionen korrekt umgesetzt - d.h. wahrscheinlich wird meine Version nicht zu 100% mit bsw. Spider-Solitär funktionieren.
    Bei Bedarf kann ich das aber noch nachholen!


    Viel Spaß
    E

  • Über die String-Dekompression

    Hab nur das hier gefunden, weiß jetzt auf die schnelle nicht, ob das auch der richtige Code ist... (schon lange her)

  • Konsolenanwendung mit "StdoutRead" nur mitlesen

    Mir fallen 2 Möglichkeiten ein:

    1) "Eigenes" Consolenfenster
    Du startest Run mit dem Parameter @SW_HIDE und erstellst selber eine GUI in welcher du deie gelesenen Daten ausgibst


    2) Mit einer Pipe auf ein eigenes externes Tool weiterleiten
    Zunächst kompilierst du dieses Script als Pipe.exe:

    Im Hauptscript erstellst du eine NamedPipe.
    Dessen Handle übergibst du an Pipe.exe und mit dem Zeichen "|" leitest du den Output an Pipe.exe weiter
    In etwa so:


    Pipe.exe bekommt nun via StdIn die Daten, schreibt diese in die NamedPipe und parallel dazu wieder in die Console
    Das Haupscript erhält die Daten über die NamedPipe.

    "|" leitet den Output weiter an Pipe.exe
    "2>&1" leitet auch den StdErr an StdOut um, und somit auch an Pipe.exe

    Damit das Hauptscript weiß, wann die Daten zu Ende sind, schreib ich "0x1A" ans Ende der Pipe.
    Wahrscheinlich gibts eine sicherere Methode, aber da bin ich der falsche Ansprechpartner... :rolleyes:

    Edit:
    Kommt auch drauf an, wass du erreichen willst!
    Evtl reicht es doch auch, wenn du im Hauptscript mit RunWait startest und die Auswertung komplett in Pipe.exe stattfindet!
    Dann würdest du dir den Rückschliff via NamedPipe ersparen!

  • Problem mit Listviewauswahl

    Contextmenü nicht direkt im Listview erstellen, sondern mithilfe eines Dummycontrols:

    AutoIt
    Global $hGui = GUICreate("ListView", 400, 300)
$idListview = GUICtrlCreateListView("", 2, 2, 394, 268)
Global $cDummy = GUICtrlCreateDummy()
Global $CM = GUICtrlCreateContextMenu($cDummy)


    Und noch folgendes in die Hauptschleife einfügen:

    AutoIt
    Case $GUI_EVENT_SECONDARYDOWN
    If _GUICtrlListView_GetSelectedCount($idListview) = 1 Then DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", GUICtrlGetHandle($CM), "int", 0, "int", MouseGetPos(0), "int", MouseGetPos(1), "hwnd", $hGui, "ptr", 0)


    E

  • GDI+ HeatMap V2

    Ein kleines Script, welches eine Remap-Tabelle benutzt.
    In diesem Fall werden Graustufen in verschiedene Farben umgewandelt.

  • GDI+ Wave

    Ein Workaround:

    AutoIt
    _GDIPlusEx_BitmapWarp($oBuffer, $aCoords[$iY][$iX][2], _
						$tWarp.X1, $tWarp.Y1, _
						$tWarp.X2 + 0.5, $tWarp.Y2, _
						$tWarp.X3, $tWarp.Y3 + 0.5, _
						$tWarp.X4 + 0.5, $tWarp.Y4 + 0.5)

    bzw. gleich so, ohne Umweg über die Struct (5fps mehr)

  • AlignComment richtet Kommentare aus Update 13.08.2016

    Zitat von Andy

    Wer aber dennoch eine "sichere" RegEx findet oder kennt um Kommentare vom Code zu trennen...


    Ich glaub, sowas hab ich in meiner Sammlung:
    (Mit der Zeile 6 lässt sich auch das Problem mit der Leerzeile am Schluß beheben...)


    Hier noch die "original" - Funktion mit welcher alle Comments entfernt werden können:
    Ich weiß leider nicht mehr, wer die Pattern geschrieben hat!

    AutoIt
    Func _RemoveComments(ByRef $sScript)
	$sScript = StringRegExpReplace($sScript, '(?x)(?:\r?\n?\s*;.*)|' & '((?>"[^"]*")+|' & "(?>'[^']*')+)", "\1") ;entferne ;-Komments
	$sScript = StringRegExpReplace($sScript, '(?i)(?:[\r\n]\s*)(\#ce|\#comments-end)(.*)', '$1') ;manche #ce haben noch Text dahinter
	$sScript = StringRegExpReplace($sScript, '(?x)(?:\r?\n?\s*;.*)|(?s)\r?\n?\s*\#c(?>s|omments-start)(?>(?>"[^"]*")+|' & "(?>'[^']*')+|.)*?\#c(?>e|omments-end)(?-s)|" & '((?>"[^"]*")+|' & "(?>'[^']*')+)", "\1")
EndFunc   ;==>_RemoveComments

  • ASM-Tricks

    Zitat von Andy

    Hi,
    wie hier bereits beschrieben, existiert für die Berechnung einer Folge von Werten und dessen Sinus/Cosinus ein mathematischer "Trick". Dabei wird lediglich für den Startwert der Sinus/Cosinus ermittelt und dann benötigt man zur Ermittlung der folgenden Werte lediglich Additionen und Multiplikationen.
    Als "Goodie" ist die DEG-Berechnung statt RAD bereits enthalten!

    Ggf. gibt es ja mittlerweile das Pendant zu PMADDWD (Multiply and Add Packed Integers) für Floats/Double bei den SSE-Befehlen^^. Damit wäre imho das geschwindigkeitsmäßige Optimum erreicht ohne jegliche Interpolation...
    Du kannst ja mal schauen, inwieweit du das integrieren kannst/willst!


    Sehr interessant!
    Wenn ich das aber richtig verstehe, dann sind mit dieser Methode keine Sweeps möglich bzw. nur umständlich zu erreichen...
    Also sowas wie das hier:

  • Rückrechnung

    Deine Excel-Tabelle ist falsch!

  • Rückrechnung

    Du könntest das so machen:

    AutoIt
    Global $aArray[22][2] = [[0, "täglich"], [0x1, "mo"], [0x2, "di"], [0x4, "mi"], [0x8, "do"], [0x10, "fr"], [0x20, "sa"], [0x40, "so"], [0x80, "wöchentlich"], [0x100, "1.WO"], [0x200, "2.WO"], [0x400, "3.WO"], [0x800, "4.WO"], [0x1000, "5.WO"], [0x2000, "gerade WO"], [0x4000, "ungerade WO"], [0x8000, "monatlich"], [0x10000, "monatlich gerade"], [0x20000, "monatlich ungerade"], [0x40000, "nix"], [0x80000, "viertteljaehrlich"], [0x100000, "jaehrlich"]]


$iX = 35338
For $i = 0 To UBound($aArray) - 1
	If BitAND($iX, $aArray[$i][0]) Then ConsoleWrite($aArray[$i][1] & @CRLF)
Next

  • Rückrechnung

    Evtl ist es besser verständlich, wenn du selber siehst, welche Bits gesetzt sind.
    Dazu hätte ich eine Funktion im Angebot:

    lgE

  • ASM-Tricks

    Integer Division

    Zuerst noch ganz kurz Multiplikation:
    Man sollte prüfen, ob sich eine Multiplikation in mehrere Shifts zerlegen lässt.

    Shift_Left_X entspricht 2^x
    shl 1 = *2
    shl 2 = *4
    shl 3 = *8
    usw...

    z.B.: X*10 = (X*2) + (X*8)


    Wie Minx sehr schön gezeigt hat, kann man eine Division durch eine Multiplikation mit einer Konstanten erreichen.
    Ich habe dazu mein Helper-Script etwas grafisch aufgemotzt: