Beiträge von funkey

  • Mit Kommar rechnen!

    Autoit kann ohne weiteres mit Kommazahlen rechnen. Du hast aber in deinen Code einen falschen Befehl platziert. StringIsFloat ist nur eine Abfrage ob das Eingegebene überhaupt eine Gleitkommazahl ist. Dadurch bekommst du einen falschen Wert (nämlich 1) auf die Variable $y. Lass diese Überprüfung weg und schon hast du ein richtiges Ergebnis ;)

    [autoit]

    $rechnung = GUICtrlRead($test)
    $y = $rechnung
    $x = Number($y / 5)

    [/autoit]

    Außerdem wandelt Autoit intern die Datentypen passend um, also brauchst du auch kein Number.

  • Suche ein Script zur Auflösungsumstellung einer ATI GK per CCC

    RunWait oder ProcessWaitClose

    Spoiler anzeigen
    [autoit]

    ;Auflösung auf 1080i stellen
    Send("^+3"); = CTRG + SHIFT +4 (im Profilmanager entsprechend anlegen)

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

    ;1 Sekunde warten
    Sleep(1000)

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

    ; DVBViewer starten und warten bis er geschlossen wird
    RunWait("C:\Program Files\DVBViewer\dvbviewer.exe")

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

    ; Auflösung auf 720p schalten
    send("^+5"); = CTRG + SHIFT 5

    [/autoit]

  • Step7 No-Know-How

    Hab noch eine Kleinigkeit geändert, deswegen neue Version siehe Post#1


    @DjDominik: Vielen Dank für's Testen. Freut micht wenn es dir gefällt.
    Stilgar: Ja, du hast recht. Eine 'anständige' AWL ist komplizierter als als jeder Know-How Schutz :)

  • Step7 No-Know-How

    Hallo Freunde!

    Hab mal wieder ein Skript von mir auf den Stand der Technik gebracht. ;)

    Das Programm kann Bausteine aus einem Simatic Step7 Programm sperren und entsperren, also den sogenannten KNOW-HOW-PROTECT ein- und ausschalten.
    Dabei wird prinzipiel in einer DBase IV-Datenbank ein Bit pro Baustein umgeschrieben.

    Manuelle Arbeitsweise

    S7 Knowhow-Protect entfernen

    1)
    Datei C:\Programme\Siemens\Step\S7Proj\PROJEKTNAME\ombstx\offline\00000001\SUBBLK.DBF mir einem Hexeditor (z.B. Winhex oder HEX-Wizard kostenlos) öffnen
    2)
    Nach ASCII-Zeichenkette suchen z.B. 1400100 für FB100 (140=FB, 120=FC, 0100= Bausteinnummer)
    d.h. 140 0059 = FB 59. HexWizard benutzen => t 1400059 (t = sucht nach ASCI-Code) = FB59
    3)
    zur gefundenen Adresse 84dez (54hex) dazuzählen und zu dieser Adresse wechseln (hier sollte 33 stehen)
    4)
    Diesen Wert 33 durch 30 ersetzen
    5)
    Datei abspeichern.

    Screenshot

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.


    Programme, die das gleiche leisten, sind etwa Step7Key um 59,50 Euro und S7CanOpener um 50,00 Euro. ;)
    Außerdem kann meine Version zusätzlich noch die Symbolik zu den Bausteinen anzeigen.

    Ich hoffe, dass es hier im Forum noch Step7-Programmierer gibt, die mit dem Programm etwas anzufangen wissen.
    Das Programm darf natürlich frei verwendet und weitergegeben werden, ich möchte aber, dass es nicht verändert wird.

    Viel Spaß!


    Update-Infos

    Update auf Version 2.0.1 ( 24.09.2009)
    * Hatte noch ein überflüssiges _ArrayDisplay im Skript
    * Kleinigkeit beim Gui-Resizing geändert
    * Icon getauscht

    Update auf Version 2.1.0 ( 25.09.2009)
    * Bausteine über Bausteinnummer 9999 wurden nicht angezeigt
    * falsche Anzeige von Bausteinen im Sonderfall behoben


    Danke für die bisherigen 12 Downloads.

  • Led Uhr

    @Faweyr: Bei mir ging die rar tadellos.

    @Matthias_199: Du hast anscheinend das 'i' mit der '1' verwechselt. Das Quellbild passt ja.
    Ansonsten nettes Skript, aber echt anstrendend von den Bildern was abzulesen.

  • _StringFormatSimple (extrem einfacher, geschwindigkeitsoptimierter Ersatz)

    Wusste nicht, dass StringFormat so langsam ist. :huh:
    Bei der Verwendung für Floats mit begrenzten Nachkommastellen geht's aber viel schneller. :huh:

    Hab mich an einer Version für dich versucht, die bei mir noch ein bisschen schneller ist ;)

    Spoiler anzeigen
    [autoit]

    ; Version 2
    Func _StringFormatSimple2(ByRef $s, ByRef $a)
    For $i = 1 To $a[0]
    $s = StringReplace($s,"%s",$a[$i],1,2)
    Next
    EndFunc

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

    ; Version funkey
    Func _StringFormatSimple3(ByRef $s, ByRef $a)
    Local $new = ""
    For $i = 1 To $a[0] -1
    $new &= $a[$i] & $s
    Next
    Return $new & $a[$i]
    EndFunc

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

    Global $var[4]
    $var[0] = 3
    $var[1] = "test1"
    $var[2] = "test2"
    $var[3] = "test3"
    $sString = "%s %s %s"

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

    $iEnde = 1000

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

    $timer = TimerInit()
    For $i = 0 To $iEnde
    $bla = "test1" & " " & "test2" & " " & "test3"
    Next
    ConsoleWrite( $bla & " " & TimerDiff($timer) & @CRLF)

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

    $timer = TimerInit()
    For $i = 0 To $iEnde
    $bla = StringFormat("%s %s %s", "test1", "test2", "test3")
    Next
    ConsoleWrite( $bla & " " & TimerDiff($timer) & @CRLF)

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

    $timer = TimerInit()
    For $i = 0 To $iEnde
    _StringFormatSimple2($sString, $var)
    Next
    ConsoleWrite( $sString & " " & TimerDiff($timer) & @CRLF)

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

    $sString = ' '
    $timer = TimerInit()
    For $i = 0 To $iEnde
    $bla = _StringFormatSimple3($sString, $var)
    Next
    ConsoleWrite( $bla & " " & TimerDiff($timer) & @CRLF)

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

    $timer = TimerInit()
    For $i = 0 To $iEnde
    $bla = StringFormat("%.2f %.2f %.2f", 9.12345, 17.1239734, 13)
    Next
    ConsoleWrite( $bla & " " & TimerDiff($timer) & @CRLF)

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