Beiträge von x0r

  • Zahlen in Worte umwandeln

    Hi,

    vielleicht gibts das noch nicht :)

    Spoiler anzeigen
    [autoit]

    ;
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    $Form1 = GUICreate("Zahlen in Worte", 537, 81, 192, 114)
    $in = GUICtrlCreateInput("", 72, 16, 233, 21)
    $Label1 = GUICtrlCreateLabel("Eingabe:", 16, 24, 46, 17)
    $out = GUICtrlCreateInput("", 72, 40, 449, 21)
    $Label2 = GUICtrlCreateLabel("Ausgabe:", 16, 40, 49, 17)
    GUISetState(@SW_SHOW)

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

    Dim $z, $w, $r, $i, $Zahl_In_Worten, $Ziffer, $vi

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $in
    $w = ""
    GUICtrlSetData($out, "")
    GUICtrlSetData($out, tozahl(GUICtrlRead($in)))
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

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

    Func tozahl($z)
    For $i = 6 To 0 Step -3
    If StringLen($z) > $i Then
    $r = StringRight($z / (10 ^ $i), 3)
    If $r > 99 Then
    $w = Ziffer(1, StringLeft($r, 1), $w) & "hundert"
    $r = StringRight($r, 2)
    EndIf

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

    If $r > 19 Then
    $w = Ziffer(3, StringRight($r, 1), $w)
    $w = Ziffer(4, StringLeft($r, 1), $w)
    EndIf

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

    If $i = 0 And StringMid($z,StringLen($z)-2,2) = "00" And $r > 0 Then $w = $w & "und"

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

    If $r < 10 Then $w = Ziffer(1, $r, $w)

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

    If $r > 9 And $r < 20 Then $w = Ziffer(2, StringRight($r, 1), $w)
    If $vi = 6 And StringLen($z) = 7 And $r = 1 Then $w = "einemillion"
    If $i = 6 And StringRight($z / 10 ^ $i, 3) > 1 Then $w = $w & "millionen"
    If $i = 3 And StringRight($z / 10 ^ $i, 3) > 0 Then $w = $w & "tausend"
    If $i = 0 And $r = 1 Then $w = $w & "s"
    EndIf
    Next

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

    if $z = 0 then $w = "null"
    return $w
    EndFunc

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

    Func Ziffer($Par, $r, $w)
    $x = 'ein,zwei,drei,vier,fünf,sech,sieb,acht,neun'
    $x = StringSplit($x,",")
    $x[0] = ""
    $w = $w & $x[$r]
    Select
    Case $Par = 1 Or $Par = 3
    If $r = 6 Then $w = $w & "s"
    If $r = 7 Then $w = $w & "en"
    If $Par = 3 And $r > 0 Then $w = $w & "und"
    Case $Par = 2
    $w = $w & "zehn"
    If $r = 1 Then $w = StringLeft($w, StringLen($w) - 7) & "elf"
    If $r = 2 Then $w = StringLeft($w, StringLen($w) - 8) & "zwölf"
    Case $Par = 4
    If $r = 2 Then $w = StringLeft($w, StringLen($w) - 4) & "zwan"
    $w = $w & "zig"
    If $r = 3 Then $w = StringLeft($w, StringLen($w) - 3) & "ßig"
    EndSelect
    return $w
    EndFunc

    [/autoit]

    In Zeile 52 musste ich leider was seltsames einfügen, irgendwie kommt da meistens eine "9" rein, keine Ahnung, wie das zustande kommt...

    Ansonsten läufts, bei mehr als 6-stelligen Zahlen langt die Output-Zeile nicht mehr für den "ersten Blick" ;)

    Gruß
    x0r

  • Bildpunkte erkennen

    [autoit]

    $deutsch = "deutscher name"
    $englisch = "englischer name"

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

    if WinExists($deutsch) Then
    WinActivate($deutsch)
    ElseIf WinExists($englisch) Then
    WinActivate($englisch)
    EndIf

    [/autoit]

    ...verbesserungswürdig, aber so müssts eigentlich klappen.. Zur Not baust ne ini mit rein, in der du die Namen editieren kannst :)

    €dit:

    Einen Bildpunkt speichern und suchen würde so z.b. ganz gut funktionieren:

    Spoiler anzeigen
    [autoit]

    ;bildpunkt per strg+y speichern und mit strg+q suchen

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

    dim $px, $mc, $pxco

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

    HotKeySet("^y","copypoint")
    HotKeySet("^q","searchpoint")
    HotKeySet("{esc}","xit")

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

    while 1
    sleep(200)
    WEnd

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

    func copypoint()
    $mc = MouseGetPos()
    $px = PixelGetColor($mc[0],$mc[1])
    EndFunc

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

    func searchpoint()
    $pxco = PixelSearch(1,1,@DesktopWidth, @DesktopHeight, $px)
    MouseMove($pxco[0], $pxco[1], 0)
    EndFunc

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

    func xit()
    Exit
    EndFunc

    [/autoit]

    €dit2:

    Hier noch mit "Array-Speicherfunktion" (aber nur solange das Prog läuft!):

    Spoiler anzeigen
    [autoit]

    dim $px, $mc, $pxco, $sav[1]

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

    HotKeySet("^y","copypoint")
    HotKeySet("^q","searchpoint")
    HotKeySet("{esc}","xit")

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

    while 1
    sleep(200)
    WEnd

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

    func copypoint()
    $mc = MouseGetPos()
    $sav[UBound($sav)-1] = PixelGetColor($mc[0],$mc[1])
    ReDim $sav[UBound($sav)+1]
    EndFunc

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

    func searchpoint()
    for $i = 0 to UBound($sav) -1
    $pxco = PixelSearch(1,1,@DesktopWidth, @DesktopHeight, $sav[$i])
    MouseMove($pxco[0], $pxco[1], 500)
    Next
    EndFunc

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

    func xit()
    Exit
    EndFunc

    [/autoit]

  • Bildpunkte erkennen

    Hi,

    wie wäre es in dem Fall alternativ mit WinActivate("WindowTitle")?

    In die einzelnen Felder kannst dann mit Send("{tab}") springen und dort ggf Zeugs einfügen.

    So müsstest nix anklicken :)

    Gruß
    x0r

  • TCP/UDP - Server & Client

    Hi,

    habe vor nem Jahr mal was über UDP gebastelt, das hat ganz gut funktioniert.. Jedoch hab ich keinen Plan, ob das noch hier in der Firma wo rumliegt, ich glaube leider nicht - Sicherheitslücke und so :D

    Soooo schwer ist das nicht, denke mit der Hilfe kommst du ziemlich weit :)

    Gruß
    x0r

  • Quick TXT-Viewer

    ...habt ihrs überhaupt ausprobiert, bevor ihr große Reden schwingt?

    Offenbar nicht.. Aus welchem Grund sollte sonst eine "EditBox" mit drin sein, wenn man die TXT nicht direkt einsehen kann und bei BEDARF direkt öffnen?!

    Ich bitte euch!

    €dit:

    [autoit]

    GUICtrlSetData($out, FileRead($files[$i]))

    [/autoit]

    [...]und direkt ansehen, ohne sie direkt zu öffnen[...]

    €dit²:
    Thx minx! Der Plan war eigentlich, in meiner Firma den ganzen (ultra-gestressten) Chefs ihre Arbeit beim Suchen von Texten ein wenig zu erleichtern. Ich bastel noch ein Teil, mit dem man Excellisten einsehen kann, halt genauso wie das Ding, PDF ist grad in der Mache, drum ja auch die Hilfe-Anfrage, aber denke das wurde schon gelöst, kanns nur grade nicht testen :)