Spoiler anzeigen
#include <Sound.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Global $Sound
Global $Titel
Global $Trackpfad
Global $hoerbuch
#Region GUI Hörspiel
#Region Willkomensbildschirm
$Form1willkommen = GUICreate("Geburtstagsgeschenk 20.12.2008", 780, 540, 193, 133)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0xFF0000)
$Label1willkommen = GUICtrlCreateLabel("Alles Gute zum Geburtstag wünscht dir dein Maximilian", 56, -1, 689, 39)
GUICtrlSetFont(-1, 28, 800, 2, "Palace Script MT")
$Pic1willkommen = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\IMG_5008.JPG", 0, 39, 801, 516, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1willkommen = GUICtrlCreateButton("Weiter", 0, 7, 57, 25, 0)
GUICtrlSetFont(-1, 9, 800, 2, "Monotype Corsiva")
GUICtrlSetBkColor(-1, 0xFFFF00)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion
#Region Hörbuchauswahl
$Form1_Auswahl = GUICreate("Wähle das Hörbuch aus", 801, 601, 193, 133)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0xFF0000)
$Label1_Auswahl = GUICtrlCreateLabel("HÖRBUCHSAMMLUNG", 16, 0, 769, 102)
GUICtrlSetFont(-1, 48, 800, 2, "Neon Lights")
$Label2_Auswahl = GUICtrlCreateLabel("Eragon,Das Vermächtnis der Drachenreiter (Band1)", 24, 112, 310, 20)
$Button1_Auswahl= GUICtrlCreateButton("Weiter", 432, 112, 49, 17, 0)
$Label3_Auswahl = GUICtrlCreateLabel("Eragon,Der Auftrag des Ältesten (Band2)", 24, 144, 311, 20)
$Button2_Auswahl = GUICtrlCreateButton("Weiter", 432, 144, 49, 17, 0)
$Label4A_uswahl = GUICtrlCreateLabel("Herr der Ringe (Band 1-3)", 24, 224, 321, 20)
$Button3_Auswahl = GUICtrlCreateButton("Weiter", 432, 176, 49, 17, 0)
$Label5_Auswahl = GUICtrlCreateLabel("Das Unendliche Licht (Die Chroniken der Nebelkriege 1)", 24, 272, 336, 20)
$Label6_Auswahl = GUICtrlCreateLabel("Der Eisige Schatten (Die Chroniken der Nebelkriege 2)", 24, 304, 337, 20)
$Button4_Auswahl = GUICtrlCreateButton("Weiter", 432, 224, 49, 17, 0)
$Button5_Auswahl = GUICtrlCreateButton("Weiter", 432, 272, 49, 17, 0)
$Label7_Auswahl = GUICtrlCreateLabel("Eragon,Die Weißheit des Feuers (Band3)", 24, 176, 309, 20)
$Button6_Auswahl = GUICtrlCreateButton("Weiter", 432, 304, 49, 17, 0)
$Label8_Auswahl = GUICtrlCreateLabel("Die Kinder des Dschinn und das Akhenatenabenteuer(Band 1)", 24, 352, 372, 20)
$Label9_Auswahl = GUICtrlCreateLabel("Die Kinder des Dschinn und das Rätsel der 9. Kobra (Band 3)",24, 416, 370, 20)
$Label10_Auswahl = GUICtrlCreateLabel("Die Kinder des Dschinn und Gefangen in Babylon (Band 2)", 24, 384, 370, 20)
$Label11_Auswahl = GUICtrlCreateLabel("Die Kinder des Dschinn und im Reich der Donxi (Band 4)", 24, 448, 369, 20)
$Button7_Auswahl = GUICtrlCreateButton("Weiter", 432, 352, 49, 17, 0)
$Button8_Auswahl = GUICtrlCreateButton("Weiter", 432, 384, 49, 17, 0)
$Button9_Auswahl = GUICtrlCreateButton("Weiter", 432, 416, 49, 17, 0)
$Button10_Auswahl = GUICtrlCreateButton("Weiter", 432, 448, 49, 17, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Eragon1
$Form1_Eragon1 = GUICreate("Eragon und das Vermächtnis der Drachenreiter", 780, 540, 191, 131)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0x0000FF)
$Label1_Eragon1 = GUICtrlCreateLabel("Eragon und das Vermächtnis der Drachenreiter", 0, -6, 798, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
$Pic1_Eragon1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\eragon.jpg", 0, 26, 801, 489, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Eragon1 = GUICtrlCreateButton("Starte Eragon 1 Hörbuch von vorne", 0, 514, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Eragon1 = GUICtrlCreateButton("Starte von letzter Stelle", 632, 514, 145, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Eragon1 = GUICtrlCreateButton("Zurück", 296, 514, 81, 25, 0)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Eragon2
[/autoit] [autoit][/autoit] [autoit]$Form1_Eragon2 = GUICreate("Eragon und der Auftrag des Ältesten", 780, 540, 191, 131)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0xFF0000)
$Label1_Eragon2 = GUICtrlCreateLabel(" Eragon und der Auftrag des Ältesten", 0, -6, 681, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
$Pic1_Eragon2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\ERAGON2.jpg", 0, 34, 801, 481, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Eragon2 = GUICtrlCreateButton("Starte Eragon 2 Hörbuch von vorne", 0, 514, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Eragon2 = GUICtrlCreateButton("Starte Eragon2 von der zuletzt abgespielter Stelle", 472, 514, 305, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Eragon2 = GUICtrlCreateButton("Zurück", 296, 514, 81, 25, 0)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Eragon3
$Form1_Eragon3 = GUICreate("Eragon und die Weißheit des Feuers", 780, 540, 191, 131)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0xFFFF00)
$Label1_Eragon3 = GUICtrlCreateLabel(" Eragon und die Weißheit des Feuers", 0, -6, 673, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
$Pic1_Eragon3 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\eragon3.jpg", 0, 34, 801, 481, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Eragon3 = GUICtrlCreateButton("Starte Eragon 3 Hörbuch von vorne", 0, 514, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Eragon3 = GUICtrlCreateButton("Starte Eragon3 von der zuletzt abgespielter Stelle", 472, 514, 305, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Eragon3 = GUICtrlCreateButton("Zurück", 296, 514, 81, 25, 0)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Herr der Ringe 1-3
$Form1_Ring = GUICreate("Der Herr der Ringe", 780, 540, 191, 131)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0x800000)
$Label1_Ring = GUICtrlCreateLabel(" Der Herr der Ringe Band 1-3", 0, -6, 629, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
$Pic1_Ring = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\der-herr-der-ringe-037.jpg", 0, 34, 801, 481, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Ring = GUICtrlCreateButton("Starte Hörspiel von vorne", 0, 514, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Ring = GUICtrlCreateButton("Starte Hörspiel von letzter Stelle", 472, 514, 305, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Ring = GUICtrlCreateButton("Zurück", 296, 514, 81, 25, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Das unendliche Licht
$Form1_Licht = GUICreate("Das unendliche Licht", 780, 540, 191, 131)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0x000080)
$Label1_Licht = GUICtrlCreateLabel(" Die Chroniken der Nebelkriege 1", 0, 0, 658, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
GUICtrlSetColor(-1, 0xFFFF00)
$Pic1_Licht = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\Das unendliche Licht.jpg", 0, 40, 801, 481, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Licht = GUICtrlCreateButton("Starte Hörspiel von vorne", 0, 520, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Licht = GUICtrlCreateButton("Starte Hörspiel von letzter Stelle", 472, 520, 305, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Licht = GUICtrlCreateButton("Zurück", 296, 520, 81, 25, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Eisiger Schatten
$Form1_Eisigerschatten = GUICreate("Eisige Schatten", 780, 540, 191, 131)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0x000080)
$Label1_Eisigerschatten= GUICtrlCreateLabel(" Die Chroniken der Nebelkriege 2", 0, 0, 662, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
GUICtrlSetColor(-1, 0xFFFF00)
$Pic1_Eisigerschatten = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\Eisiger Schatten.jpg", 0, 40, 801, 481, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Eisigerschatten = GUICtrlCreateButton("Starte Hörspiel von vorne", 0, 520, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Eisigerschatten = GUICtrlCreateButton("Starte Hörspiel von letzter Stelle", 472, 520, 305, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Eisigerschatten = GUICtrlCreateButton("Zurück", 296, 520, 81, 25, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Die Kindes des Dschinn 1
$Form1_Dschinn1 = GUICreate("Das Akhenaten-Abenteuer", 780, 540, 191, 131)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0x00FFFF)
$Label1_Dschinn1 = GUICtrlCreateLabel(" Die Kinder des Dschinn 1", 0, 0, 599, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
$Pic1_Dschinn1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\Dschinn1.jpg", 0, 40, 801, 481, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Dschinn1 = GUICtrlCreateButton("Starte Hörspiel von vorne", 0, 520, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Dschinn1 = GUICtrlCreateButton("Starte Hörspiel von letzter Stelle", 472, 520, 305, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Dschinn1 = GUICtrlCreateButton("Zurück", 296, 520, 81, 25, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Die Kinder des Dschinn 2
$Form1_Dschinn2 = GUICreate("Gefangen im Palast von Babylon", 780, 540, 191, 131)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
GUISetBkColor(0xFF0000)
$Label1_Dschinn2 = GUICtrlCreateLabel(" Die Kinder des Dschinn 2", 0, 0, 603, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
$Pic1_Dschinn2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\Dchinn2.jpg", 0, 40, 801, 481, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Dschinn2 = GUICtrlCreateButton("Starte Hörspiel von vorne", 0, 520, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Dschinn2 = GUICtrlCreateButton("Starte Hörspiel von letzter Stelle", 472, 520, 305, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Dschinn2 = GUICtrlCreateButton("Zurück", 296, 520, 81, 25, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Die Kinder des Dschinn 3
$Form1_Dschinn3 = GUICreate("Das Rätsel der Neunten Kobra", 780, 540, 191, 131)
GUISetBkColor(0x008000)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
$Label1_Dschinn3 = GUICtrlCreateLabel(" Die Kinder des Dschinn 3", 0, 0, 603, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
$Pic1_Dschinn3 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\Dschinn3.jpg", 0, 40, 801, 481, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Dschinn3 = GUICtrlCreateButton("Starte Hörspiel von vorne", 0, 520, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Dschinn3 = GUICtrlCreateButton("Starte Hörspiel von letzter Stelle", 472, 520, 305, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Dschinn3 = GUICtrlCreateButton("Zurück", 304, 520, 81, 25, 0)
GUISetState(@SW_HIDE)
#EndRegion
#Region Die Kinder des Dschinn 4
$Form1_Dschinn4 = GUICreate("Entführt ins Reich der Dongxi", 780, 540, 191, 131)
GUISetBkColor(0xFF0000)
GUISetIcon("D:\Skripten\SCRIPTBILDER\birthday.ico")
$Label1_Dschinn4 = GUICtrlCreateLabel(" Die Kinder des Dschinn 3", 0, 0, 602, 41)
GUICtrlSetFont(-1, 18, 800, 2, "Neon Lights")
$Pic1_Dschinn4 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Max\Desktop\MAMA GEBURTSTAG\Dschinn4.jpg", 0, 40, 801, 481, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 2)
$Button1_Dschinn4 = GUICtrlCreateButton("Starte Hörspiel von vorne", 0, 520, 217, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button2_Dschinn4 = GUICtrlCreateButton("Starte Hörspiel von letzter Stelle", 472, 520, 305, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button3_Dschinn4 = GUICtrlCreateButton("Zurück", 304, 520, 81, 25, 0)
GUISetState(@SW_HIDE)
#EndRegion
#EndRegion
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_SoundClose($sound)
Exit
Case $Button1willkommen
;Wechsel zwischen Willkommensbildschirm und der Hörbuchauswahl
GUISetState(@SW_HIDE, $Form1willkommen)
GUISetState(@SW_SHOW, $Form1_Auswahl)
#Region Wechselbuttons von Hörbuchauswahl zu den Hörbuchguis
Case $Button1_Auswahl
;Wechsel zwischen Hörbuchauswahl und der Eragon1GUI
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Eragon1)
Case $Button2_Auswahl
;Wechsel zwischen Hörbuchauswahl und der Eragon2GUI
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Eragon2)
Case $Button3_Auswahl
;Wechsel zwischen Hörbuchauswahl und der Eragon3GUI
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Eragon3)
Case $Button4_Auswahl
;Wechsel zwischen Hörbuchauswahl und der Herr der ringeGUI
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Ring)
Case $Button5_Auswahl
;Wechsel zwischen Hörbuchauswahl und der Unendlichen licht gui
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Licht)
Case $Button6_Auswahl
;Wechsel zwischen Hörbuchauswahl und der eisigen schatten gui
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Eisigerschatten)
Case $Button7_Auswahl
;Wechsel zwischen Hörbuchauswahl und der dschinn1 GUI
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Dschinn1)
Case $Button8_Auswahl
;Wechsel zwischen Hörbuchauswahl und der dschinn2 GUI
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Dschinn2)
Case $Button9_Auswahl
;Wechsel zwischen Hörbuchauswahl und der dschinn3 GUI
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Dschinn3)
Case $Button10_Auswahl
;Wechsel zwischen Hörbuchauswahl und der dschinn4 GUI
GUISetState(@SW_HIDE, $Form1_Auswahl)
GUISetState(@SW_SHOW, $Form1_Dschinn4)
#EndRegion
;Ende der wechsel
#Region Wechselbuttons von Hörbuchguis zu hörbuchauswahl zurück
Case $Button3_Eragon1
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Eragon1)
Case $Button3_Eragon2
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Eragon2)
Case $Button3_Eragon3
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Eragon3)
Case $Button3_Ring
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Ring)
Case $Button3_Licht
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Licht)
Case $Button3_EisigerSchatten
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Eisigerschatten)
Case $Button3_Dschinn1
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Dschinn1)
Case $Button3_Dschinn2
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Dschinn2)
Case $Button3_Dschinn3
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Dschinn3)
Case $Button3_Dschinn4
GUISetState(@SW_SHOW, $Form1_Auswahl)
GUISetState(@SW_HIDE, $Form1_Dschinn4)
#EndRegion
Case $Button1_Eragon1;Testweise ggf buggy
$Name="Eragon1"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Eragon1)
ExitLoop
Case $Button1_Eragon2;Testweise ggf buggy
$Name="Eragon2"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Eragon3)
ExitLoop
Case $Button1_Eragon3;Testweise ggf buggy
$Name="Eragon3"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Eragon3)
ExitLoop
Case $Button1_Ring;Testweise ggf buggy
$Name="Ring"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Ring)
ExitLoop
Case $Button1_Licht;Testweise ggf buggy
$Name="Licht"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Licht)
ExitLoop
Case $Button1_EisigerSchatten;Testweise ggf buggy
$Name="Eisigerschatten"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Eisigerschatten)
ExitLoop
Case $Button1_Dschinn1;Testweise ggf buggy
$Name="Dschinn1"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Dschinn1)
ExitLoop
Case $Button1_Dschinn2;Testweise ggf buggy
$Name="Dschinn2"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Dschinn2)
ExitLoop
Case $Button1_Dschinn3;Testweise ggf buggy
$Name="Dschinn3"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Dschinn3)
ExitLoop
Case $Button1_Dschinn4;Testweise ggf buggy
$Name="Dschinn4"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Dschinn4)
ExitLoop
;Neue region
Case $Button2_Eragon1;Testweise ggf buggy
$Name="Eragon1"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Eragon1)
ExitLoop
Case $Button2_Eragon2;Testweise ggf buggy
$Name="Eragon2"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Eragon2)
ExitLoop
Case $Button2_Eragon3
$Name="Eragon3"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Eragon3)
ExitLoop
Case $Button2_Ring;Testweise ggf buggy
$Name="Ring"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Ring)
ExitLoop
Case $Button2_Licht;Testweise ggf buggy
$Name="Licht"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Licht)
ExitLoop
Case $Button2_EisigerSchatten;Testweise ggf buggy
$Name="Eisigerschatten"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Eragon3)
ExitLoop
Case $Button2_Dschinn1;Testweise ggf buggy
$Name="Dschinn1"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Eisigerschatten)
ExitLoop
Case $Button2_Dschinn2;Testweise ggf buggy
$Name="Dschinn2"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Dschinn2)
ExitLoop
Case $Button2_Dschinn3;Testweise ggf buggy
$Name="Dschinn3"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Dschinn3)
ExitLoop
Case $Button2_Dschinn4;Testweise ggf buggy
$Name="Dschinn4"
Titelwahl($Name)
TitelZeit($Name)
GUIDelete($Form1_Dschinn4)
ExitLoop
EndSwitch
WEnd
While 1
; Hier beginnt der Mediaplayer
Sleep(500)
Titelzeit($Name)
Titeltestzeit($Name)
WEnd
#Region Funktionen aus der Mediaplayer.au3(ggf Buggy)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func Titelwahl($hoerbuch)
If IniRead("Settings.ini",$hoerbuch,"Pfad","Error") ="Error" Then
Startanfang($hoerbuch)
Else
$Zeile=IniRead("settings.ini",$Name,"Zeile","Error")
$Titel=Tracklesen($hoerbuch,$Zeile)
$sound=_SoundOpen($Titel)
$LetzterTitel = IniRead("Settings.ini",$hoerbuch,"Pfad","Error")
$Stunde=IniRead("Settings.ini",$hoerbuch,"ZeitStunde","ERROR")
$Minute=IniRead("Settings.ini",$hoerbuch,"ZeitMinute","ERROR")
$Sekunde=IniRead("Settings.ini",$hoerbuch,"ZeitSekunde","ERROR")
$Sound=_SoundOpen($LetzterTitel)
_SoundSeek($Sound,$Stunde,$Minute,$Sekunde)
_SoundPlay($Sound)
EndIf
EndFunc
Func Startanfang($hoerbuch)
$Titel=Tracklesen($hoerbuch,1)
$sound=_SoundOpen($Titel)
_SoundPlay($Sound)
EndFunc
Func Titelzeit($hoerbuch)
$SoundZeit=_SoundPos ($Sound,1)
$String=StringSplit ($SoundZeit, ":")
IniWrite("Settings.ini",$hoerbuch,"Pfad",$Trackpfad)
IniWrite("Settings.ini",$hoerbuch,"ZeitStunde",$string[1])
IniWrite("Settings.ini",$hoerbuch,"ZeitMinute",$string[2])
IniWrite("Settings.ini",$hoerbuch,"ZeitSekunde",$string[3])
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func Tracklesen($Name,$Zeile)
[/autoit] [autoit][/autoit] [autoit]If $Name ="Eragon1" Then
$Pfadzutxt="Eragon1.txt"
ElseIf $Name ="Eragon2" Then
$Pfadzutxt="Eragon2.txt"
ElseIf $Name ="Eragon3" Then
$Pfadzutxt="Eragon3.txt"
ElseIf $Name ="Ring" Then
$Pfadzutxt="Ring.txt"
ElseIf $Name ="Licht" Then
$Pfadzutxt="Licht.txt"
ElseIf $Name ="Eisigerschatten" Then
$Pfadzutxt="Eisigerschatten.txt"
ElseIf $Name ="Dschinn1" Then
$Pfadzutxt="Dschinn1.txt"
ElseIf $Name ="Dschinn2" Then
$Pfadzutxt="Dschinn2.txt"
ElseIf $Name ="Dschinn3" Then
$Pfadzutxt="Dschinn3.txt"
ElseIf $Name ="Dschinn4" Then
$Pfadzutxt="Dschinn4.txt"
EndIf
$Trackpfad=FileReadLine($Pfadzutxt,$Zeile)
Return $Trackpfad
EndFunc
Func Pausieren()
_SoundPause($Sound)
EndFunc
Func Weiter()
_SoundResume($sound)
EndFunc
Func Minutenspulen($Zeit)
$Zeit=InputBox("Gib ein wieviel Minuten du vor (+) oder hinter(-) Spulen willst.","Gib die Minutenzahl ein,entweder positiv oder negativ")
$Minute=IniRead("Settings.ini",$Name,"ZeitMinute","ERROR") + $Zeit
_SoundClose($Sound)
IniWrite("Settings.ini",$Name,"ZeitMinute",$Minute)
Titelwahl($Name)
EndFunc
#EndRegion
Func Titeltestzeit($Name)
$SoundZeit=_SoundPos ($Sound,1)
$Soundlaenge=_SoundLength ( $Sound,1 )
If $SoundZeit=$soundlaenge Then
NaechsterTitel($Name)
EndIf
EndFunc
Func NaechsterTitel($Name)
$read=IniRead("settings.ini",$Name,"Zeile","Error")
IniWrite("Settings.ini",$Name,"Zeile",$read+1)
_SoundClose($sound)
IniWrite("Settings.ini",$Name,"ZeitMinute","00")
IniWrite("Settings.ini",$Name,"ZeitStunde","00")
IniWrite("Settings.ini",$Name,"ZeitSekunde","00")
Sleep(1500)
Titelwahl($Name)
TitelZeit($Name)
EndFunc
Hab das Problem, dasss wenn ich am ende eines Tracks bin, und ich den nächsten starte möchte,er den selben nochmal abspielt.
Allerdings lasse ich zum Wechsel des Tracks alles sozusagen beenden( die Soundausgabe) und dann starten.
Dabei liest er die Zeile die für die Trackliste benötigt wird aus einer ini raus.
nun startet er bei dem Wechsel den Track den er gerade abgespielt und beendet hat nocheinmal.
Ich frrag mich natürlich warum.
wichtige Zeilen :
461 - Ende: Funktionen.
und zeile 323 der Button und seine "Funktionen"
und natürlich die letzte Funktion, da diese etwas buggy ist und ich nicht weiß warum.
Achja, wenn man die inidatei öffnet, ist alles so wie es sein muss.
Hoffe mal nicht zu konfus was ich schreib, is alles spontan.