Beiträge von Mars

  • USB Spannung absenken via Software / Autoit möglich ?

    Findet euch doch einfach mal mit der Wahrheit ab. Wo Widerstände sind gibts immer Verlustleistungen. Mit ca 2-5W (was man aus dem USB Stecker bekommt) lässt sich keine Heizung bauen (da erzeugt es mehr Hitze wenn ihr die Hände reibt), ein Ventilator ist mit dieser Leistung im kleinen Maßstab nutzbar.
    Es geht hier nicht darum etwas kaputtzumachen, sondern die Zweckmäßigkeit der Vorgehensweisen abzuschätzen. Und ein Widerstand liegt in jedem Fall Effizienztechnisch hinter allen anderen Möglichkeiten, dafür ist er relativ leicht einzubauen. Der meiner Meinung nach beste Weg ist der Kauf eines kleinen USB Ventilators. Ob der Intern dann effizient arbeitet oder nicht (ich glaube eher nicht) wäre mir in dem Fall egal, weil er klein ist und das tut was ich will.

    lg
    M

  • GDI+ Textrendering (BB-Code)

    Vielen Dank :)
    Das ist exakt das was ich gesucht habe.
    Mit all diesen Informationen müsste es machbar sein ein anständiges Renderingverfahren zu basteln.
    Wird zwar nicht besonderst schnell sein, aber mit GDI+ funktionieren, und darauf kommt es an :P

    lg
    Mars

  • GDI+ Textrendering (BB-Code)

    Ich werde das Skript mal neu schreiben und MeasureString verwenden.
    Ich bin mir aber sicher mal gelesen zu haben, dass diese Funktion unzureichend ist, wenn man einzelne Buchstaben damit vermisst.
    Der Umschrieb wird ne Weile dauern, da ich jetzt grade nicht viel Zeit habe.

    Edit: Hab grade glaube ich die Path Version gefunden Klick Mich

  • Werbung in AutoIt-Programmen

    Hatte auch schon über Werbung nachgedacht.
    Aber eher folgendermaßen: Ein "Spenden" Button der eine Webseite mit Werbung aufruft.
    Das würde dem Nutzer freistellen ob er mir ein paar Cent "spenden" will oder nicht.

    Edit: Das dürfte nicht als Aufforderung gelten, und stören tut ein Button auch niemanden. (sofern er nicht hervorgehoben wird, was ich niemals tun würde, da mich Spenden Buttons aufregen :D)

  • GDI+ Textrendering (BB-Code)

    Das ist ganz einfach. Meine Funktion checkt nur die Ränder. Es wird also der Buchstabe auf einem Transparenten Hintergrund gedacht und von allen 4 Seiten gesucht ob ein Pixel nicht transparent ist. Wird ein Pixel gefunden wird die Schranke nicht weiter verschoben. Zum Schluss hat man die Breite und Höhe des Buchstabens in Pixeln. Das Problem dabei ist, dass diese Größe nicht der Anzahl Pixel entspricht die der Buchstabe im Text beansprucht. Er ist vllt 15px breit, der Nächste kommt aber schon nach 13 Pixeln. (bsp.)
    Hab schonmal davon gehört, dass MeasureString ziemlich ungenau arbeitet. Irgendwo gab es ein Beispiel von Eukalyptus (glaube ich) indem über GDI+Path die Buchstabengröße sehr gut bestimmt wird. Dieses Verfahren kenne ich aber leider nicht und bräuchte ein Beispielskript um es zu verstehen.

  • GDI+ Textrendering (BB-Code)

    Moin,

    Ich suche eine Funktion, die einen BB-Code behafteten Text anständig auf ein GFX zeichnet.
    Habe dazu schon etwas entworfen, scheitere aber grundsätzlich an der Unkenntnis der exakten Buchstabengröße. Dabei ist unrelevant wie groß die Buchstaben tatsächlich sind (dafür hätte ich eine Funktion), sondern wie groß der "Kasten" ist den sie beanspruchen. Für allgemeine Ratschläge bin ich natürlich auch offen ;)

    Hier mal als kleines Beispiel ein Skript.

    Spoiler anzeigen
    [autoit]


    #include <GDIPlus.au3>

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

    ; Codes:
    ; X Kursiv
    ; X Fett
    ; X Unterstrichen
    ; X [c=rot] Roter Text [/code] - Farbe als Wort
    ; X

    [/autoit] [autoit]
    C: 6
    Text mit Farbe 6

    [autoit]- Farbe der 16 Windows Farben
    ; X [c=(0x)FF0000] Roter Text [/code] - Farbe als 24Bit Wert
    ; X [c=(0x)80FF0000] Halbtransparent Rot [/code] - Farbe als 32Bit Wert
    ; X [s] Durchgestrichen [/s]
    ; X Größe in Pixeln
    ; X [x=5] - Zur korrektur kann x und y angepasst werden
    ; X [y=-1] - Zur korrektur kann x und y angepasst werden

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

    ; [center] Zentriert [/center]
    ; Schriftart
    ;
    ; https://autoit.de/www.a.de/bild.jpg
    ; Klick Mich

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

    Global $sText = 'Hallo' & @CRLF & 'Das sieht total seltsam aus...' & @CRLF & _
    'Sowas möchte ich nicht zum Frühstück essen !' & @CRLF & _
    'Dies is[s]t ein sehr krea[/s]tiver Text' & @CRLF & @CRLF & @CRLF & _
    '[size=50]Hallo[y=10]du[y=0] Spaßvogel[/size]' & @CRLF & @CRLF & @CRLF & @CRLF & _
    '[size=50]a[size=40]bcdefghijklmnopqrstuvwxyz[/size][/size]' & @CRLF & _
    '

    [/autoit] [autoit]
    C: 10
    Far[size=30]big

    [autoit]so [c=dunkelrot]mag[/code] i[/size]ch [c=80FF8040]das[/code] !' & _
    @CRLF & @CRLF & '[c=ff0000]Das ist [y=-5]ein[y=0] Test[/code]' & @CRLF & @CRLF & _
    '[x=100]Update auf Version 0.0.0.1[x=0]' & @CRLF & _
    '' & @CRLF & _
    'Neu:' & @CRLF & _
    ' - Account über Webseite registrieren' & @CRLF & _
    ' - Ingame Login' & @CRLF & _
    ' - Ingame Menu' & @CRLF & _
    ' - Ein Berg auf dem sich ein kleines Dorf mit allen' & @CRLF & _
    ' momentanen Models befindet.' & @CRLF & _
    ' - Leichte Vegetation' & @CRLF & _
    ' - Man kann sich die Landschaft ansehen' & @CRLF & _
    '' & @CRLF & _
    'Bugfixes:' & @CRLF & _
    ' - Noch keine, da dies das "First Release" ist !' & @CRLF & _
    '' & @CRLF & _
    '[x=100]euer Team ;)[x=0]' & @CRLF & _
    '' & @CRLF & _
    '[y=-80][x=80][size=9]ich stehe einfach mittendrin :P'

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

    Global $bRenew

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

    _GDIPlus_Startup()
    Global $hGUI = GUICreate('Test', 1000, 500)
    Global $hGFX = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    Global $hBMP = _GDIPlus_BitmapCreateFromGraphics(500, 500, $hGFX)
    Global $hBUF = _GDIPlus_ImageGetGraphicsContext($hBMP)
    Global $hEdit = GUICtrlCreateEdit($sText, 500, 0, 500, 500, 0x1000)
    _GDIPlus_GraphicsClear($hBUF, 0xFFFFFFFF)
    DllCall($ghGDIPDll, 'uint', 'GdipSetTextRenderingHint', 'hwnd', $hBUF, 'int', 5)
    _BB_Draw($hBUF, 0, 0, $sText)
    WM_PAINT()

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

    GUIRegisterMsg(0x0111, 'WM_COMMAND')
    GUIRegisterMsg(0xF, 'WM_PAINT')
    GUISetState(@SW_SHOW, $hGUI)

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

    ;~ MouseClick(

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

    While GUIGetMsg() <> -3
    If $bRenew Then
    _GDIPlus_GraphicsClear($hBUF, 0xFFFFFFFF)
    _BB_Draw($hBUF, 0, 0, GUICtrlRead($hEdit))
    WM_PAINT()
    $bRenew = False
    EndIf
    WEnd

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

    Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $iCode = _WinAPI_HiWord($wParam)
    If $iCode = 768 Then $bRenew = True
    EndFunc ;==>WM_COMMAND

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

    Func _BB_Draw($hGFX, $iX, $iY, $sText)
    $sText = StringReplace($sText, @CR, '', 0, 1)
    Local $iStepSizeX = 9, $iStepSizeY = 14, $sChar, $iStepX, $iStepY, $aFormat, $iLen, _
    $sFormat_Kursiv, $sFormat_Fett, $sFormat_BB_Farbe = 'FF000000', $sFormat_Unterstrichen, $sFormat_Size = '10', $sFormat_Font, $sFormat_Durchgestrichen, _
    $xOff = 0, $yOff = 0

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

    For $i = 1 To StringLen($sText) Step 1
    $sChar = StringMid($sText, $i, 1)
    Switch $sChar
    Case '['
    For $o = $i To StringLen($sText) Step 1
    If StringMid($sText, $o, 1) = ']' Then
    $iLen = $o - $i
    ExitLoop
    EndIf
    Next
    _BB_SetFormat(StringMid($sText, $i + 1, $iLen - 1), $sFormat_Fett, $sFormat_Kursiv, $sFormat_Unterstrichen, $sFormat_Durchgestrichen, $sFormat_Size, $sFormat_BB_Farbe, $xOff, $yOff)
    $i += $iLen
    Case @LF
    $iStepY += 1
    $iStepX = 0
    Case Else
    $aFormat = _BB_GetFormat($sFormat_Fett, $sFormat_Kursiv, $sFormat_Unterstrichen, $sFormat_Durchgestrichen, $sFormat_Size, $sFormat_BB_Farbe)
    _BB_Char($hGFX, $iX + $iStepX * $iStepSizeX + $xOff, $iY + $iStepY * $iStepSizeY + $yOff, $sChar, $aFormat)
    $iStepX += 1 * Int('0x' & $aFormat[4]) / 16
    EndSwitch
    Next
    EndFunc ;==>_BB_Draw

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

    Func _BB_SetFormat($s, ByRef $sFormat_Fett, ByRef $sFormat_Kursiv, ByRef $sFormat_Unterstrichen, ByRef $sFormat_Durchgestrichen, ByRef $sFormat_Size, ByRef $sFormat_BB_Farbe, ByRef $xOff, ByRef $yOff)
    Local $sLeft = StringLeft($s, 1)
    If $sLeft = '/' Then
    $s = StringTrimLeft($s, 1)
    Switch StringLeft($s, 1)
    Case 'b'
    $sFormat_Fett = StringTrimRight($sFormat_Fett, 2)
    Case 'i'
    $sFormat_Kursiv = StringTrimRight($sFormat_Kursiv, 2)
    Case 'u'
    $sFormat_Unterstrichen = StringTrimRight($sFormat_Unterstrichen, 2)
    Case 's'
    Switch StringLeft($s, 4)
    Case 'size'
    $sFormat_Size = StringTrimRight($sFormat_Size, 3)
    Case Else
    $sFormat_Durchgestrichen = StringTrimRight($sFormat_Durchgestrichen, 2)
    EndSwitch
    Case 'c'
    $sFormat_BB_Farbe = StringTrimRight($sFormat_BB_Farbe, 9)
    EndSwitch
    Else
    Switch StringLeft($s, 1)
    Case 'b'
    If $sFormat_Fett Then
    $sFormat_Fett &= '|1'
    Else
    $sFormat_Fett = '1'
    EndIf
    Case 'i'
    If $sFormat_Kursiv Then
    $sFormat_Kursiv &= '|1'
    Else
    $sFormat_Kursiv = '1'
    EndIf
    Case 'u'
    If $sFormat_Unterstrichen Then
    $sFormat_Unterstrichen &= '|1'
    Else
    $sFormat_Unterstrichen = '1'
    EndIf
    Case 's'
    Switch StringLeft($s, 5)
    Case 'size='
    If $sFormat_Size Then
    $sFormat_Size &= '|' & Hex(Int(StringTrimLeft($s, 5)), 2)
    Else
    $sFormat_Size = Hex(Int(StringTrimLeft($s, 5)), 2)
    EndIf
    Case Else
    If $sFormat_Durchgestrichen Then
    $sFormat_Durchgestrichen &= '|1'
    Else
    $sFormat_Durchgestrichen = '1'
    EndIf
    EndSwitch
    Case 'c'
    If $sFormat_BB_Farbe Then
    $sFormat_BB_Farbe &= '|' & _BB_Farbe($s)
    Else
    $sFormat_BB_Farbe = _BB_Farbe($s)
    EndIf
    Case 'x'
    $xOff = Int(StringTrimLeft($s, 2))
    Case 'y'
    $yOff = Int(StringTrimLeft($s, 2))
    EndSwitch
    EndIf
    EndFunc ;==>_BB_SetFormat

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

    Func _BB_Farbe($s)
    Local $x = StringSplit($s, '=')
    Local $c = $x[$x[0]]
    Local Static $aDosCol[16] = [0xFF000000, 0xFF800000, 0xFF008000, 0xFF808000, 0xFF000080, 0xFF800080, 0xFF008080, 0xFFC0C0C0, 0xFF808080, 0xFFFF0000, 0xFF00FF00, 0xFFFFFF00, 0xFF0000FF, 0xFFFF00FF, 0xFF00FFFF, 0xFFFFFFFF]
    Local Static $aNamenEn[16] = ['black', 'maroon', 'green', 'olive', 'navy', 'purple', 'teal', 'silver', 'gray', 'red', 'lime', 'yellow', 'blue', 'fuchsia', 'aqua', 'white']
    Local Static $aNamenDe[16] = ['schwarz', 'dunkelrot', 'dunkelgrün', 'oliv', 'dunkelblau', 'lila', 'türkis', 'hellgrau', 'grau', 'rot', 'grün', 'gelb', 'blau', 'pink', 'hellblau', 'weiß']
    If StringIsXDigit($c) Then
    Switch StringLen($c)
    Case 1, 2
    $c = Int($c)
    $c -= Int($c / 16) * 16
    Return Hex($aDosCol[$c], 8)
    Case 6
    Return 'FF' & $c
    Case 8
    Return $c
    EndSwitch

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

    Else
    For $i = 0 To 15 Step 1
    If ($c = $aNamenEn[$i]) Or ($c = $aNamenDe[$i]) Then
    ConsoleWrite($i & @CRLF)
    Return Hex($aDosCol[Int($i)], 8)
    EndIf
    Next
    EndIf
    Return 'FF000000'
    EndFunc ;==>_BB_Farbe

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

    Func _BB_Char($hGFX, $iX, $iY, $sChar, $aFormat)
    Local $hBRU = _GDIPlus_BrushCreateSolid('0x' & $aFormat[5])
    Local $hFOR = _GDIPlus_StringFormatCreate()
    Local $hFAM = _GDIPlus_FontFamilyCreate('Courier New')
    Local $hFON = _GDIPlus_FontCreate($hFAM, Int('0x' & $aFormat[4]), $aFormat[0] * 1 + $aFormat[1] * 2 + $aFormat[2] * 4 + $aFormat[3] * 8, 2)
    Local $tRect = _GDIPlus_RectFCreate($iX - Int('0x' & $aFormat[4]) * 0.25 + 2, $iY - Int('0x' & $aFormat[4]) ^ 1.34 * 0.19 + 6)
    _GDIPlus_GraphicsDrawStringEx($hGFX, $sChar, $hFON, $tRect, $hFOR, $hBRU)
    _GDIPlus_FontDispose($hFON)
    _GDIPlus_FontFamilyDispose($hFAM)
    _GDIPlus_StringFormatDispose($hFOR)
    _GDIPlus_BrushDispose($hBRU)
    EndFunc ;==>_BB_Char

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

    Func _BB_GetFormat($sFormat_Fett, $sFormat_Kursiv, $sFormat_Unterstrichen, $sFormat_Durchgestrichen, $sFormat_Size, $sFormat_BB_Farbe)
    Local $a[6], $b
    $b = StringSplit($sFormat_Fett, '|')
    $a[0] = $b[$b[0]]
    $b = StringSplit($sFormat_Kursiv, '|')
    $a[1] = $b[$b[0]]
    $b = StringSplit($sFormat_Unterstrichen, '|')
    $a[2] = $b[$b[0]]
    $b = StringSplit($sFormat_Durchgestrichen, '|')
    $a[3] = $b[$b[0]]
    $b = StringSplit($sFormat_Size, '|')
    $a[4] = $b[$b[0]]
    $b = StringSplit($sFormat_BB_Farbe, '|')
    $a[5] = $b[$b[0]]
    Return $a
    EndFunc ;==>_BB_GetFormat

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

    Func WM_PAINT()
    _GDIPlus_GraphicsDrawImage($hGFX, $hBMP, 0, 0)
    EndFunc ;==>WM_PAINT

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


    Edit: Hab den Tag mal auf "gelöst" gesetzt, da ich glaube die Lösung gefunden zu haben.
    Sollte dem nicht so sein mache ich wieder auf und spezifiziere meine Frage neu.

    Edit2: Nun ist alles geklärt. :)
    lg
    Mars

  • Befunge Interpreter

    Sich selbst Sprachen zu überlegen finde ich immer sehr interessant. (hab nicht umsonst schon 5 sinnlose Grafikformate entwickelt^^).
    Einen Interpreter für etwas bestehendes zu schreiben ist immer eine schwierige Aufgabe, wenn er wirklich regelkonform laufen soll.
    Man lernt nie aus, also weiter so :P
    (Und 2D Code ist was feines :D)

    lg
    M

  • AutoIt Versions-Archiv und Diskussionsthread (3.3.8.1 bis 3.3.10.2, Stand 30.12.13)

    Dieses mal ein besserer Benchmarkvergleich der Versionen.
    Es wurden jeweils eine sehr hohe Anzahl Tests durchgeführt, und diese 3x wiederholt.
    Die Auswertung zeigt: Die neuste Version ist teilweise nur halb so schnell wie die 8.1_64 !
    Die 8.1_32 wurde als Referenzwert angenommen, höhere Prozente = schlechtere Rechenzeit.
    [Blockierte Grafik: http://i.imgur.com/bnH1cPD.png]
    Frage an die Anderen: Ist bei euch der Unterschied auch so riesig ?
    Wenn ja muss das unbedingt gefixt werden !
    Edit: Testskript liegt in Post 35
    lg
    Mars

  • Shoutbox-Knigge

    Vorschlag für eine Ergänzung:
    (nicht so ganz wichtig, aber eventuell erwähnenswert)

    5. Flüstern

    Die SB bietet eine Flüsterfunktion. Dazu muss man in der SB auf den Namen der Person klicken mit der man sprechen möchte. (Alternativ: /w "Name"). Ausführungen die nur eine einzige Person betreffen sollen, wenn möglich, über die Flüsterfunktion abgewickelt werden. Wenn nur noch wenige User online sind, oder wenn man möchte, dass die Anderen die Antwort sehen, obwohl sie nur eine Person betrifft, tritt diese Richtlinie natürlich außer Kraft; dann schreibt man z.B. " @Name: Die Lösung ist 7".

    Du hast also das Recht

    lg
    Mars

  • Make-Grafik's Encryption Tool

    Aso, dann ist natürlich alles so wie es sein soll.
    Dachte die Ausgabe wäre für Normale Zeichen ausgelegt, damit man die Verschlüsselung besser begutachten kann.
    Bei einer Ausgabe als Hex sieht man auf den ersten Blick nämlich nichts außer Zahlen :D

  • Binär Hilfe

    Spoiler anzeigen
    [autoit]

    $binary = '0x024A0007006B0069006E0067005F006200650009006C006F00630061006C0068006F00730074000063DD'
    $string = StringReplace(BinaryToString($binary),Chr(0), '', 0, 1)
    ConsoleWrite($string & @CRLF)

    [/autoit]

    Das Liegt daran, dass noch NULLen drinne sind und anderweitige Steuerzeichen.
    AutoIt ist leider immernoch nicht in der Lage einen String der Chr(0) enthält ordnungsgemäß auszugeben.

    Edit: Da war wohl jemand 5Sek schneller :D

  • Caesar Decoder

    Hab jetzt ne halbe Stunde gerätselt.
    Stimmen wenigstens die Leerzeichen ?
    Eine Permutationsanalyse warf mir zwar ne Menge schöner Wörter aus, aber ich weiß ja nicht welche stimmen. Die gezielte Suche nach Wortlängen, oder Anfangsbuchstaben (V und O) macht das schon leichter.
    Bisher kam aber noch nichts dabei heraus.
    Was für einen Algorithmus hast du venn verwendet ?
    Ist jedenfalls keine einfache Caesar Verschlüsselung !