Beiträge von BugFix

  • Transparente Icons erstellen?

    Zitat von DeepRed92

    wie kann man mit AutoIt transparente Icons erstellen?


    Keine Ahnung, ob das mit AutoIt realisierbar ist.
    Wenn du ein Icon hast, das nicht transparent ist, mußt du ja erst mal feststellen, welche Farbe du jetzt transparent setzen möchtest. Dann muß diese Farbe aus dem gesamten Icon rausgerechnet werden.
    Ich verwende dafür immer GIMP. Da ist das 'ne Sache von einer Minute. ;)

  • Variabeln nicht deklariert? / Rechnung aktualisieren

    Hatte ich gar nicht drauf geachtet - du verwendest ',' als Dezimaltrenner. Das muß man beim Rechnen dann natürlich ändern. Ich korrigiere das gleich mal und editiere dann diesen Post hier.


    Edit:
    Ersetze bitte die Funktion _Rechnen() mit der nachfolgenden und ergänze um die Funktion _Switch().

    Spoiler anzeigen
    [autoit]

    Func _Rechnen()
    Switch GUICtrlRead($Combo1)
    Case 4
    $oTol = (_Switch(GUICtrlRead($aInput2[0]))*10 + _Switch(GUICtrlRead($aInput2[1])))*_Switch(GUICtrlRead($aInput2[3]))
    Case Else
    $oTol = (_Switch(GUICtrlRead($aInput2[0]))*100 + _Switch(GUICtrlRead($aInput2[1]))*10 + _Switch(GUICtrlRead($aInput2[2])))*_Switch(GUICtrlRead($aInput2[3]))
    EndSwitch
    $mTol = ($oTol +100)/GUICtrlRead($aInput2[4])
    GUICtrlSetData($Input11, _Switch($oTol, 0))
    GUICtrlSetData($Input12, _Switch($mTol, 0))
    EndFunc

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

    Func _Switch($str, $pt=1)
    If $pt Then
    Return Number(StringReplace(String($str), ',', '.'))
    Else
    Return String(StringReplace(String($str), '.', ','))
    EndIf
    EndFunc

    [/autoit]

  • Variabeln nicht deklariert? / Rechnung aktualisieren

    Ich habe mal noch gekürzt, um zu zeigen, was du mit Arrays einsparen kannst. ;)
    In deine 'Rechnen'-Funktion mußt du noch eine Fehlerbehandlung einbauen bzw. die Ausgabe je nach Ergebnis in kOhm oder MOhm machen. Du bekommst sonst nicht anzeigbare Ergebnisse.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <GDIPlus.au3>
    #include <EditConstants.au3>
    #include <ComboConstants.au3>
    #Include <Constants.au3>
    Opt("TrayMenuMode",1)

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

    Global $arLabel[12][5] = [ _
    ['Braun','Schwarz','Schwarz','Silber','Keine'], _
    ['Rot','Braun','Braun','Gold','Silber'], _
    ['Orange','Rot','Rot','Schwarz','Gold'], _
    ['Gelb','Orange','Orange','Braun','Braun'], _
    ['Grün','Gelb','Gelb','Rot','Rot'], _
    ['Blau','Grün','Grün','Orange','Grün'], _
    ['Violett','Blau','Blau','Gelb','Blau'], _
    ['Grau','Violett','Violett','Grün','Violett'], _
    ['Weiß','Grau','Grau','Blau',''], _
    ['','Weiß','Weiß','Violett',''], _
    ['','','','Grau',''], _
    ['','','','Weiß','']]

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

    Global $arValue[12][5] = [ _
    ['1','0','0','0,01','20'], _
    ['2','1','1','0,1','10'], _
    ['3','2','2','1','5'], _
    ['4','3','3','10','1'], _
    ['5','4','4','100','2'], _
    ['6','5','5','1000','0,5'], _
    ['7','6','6','10000','0,25'], _
    ['8','7','7','100000','0,1'], _
    ['9','8','8','1000000',''], _
    ['','9','9','10000000',''], _
    ['','','','100000000',''], _
    ['','','','1000000000','']]

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

    Global $Button1, $Button2, $Combo1, $oTol, $mTol
    Global $aInput[5][3], $aInput2[5]

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

    ;------------------------------------------------------------------------------------------------------------
    TraySetIcon(@Scriptdir & "\Images\icon.ico")
    TrayTip("Copyright (c) 2009","xxx",2,1)
    ;~ _intro()
    ;------------------------------------------------------------------------------------------------------------
    $Form1 = GUICreate("Widerstandberechner", 700, 304, -1, -1,-1)
    GUISetBkColor(0xAAE3FF)
    $Ringanzahl = GUICtrlCreateLabel("Ringanzahl:", 446, 48, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Combo1 = GUICtrlCreateCombo("", 544, 45, 49, 5, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_VSCROLL))
    GUICtrlSetFont(-1, 10, 400, 0, "arial")
    GUICtrlSetData(-1, " 4| 5", " 4")

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

    Local $x1 = 40, $x2 = 153, $limit = StringSplit('8;9;9;11;7', ';', 2)
    For $i = 0 To 4
    $aInput[$i][0] = GUICtrlCreateInput("", $x1, 120, 97, 21, $ES_READONLY) ; Input
    $aInput[$i][1] = GUICtrlCreateInput("", $x2, 120, 1, 21) ; Blind-Input
    $aInput[$i][2] = GUICtrlCreateUpdown($aInput[$i][1]) ; UpDown
    GUICtrlSetLimit($aInput[$i][2], $limit[$i], 0)
    GUICtrlSetData($aInput[$i][0], $arLabel[0][$i])
    $x1 += 130
    $x2 += 130
    Next

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

    $Ziffer = GUICtrlCreateLabel("1. Ziffer", 53, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label2 = GUICtrlCreateLabel("2. Ziffer", 183, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label3 = GUICtrlCreateLabel("3. Ziffer", 313, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label1 = GUICtrlCreateLabel("Toleranz", 573, 96, 66, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label4 = GUICtrlCreateLabel("Multiplikator", 443, 96, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label5 = GUICtrlCreateLabel("Widerstandsberechner", 80, 24, 280, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "Arial")

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

    $x = 53
    $sText = StringSplit('1;0;0;0,01;20', ';', 2)
    $limit = StringSplit('12;9;9;11;7', ';', 2)
    For $i = 0 To 4
    $aInput2[$i] = GUICtrlCreateInput($sText[$i], $x, 168, 81, 21, BitOR($ES_READONLY,$ES_RIGHT))
    GUICtrlSetLimit($aInput2[$i], $limit[$i], 0)
    $x += 130
    Next

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

    $Button1 = GUICtrlCreateButton("Schließen", 570, 265, 121, 30, 0)
    $Button2 = GUICtrlCreateButton("Copyright", 8, 272, 89, 25, 0)
    $Label6 = GUICtrlCreateLabel("Lösung ohne Toleranz:", 175, 217, 300, 25)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Input11 = GUICtrlCreateInput("", 350, 215, 150, 25, $ES_READONLY)
    $Label7 = GUICtrlCreateLabel("Lösung mit Toleranz:", 175, 257, 300, 25)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Input12 = GUICtrlCreateInput("", 350, 255, 150, 25, $ES_READONLY)

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

    GUISetState(@SW_SHOW)
    $aboutitem = TrayCreateItem("Credits")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Exit")
    TraySetState()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $Button1, $GUI_EVENT_CLOSE
    Exit
    Case $Combo1
    _Rechnen()
    Case $Button2
    ;~ _credits()
    EndSwitch
    For $i = 0 To 4 ; UpDowns checken
    If $nMsg = $aInput[$i][2] Then
    GUICtrlSetData($aInput[$i][0], $arLabel[GUICtrlRead($aInput[$i][1])][$i])
    GUICtrlSetData($aInput2[$i], $arValue[GUICtrlRead($aInput[$i][1])][$i])
    _Rechnen()
    EndIf
    Next
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $aboutitem
    Msgbox(64, "Credits", "xxx")
    Case $msg = $exititem
    ExitLoop
    EndSelect
    WEnd

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

    ;------------------------------------------------------------------------------------------------------------
    Func _intro ()
    $intro = GUICreate("Spotlight", 465, 303, -1, -1)
    GUICtrlCreatePic(@Scriptdir & "\Images\logo.jpg",-1,-1,465,303)
    GUISetState(@SW_SHOW)
    Sleep(2500)
    GUIDelete()
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
    Func _Rechnen()
    Switch GUICtrlRead($Combo1)
    Case 4
    $oTol = (GUICtrlRead($aInput2[0])*10 + GUICtrlRead($aInput2[1]))*GUICtrlRead($aInput2[3])
    Case Else
    $oTol = (GUICtrlRead($aInput2[0])*100 + GUICtrlRead($aInput2[1])*10 + GUICtrlRead($aInput2[2]))*GUICtrlRead($aInput2[3])
    EndSwitch
    $mTol = ($oTol +100)/GUICtrlRead($aInput2[4])
    GUICtrlSetData($Input11, $oTol)
    GUICtrlSetData($Input12, $mTol)
    EndFunc

    [/autoit]

    Evtl. sind noch paar Fehlerchen drin, hab jetzt nicht alles getestet, eher als Anregung gedacht.

  • Hotkeyset....

    Und schon wieder Bot.
    Bitte Forenregeln beachten und auch die AGB des Spiels lesen:

    Zitat von Auszug AGB

    § 13 Es ist verboten jegliche Seiten von Freewar mit anderen Programmen außer dem Browser abzurufen. Dies bezieht sich insbesondere auf sogenannte Bots oder auch andere Tools die das Webinterface ersetzen oder ändern sollen. Eine Ausnahme gilt für Tools, die von einem Admin bestätigt und dann der Allgemeinheit zur Verfügung gestellt wurden.

    § 14 Programme, die Zugriffe automatisieren, die Spieloberfläche verändern oder übermäßig viele Zugriffe generieren, sind auf allen Seiten von Freewar verboten.

  • Zwei entfernte Computer vernetzen

    Einige werden sich vielleicht erinnern, ich hatte euch mal zum Spielen von Carom3D animiert (ein super Billard Spiel).
    Neben der Onlinevariante über einen Server mit Punktegewinn und -verlust beim Spiel läßt sich das auch über LAN spielen. Wäre somit auch ein Kandidat. Ist ein gratis Spiel.

  • >>> Dienstplanprogramm fertig für jeder man nutzbar <<<

    Zitat von kleiner27

    Nachtrag: Druckbar solles am ende auch werden = zu verteilen an die mitarbeiter o. zu aushängen am büro!!

    Wenn du es öffentlich aushängst, dürfen keine Auswertungen enthalten sein. Datenschutz! Würde sowieso vorher den DS-Beauftragten das absegnen lassen.

    Zitat von kleiner27

    Hallo leute kein Feedback von eich?


    Dein Projekt ist eine ganz spezifische Lösung zu einem spezifischen Problem. Da liegt es in der Natur der Dinge, dass nicht allzu viel Leute damit etwas anfangen können. :S

  • OrganizeIncludes

    Zitat von MatthiasG.

    Ich fände es schön, wenn Organize-Includes auch vor dem Kompilieren ausgeführt werden könnte...


    ?( Ich führe es ausschließlich vor dem Kompilieren aus, dadrin liegt ja der Sinn, zu sehen, welche Includes ich zum Ausführen des Skriptes noch benötige. Wüßte auch gar nicht, wie man das nach dem Kompilieren anwenden sollte. Oder was meinst du genau?

  • Laufwerksbuchstaben ändern

    Sollte so gehen:

    [autoit]

    $oldLetter = 'D:'
    $newLetter = 'Q:'

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

    $strComputer = "."
    $objWMIService = ObjGet("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")

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

    $colVolumes = $objWMIService.ExecQuery _
    ("Select * from Win32_Volume Where Name = '" & $oldLetter & "\\'")

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

    For $objVolume In $colVolumes
    $objVolume.DriveLetter = $newLetter
    $objVolume.Put_
    Next

    [/autoit]

  • HILFE

    Zitat von H1tsugaya

    Je mehr Datein desti mehr Tabs.


    Bevor ich mir das im Detail anschaue eine Anmerkung.
    Das Konzept ist unglücklich gewählt. Für eine dynamische Anzahl von Dateien Tabs zu erstellen wird sehr unübersichtlich.
    Ich schlage dir vor, verwende lieber ein Listview mit Checkbox. (Checkbox nicht zwingend, kannst auch Klick auf Eintrag auswerten)
    - alle Dateinamen in Listview laden
    - wenn du eine Checkbox aktivierst (auf Eintrag klickst) wird die Datei zur Bearbeitung geladen
    - die Checkbox anschließend disablen, damit keine Doppelbearbeitung möglich ist (alternativ: Datei nach Bearbeitung aus dem Listview entfernen)
    - zur Bearbeitung der einzelnen Files kannst du wiederum mit einem Listview arbeiten
    - dort setzt du die ersten Teile des Splits als Einträge
    - klickst du auf einen dieser Einträge, kannst du den zugehörigen Part z.B. in einem Edit od. einer MsgBox od. was auch immer anzeigen lassen

  • Ini Datei Ergebnisse sortieren --- Befehl vorhanden?

    Zitat von Aquaplant

    Das geht leider nicht. Manchmal ist bei dem Programm noch ein Fehler, dann benutze ich


    Da baust du dir selbst einen Stolperstein ein. Was veranlasst dich, bei einem Fehler die gesamte Sektion zu löschen? Es reicht doch völlig den betreffenden Key zu kicken, bzw. noch besser: erst in die INI zu schreiben, wenn KEIN Fehler vorliegt. Du solltest also dein Konzept umstellen. Das ist besser als einer unklaren Voraussetzung das Programm anpassen zu wollen. ;)

  • IsDestinationReachable mit irrealen Werten

    funkey: Ich hab die gleichen Werte wie du, entspricht auch meinem WLAN-Durchsatz.
    Also ist nun klar:
    - Erreichbarkeit wird auf die übergebene Adresse getestet
    - Datendurchsatz bezieht sich ausschließlich auf den Netzwerkadapter

    Dabei war die Funktionsbeschreibung eindeutig anders:

    Zitat

    Determines if the specified destination can be reached and provides Quality of Connection (QOC) information for the destination.

    Danke fürs Testen.

  • HILFE

    ?( Sorry, aber mit deiner Erklärung kann ich leider nicht viel anfangen. Versuche mal, die Aufgabenstellung Schritt für Schritt darzustellen.
    - Situation vor Start (wie sieht der Text aus)
    - Schritt 1 (was hat/soll sich wie verändern)
    - Schritt 2..n (dito)
    - wie soll das Endergebnis aussehen

  • IsDestinationReachable mit irrealen Werten

    Laut Funktionsbeschreibung wird die maximale Datenrate für Incoming (Download) und Outgoing (Upload) zum angegebenen Host ermittelt. Der Wert wird in b/s angegeben, deshalb noch meine Umrechnung auf Kb/s.
    Ich brauch es nicht zwingend, da ich aber über die Funktion gestolpert bin, dachte ich, dass es ganz praktisch wär.

  • IsDestinationReachable mit irrealen Werten

    Zitat von ojo

    P.S:If IsArray($ret) Then
    sollte wohl
    If IsArray($aRet) Then
    sein?!?

    Ähh,.. ja klar. :) Hatte es geändert, aber nicht überall.

    Da ihr auch so bekloppte Werte erhaltet, kann man wohl davon ausgehen, dass die Funktion nicht tut, was sie soll. Auch wenn man aus der Struktur das dwFlag abfragt kommt seltsamerweise '0' raus. Das ist auch völlig daneben. Hier sollte für LAN = 1 oder für WAN = 2 rauskommen.
    Na gut, dann kann man das wohl nicht verwerten - schade.