Beiträge von Oscar

Dann starte mal dieses Testscript,

HotKeySet('{ESC}', '_Exit')
Global $a = 0
While True
	$a += 1
WEnd


Func _Exit()
	Exit
EndFunc

weise dem Prozess "AutoIt3.exe *32" nur eine CPU zu ("Zugehörigkeit festlegen..." im TaskManager) und schaue Dir die Auslastung an.
Dann siehst Du, dass die eine CPU zu 100% ausgelastet ist, die Gesamtauslastung aber nur 25% (bei 4 CPUs) beträgt.
Wenn die Zugehörigkeit nicht festgelegt ist, dann verteilt Windows das auf alle CPUs.

Mars: Deine Puffer-Methode (auf 10.000.000 geändert) schlägt sich ganz gut (4.485 sek.), wird aber von der BinaryToString-Methode (4.202 sek.) geschlagen.
Ich denke, rein mit AutoIt sind wir am Optimum angekommen. Da wird wohl nicht mehr viel gehen.
Etwas optimieren kann man die BinaryToString-Methode noch, indem man mehrere BinaryToString in eine Zeile packt:

For $iLoop = 1 To $iCount Step 64
	$sText &= BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1) & BinaryToString(Random(0, 2^31-1, 1), 1)
Next

So läßt sich das auf 3.961 sek. reduzieren. Der Code wird aber zunehmend unleserlicher.

Stimmt, die Variante mit BinaryToString wäre dann die Schnellste (in AutoIt): 4.202 sek. (10.000.000 Zeichen)
Ich hatte die BitShift-Variante jetzt mehr als Beispiel für eine Assembler-Variante gesehen. Dort hatte Andy ja einen 32-Bit-Randomwert und Bitshift dürfte in Assembler ja sehr schnell sein.
Unabhängig vom ursprünglichen Threadthema (ist ja gelöst) würde mich eine Assembler-Variante mit gesamten ASCII-Zeichensatz (0...255) interessieren.

Statt einfach nur ins Leere zu shiften, kann man die 32Bitzahl auch gleich als 4 Zufallszahlen (à 8 Bit) betrachten. Das würde dann so aussehen:

$iRandom = Random(0, 2^31-1, 1)
ConsoleWrite('Zufall = ' & Hex($iRandom) & @CR)
For $i = 0 To 3
	ConsoleWrite($i+1 & '. = 0x' & Hex(BitAND($iRandom, 0xff), 2) & @CR)
	$iRandom = BitShift($iRandom, 8)
	ConsoleWrite('nach Shift = ' & Hex($iRandom) & @CR)
Next

Das ist in AutoIt aber langsamer (getestet), weil die Anzahl der Befehle innerhalb der Schleife zunimmt.
Testcode:

#include <WinAPILocale.au3>
Global $tNUMBERFMT = _WinAPI_CreateNumberFormatInfo(0, 0, 3, '', '.', 1) ; <- ist nur für die formatierte Ausgabe


Global $iCount = 10000000 ; Anzahl der Zufallszeichen
SRandom(@MSEC) ; Startwert für Random ändern
HotKeySet('{ESC}', '_Stop') ; zum Abbrechen des Programms


; ----- Variante 1 mit Chr(Random) -----
Global $sText = '', $iLoop = 0, $iDiff = 0
AdlibRegister('_Progress', 500)
_Progress()
Global $iTimer = TimerInit()


For $iLoop = 1 To $iCount
	$sText &= Chr(Random(0, 255, 1))
Next
$iDiff = TimerDiff($iTimer)
AdlibUnRegister()
ToolTip('')
ConsoleWrite('Variante 1 = ' & Round($iDiff / 1000, 3) & ' sek. (' & _WinAPI_GetNumberFormat(0, StringLen($sText), $tNUMBERFMT) & ' Zeichen)' & @CRLF)
;~ MsgBox(0, 'Variante 1', Round($iDiff / 1000, 3) & ' sek.' & @CRLF & _WinAPI_GetNumberFormat(0, StringLen($sText), $tNUMBERFMT) & ' Zeichen')
; ----- Variante 1 mit Chr(Random) -----




