Beiträge von BugFix

**BugFix**

Ich hatte mal eine Stoppuhr erstellt. Ist ja grundsätzlich dasselbe Prinzip.
Schau es dir mal an, vielleicht bringt es dich weiter

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Global $start, $UsedTime, $diff_Alt = 0
Global $SetTime = False, $Break = False, $Pause = False, $Run = True

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

$GUI = GUICreate('Stoppuhr', 400, 100, -1, -1)
$Time = GUICtrlCreateInput('00:00:00,000', 100, 20, 200, 20, BitOR($ES_CENTER,$ES_READONLY))
$bStart = GUICtrlCreateButton('Start', 40, 60, 80, 20)
$bBreak = GUICtrlCreateButton('Unterbrechen', 160, 60, 80, 20)
GUICtrlSetState(-1, $GUI_DISABLE)
$bPause = GUICtrlCreateButton('Pause', 280, 60, 80, 20)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()

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

While True
$msg = GUIGetMsg()
If $SetTime Then $UsedTime = SetTime()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $bStart ; Start/Stop Messung absolut
$Run = Not $Run
If $Run Then
$SetTime = False
SetTime()
GUICtrlSetData($bStart, 'Start')
GUICtrlSetState($bBreak, $GUI_DISABLE)
GUICtrlSetState($bPause, $GUI_DISABLE)
Else
$SetTime = True
$start = TimerInit()
GUICtrlSetData($bStart, 'Stop')
GUICtrlSetState($bBreak, $GUI_ENABLE)
GUICtrlSetState($bPause, $GUI_ENABLE)
EndIf
Case $bBreak ; nur Anzeige wird angehalten (z.B. Rundenmessung)
$Break = Not $Break
If $Break Then
$SetTime = False
GUICtrlSetData($bBreak, 'Fortsetzen')
GUICtrlSetState($bPause, $GUI_DISABLE)
Else
$SetTime = True
GUICtrlSetData($bBreak, 'Unterbrechen')
GUICtrlSetState($bPause, $GUI_ENABLE)
EndIf
Case $bPause ; Messung wird angehalten (Additionsmessung)
$Pause = Not $Pause
If $Pause Then
$diff_Alt = $UsedTime ; abgelaufene Zeit aufaddieren
$SetTime = False
GUICtrlSetData($bPause, 'Weiter')
GUICtrlSetState($bBreak, $GUI_DISABLE)
Else
$SetTime = True
$start = TimerInit() ; Zeitmessung neu initialisieren
GUICtrlSetData($bPause, 'Pause')
GUICtrlSetState($bBreak, $GUI_ENABLE)
EndIf
EndSwitch
WEnd

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

Func SetTime()
Local $diff = TimerDiff($start)/1000 + $diff_Alt
Local $hour = 0
Local $min = 0
Local $sec = Floor($diff)
Local $rest = ($diff-$sec)*1000
Local $secShow, $minShow, $hourShow
If $sec > 59 Then
$min = Floor($sec/60)
$secShow = Mod($sec, 60)
ElseIf $sec > 3599 Then
$hourShow = Mod(Mod($sec,3600),60)
$minShow = Floor(Mod($sec,3600)/60)
$secShow = Floor($sec/3600)
Else
$secShow = $sec
$minShow = $min
$hourShow = $hour
EndIf
GUICtrlSetData($Time, StringFormat('%02u', $hourShow) & ':' & StringFormat('%02u', $minShow) & ':' & StringFormat('%02u', $secShow) & ',' & StringFormat('%03u', $rest))
Return $diff ; gibt abgelaufene Zeit als absolute Differenz zurück
EndFunc

[/autoit]

**BugFix**

Zitat von starkalex

letzte frage gibs ne möcklichkeit per Button ein pic wegmachen?

Ja, dazu mußt du aber die ID der erzeugten Pictures speichern ( $ID = GUICtrlCreatePic() ). Dann kannst du mit GUICtrlDelete() das Control auch wieder löschen.

**BugFix**

Grundsätzlich geht auch die Variante If GuiCtrlRead($ctrl) = $GUI_CHECKED ($GUI_UNCHECKED).
Wir hatten aber schon Programmbeispiele, wo diese Abfrage nicht sicher funktionierte. Aber mit der BitAnd-Lösung funktionierte es. Deshalb verwende ich diese Variante.

**BugFix**

Hi,
ich habs dir mal korrigiert. Du mußt ein Control auslesen, wenn du den Status wissen willst:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Opt("GUIOnEventMode",1)

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

