Sternzeichen & Alter

**Alina**

Hallo.

Ich habe folgende GUI erstellt:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

$Gui12 = GUICreate("Gui12", 251, 184, 463, 539)
$Label1 = GUICtrlCreateLabel("Fødselsdag", 72, 8, 105, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$Input1 = GUICtrlCreateInput("Input1", 8, 40, 65, 21)
$Input2 = GUICtrlCreateInput("Input2", 88, 40, 65, 21)
$Input3 = GUICtrlCreateInput("Input3", 160, 40, 81, 21)
$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("Input4", 56, 96, 89, 21)
$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("Input5", 192, 96, 49, 21)
$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

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

EndSwitch
WEnd

[/autoit]

Nun meine Frage zu dr hoffentlich verständlichen GUI, auch wenn diese in Dänisch ist. Ich erkläre es mal.

Erstes Feld ist der Tag, das zweite der Monat, das dritte das Jahr (4 Zahlen).
Feld vier ist für Das Sternzeichen und Feld fünf für das aktuelle Lebensalter.

Feld 4 und 5 sollen nach dem Datum aus Feld 1 - 3 "berechnet" (oder wie sagt man eigentlich dazu) werden. Bin gerade wirklich am überlegen, ob es berechnen heißt, weil ein Computer ja irgendwie immer irgendwo was "berechnet". Damals waren es "1" und "0" und das System habe ich sofort verstanden und so Berechnungen auf meine Kulitasche (Radiergummi, Füller, Bleistift, usw. kommt da rein) geschrieben. Bewirkt Wunder wenn man sich wichtige Daten in Geschichte merken muß und man diese dann auf der Kulitasche zufällig irgendwie wieder findet. Soll jetzt aber nicht zum schummeln für unsere Abi-Schüler unter uns sein, okay? Unser Geschichtlehrer war in Mathe eh die absolute Null, aber das war ja auch nicht sein Unterrichtsfach. Wir haben bei Geschichte alle irgendwie damals unser Tricks für die Prüfung drauf.

Boh, mal wieder vom Thema abgekommen. Sorry.

Ich weiß nicht wie ich es machen soll, das Feld 4 und 5 "berechnet" werden, wenn ich den Button "Zodiac / Alder register" drücke.

Mag mir da jemand mal paap Bits & Bytes Hilfe senden?

LG,
Crazy-A.

**GtaSpider**

Hallo

Naja, das Alter kannst du ja leicht mit _DateDiff berechnen:

[autoit]

#include <Date.au3>
_DateDiff("Y","1992/05/27",_NowCalcDate());16

[/autoit]

Das Sternzeichen... Brauchst du erstmal eine "Datenbank" wo alle Sternzeichen und die dazugehörigen Daten drinstehen.

Mfg Spider

**Alina**

Hallo Spider.

Das ist doch schon mal ganz gut.

Jetzt werde ich mal alles im Netz raus suchen, also von wann bis wann welches Sternzeichen und dann muß ich mal sehen wie ich es verarbeite. Mal schauen ob es da nichts gibt mit Arrays, da es ja eigentlich immer 3 Werte sind. Das "Sternzeichen", "von wann" und "bis wann". Vielleicht mal mit "The King of Array" kurz schließen, aber erst einmal muß ich die Daten alle finden und abtippen.

LG,
Crazy-A.

ctec

Widder Aries 0°–30° 20./21. März–19./20. April (30 Tage, 11 h)
Stier Taurus 30°–60° 19./20. April–20./21. Mai (30 Tage, 23 h)
Zwillinge Gemini 60°–90° 20./21. Mai–20./21. Juni (31 Tage, 13 h)
Krebs Cancer 90°–120° 20./21. Juni–22./23. Juli (31 Tage, 6 h)
Löwe Leo 120°–150° 22./23. Juli–22./23. August (31 Tage, 7 h)
Jungfrau Virgo 150°–180° 22./23. August–22./23. September (30 Tage, 21,5 h)
Waage Libra 180°–210° 22./23. September–23. Oktober (30 Tage, 9,5 h)
Skorpion Scorpio 210°–240° 23. Oktober–22. November (29 Tage, 22 h)
Schütze Sagittarius 240°–270° 22. November–21./22. Dezember (29 Tage, 13 h)
Steinbock Capricornus 270°–300° 21./22. Dezember–20. Januar (29 Tage, 11 h)
Wassermann Aquarius 300°–330° 20. Januar–18./19. Februar (29 Tage, 14 h)
Fische Pisces 330°–360° 18./19. Februar–20./21. März (29 Tage, 23 h)

**Alina**

Also ich habe jetzt mal folgende INI-Datei erstellt.

Spoiler anzeigen

[autoit]

[Widder]
start = 21.03.
ende = 20.04.
[Stier]
start = 21.04.
ende = 20.05.
[Zwilling]
start = 21.05.
ende = 21.06.
[Krebs]
start = 20.06.
ende =22.07.
[Loewe]
start = 23.07.
ende = 23.08.
[Jungfrau]
start = 24.08.
ende = 23.09.
[Waage]
start = 24.09.
ende = 23.10.
[Skorpion]
start = 24.10.
ende = 22.11.
[Schuetze]
start = 23.11.
ende = 21.12
[Steinbock]
start = 22.12.
ende = 20.01.
[Wassenmann]
start = 21.01.
ende = 19.02.
[Fisch]
start = 20.02.
ende = 20.03.

[/autoit]

Also die Daten stimmen.

Nur wie frage ich jetzt ab: ist das Datum zwischen dem 20.02. und 20.03, dann Fisch.

Da komme ich ich einfach nicht mit klar.

LG,
Crazy-A.

icerose

Hi Crazy A,

also die Datei solltest du noch mal anschauen was mir jetzt zufällig aufgefallen ist:

[Zwilling]
start = 21.05.
ende = 21.06.
[Krebs]
start = 20.06.
ende =22.07.

man ist schon Krebs obwohl Zwilling noch drann ist!! Das überschneidet sich ein wenig.

Hilft jetzt zwar nicht direkt zur lösung bei .

Gruß Icerose

ctec

mach doch ne Liste, die auf 365 Tagen basiert und Rechne einfach um ...

FireFlyer

vllt so?

Spoiler anzeigen

[autoit]

Func sternzeichen($geburtsdatum)
$section = IniReadSectionNames($file)
for $i = 1 to Ubound($section)-1

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

$data = IniReadSection($file, $section[$i])
for $x = 1 To Ubound($data)-1

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

;hier die IF abfrage ob das datum in dem Zeitraum liegt mit $geburtsdatum
;Wenn ja:
return $section[$i]

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

next
EndFunc

[/autoit]

Aber vllt solltest du auch deine ini etwas umstrukturieren bzw. vllt eine ganz andere methode z.b. datenbank (sqlite) oder so verwenden

stormy

Spoiler anzeigen

[autoit]

$tag = 14
$monat = 10
$bday = $monat&""&$tag ;Monat und Tag wird vertauscht bzw. anderes Format, um es sich ein bisschen einfacher zu machen

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

Switch $bday
Case 0321 To 0420 ;die 0 vor den Teilen hab ich bloß aus Gründen der Übersichtlichkeit dran gelassen
$zodiac = "Widder"
Case 0421 To 0520
$zodiac = "Stier"
Case 0521 To 0621 ;falsche Daten in deiner Ini-Datei? (21.06), siehe 2 Zeilen weiter unten
$zodiac = "Zwilling"
Case 0620 To 0722 ;weil hier nämlich der 20.06 als Start angegeben ist
$zodiac = "Krebs"
Case 0723 To 0823
$zodiac = "Löwe"
Case 0824 To 0923
$zodiac = "Jungfrau"
Case 0924 To 1023
$zodiac = "Waage"
Case 1024 To 1122
$zodiac = "Skorpion"
Case 1123 To 1221
$zodiac = "Schuetze"
Case 1222 To 1231
$zodiac = "Steinbock" ;beginnt ja ein neues Jahr
Case 0101 To 0120
$zodiac = "Steinbock"
Case 0121 To 0219
$zodiac = "Wassermann"
Case 0220 To 0320
$zodiac = "Fisch"
Case Else
$zodiac = "Ungültiges Datumsformat" ;buchstaben usw.
EndSwitch

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

ConsoleWrite($zodiac&@CRLF)

[/autoit]

Das wäre mal mein Vorschlag, weil ich eine Ini-Datei in diesem Fall nicht gern sehe, da es ja eigentlich feste Daten sind und nicht Einstellungen o.ä. was sich immer ändert. Ich habe es auch ein bisschen auskommentiert. Hoffe ich konnte damit ein bisschen zur Fertigstellung deines Programmes helfen. *grins*

Noch ne Frage, wie heißen die Zodiacs (den Begriff musste ich jetzt einfach verwenden ) eigentlich auf Dänisch?

mfg Stormy

**Alina**

Habe es soweit fertig und nur noch Problem drinne

Spoiler anzeigen

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

#include <GUIConstants.au3>
#include <Date.au3>
$GUI_1 = GUICreate("Sternzeichen & Alter", 100, 170, 100, 100)
GUISetBkColor(0xD8E4F8)
$Input1 = GUICtrlCreateInput("21", 5, 10, 22, 15)
GUICtrlSetLimit(-1, 2)
$Input2 = GUICtrlCreateInput("10", 32, 10, 22, 15)
GUICtrlSetLimit(-1, 2)
$Input3 = GUICtrlCreateInput("2000", 59, 10, 31, 15)
GUICtrlSetLimit(-1, 4)

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

GUICtrlCreateLabel("Sternzeichen:", 19, 60, 90, 25)
$Input4 = GUICtrlCreateInput("*************", 5, 75, 90, 15)

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

GUICtrlCreateLabel("Alter:", 37, 105, 90, 25)
$Input5 = GUICtrlCreateInput("??", 5, 120, 90, 15)

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

$start = GUICtrlCreateButton("OK", 5, 140, 90, 25, 0)

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

$tag = GUICtrlRead($Input1)
$monat = GUICtrlRead($Input2)
$jahr = GUICtrlRead($Input3)

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

$gebdat = _DateDiff("YYYY/MM/DD",$jahr&"/"&$monat&"/"&$tag,_NowCalcDate())
GUISetState(@SW_SHOW)

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

While 1

$sTime = $tag&$monat&$jahr
Select
Case $sTime = "2103"&$jahr
GUICtrlSetData($Input4,"Widder")
GUICtrlSetData($Input5,$gebdat)
MsgBox(0,"","Widder " & $gebdat)
exit
Case $sTime = "2203"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "2303"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "2403"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "2503"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "2603"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "2703"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "2803"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "2903"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "3003"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "3103"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "0104"&$jahr
MsgBox(0,"","Widder - Aprilscherz")
exit
Case $sTime = "0204"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "0304"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "0404"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "0504"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "0604"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "0704"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "0804"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "0904"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1004"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1104"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1204"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1304"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1404"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1504"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1604"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1704"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1804"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "1904"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "2004"&$jahr
MsgBox(0,"","Widder")
exit
Case $sTime = "2104"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2204"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2304"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2404"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2504"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2604"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2704"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2804"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2904"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "3004"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "0105"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "0205"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "0305"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "0405"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "0505"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "0605"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "0705"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "0805"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "0905"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1005"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1105"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1205"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1305"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1405"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1505"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1605"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1705"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1805"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "1905"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2005"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2105"&$jahr
MsgBox(0,"","Stier")
exit
Case $sTime = "2205"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2305"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2405"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2505"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2605"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2705"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2805"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2905"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "3005"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "3105"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "0106"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "0206"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "0306"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "0406"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "0506"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "0606"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "0706"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "0806"&$jahr
GUICtrlSetData($Input4,"Zwilling")
GUICtrlSetData($Input5,$gebdat)
MsgBox(0,"","Zwilling " & $gebdat)
exit
Case $sTime = "0906"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1006"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1106"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1206"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1306"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1406"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1506"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1606"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1706"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1806"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "1906"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2006"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2106"&$jahr
MsgBox(0,"","Zwilling")
exit
Case $sTime = "2206"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2306"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2406"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2506"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2606"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2706"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2806"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2906"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "3006"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "0107"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "0207"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "0307"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "0407"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "0507"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "0607"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "0707"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "0807"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "0907"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1007"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1107"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1207"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1307"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1407"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1507"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1607"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1707"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1807"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "1907"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2007"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2107"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2207"&$jahr
MsgBox(0,"","Krebs")
exit
Case $sTime = "2307"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2407"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2507"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2607"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2707"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2807"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2907"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "3007"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "3107"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "0108"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "0208"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "0308"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "0408"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "0508"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "0608"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "0708"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "0808"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "0908"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1008"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1108"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1208"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1308"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1408"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1508"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1608"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1708"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1808"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "1908"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2008"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2108"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2208"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2308"&$jahr
MsgBox(0,"","Löwe")
exit
Case $sTime = "2408"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2508"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2608"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2708"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2808"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2908"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "3008"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "3108"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "0109"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "0209"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "0309"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "0409"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "0509"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "0609"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "0709"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "0809"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "0909"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1009"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1109"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1209"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1309"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1409"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1509"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1609"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1709"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1809"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "1909"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2009"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2109"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2209"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2309"&$jahr
MsgBox(0,"","Jungfrau")
exit
Case $sTime = "2409"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "2509"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "2609"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "2709"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "2809"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "2909"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "3009"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "0110"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "0210"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "0310"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "0410"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "0510"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "0610"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "0710"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "0810"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "0910"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1010"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1110"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1210"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1310"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1410"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1510"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1610"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1710"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1810"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "1910"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "2010"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "2110"&$jahr
GUICtrlSetData($Input4,"Waage")
GUICtrlSetData($Input5,$gebdat)
MsgBox(0,"","Waage " & $gebdat)
exit
Case $sTime = "2210"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "2310"&$jahr
MsgBox(0,"","Waage")
exit
Case $sTime = "2410"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "2510"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "2610"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "2710"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "2810"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "2910"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "3010"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "3110"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "0111"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "0211"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "0311"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "0411"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "0511"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "0611"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "0711"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "0811"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "0911"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1011"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1111"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1211"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1311"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1411"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1511"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1611"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1711"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1811"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "1911"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "2011"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "2111"&$jahr
GUICtrlSetData($Input4,"Skorpion")
GUICtrlSetData($Input5,$gebdat)
MsgBox(0,"","Skorpion "&$gebdat)
exit
Case $sTime = "2211"&$jahr
MsgBox(0,"","Skorpion")
exit
Case $sTime = "2311"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "2411"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "2511"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "2611"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "2711"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "2811"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "2911"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "3011"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "0112"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "0212"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "0312"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "0412"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "0512"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "0612"&$jahr
MsgBox(0,"","Schütze - Nikolaus")
exit
Case $sTime = "0712"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "0812"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "0912"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "1012"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "1112"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "1312"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "1412"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "1512"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "1612"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "1712"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "1812"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "1912"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "2012"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "2112"&$jahr
MsgBox(0,"","Schütze")
exit
Case $sTime = "2212"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "2312"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "2412"&$jahr
MsgBox(0,"","Steinbock - Heilig Abend")
exit
Case $sTime = "2512"&$jahr
MsgBox(0,"","Steinbock - 1. Weihnachtstag")
exit
Case $sTime = "2612"&$jahr
MsgBox(0,"","Steinbock - 2. Weihnachtstag")
exit
Case $sTime = "2712"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "2812"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "2912"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "3012"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "3112"&$jahr
MsgBox(0,"","Steinbock - Silvester")
exit
Case $sTime = "0101"&$jahr
MsgBox(0,"","Steinbock - Neujahr")
exit
Case $sTime = "0201"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "0301"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "0401"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "0501"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "0601"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "0701"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "0801"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "0901"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1001"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1101"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1201"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1301"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1401"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1501"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1601"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1701"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1801"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "1901"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "2001"&$jahr
MsgBox(0,"","Steinbock")
exit
Case $sTime = "2101"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "2201"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "2301"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "2401"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "2501"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "2601"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "2701"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "2801"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "2901"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "3001"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "3101"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "0102"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "0202"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "0302"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "0402"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "0502"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "0602"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "0702"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "0802"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "0902"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1002"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1102"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1202"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1302"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1402"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1502"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1602"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1702"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1802"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "1902"&$jahr
MsgBox(0,"","Wassermann")
exit
Case $sTime = "2002"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2102"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2202"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2302"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2402"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2502"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2602"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2702"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2802"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2902"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "0103"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "0203"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "0303"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "0403"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "0503"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "0603"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "0703"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "0803"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "0903"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1003"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1103"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1203"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1303"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1403"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1503"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1603"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1703"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1803"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "1903"&$jahr
MsgBox(0,"","Fische")
exit
Case $sTime = "2003"&$jahr
MsgBox(0,"","Fische")
exit

EndSelect
Sleep(50)
WEnd

Func _Time($pre)
If $pre = 1 Then
Return @MDAY
ElseIf $pre = 2 Then
Return @MDAY & "." & @MON
ElseIf $pre = 3 Then
Return @MDAY & "." & @MON & "." & @YEAR
EndIf
EndFunc ;==>_Time($pre)

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

Bis jetzt muß ich das Datum immer in den Quelltext eingeben, aber es soll über die GUI gehen und wenn man auf den OK Button drückt soll er die Daten erneuern.

Da komme ich nicht weiter

LG,
Crazy-A.

anno2008

Hi, so?

Spoiler anzeigen

[autoit]

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

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

$Gui12 = GUICreate("Gui12", 251, 184, 463, 539)
$Label1 = GUICtrlCreateLabel("Fødselsdag", 72, 8, 105, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$Input1 = GUICtrlCreateInput("13", 8, 40, 65, 21) ; tag
$Input2 = GUICtrlCreateInput("04", 88, 40, 65, 21) ; monat
$Input3 = GUICtrlCreateInput("1974", 160, 40, 81, 21) ; jahr
$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)
$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)
$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 = "Ungültiges Datumsformat"
EndSwitch
GUICtrlSetData($Input4,$sternzeichen)
GUICtrlSetData($Input5, _DateDiff("Y",GUICtrlRead($Input3) & "/" & GUICtrlRead($Input2) & "/" & GUICtrlRead($Input1),_NowCalcDate()))
EndSwitch
WEnd