; ----- Variante 2 mit $aChar[Random] -----
Global $sText = '', $iLoop = 0, $iDiff = 0
AdlibRegister('_Progress', 500)
_Progress()
Global $iTimer = TimerInit()


Global $aChar[256]
For $i = 0 To 255
	$aChar[$i] = Chr($i)
Next
For $iLoop = 1 To $iCount
	$sText &= $aChar[Random(0, 255, 1)]
Next
$iDiff = TimerDiff($iTimer)
AdlibUnRegister()
ToolTip('')
ConsoleWrite('Variante 2 = ' & Round($iDiff / 1000, 3) & ' sek. (' & _WinAPI_GetNumberFormat(0, StringLen($sText), $tNUMBERFMT) & ' Zeichen)' & @CRLF)
;~ MsgBox(0, 'Variante 2', Round($iDiff / 1000, 3) & ' sek.' & @CRLF & _WinAPI_GetNumberFormat(0, StringLen($sText), $tNUMBERFMT) & ' Zeichen')
; ----- Variante 2 mit $aChar[Random] -----




; ----- Variante 3 mit BitShift $aChar[Random] -----
Global $sText = '', $iLoop = 0, $iDiff = 0
AdlibRegister('_Progress', 500)
_Progress()
Global $iTimer = TimerInit()


Global $aChar[256], $iRandom
For $i = 0 To 255
	$aChar[$i] = Chr($i)
Next
For $iLoop = 1 To $iCount Step 4
	$iRandom = Random(0, 2^31-1, 1)
	For $i = 0 To 3
		$sText &= $aChar[BitAND($iRandom, 0xff)]
		$iRandom = BitShift($iRandom, 8)
	Next
Next
$iDiff = TimerDiff($iTimer)
AdlibUnRegister()
ToolTip('')
ConsoleWrite('Variante 3 = ' & Round($iDiff / 1000, 3) & ' sek. (' & _WinAPI_GetNumberFormat(0, StringLen($sText), $tNUMBERFMT) & ' Zeichen)' & @CRLF)
;~ MsgBox(0, 'Variante 2', Round($iDiff / 1000, 3) & ' sek.' & @CRLF & _WinAPI_GetNumberFormat(0, StringLen($sText), $tNUMBERFMT) & ' Zeichen')
; ----- Variante 3 mit BitShift $aChar[Random] -----




Func _Stop()
	Exit
EndFunc   ;==>_Stop


Func _Progress()
	ToolTip(Int(100 / $iCount * $iLoop) & '%', Default, Default, 'Progress', 1, 1)
EndFunc   ;==>_Progress

Ergebnis:

Variante 1 = 10.108 sek. (10.000.000 Zeichen)
Variante 2 = 7.741 sek. (10.000.000 Zeichen)
Variante 3 = 14.178 sek. (10.000.000 Zeichen)

Zitat von AspirinJunkie

Müsste $in_max nicht 4294967295 lauten?

Ja klar: 2 ^ 32 - 1
Blöder Fehler!

Edit: Um die Rechnung in Assembler zu vereinfachen, wäre es natürlich besser, wenn der gesamte ASCII-Zeichensatz genutzt würde. Dann könnte man die Zufallszahl einfach "shiften":

$iRandom = Random(0, 2^31-1, 1)
ConsoleWrite($iRandom & @CR)
$iRandom = BitShift($iRandom, 23)
ConsoleWrite($iRandom & @CR)

Neulich hatte ich in C (für Arduino) eine Funktion "map" gelernt und diese in AutoIt umgesetzt:

$x = 1294967293
$y = _Map($x, 0, 4294967296, 33, 127)
ConsoleWrite($y & @CR)


Func _Map($x, $in_min, $in_max, $out_min, $out_max)
	Return Int(($x - $in_min) * ($out_max - $out_min) / ($in_max - $in_min) + $out_min)
EndFunc

Mit dieser Funktion kann man einen Wert aus einem bestimmten Wertebereich in einen anderen Wertebereich umrechnen.
Ich weiß jetzt aber nicht, wie schnell diese Berechnung in Assembler ist.

Das müssten diese hier sein (aus <APIShellExConstants.au3>):

