Trainigs -Aufzeichner

  • Vorweg: Ich "programmiere" erst seit ca. einer Woche mit Autoit, also nicht über die Einfachheit des Skriptes wundern :rolleyes:
    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
    [autoit]

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

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

    AutoIt Version: 3.3.0.0
    Author: Frithjof P

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

    Script Function:
    Speichert die Trainingsdaten in einer .txt-Datei ab.

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

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

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

    ; Script Start - Add your code below here
    #include ;Includes

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

    $zeit = _NowTime() ;Datum und Uhrzeit werden ausgelesen (Systemzeit)

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

    $datum = _NowDate()
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    $liegest = InputBox("Liegestützen", "Anzahl") ;Wiederholungen der Übungen werden abgefragt

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

    $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)

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

    ;Kontrolliert, ob die Datei in Ordnung ist
    If $datei = -1 Then
    MsgBox(0, "Fehler", "Datei konnte nicht geöffnet werden")
    Exit
    EndIf

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

    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)

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

    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]

    4 Mal editiert, zuletzt von FojhtirfX (26. April 2009 um 18:53)