Vorweg: Ich "programmiere" erst seit ca. einer Woche mit Autoit, also nicht über die Einfachheit des Skriptes wundern ![]()
Das Programm zeichnet Trainigseinheiten auf, fügt Datum und Uhrzeit hinzu und ordnet dies alles schön in einer Textdatei. So hat man immer eine Übersicht , wann man was gemacht hat.
Die Trainingsarten kann sich jeder im Quellcode anpassen.
Download:
Ich würde mich über Antworten und Anregungen freuen!
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Frithjof P
Script Function:
Speichert die Trainingsdaten in einer .txt-Datei ab.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
#include ;Includes
$zeit = _NowTime() ;Datum und Uhrzeit werden ausgelesen (Systemzeit)
[/autoit] [autoit][/autoit] [autoit]$datum = _NowDate()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$liegest = InputBox("Liegestützen", "Anzahl") ;Wiederholungen der Übungen werden abgefragt
$klimmzug = InputBox("Klimmzüge", "Anzahl")
[/autoit] [autoit][/autoit] [autoit]$dips = InputBox("Dips", "Anzahl")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$bemerkungen = InputBox("Bemerkungen zu den Übungen", "Ihre Eingabe") ;Anmerkungen und Notizen zu den Übungen
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$datei = FileOpen("Trainingsdaten.txt", 1)
;Kontrolliert, ob die Datei in Ordnung ist
If $datei = -1 Then
MsgBox(0, "Fehler", "Datei konnte nicht geöffnet werden")
Exit
EndIf
FileWrite($datei, @CRLF)
FileWrite($datei, "******************************************************************************" & @CRLF) ;Daten in die Datei schreiben
FileWrite($datei, "Datum:" & $datum & @CRLF)
FileWrite($datei, "Uhrzeit:" & $zeit & @CRLF)
FileWrite($datei, "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & @CRLF)
FileWrite($datei, "Liegestützen:" & $liegest & @CRLF)
FileWrite($datei, "Klimmzüge:" & $klimmzug & @CRLF)
FileWrite($datei, "Dips:" & $dips & @CRLF)
FileWrite($datei, "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" & @CRLF)
FileWrite($datei, "Bemerkungen:" & $bemerkungen & @CRLF)
FileWrite($datei, "******************************************************************************" & @CRLF)
Exit ;Ende
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]