; _WinAPI_ShellChangeNotify()
Global Const $SHCNE_ALLEVENTS = 0x7FFFFFFF
Global Const $SHCNE_ASSOCCHANGED = 0x8000000
Global Const $SHCNE_ATTRIBUTES = 0x00000800
Global Const $SHCNE_CREATE = 0x00000002
Global Const $SHCNE_DELETE = 0x00000004
Global Const $SHCNE_DRIVEADD = 0x00000100
Global Const $SHCNE_DRIVEADDGUI = 0x00010000
Global Const $SHCNE_DRIVEREMOVED = 0x00000080
Global Const $SHCNE_EXTENDED_EVENT = 0x04000000
Global Const $SHCNE_FREESPACE = 0x00040000
Global Const $SHCNE_MEDIAINSERTED = 0x00000020
Global Const $SHCNE_MEDIAREMOVED = 0x00000040
Global Const $SHCNE_MKDIR = 0x00000008
Global Const $SHCNE_NETSHARE = 0x00000200
Global Const $SHCNE_NETUNSHARE = 0x00000400
Global Const $SHCNE_RENAMEFOLDER = 0x00020000
Global Const $SHCNE_RENAMEITEM = 0x00000001
Global Const $SHCNE_RMDIR = 0x00000010
Global Const $SHCNE_SERVERDISCONNECT = 0x00004000
Global Const $SHCNE_UPDATEDIR = 0x00001000
Global Const $SHCNE_UPDATEIMAGE = 0x00008000
Global Const $SHCNE_UPDATEITEM = 0x00002000
Global Const $SHCNE_DISKEVENTS = 0x0002381F
Global Const $SHCNE_GLOBALEVENTS = 0x0C0581E0
Global Const $SHCNE_INTERRUPT = 0x80000000

Genau! Die For...Next-Schleife muss so wenig Befehle wie möglich enthalten. Jeder einzelne Befehl in dieser Schleife wird 10.000.000 mal ausgeführt.
Und solche komplexen If-Anweisungen sind da sehr rechenintensiv.
Hier mal ein Beispiel, wie das schonmal sehr viel schneller geht:

Global $iCount = 10000000
Global $sText = ''
HotKeySet('{ESC}', '_Stop')


Global $aChar[95]
For $i = 0 To 94
	$aChar[$i] = Chr(33 + $i)
Next


Global $iTimer = TimerInit()
AdlibRegister('_Progress', 500)
For $i = 1 To $iCount
	$sText &= $aChar[Random(0, 94, 1)]
Next
ToolTip('')
MsgBox(0, '', Round(TimerDiff($iTimer)/1000, 2) & ' sek.')


Func _Stop()
	Exit
EndFunc


Func _Progress()
	ToolTip(Int(100 / $iCount * $i) & '%', Default, Default, 'Progress', 1, 1)
EndFunc

Aber wahrscheinlich kontert Andy gleich mit einer Assembler-Variante.

Da habe ich auch keine Lösung, aber muss es unbedingt WMI sein?

Mit _WinAPI_ShellChangeNotifyRegister könnte man das Problem doch auch lösen:

#include <APIShellExConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPI.au3>
#include <WinAPIShellEx.au3>


Opt('TrayAutoPause', 0)


Global Const $g_sPath = 'e:\tmp\' ; <- Pfad anpassen!


If Not FileExists($g_sPath) Then Exit MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), 'Error', 'Pfad existiert nicht!')


OnAutoItExitRegister('OnAutoItExit')


Local $hWnd = GUICreate('')
Local $iMsg = _WinAPI_RegisterWindowMessage('SHELLCHANGENOTIFY')
GUIRegisterMsg($iMsg, 'WM_SHELLCHANGENOTIFY')
Global $g_iID = _WinAPI_ShellChangeNotifyRegister($hWnd, $iMsg, $SHCNE_ALLEVENTS, BitOR($SHCNRF_INTERRUPTLEVEL, $SHCNRF_SHELLLEVEL, $SHCNRF_RECURSIVEINTERRUPT), $g_sPath, 1)
If @error Then Exit MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), 'Error', 'Window does not registered.')


While 1
    Sleep(1000)
WEnd


