Beiträge von BugFix

  • SQL Fehlermeldung in MySQL.au3

    Versuchs mal so (mit Limitierung auf 3-mal falsche PW-Eingabe):

    [autoit]

    #include "MySQL.au3"

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

    $susername = "root"
    $sdatabase = "dcot"
    $sserver = "localhost"
    $sDriver = "{MySQL ODBC 5.1 Driver}"
    $count = 0

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

    Do
    $count += 1
    $spassword = InputBox("Passwort", "Bitte Passwort eingeben")
    $sqlinstance = _mysqlconnect($susername, $spassword, $sdatabase, $sserver, $sDriver) ; Connect to SQL-Server
    Until Not @error Or $count = 3

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

    If $count = 3 Then
    MsgBox(0, 'Fehler', 'Das Paßwort wurde 3-mal falsch eingegeben.' & @LF & 'Das Programm wird beendet.')
    Exit
    EndIf

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

    ; der weitere Programmcode

    [/autoit]

  • Array für Beginner

    Und in die Kühlschrantür kommt ein Computerbaustein, auf dem die folgende Routine läuft:

    [autoit]

    Switch _GetStatusBier($arBier)
    Case 0
    MsgBox(0, 'NOTFALL', 'MAMA, GEH MA BIER HOLEN - ABA ZACKICH!!')
    Case 1 To 5
    MsgBox(0, 'ÄRGERNIS',"Mama, holst mal schnell paar Bier? - Kannst dir auch 'nen Schokoriegel mitbringen.")
    Case 6 To 10
    MsgBox(0, 'REICHT NOCH', "Liebling, wenn du morgen am Getränkeshop vorbeifährst, bringst mal bitte 'ne Kiste Bier mit?" & @LF & _
    "Wir machen uns auch mal 'nen schönen Fernsehabend.")
    Case 11 To 20
    MsgBox(0, 'OK', "Nachbar fragen, ob wir uns heut abend mal treffen.")
    Case Else
    MsgBox(0, 'PARTY?', "Ma gucken, wer so kommen kann - wenn jeder noch was mitbringt reichts zum lustig feiern.")
    EndSwitch

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

    Func _GetStatusBier(ByRef $ARRAY)
    Local $anzahl = 0
    For $i = 0 To UBound($ARRAY) -1
    For $j = 0 To UBound($ARRAY, 2) -1
    For $k = 0 To UBound($ARRAY, 3) -1
    If ($ARRAY[$i][$j][$k] <> '') And _
    ($ARRAY[$i][$j][$k] <> 0) Then $anzahl += 1
    Next
    Next
    Next
    Return $anzahl
    EndFunc

    [/autoit]

    :rofl:

  • gui hintergrund halbwegs transparent

    Zitat von r1fLeX

    Die Transparens von Bildern kann/sollte jeder Noob runterstellen können mit Photoshop/Gimp/Paint.net !

    Ich bezweifele, dass das was bringt. Warum? - Der Hintergrund ist die GUI, darauf pappst du ein Bild. Ist dieses semitransparent, dann siehst du die GUI dadrunter - nicht den Windows-Hintergrund.

    Es gibt ein, wenn auch aufwändige, Variante.
    - Master-GUI mit Hintergrundbild erstellen
    - Transparenz setzen
    - für JEDES Control ein Child-GUI in Control-größe
    Dann sind alle Controls gut sichtbar und der Hintergrund ist transparent.

  • gui hintergrund halbwegs transparent

    Code
    WinSetTrans ( "title", "text", transparency )