[/autoit]

Kannst du das nächste mal ordentliche Variablen verwenden? Vor allem wenn das schwedisch ist

**Alina**

MERCI

Das ist SUPER !!!

Ganz vielen lieben DANK !!!

LG,
Crazy-A.

RR04

Hi

anno2008, das sieht schon besser aus.
Nun noch die Plausibilität der Eingaben prüfen.

[autoit]

;$Gui12 = GUICreate("Gui12", 251, 184, 463, 539)
$Gui12 = GUICreate("Gui12", 251, 184) ;i # GUI zentriert

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

;Switch GUICtrlRead($Input2) & "" & GUICtrlRead($Input1)
Switch GUICtrlRead($Input2) & GUICtrlRead($Input1) ;i # ohne Space

[/autoit]

Viel Erfolg !

**Alina**

WOW ! ! !

Funktioniert bestens !!!!

Vielen lieben Dank.

Lina

FireFlyer

wenn dus dochnoch mit deiner schon vorhandenen ini machen willst

Spoiler anzeigen

[autoit]

;TEST
$result = sternzeichen(@ScriptDir&"\geb.ini", "30.03.1989")
MsgBox(0, "Result", $result)
;TEST

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

Func sternzeichen($file, $geburtsdatum)
$gebsplit = StringSplit($geburtsdatum, ".")
$geb = $gebsplit[2]&$gebsplit[1]
$section = IniReadSectionNames($file)
for $i = 1 to Ubound($section)-1

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

