Beiträge von ScarfacePH

ScarfacePH

? Weiss keiner weiter ?

ScarfacePH

Das mit der Pause kannte ich noch gar nicht cool dankeschön werde das aufjedenfall noch ändern. Kann ich den Befehl denn einfach am Ende des Scribts reinkopieren oder muss der in einem bestimmten bereich stehen?
Das mit der manuellen Eingabe habe ich bewusst nicht gemacht da ich in meinem Bett zwar die Maus habe aber nicht die Tastatur außerdem denke ich das die Auswahlfenster genügend Optionen bieten. Trotzdem guter Gedanke. Danke für das Feedback

ScarfacePH

Hallo zusammen.
Ich habe hier ein kleines Scribt gepostet welches ich jede Nacht benutzte bevor ich mir ein Hörbuch anmache und einschlafe. Das Scribt fährt den Rechner nach einer bestimmten Zeit herunter. Mit der Tastenkombination "Alt" und "s" lässt sich das Scribt jederzeit beenden. Bitte um Feedback und verbesserungsvorschläge. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
Danke

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.4.0
Author: ScarfacePH

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

Opt ("TrayAutoPause",0)
HotKeySet("!s", "_Exit")
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

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

$Form1 = GUICreate("PC Sleeper", 282, 210, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox(" 10 min", 56, 28, 89, 25)
$Checkbox2 = GUICtrlCreateCheckbox(" 20 min", 56, 56, 81, 25)
$Checkbox3 = GUICtrlCreateCheckbox(" 30 min", 56, 80, 81, 33)
$Checkbox4 = GUICtrlCreateCheckbox(" 45 min", 56, 112, 81, 25)
$Checkbox5 = GUICtrlCreateCheckbox(" 60 min", 152, 28, 81, 25)
$Checkbox6 = GUICtrlCreateCheckbox(" 90 min", 152, 56, 81, 25)
$Checkbox7 = GUICtrlCreateCheckbox(" 120 min", 152, 80, 81, 33)
$Checkbox8 = GUICtrlCreateCheckbox(" 150 min", 152, 112, 81, 25)
$Beenden = GUICtrlCreateButton("Beenden", 16, 144, 105, 33, $WS_GROUP)
$Starten = GUICtrlCreateButton("Sarten", 144, 144, 105, 33, $WS_GROUP)
GUISetState(@SW_SHOW)

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

While 1

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

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Beenden
Exit
Case $Starten

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

if GUICtrlRead ($Checkbox1) = $GUI_CHECKED then
GUISetState(@SW_HIDE)
$PcSleeper = GUICreate("Pc Sleeper", 600, 87, 15, 192)
$Zeitangabe = GUICtrlCreateLabel("Der Pc fährt sich in 10 Minuten herunter!", 8, 24, 835, 52)
GUICtrlSetFont(-1, 32, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Sleep(4000)
GUISetState(@SW_HIDE)

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

TrayTip("","10 Minuten.", 5)

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

$z = 10
While $z >= 0
TrayTip("",$z & " Minuten.", 5)
$z = $z - 1
Sleep(60000)
WEnd

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

Shutdown (12)
EndIf

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

if GUICtrlRead ($Checkbox2) = $GUI_CHECKED then
GUISetState(@SW_HIDE)
$PcSleeper = GUICreate("Pc Sleeper", 600, 87, 15, 192)
$Zeitangabe = GUICtrlCreateLabel("Der Pc fährt sich in 20 Minuten herunter!", 8, 24, 835, 52)
GUICtrlSetFont(-1, 32, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Sleep(4000)
GUISetState(@SW_HIDE)

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

TrayTip("","20 Minuten.", 5)
Sleep(600000)
$z = 10
While $z >= 0
TrayTip("",$z & " Minuten.", 5)
$z = $z - 1
Sleep(60000)
WEnd

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

Shutdown (12)
EndIf

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

if GUICtrlRead ($Checkbox3) = $GUI_CHECKED then
GUISetState(@SW_HIDE)
$PcSleeper = GUICreate("Pc Sleeper", 600, 87, 15, 192)
$Zeitangabe = GUICtrlCreateLabel("Der Pc fährt sich in 30 Minuten herunter!", 8, 24, 835, 52)
GUICtrlSetFont(-1, 32, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Sleep(4000)
GUISetState(@SW_HIDE)

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

TrayTip("","30 Minuten.", 5)
Sleep(1200000)
$z = 10
While $z >= 0
TrayTip("",$z & " Minuten.", 5)
$z = $z - 1
Sleep(60000)
WEnd

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

Sleep(1800000)
Shutdown (12)
EndIf

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

if GUICtrlRead ($Checkbox4) = $GUI_CHECKED then
GUISetState(@SW_HIDE)
$PcSleeper = GUICreate("Pc Sleeper", 600, 87, 15, 192)
$Zeitangabe = GUICtrlCreateLabel("Der Pc fährt sich in 45 Minuten herunter!", 8, 24, 835, 52)
GUICtrlSetFont(-1, 32, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Sleep(4000)
GUISetState(@SW_HIDE)

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

TrayTip("","45 Minuten.", 5)
Sleep(2100000)
$z = 10
While $z >= 0
TrayTip("",$z & " Minuten.", 5)
$z = $z - 1
Sleep(60000)
WEnd

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

Shutdown (12)
EndIf

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

if GUICtrlRead ($Checkbox5) = $GUI_CHECKED then
GUISetState(@SW_HIDE)
$PcSleeper = GUICreate("Pc Sleeper", 600, 87, 15, 192)
$Zeitangabe = GUICtrlCreateLabel("Der Pc fährt sich in 60 Minuten herunter!", 8, 24, 835, 52)
GUICtrlSetFont(-1, 32, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Sleep(4000)
GUISetState(@SW_HIDE)

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

TrayTip("","60 Minuten.", 5)
Sleep(3000000)
$z = 10
While $z >= 0
TrayTip("",$z & " Minuten.", 5)
$z = $z - 1
Sleep(60000)
WEnd

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

Shutdown (12)
EndIf

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

if GUICtrlRead ($Checkbox6) = $GUI_CHECKED then
GUISetState(@SW_HIDE)
$PcSleeper = GUICreate("Pc Sleeper", 600, 87, 15, 192)
$Zeitangabe = GUICtrlCreateLabel("Der Pc fährt sich in 90 Minuten herunter!", 8, 24, 835, 52)
GUICtrlSetFont(-1, 32, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Sleep(4000)
GUISetState(@SW_HIDE)

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

TrayTip("","90 Minuten.", 5)
Sleep(4800000)
$z = 10
While $z >= 0
TrayTip("",$z & " Minuten.", 5)
$z = $z - 1
Sleep(60000)
WEnd

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

Shutdown (12)
EndIf

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

if GUICtrlRead ($Checkbox7) = $GUI_CHECKED then
GUISetState(@SW_HIDE)
$PcSleeper = GUICreate("Pc Sleeper", 600, 87, 15, 192)
$Zeitangabe = GUICtrlCreateLabel("Der Pc fährt sich in 120 Minuten herunter!", 8, 24, 835, 52)
GUICtrlSetFont(-1, 32, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Sleep(4000)
GUISetState(@SW_HIDE)

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

TrayTip("","120 Minuten.", 5)
Sleep(6600000)
$z = 10
While $z >= 0
TrayTip("",$z & " Minuten.", 5)
$z = $z - 1
Sleep(60000)
WEnd

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

Shutdown (12)
EndIf

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

if GUICtrlRead ($Checkbox8) = $GUI_CHECKED then
GUISetState(@SW_HIDE)
$PcSleeper = GUICreate("Pc Sleeper", 600, 87, 15, 192)
$Zeitangabe = GUICtrlCreateLabel("Der Pc fährt sich in 150 Minuten herunter!", 8, 24, 835, 52)
GUICtrlSetFont(-1, 32, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Sleep(4000)
GUISetState(@SW_HIDE)

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

TrayTip("","150 Minuten.", 5)
Sleep(8400000)
$z = 10
While $z >= 0
TrayTip("",$z & " Minuten.", 5)
$z = $z - 1
Sleep(60000)
WEnd

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

Shutdown (12)
EndIf

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

EndSwitch
WEnd

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

Func _Exit()
Exit
EndFunc

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

ScarfacePH

wow cool danke @ Stefan und auch @ Autob. für eure super schnellen Antworten.
Beide Lösungen sind super. Da sieht man mal wieder wie viel ich noch lernen muss.

ScarfacePH

Ne das funktioniert leider nicht.
Bei $Rich funktioniert das ja auch nicht mit $i++
trotzdem danke

ScarfacePH

Möchte das der Trainer die Richtigen und Falschen Antworten raufzählt bleibt aber bei 1 stehen und ich weiss echt nicht warum bitte um Hilfe.

Spoiler anzeigen

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form2 = GUICreate("Form2", 441, 562, 195, 134)
$Addieren = GUICtrlCreateCheckbox("Addieren", 96, 24, 97, 17)
$Subtrahieren = GUICtrlCreateCheckbox("Subtrahieren", 96, 56, 97, 17)
$Dividieren = GUICtrlCreateCheckbox("Dividieren", 96, 88, 97, 17)
$Multiplizieren = GUICtrlCreateCheckbox("Multiplizieren", 96, 120, 97, 17)
$Zahlvon = GUICtrlCreateInput("", 288, 80, 81, 21)
$Zahlbis = GUICtrlCreateInput("", 288, 136, 81, 21)
$Zahlvon0bis100 = GUICtrlCreateLabel("Zahl von 0 bis 100", 288, 56, 80, 17)
$Zahlvon0bis101 = GUICtrlCreateLabel("Zahl von 0 bis 101", 288, 112, 80, 17)
$Zahlenbereich = GUICtrlCreateLabel("Zahlenbereich", 272, 16, 105, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Auf = GUICtrlCreateInput("", 48, 264, 129, 21)
$Erg = GUICtrlCreateInput("", 48, 360, 89, 21)
$Aufgabe = GUICtrlCreateLabel("Aufgabe", 48, 240, 44, 17)
$Ergebnis = GUICtrlCreateLabel("Ergebnis", 48, 336, 45, 17)
$Starten = GUICtrlCreateButton("Starten", 72, 192, 163, 25, $WS_GROUP)
$Pruefen = GUICtrlCreateButton("Prüfen", 72, 480, 163, 25, $WS_GROUP)
$Rich = GUICtrlCreateInput("", 280, 312, 97, 21)
$Fal = GUICtrlCreateInput("", 280, 368, 97, 21)
$Richtige = GUICtrlCreateLabel("Richtige", 280, 288, 43, 17)
$Falsche = GUICtrlCreateLabel("Falsche", 280, 344, 41, 17)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Starten

if GUICtrlRead ($Addieren) = $GUI_CHECKED then
$Z1 = Random(GUICtrlRead($Zahlvon),GUICtrlRead($Zahlbis),1)
$Z2 = Random(GUICtrlRead($Zahlvon),GUICtrlRead($Zahlbis),1)
$D = GUICtrlSetData($Auf, "")
$A = GUICtrlSetData($Auf, $Z1)
$B = GUICtrlSetData($Auf, " + ",$A)
$C = GUICtrlSetData($Auf,$Z2,$A)

EndIf

if GUICtrlRead ($Subtrahieren) = $GUI_CHECKED then
$Z1 = Random(GUICtrlRead($Zahlvon),GUICtrlRead($Zahlbis),1)
$Z2 = Random(GUICtrlRead($Zahlvon),GUICtrlRead($Zahlbis),1)
$D = GUICtrlSetData($Auf, "")
$A = GUICtrlSetData($Auf, $Z1)
$B = GUICtrlSetData($Auf, " - ",$A)
$C = GUICtrlSetData($Auf,$Z2,$A)

EndIf

if GUICtrlRead ($Dividieren) = $GUI_CHECKED then
$Z1 = Random(GUICtrlRead($Zahlvon),GUICtrlRead($Zahlbis),1)
$Z2 = Random(GUICtrlRead($Zahlvon),GUICtrlRead($Zahlbis),1)
$D = GUICtrlSetData($Auf, "")
$A = GUICtrlSetData($Auf, $Z1)
$B = GUICtrlSetData($Auf, " : ",$A)
$C = GUICtrlSetData($Auf,$Z2,$A)

EndIf

if GUICtrlRead ($Multiplizieren) = $GUI_CHECKED then
$Z1 = Random(GUICtrlRead($Zahlvon),GUICtrlRead($Zahlbis),1)
$Z2 = Random(GUICtrlRead($Zahlvon),GUICtrlRead($Zahlbis),1)
$D = GUICtrlSetData($Auf, "")
$A = GUICtrlSetData($Auf, $Z1)
$B = GUICtrlSetData($Auf, " x ",$A)
$C = GUICtrlSetData($Auf,$Z2,$A)

EndIf

Case $Pruefen

if GUICtrlRead ($Addieren) = $GUI_CHECKED then
$SZ = $Z1 + $Z2
$i = 0

if GUICtrlRead($Erg) = $SZ Then

GUICtrlSetData($Rich, $i + 1 )
$i = $i + 1
EndIf

if GUICtrlRead($Erg) <> $SZ Then
GUICtrlSetData($Fal, "1")
EndIf
EndIf

if GUICtrlRead ($Subtrahieren) = $GUI_CHECKED then
$SZ = $Z1 - $Z2
$i = 0

if GUICtrlRead($Erg) = $SZ Then

GUICtrlSetData($Rich, $i + 1 )
$i = $i + 1
EndIf

if GUICtrlRead($Erg) <> $SZ Then
GUICtrlSetData($Fal, "1")
EndIf
EndIf

if GUICtrlRead ($Dividieren) = $GUI_CHECKED then
$SZ = $Z1 / $Z2
$i = 0

if GUICtrlRead($Erg) = $SZ Then

GUICtrlSetData($Rich, $i + 1 )
$i = $i + 1
EndIf

if GUICtrlRead($Erg) <> $SZ Then
GUICtrlSetData($Fal, "1")
EndIf
EndIf

if GUICtrlRead ($Multiplizieren) = $GUI_CHECKED then
$SZ = $Z1 * $Z2
$i = 0

if GUICtrlRead($Erg) = $SZ Then

GUICtrlSetData($Rich, $i + 1 )
$i = $i + 1
EndIf

if GUICtrlRead($Erg) <> $SZ Then
GUICtrlSetData($Fal, "1")
EndIf
EndIf

EndSwitch
WEnd

Der Trainer steht noch am Anfang ich weiss das da noch viele Sachen verbessert werden müssen wie z.B. das man plus und minus gleichzeitig rechnet und so. Aber sitz da grad mal ne Stunde dran und wollte erst einmal das Wesentliche bewältigen.
MfG

ScarfacePH

Das hilft mir ganz bestimmt weiter danke für die schnelle Antwort 5 Sterne für dich und ich fang dann mal an rum zu tüfteln.

Ok mal ne Frage gibt es diese Funktionen auch für open office hab leider kein microsoft excel

ScarfacePH

Hallo erstmal zusammen.
Ich beschäftige mich zur Zeit mit einem Projekt wo ich aus mehreren .txt Dateien eine Auswertung vornehmen möchte.
Den gewünschten Text auszulesen ist kein Problem. Nun stell ich mir nur die Frage wwie ich den ausgelesenen Text am besten Auswerte. Kann ich den gesuchten Text in eine office Tabelle schreiben? Ich bedanke mich schon jetzt für alle vorschläge. Und hier habe ich noch kurz das Projekt beschrieben

Projekt: Ich habe mehrere .txt Dateien mit Informationen wie z.B. Herr X war am 34.14.2132 am Platz 1 und hat y gegessen /n Herr Y war am ..... Ich möchte nun das Autoit aus allen .txt Dateien sucht wie oft Herr X an welchen Tagen an welchem Platz und so weiter gesessen hat. Dann Herr Y und so weiter. Wenn in der nächsten .txt Datei wieder Herr X vorkommt soll er das in die erste Auswertung von Herr X mit einbinden.

MfG ScarfacePH

Beiträge von ScarfacePH

Bitte um Rat für Tabelle

Pc in x min Herunterfahren (Sleeper)

Pc in x min Herunterfahren (Sleeper)

Mathe Trainer

Mathe Trainer

Mathe Trainer

Bitte um Rat für Tabelle

Bitte um Rat für Tabelle