title           The title of the window to change. See Title special definition. 
text            The text of the window to change.  
transparency    A number in the range 0 - 255. The lower the number, the more transparent the window will become. 255 = Solid, 0 = Invisible.

  • Verschachtelte If-Funktion

    Zitat von ctec

    da hab ich mir schon angewöhnt, analog zu den UDFs ins erste Feld die Anzahl der Datensätze zu schreiben also bei einem $array[10] steht im $array[0] = 10

    dann kann man in den Schleifen auf das Ubound($array) - 1 "verzichten" und kommt mit den Zählern nicht durcheinander ...

    kommt aber immer auf der Programm an denke ich ;)


    Ist immer die Frage, ob es Sinn macht den Zähler zu führen.
    Ist das Array dynamisch, braucht man das nicht - da läßt sich jederzeit mit UBound die Größe abfragen. Bei einem statischen Array kann das durchaus Sinn machen.
    Also gilt wie so oft: Das kommt ganz drauf an.. :rofl:

  • GUI Prozessbalken

    Den Inhalt der Label kannst du mit GUICtrlSetData() ändern.

    Für den Prozessbalken finde ich das Hilfebsp. eigentlich sehr gelungen. Einfacher könnte ich das jetzt auch nicht schildern.
    Kopier das Hilfeskript und probiere damit rum. Ändere Werte, damit du siehst, was wann passiert.

  • Name convert für Windows Server 2003

    Dann frage das vorher ab und splitte ggf.

    [autoit]

    If StringInStr($Name_split[$Name_split[0]], '-') Then
    $var = StringSplit($Name_split[$Name_split[0]], '-')
    $Name_split[$Name_split[0]] = $var[$var[0]]
    EndIf
    $bname = StringLeft($Name_split[1], 1) & "." & $Name_split[$Name_split[0]]

    [/autoit]

  • Verschachtelte If-Funktion

    So gehts z.B.:

    Spoiler anzeigen
    [autoit]

    Func _CheckInstall()
    _ImportRegData()
    Local $err = 0
    Select
    Case $Version = 40
    For $i = 1 To 11
    Execute('If $Install_' & $i & ' <> $RegEntrySuccess Then $err += 1')
    Next
    If $err = 0 Then
    MsgBox(0, 'Installation', 'Erfolgreich')
    Else
    MsgBox(0, 'Installation', 'Fehlgeschlagen' & @LF & $err & ' Fehler.')
    EndIf
    EndSelect
    EndFunc

    [/autoit]

    Allerdings bleibt die Frage, woher die Variablen $Install_1 bis $Install_11 kommen. Sie müssen in diesem Fall Global deklariert sein - sonst wird sie die Funktion nicht erkennen.

  • Reagieren, _falls_ ein gewisses Fenster auftaucht. WinExists?

    Dann wäre schon wichtig zu wissen, was das Skript sonst so "treibt". Hat es arg zu tun ist AdlibEnable sicher die beste Lösung, ansonsten läßt sich die Abfrage sicher in das vorhandene Skript einbauen.
    Womit wir bei dem leidigen Problem sind: zu wenig Info's ;)
    Nicht nur das Problem schildern, sondern auch das Umfeld - und wenn wir wissen um was es geht, können wir gezielter helfen. (Unsere Kristallkugeln sind schon ziemlich abgenutzt :rofl: )

  • Name convert für Windows Server 2003

    Oder so:

    [autoit]

    Global $CheckStr = 'Jörg Müller'
    Global $oUml = ObjCreate("Scripting.Dictionary")
    $oUml.Add('ä', 'ae')
    $oUml.Add('Ä', 'Ae')
    $oUml.Add('ö', 'oe')
    $oUml.Add('Ö', 'Oe')
    $oUml.Add('ü', 'ue')
    $oUml.Add('Ü', 'Ue')
    $oUml.Add('ß', 'ss')
    $colKeys = $oUml.Keys
    For $strKey In $colKeys
    If StringInStr($CheckStr, $strKey, 1) Then $CheckStr = StringReplace($CheckStr, $strKey, $oUml.Item($strKey))
    Next
    ConsoleWrite($CheckStr & @CRLF)

    [/autoit]

  • Array für Beginner

    Ich finde immer den Tabellenvergleich recht verständlich:
    1D-Array - Ein Blatt Papier mit einer einspaltigen Tabelle
    2D-Array - Ein Blatt Papier mit einer mehrspaltigen Tabelle
    3D-Array - Mehrere übereinanderliegende Blatt Papier mit jeweils einer mehrspaltigen Tabelle

    Wobei der Rubik's Würfel schon ideal ist um diese Vorstellung auch plastisch zu bekommen.
    Mit dem Unterschied allerdings, dass die Anzahl der Elemente in den einzelnen Dimensionen nicht symmetrisch sein muß.