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:
autoit.de/wcf/attachment/4555/
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]