Hi,
ich habe es mal fertiggestellt und Kommentare eingefügt.
Spoiler anzeigen
#include <Date.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
$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)
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
;ENDE
[/autoit]
Viel Spaß !