Beiträge von Chrischn

  • Variablen zwischen 2 Scripten

    Hallo!
    Ich hätt da mal gern´n Problem... ;)

    Also, ich habe noch nicht genug deswegen das folgende:
    Ich würde gern 2 Scripte parallel arbeiten lassen. Das eine soll ständig Daten für das andere bereit halten.
    In datei schreiben stelle ich mir zu langsam vor. Zwischenablage wäre eine Möglichkeit. Ist die schnell genug?
    Oder kann ich vllt. sogar Variablen des einen im anderen abfragen???....

  • InPout32.dll

    Moin Leudääää!!!
    Ich möchte mit der Inpout32.dll (wer hätte das gedacht) die Parallele steuern.
    Mein Forstschritt:
    Ich kann mit...

    [autoit]

    DllCall( "inpout32.dll", "int", "Out32", "int", 0x378, "int", 255)

    [/autoit]

    ... die 8 Datenbits ansteuern indem ich den Wert 255 von 0 bis 255 variiere.
    Ich möchte aber 16 Bits ansteuern, um eine 16Port-Kopllerkarte voll nutzen zu können(mit AI).
    Artikel-Nr. von https://autoit.de/www.Conrad.de : 191084 - 62
    Sie benutzt zusätzlich die: STROBE,ACKNOWLEDGE,BUSY,PAPER EMPTY,SELECT,AUTOFEED,ERROR,INITIALIZE
    Also insgesamt 16.

    Aber ich bekomme sie einfach nicht gesetzt. Habe zum testen einfach mal den ganzen Stecker mit LED´s gepflastert...

  • LPT MSR - LauflichtSteurung

    Samma... Ich bin grad dabei voll die Coole Schrittmotorsteuerung für eine unserer UUUUUUUUhhhhhr-Alten NC-Maschinen zu Scripten.
    Hat jemand von euch ne Idee, wie ich das schreiben (lesen ist nicht ganz soo wichtig) auf den LPT beschleunigen kann?
    Habe mehrere DLL-Aufrufe nacheinander und einer dauert ca 0,3 Sek.

    Das ist für einen 100-Schritt-Motor deutlich zu langsam, die Bearbeitung würde ewig dauern...

    Edit BugFix: Also ich finde es sehr unhöflich, dass du an ein fremdes Skript eine Frage anhängst. Dazu gibt es das Forum H&U! :thumbdown:

  • Dezimal in Binär umwandeln _DezToBin

    Ganze Dezimalzahlen bis 1023 werden in Binär umgewandelt und als Array mit 10 Elementen zurückgegeben.
    Habs für meine Binäruhr gebastelt...

    [autoit]


    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.0.0
    Author: Hacky-Sack
    Script Function: converts round dezimalnumbers up to 1023 into bin
    Beispiel: $bin = _DezToBin(3)
    Beispiel: Returns an array with 10 elements
    #ce ----------------------------------------------------------------------------

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

    #include <array.au3>
    Func _DezToBin($query)
    DIM $return_array[10]
    If $query - 512 > -1 Then
    $return_array[9] = 1
    $query = $query - 512
    Else
    $return_array[9] = 0
    EndIf
    If $query - 256 > -1 Then
    $return_array[8] = 1
    $query = $query - 256
    Else
    $return_array[8] = 0
    EndIf
    If $query - 128 > -1 Then
    $return_array[7] = 1
    $query = $query - 128
    Else
    $return_array[7] = 0
    EndIf
    If $query - 64 > -1 Then
    $return_array[6] = 1
    $query = $query - 64
    Else
    $return_array[6] = 0
    EndIf
    If $query - 32 > -1 Then
    $return_array[5] = 1
    $query = $query - 32
    Else
    $return_array[5] = 0
    EndIf
    If $query- 16 > -1 Then
    $return_array[4] = 1
    $query = $query - 16
    Else
    $return_array[4] = 0
    EndIf
    If $query - 8 > -1 Then
    $return_array[3] = 1
    $query = $query - 8
    Else
    $return_array[3]=0
    EndIf
    If $query - 4 > -1 Then
    $return_array[2] = 1
    $query = $query - 4
    Else
    $return_array[2] = 0
    EndIf
    If $query - 2 > -1 Then
    $return_array[1] = 1
    $query = $query - 2
    Else
    $return_array[1] = 0
    EndIf
    If $query - 1 > -1 Then
    $return_array[0] = 1
    $query = $query - 1
    Else
    $return_array[0] = 0
    EndIf
    Return $return_array
    EndFunc

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

    #cs Example

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

    $bin = _DezToBin(3)
    _ArrayDisplay($bin)

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

    #ce

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

    #cs Example

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

    $bin = _DezToBin(7)
    _ArrayDisplay($bin)

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

    #ce

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

    #cs Example

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

    $bin = _DezToBin(266)
    _ArrayDisplay($bin)

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

    #ce

    [/autoit]

  • Windows7 und PixelSearch

    Ich suche sogar nur einen Pixel ab. Dies war nur mein Test-Script um zu bestätigen, was ich vermutet habe, als meine anderen Scripts unter Win7 super lahmarschig wurden...

    Teste doch einfach mal... Frage ist: Was soll ich dagegen tun? Kann ich irgendwelche grafischen Optionen unter Win7 abschalten/ändern oder hab ich da jetzt ein grundliegendes Problem??

  • Windows7 und PixelSearch

    Hey Jungs, ich hätt da mal gern ein Problem mit Windows7 ;)
    Habe ein paar coole Scripts unter XP zusammengeschraubt mit ständigen Pixelsearch-Arbeiten.
    Seit Windows7 muss ich mit entsetzen feststellen, dass der Pixelsearch-Prozess ziehmlich genau 1000 Mal langsamer ist als unter XP.
    Hab dazu mal ein "Mess-Script" gemacht. Unter XP sind es ca. 20.000 Durchläufe pro Sek. und unter Windows7 sind es ca. 20 Durchläufe pro Sek. Hat jemand ne Erklärung dafür? Wenn das so bleibt, kann ich entweder Win7 oder meine WERKE wegwerfen...

    [autoit]

    Dim $n,$ZyklenProSekunde,$Start
    $Start=TimerInit()
    Do
    Pixelsearch(0,0,1,1,0xFFFFFF,0,1)
    $n=$n+1
    Until TimerDiff($Start) >= 20000
    $ZyklenProSekunde = $n/20
    MSGBox(0,"Zyklen pro Sekunde","Durchschnittlich "& $ZyklenProSekunde &" Zyklen pro Sek.")

    [/autoit]