Func WM_SHELLCHANGENOTIFY($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg
    Local $sPath = _WinAPI_ShellGetPathFromIDList(DllStructGetData(DllStructCreate('dword Item1; dword Item2', $wParam), 'Item1'))
    If $sPath Then
        ConsoleWrite('Event: 0x' & Hex($lParam) & ' | Path: ' & $sPath & @CRLF)
    Else
        ConsoleWrite('Event: 0x' & Hex($lParam) & @CRLF)
    EndIf
EndFunc   ;==>WM_SHELLCHANGENOTIFY


Func OnAutoItExit()
    If $g_iID Then _WinAPI_ShellChangeNotifyDeregister($g_iID)
EndFunc   ;==>OnAutoItExit

Wozu benötigst Du das?
Es gibt $GUI_EVENT_PRIMARYUP/-DOWN und $GUI_EVENT_SECONDARYUP/-DOWN.
Somit kannst Du auf die jeweilige Taste reagieren, ohne dass Du erst ermitteln musst welche Taste welche ist.

So, nach vielen Tests und unter Mithilfe von diversen Webseiten habe ich das ESP8266-Modul nun zum laufen bekommen.
Ja, besonders Steckbrett-freundlich ist diese Variante nicht. Ich musste mir mit Hilfe eines alten IDE-Festplatten-Kabels erstmal einen Adapter basteln.

Und nein, der FTDI liefert nicht genügend Strom auf der 3.3V Schiene! Diverse Exeptions und Internet-Suche später, stellte sich das als die Fehlerursache heraus.
Also das Labornetzteil auf 3.3V eingestellt und an das Modul angeschlossen und schon waren die Probleme beseitigt.
Jetzt konnte ich endlich auch die Beispiele aus der Arduino-Library erfolgreich testen. Das ist schon eine coole Sache, so ein winziger WLAN-Webserver.

So ein Node-MCU scheint aber auch eine feine Sache zu sein. Ich denke, da hätte ich mir die ganzen Probleme erspart.
Sowas werde ich mir nochmal zum ausprobieren anschaffen. Danke, für die Links!

Diese hier: http://www.amazon.de/dp/B00U293Y5M/…8075861_TE_item

Projekt Laser-Lichtschranke:
Die Spiegel sind mittlerweile eingetroffen und damit klappt das ausrichten perfekt. Laser und Arduino Nano werden jeweils mit Akkus betrieben, sodass ich keine Probleme mit der Verkabelung habe.
Somit steht nur noch der eigentliche Praxistest aus (am Samstag). Ich habe allerdings noch Zweifel, ob man das 7Segment-LED-Display (Anzeigehöhe 14 mm) aus der Entfernung ablesen kann.
Eventuell muss dann nochmal eine größere Anzeige her.

Zwei ESP8266 habe ich mir jetzt auch noch gekauft. Das klingt doch sehr verlockend, was man damit alles machen kann.

Und da das alles jetzt (noch) nichts mit AutoIt zu tun hat, verschiebe ich den Thread mal.

Naja, Tutorial hin oder her, aber mittlerweile reicht es doch an den Anfang des Scripts:

#AutoIt3Wrapper_Res_SaveSource=y

zu setzen, um eine Kopie des Scripts in der Exedatei zu haben.
Und wenn Du das Script wieder benötigst, lädst Du die Exedatei in einen Editor und kopierst Dir das Script heraus (befindet sich fast am Ende der Datei).

Und jetzt beende Notepad mal und starte es neu.

Kein Wunder, wenn Dir das nicht gelingt!
Das Handle wechselt bei jedem Aufruf. Du kannst das nicht einmalig auslesen und dann ins Script schreiben.
Du musst das Handle zur Laufzeit ermitteln:

Opt('WinTitleMatchMode', 2)
ShellExecute('notepad.exe')
ShellExecute('calc.exe')
Sleep(1000)
WinActivate('[CLASS:Notepad; TITLE:Editor]')
ToolTip('Notepad ist aktiv')
Sleep(3000)
$hWnd = WinGetHandle('Rechner')
ConsoleWrite('Handle: ' & $hWnd & @CR)
WinActivate($hWnd)
ToolTip('Rechner ist aktiv')
Sleep(3000)

So, ich will mal über den Fortschritt berichten.

Projekt Wetterstation:
Luftdruck, Luftfeuchtigkeit, Temperatur und Lichtintensität (alles per I2C angeschlossen) funktionieren schonmal.
Heute habe ich dann noch den externen Temperatur-Sensor (DS18B20) angeschlossen und erfolgreich in Betrieb genommen.
Für das Projekt fehlt mir jetzt noch die RTC und der SD-Cardreader.

Projekt Laser-Lichtschranke:
Lasermodul und Photo-Transistor sind als Lichtschranke sehr gut geeignet. Fremdlicht stört quasi überhaupt nicht. Jedenfalls nicht die normale Zimmerbeleuchtung.
Mit meiner 10 Watt LED-Taschenlampe kann ich den Phototransistor zwar stören, aber so starkes Fremdlicht ist bei diesem Projekt nicht vorgesehen.
Die Geschwindigkeitsmessung mit einer einfachen Lichtschranke funktioniert prinzipiell auch (Messung der Dunkelzeit, bei bekannten Kugeldurchmesser).

Ich habe mir aber überlegt, die Lichtschranke doch etwas komplizierter auszulegen, damit der Kugeldurchmesser egal ist. Ich werde den Laserstrahl jetzt über
zwei Spiegel umlenken (Lasermodul und Photo-Transistor auf der einen Seite der Bahn und die 2 Spiegel auf der Anderen).
Dann habe ich als Weg den Abstand zwischen Lasermodul und Photo-Transistor bzw. zwischen den beiden Spiegeln und als Zeit das zweimalige Unterbrechen der Lichtschranke.

Im ersten Test habe ich zwei Bretter genommen und auf den Einen Lasermodul und Photo-Transistor und auf den Anderen die zwei Spiegel angebracht (Abstand 50 cm).
Das funktionierte soweit auch ganz gut, bis ich den Abstand zwischen den Brettern (entspricht dann der Bahnbreite) vergrößert hatte. Dann stimmte die Spiegelausrichtung nicht mehr.
Nach genauerer Fehleranalyse musste ich feststellen, dass die Bretter nicht so ganz plan auf dem Boden aufliegen (das ließ sich noch mit einigen Pappteilen ausgleichen), aber meine
45 Grad-Halterungen (aus Holz ausgesägt ) für die Spiegel waren nicht so ganz gerade (da kommt es auf Micrometer an), was dann wohl für die Fehlstellung verantwortlich war.
Jetzt habe ich mir zwei Kosmetikspiegel bestellt, die jeweils auf einem eigenen Halter stehen und zusätzlich vertikal schwenkbar sind. Damit sollten die Probleme (hoffentlich) beseitigt sein.

Ich habe mir übrigens noch fünf Arduino Nano (China-Clone) gekauft. Coole Sache: pro Stück nur 3 EUR und sind deutlich kleiner als der UNO.

Das habe ich damals (auf dem C64) sehr gern gespielt.

Bei Deiner Variante musste ich erstmal die $shipspeed halbieren, sonst bewegte sich das Schiff zu schnell hin und her.
Leider nur halb fertig. Man gewinnt zu leicht.
Die Gegner müssen noch schiessen, die unteren Blöcke müssen das eigene Schiessen verhindern und bei Gegnerbeschuss langsam zerfallen.
Sound wäre toll! Mehrere Level. Ich würde auch den OnEvent-Mode benutzen, dann kannst Du das GuiGetMsg aus der Schleife entfernen.

Aber ansonsten schonmal ein guter Anfang!

Alles Gute zum Geburtstag!
Ich wünsche Dir eine schöne Feier (heute oder am Wochenende).

Bei der geringen Gehäusehöhe dürfte es schwierig werden, etwas passendes zu finden. Die meisten High-End-Kühler/-Lüfter sind recht hoch.
Befinden sich denn in dem Deckenblech an der Stelle Luftlöcher (und genug Abstand nach oben/kein zusätzliches HiFi-Gerät draufgestellt), damit der Prozessorkühler dort wenigstens kühle Luft ansaugen kann?
Ansonsten sehe ich schwarz für Dauer-CPU-Belastung. Du kannst ja mal die Temperatur messen, während irgendein Programm den Rechner voll auslastet.