$data = IniReadSection($file, $section[$i])
$split1 = StringSplit($data[1][1], ".")
$split2 = StringSplit($data[2][1], ".")
if $Geb >= $split1[2]&$split1[1] AND $Geb <= $split2[2]&$split2[1] Then
return $section[$i]
EndIf

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

next
EndFunc

[/autoit]

ctec

jetzt noch die Uhrzeit hinzufügen und den Aszendenten mit ausgeben

um eine 100% genaue Angabe zu berechnen müsste nachtürlich der Geburtsort mit einbezogen werden ...

dann noch Google-Earth plugin und und und

dann wird's so langsam

**BugFix**

Und wenn du genau hinschaust, wirst du feststellen, dass die Sternzeichenzuordnung eh horrender Blödsinn ist, da alles auf der Ansicht des Sternenhimmels von vor ca. 2000 Jahren beruht. Da gehört ein Shift rein, der die reale Position der Himmelskörper zur jeweiligen Zeit ermittelt -- Viel Spaß beim Rechnen

FireFlyer

ach ihr denkt einfach viel zu kompliziert
lass die arbeit doch "profis" erledigen
meine Programm:

[autoit]

MsgBox(0, "Du willst dein Sternzeichen und Mehr erfahren?", "http://www.horoskop-telefon.de/"&@CRLF&"Tel. 0900 - 55 22323 880 für € 1,99/Min. aus dem deutschen Festnetz. Vom Handy einfach nur die 22323 880 wählen, garantiert auch nur € 1,99/Min.")

[/autoit]

ich schmeiss mich weg... es gibt wirklich leute die sone website und hotline machen O M G

ctec

genau BugFix! Stillstand ist eh Rückschritt, aber es existiert halt "NICHTS" was sich nicht bewegt

und hier über Raum/Zeit-Abhängigkeiten zu philosophieren würde doch den Rahmen sprengen *sniff*

stormy

Denkt aber auch dran, die Zeit mitzurechnen die für das Ausrechnen des Rechenvorgangs selbst in Anspruch genommen wird.
Wäre doch schade, wenn man zwar den Geburtsort, aktuellen Aufenthaltsort in° und die Zeit, die seit Aufstellung der Tierkreiszeichen vergangen ist, zwar ausgerechnet ist und vor sich hat, aber dann das Ergebnis falsch ist, weil die Zeit zum Ausrechnen nicht mit einbezogen worden ist.
Ach ja vergesst den Button "STOP Zeit" nicht, dann bleibt das Ergebnis ein bissl länger, aber fragt mich nicht welche Datei man dazu einbinden muss um den Button mit der entsprechenden Funktion zu hinterlegen.

Wäre mal so eine kleine Extra-Aufgabe, aber eher für das Niveau BugFix, der kann das garantiert packen.

mfg stormy