GUICreate("Meine erste GUI",300,200)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Close");schliessen
$checkCN1 = GUICtrlCreateCheckbox ("CHECKBOX 1", 10, 10, 120, 20)
GUICtrlSetOnEvent(-1, '_CN1clicked')
$checkCN2 = GUICtrlCreateCheckbox ("CHECKBOX 2", 10, 30, 120, 20)
GUICtrlSetOnEvent(-1, '_CN2clicked')
;~ $checkCN3 = GUICtrlCreateCheckbox ("CHECKBOX 3", 10, 50, 120, 20)

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

$okbutton = GUICtrlCreateButton ("OK",50,130,70,20)
GUICtrlSetState(-1,$GUI_FOCUS)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1,"_Checkbox")
$cancelbutton = GUICtrlCreateButton ("Cancel",180,130,70,20)
GUICtrlSetOnEvent(-1,"_Close");abbrechen

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

GUISetState ()
While 1
Sleep(100)
WEnd

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

Func _Close()
GUIDelete()
Exit
EndFunc

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

Func _CN1clicked()
If BitAND(GUICtrlRead($checkCN1), $GUI_CHECKED) Then
GUICtrlSetState($checkCN2, $GUI_DISABLE)
GUICtrlSetState($okbutton, $GUI_ENABLE)
Else
GUICtrlSetState($checkCN2, $GUI_ENABLE)
If BitAND(GUICtrlRead($checkCN2), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
EndIf
EndFunc

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

Func _CN2clicked()
If BitAND(GUICtrlRead($checkCN2), $GUI_CHECKED) Then
GUICtrlSetState($checkCN1, $GUI_DISABLE)
GUICtrlSetState($okbutton, $GUI_ENABLE)
Else
GUICtrlSetState($checkCN1, $GUI_ENABLE)
If BitAND(GUICtrlRead($checkCN1), $GUI_UNCHECKED) Then GUICtrlSetState($okbutton, $GUI_DISABLE)
EndIf
EndFunc

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

Func _Checkbox();
Select
Case BitAND(GUICtrlRead($checkCN1), $GUI_CHECKED)
MsgBox(0, "Checkbox 1", "ausgewählt")
Case BitAND(GUICtrlRead($checkCN2), $GUI_CHECKED)
MsgBox(0, "Checkbox 2", "ausgewählt")
EndSelect
EndFunc

[/autoit]

Greenhorn: In der While-Schleife ständig abzuprüfen ist unsinnig im OnEvent-Mode. Dazu gibts ja die Events

**BugFix**

Zitat von Dietmar

wenn ich gleich zuhause bin gibts ein Bild dazu dann wird es klarer

Wie meine Frau - "gleich" ist ein sehr dehnbarer Begriff.

**BugFix**

Besser so:
Deine Func btn1() rufst du mit AdlibEnable() auf und setzt die Aktionszeit auf 250 ms, das Sleep in der Funktion nimmst du raus.
Und dann reagiert das Programm ganz normal beim Klick auf btn2.

**BugFix**

Bei 150 Programmen, wird es wohl besser sein, wenn du diese in einem Array führst und abfragst.
Ein Array in der Art:

[autoit]

Global $arProgramme[150][2] = [ _
['Programmname1', 'Programm1_Pfad'], _
['Programmname2', 'Programm2_Pfad'], _
['Programmname3', 'Programm3_Pfad'], _
;......
['Programmname150', 'Programm150_Pfad']]

[/autoit]

Bei 'ProgrammX_Pfad' empfiehlt es sich den kompletten Aufruf für Run() (oder womit du das Prog aufrufst) zu hinterlegen, speziell mußt du den Ordner angeben, indem das Programm ausgeführt werden soll, da es sonst die zugehörige INI nicht finden wird.

**BugFix**

Problemstellung: Mit Button1 endlos SPACE senden und mit Button2 dieses beenden.

**BugFix**

Probier das mal:

[autoit]

#include <GUIConstants.au3>
Opt("GUICoordMode",2)

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

GUICreate("NosTale Leertasten Prog")
$Button_1 = GUICtrlCreateButton ("Starte Prog für NosTale", 50, 150, 150)
$Button_2 = GUICtrlCreateButton ("Schließe Prog für NosTale", 10, -1)

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

GUISetState ()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
AdlibEnable('_Space', 50) ; alle 50 ms wird die Funktion aufgerufen
Case $msg = $Button_2
AdlibDisable()
EndSelect
Wend

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

Func _Space()
Send("{space}")
EndFunc

[/autoit]

**BugFix**

Zitat

was kann ich dagegen tun?

Ganz einfach
Führe ControlSend mit ALLEN erforderlichen Parametern aus!

[autoit]

ControlSend ( "title", "text", controlID, "string" [, flag] )

[/autoit]

**BugFix**

Du kannst auch deinen PC anweisen, statt mit der CMOS-Time, sich auf einen externen Zeitserver abzugleichen.
Somit hast du über die Makros @Hour, @Min, @Sec die genaue Zeit.

Spoiler anzeigen

Zitat von Microsoft Support

Konfigurieren des Windows-Zeitdienstes für die Verwendung einer externen Zeitquelle
Gehen Sie folgendermaßen vor, um einen internen Zeitserver für die Synchronisierung mit einer externen Zeitquelle zu konfigurieren:
1. Ändern Sie den Servertyp in NTP. Gehen Sie hierzu folgendermaßen vor:
a. Klicken Sie auf Start und auf Ausführen, geben Sie regedit ein, und klicken Sie auf OK.
b. Klicken Sie auf den folgenden Unterschlüssel in der Registrierung:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Parameters\Type
c. Klicken Sie im rechten Bereich mit der rechten Maustaste auf Type, und klicken Sie dann auf Ändern.
d. Geben Sie im Feld Zeichenfolge bearbeiten unter Wert den Wert NTP ein, und klicken Sie auf OK.
2. Setzen Sie AnnounceFlags auf 5. Gehen Sie hierzu folgendermaßen vor:
a. Suchen Sie den folgenden Registrierungsunterschlüssel, und klicken Sie darauf:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Config\AnnounceFlags
b. Klicken Sie im rechten Bereich mit der rechten Maustaste auf AnnounceFlags, und klicken Sie dann auf Ändern.
c. Geben Sie im Feld DWORD-Wert bearbeiten unter Wert den Wert 5 ein, und klicken Sie auf OK.
3. Aktivieren Sie NTPServer. Gehen Sie hierzu folgendermaßen vor:
a. Klicken Sie auf den folgenden Unterschlüssel in der Registrierung:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpServer
b. Klicken Sie im rechten Bereich mit der rechten Maustaste auf Enabled, und klicken Sie dann auf Ändern.
c. Geben Sie im Feld DWORD-Wert bearbeiten unter Wert den Wert 1 ein, und klicken Sie auf OK.
4. Geben Sie die Zeitquellen an. Gehen Sie hierzu folgendermaßen vor:
a. Klicken Sie auf den folgenden Unterschlüssel in der Registrierung:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Parameters\NtpServer
b. Klicken Sie im rechten Bereich mit der rechten Maustaste auf NtpServer, und klicken Sie dann auf Ändern.
c. Geben Sie im Feld Zeichenfolge bearbeiten unter Wert den Wert Peers ein, und klicken Sie auf OK.

Hinweis: Peers ist ein Platzhalter für eine durch Leerzeichen getrennte Liste von Peers, von denen Ihr Computer Zeitstempel erhält. Die aufgeführten DNS-Namen müssen jeweils eindeutig sein. Sie müssen ,0x1 an das Ende der einzelnen DNS-Namen anhängen. Wenn Sie nicht ,0x1 an das Ende der einzelnen DNS-Namen anhängen, werden die in Schritt 5 vorgenommenen Änderungen nicht wirksam.
5. Wählen Sie das Pollintervall aus. Gehen Sie hierzu folgendermaßen vor:
a. Klicken Sie auf den folgenden Unterschlüssel in der Registrierung:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient\SpecialPollInterval
b. Klicken Sie im rechten Bereich mit der rechten Maustaste auf SpecialPollInterval, und klicken Sie dann auf Ändern.
c. Geben Sie im Feld DWORD-Wert bearbeiten unter Wert den Wert TimeInSeconds ein, und klicken Sie auf OK.

Hinweis: TimeInSeconds ist ein Platzhalter für die Anzahl der Sekunden zwischen den einzelnen Polls. Der empfohlene Dezimalwert ist 900. Dieser Wert konfiguriert den Zeitserver für ein Pollintervall von 15 Minuten.
6. Konfigurieren Sie die Einstellungen für die Zeitkorrektur. Gehen Sie hierzu folgendermaßen vor:
a. Klicken Sie auf den folgenden Unterschlüssel in der Registrierung:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Config\MaxPosPhaseCorrection
b. Klicken Sie im rechten Bereich mit der rechten Maustaste auf MaxPosPhaseCorrection, und klicken Sie dann auf Ändern.
c. Klicken Sie im Feld DWORD-Wert bearbeiten im Feld Basis auf Dezimal.
d. Geben Sie im Feld DWORD-Wert bearbeiten unter Wert den Wert TimeInSeconds ein, und klicken Sie auf OK.

Hinweis: TimeInSeconds ist ein Platzhalter für einen sinnvollen Wert, z. B. 1 Stunde (3600) oder 30 Minuten (1800). Der Wert, den Sie wählen, hängt vom Pollintervall, den Netzwerkbedingungen und der externen Zeitquelle ab.
e. Klicken Sie auf den folgenden Unterschlüssel in der Registrierung: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Config\MaxNegPhaseCorrection
f. Klicken Sie im rechten Bereich mit der rechten Maustaste auf MaxNegPhaseCorrection, und klicken Sie dann auf Ändern.
g. Klicken Sie im Feld DWORD-Wert bearbeiten im Feld Basis auf Dezimal.
h. Geben Sie im Feld DWORD-Wert bearbeiten unter Wert den Wert TimeInSeconds ein, und klicken Sie auf OK.

Hinweis: TimeInSeconds ist ein Platzhalter für einen sinnvollen Wert, z. B. 1 Stunde (3600) oder 30 Minuten (1800). Der Wert, den Sie wählen, hängt vom Pollintervall, den Netzwerkbedingungen und der externen Zeitquelle ab.
7. Beenden Sie den Registrierungseditor.
8. Geben Sie folgenden Befehl an der Befehlszeile ein, um den Windows-Zeitdienst neu zu starten, und drücken Sie anschließend die [EINGABETASTE]:
net stop w32time && net start w32time

Alles anzeigen

Hier der Link

**BugFix**

Zitat von bernd670

_FileListToArray benötigt auch nicht unbedingt ein abschliessenden Backslash, aber wenn bei FileGetTime der Backslash fehlt wird Verzeichnis und Dateiname zusammengeschrieben!

Korrekt.
Ich hab mir aber angewöhnt, Pfadangaben mit Backslash abzuschließen, weil dann bei der Kombination VariablePfad & VariableDatei es ausreicht

[autoit]

$Path & $File

[/autoit]

zu schreiben, statt sonst

[autoit]

$Path & '\' & $File

[/autoit]

.
Mein Antrieb war mal wieder die Faulheit

**BugFix**

Es fehlt in der Pfadangabe ein abschließender Backslash

[autoit]

$path = "C:\Pfad\"

[/autoit]

Oder du fügst ihn in der FileGetTime-Funktion ein.

**BugFix**

Dein Snippet läßt leider nicht erkennen, an welcher Position $lastnumber einen Wert zugewiesen bekommt bzw. auf welche Weise dies geschieht und welche Rolle die Variable spielt. Wenn mit $lastnumber der letzte Wert im Array $Heimatsystem gemeint ist, brauchst du diese Variable überhaupt nicht. Denn das ist immer UBound($Heimatsystem)-1. Mich wundert nur, dass du $lastnumber als Parameter zum Funktionsaufruf übergibst und dieser Parameter den Zugriff auf ein Array regelt, dass erst in dieser Funktion erstellt wird und dessen Größe vorab nicht bekannt ist. Kurz: Dieser Parameter ist Quatsch und produziert nur Fehler.
Es sei denn, es sind noch irgendwelche anderen Zusammenhänge, die hier nicht ersichtlich sind.
Auf jeden Fall mußt du in der Funktion prüfen, ob das Array erstellt wurde und entsprechend reagieren.

[autoit]

$oTable = _IETableGetCollection ($oFrame, 4)
If Not IsObj($oTable) Then Return SetError(1,0,-1) ; Fehler gesetzt, Func gibt -1 zurück
$Heimatsystem = _IETableWriteToArray ($oTable, True)
If Not IsArray($Heimatsystem) Then Return SetError(2,0,-1) ; Fehler gesetzt, Func gibt -1 zurück

[/autoit]

**BugFix**

Hi,
die Fehlermeldung sagt es schon sehr genau. Dein Array $Heimatsystem[$lastnumber][0] ist halt zu diesem Zeitpunkt entweder kein Array oder $lastnumber verweist auf einen Index außerhalb des Arrays.
Füge davor eine Fehlerabfrage ein, z.B.:

[autoit]

If (Not IsArray($Heimatsystem)) Or ($lastnumber > (UBound($Heimatsystem) -1)) Then Exit

[/autoit]

**BugFix**

Zitat von Unwissender

Hier ist das Problem, dass beim 2. Code die gelesenen Daten nicht in die Inputboxen mit dem Array [$read_line][$tabitem = 2] geschrieben werden.
Weiss vielleicht jemand von euch, an was das liegen könnte?

Debugge mal so und validiere ob die Werte OK sind:

Spoiler anzeigen

[autoit]

For $tabitem = 0 To 2
For $read_line = 1 to _Group()
$readen_line = string(filereadline($file, $line))
ConsoleWrite('$readen_line = ' & $readen_line & @CRLF)
ConsoleWrite('GUICtrlSetData in: $group[' & $read_line & '][' & $tabitem & ']' & @CRLF)
GUICtrlSetData($group[$read_line][$tabitem], $readen_line)
Do
$readen_line = String(StringTrimRight($readen_line, 1))
GUICtrlSetData($group[$read_line][$tabitem], $readen_line)
If $read_line = 16 Then
$compare = StringRight(GUICtrlRead($group[$read_line][$tabitem]), 6)
Else
$compare = StringRight(GUICtrlRead($group[$read_line][$tabitem]), 5)
EndIf
Until StringInStr($string, $compare) Or StringInStr("40060035090030", StringRight(GUICtrlRead($group[$read_line][$tabitem]), 2))
If $line = 36 Then
$line += 2
Else
$line += 1
EndIf
Next
Next

[/autoit]

**BugFix**

OK,
hier meine Tipps:

- Array mit Fragen und Lösungen ($Array[Anzahl_Fragen][2]; $a[n][0]=Frage, $a[n][1]=Lösung)
- Gui für Fragestellung erstellen
- In Schleife das Array abarbeiten
- falsche und richtige Antworten zählen
- wenn max. Anzahl falsche Antworten erreicht Skript beenden
- wenn alle Fragen beantwortet Auswertung

**BugFix**

[autoit]

If $falsche = 5 Then
SoundSetWaveVolume ("50%")
SoundPlay(@WindowsDir & "\media\Windows XP-Fehler.wav",1)
CDTray("e:\", "open")
WinClose ("Frage")
Run("notepad.exe")
WinWaitActive ("Unbenannt - Editor")
sleep (3000)
Send ("Da musst du aber noch arbeiten!!!")
sleep (3000)
WinClose ("Unbenannt - Editor")
CDTray("e:\","close")
SoundPlay(@WindowsDir & "\media\XP Startvorgang.wav",1)
; hier einfach beenden:
Exit
EndIf

[/autoit]

**BugFix**

[autoit]

For $E=1 To UBound($ASCII_Werte)

[/autoit]

muß richtig heißen:

[autoit]

For $E=1 To UBound($ASCII_Werte)-1

[/autoit]

und

[autoit]

StringTrimLeft($String, 1)

[/autoit]

muß heißen

[autoit]

$String = StringTrimLeft($String, 1)

[/autoit]

**BugFix**

Das war doch in meinem Bsp. zu sehen.
Mit _GUICtrlRebar_SetBandBackColor($RebarID, $Index, 'Farbe als BGR').

Um einen Farbwechsel zu erreichen, wenn du mit der Maus darüberfährst brauchst du ein Hover-Funktion. Mußt du mal im EN-Forum suchen.

Beiträge von BugFix

Berechnung der zeitlichen Dauer - Einbinden in eine GUI

GUICtrlCreatePic Problem

GUICreate mit Checkbox und Button

GUICreate mit Checkbox und Button

Dynamische Funktionen ? Heisst das so :)

OnEventMode - Während dem Durchlaufen einer Schleife inerhalb einer mit OnEvent aufgerufenen Funktion soll das Script beendet werden

Dynamische Funktionen ? Heisst das so :)

Hilfe bei prog :D

Hilfe bei prog :D

Hallo,Anfägerproblem.

Uhrzeit per Internet Herausfinden!

Dateiliste erstellen mittels _filelisttoarray aber mit datum und nach datum sortiert.

Dateiliste erstellen mittels _filelisttoarray aber mit datum und nach datum sortiert.

Fehler bei in Datei schreiben

Fehler bei in Datei schreiben

Kleines Problem mit einer Funktion

Script richten

Schleife beenden

Array und StringTrimLeft Probleme

Rebar