Sternzeichen & Alter

  • Hi,

    ich habe es mal fertiggestellt und Kommentare eingefügt. ^^

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>

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

    $Gui12 = GUICreate("Alinas Stern", 251, 184)
    GUISetIcon(@SystemDir & '\shell32.dll', -44) ;i Sternzeichen ;)
    $Label1 = GUICtrlCreateLabel("Fødselsdag", 72, 8, 105, 26)
    GUICtrlSetFont(-1, 14, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x0000FF)
    $Input1 = GUICtrlCreateInput("13", 8, 40, 65, 21, $ES_NUMBER) ;! tag Akzeptiert nur die Eingabe von Zahlen in das Textfeld.
    GUICtrlSetLimit(-1, 2) ;! um die Eingabe auf 2 Zeichen zu begrenzen
    $Input2 = GUICtrlCreateInput("04", 88, 40, 65, 21, $ES_NUMBER) ;i monat Akzeptiert nur die Eingabe von Zahlen in das Textfeld.
    GUICtrlSetLimit(-1, 2) ;! um die Eingabe auf 2 Zeichen zu begrenzen
    $Input3 = GUICtrlCreateInput("1974", 160, 40, 81, 21, $ES_NUMBER) ;i jahr Akzeptiert nur die Eingabe von Zahlen in das Textfeld.
    GUICtrlSetLimit(-1, 4) ;! um die Eingabe auf 4 Zeichen zu begrenzen
    $Label2 = GUICtrlCreateLabel("Dag", 24, 64, 35, 23)
    GUICtrlSetFont(-1, 12, 800, 0, "Arial")
    $Label3 = GUICtrlCreateLabel("Måned", 96, 64, 55, 23)
    GUICtrlSetFont(-1, 12, 800, 0, "Arial")
    $Label4 = GUICtrlCreateLabel("År", 184, 64, 29, 23)
    GUICtrlSetFont(-1, 12, 800, 0, "Arial")
    $Input4 = GUICtrlCreateInput("Stern", 56, 96, 89, 21, $ES_READONLY) ;! keine Eingaben nur Ausgaben möglich
    GUICtrlSetBkColor(-1, 0xFFFFFF) ;i Hintergrundfarbe weiss
    $Label5 = GUICtrlCreateLabel("Zodiac", 8, 96, 46, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0x0000FF)
    $Label6 = GUICtrlCreateLabel("Alder", 152, 96, 38, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0x0000FF)
    $Input5 = GUICtrlCreateInput("Alter", 192, 96, 49, 21, $ES_READONLY) ;! keine Eingaben nur Ausgaben möglich
    GUICtrlSetBkColor(-1, 0xFFFFFF) ;i Hintergrundfarbe weiss
    $Zodiac = GUICtrlCreateButton("Zodiac / Alder register", 16, 136, 225, 33, 0)
    GUICtrlSetFont(-1, 14, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0xFF0000)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Zodiac
    Switch GUICtrlRead($Input2) & GUICtrlRead($Input1)
    Case 0321 To 0420
    $sternzeichen = "Widder"
    Case 0421 To 0520
    $sternzeichen = "Stier"
    Case 0521 To 0621
    $sternzeichen = "Zwilling"
    Case 0622 To 0722
    $sternzeichen = "Krebs"
    Case 0723 To 0823
    $sternzeichen = "Löwe"
    Case 0824 To 0923
    $sternzeichen = "Jungfrau"
    Case 0924 To 1023
    $sternzeichen = "Waage"
    Case 1024 To 1122
    $sternzeichen = "Skorpion"
    Case 1123 To 1221
    $sternzeichen = "Schuetze"
    Case 1222 To 1231
    $sternzeichen = "Steinbock"
    Case 0101 To 0120
    $sternzeichen = "Steinbock"
    Case 0121 To 0219
    $sternzeichen = "Wassermann"
    Case 0220 To 0320
    $sternzeichen = "Fisch"
    Case Else
    $sternzeichen = "Error" ;! gibt Fehler aus und
    ;! $sternzeichen muss deklariert sein > GUICtrlSetData($Input4,$sternzeichen)
    MsgBox(0, 'Error', "Ungültiges Datumsformat" & @CRLF & "Bitte so zB. 13.04.1974 ! ")
    ;! MsgBox da Schriftzug zu lang für $Input4
    EndSwitch
    GUICtrlSetData($Input4, $sternzeichen)
    GUICtrlSetData($Input5, _DateDiff("Y", GUICtrlRead($Input3) & "/" & GUICtrlRead($Input2) & "/" & GUICtrlRead($Input1), _NowCalcDate()))
    EndSwitch
    WEnd

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

    ;ENDE

    [/autoit]


    Viel Spaß ! ;)