Hörbuchplayerproblem

Turbolocke

Spoiler anzeigen

[autoit]

#include <Sound.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

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

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

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

#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

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

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

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

$Button3_Eragon1 = GUICtrlCreateButton("Zurück", 296, 514, 81, 25, 0)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_HIDE)
#EndRegion

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

#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

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

#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

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

#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

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

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

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

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

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

EndFunc

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

Func Tracklesen($Name,$Zeile)

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

If $Name ="Eragon1" Then
$Pfadzutxt="Eragon1.txt"

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

ElseIf $Name ="Eragon2" Then
$Pfadzutxt="Eragon2.txt"

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

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"

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

EndIf
$Trackpfad=FileReadLine($Pfadzutxt,$Zeile)
Return $Trackpfad
EndFunc

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

Func Pausieren()
_SoundPause($Sound)
EndFunc
Func Weiter()
_SoundResume($sound)
EndFunc

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

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

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

Func Titeltestzeit($Name)
$SoundZeit=_SoundPos ($Sound,1)
$Soundlaenge=_SoundLength ( $Sound,1 )
If $SoundZeit=$soundlaenge Then
NaechsterTitel($Name)
EndIf
EndFunc

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

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

[/autoit]

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.

**BugFix**

Deine Funktion Titeltestzeit($Name) ruft NaechsterTitel($Name) auf. So wie ich das sehe, wird aber kein neuer Wert an $Name übergeben - also wird die Funktion mit dem letzten Wert aufgerufen ==> dein Titel beginnt von vorn.

Turbolocke

mhm nein, $name muss auch gleich bleiben da es den Hörbuchtitel enthält, nicht den Tracknamen.
Ist für die Sektion in der ini nötig.
und das richtig lustige ist, dass wenn ich die exe beende und den Button in zeile 323 drücke er dann auch den 2ten track startet, weswegen ich mich frage ob der iniread bei Titelwahl die aktualisierte form ignoriert und noch die alte settings.ini liest.

**Raupi**

Hi. Hab zwar noch keine Zeit gehabt des Script ausgiebig zu testen aber schon einen Fehler gefunden .Dein Code zeile 316-320

[autoit]

Case $Button1_Eragon2;Testweise ggf buggy
$Name="Eragon2"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Eragon3)
ExitLoop

[/autoit]

is denke ich mal falsch es sollte heißen

[autoit]

Case $Button1_Eragon2;Testweise ggf buggy
$Name="Eragon2"
Startanfang($Name)
TitelZeit($Name)
GUIDelete($Form1_Eragon2)
ExitLoop

[/autoit]

werde späte mich mal mit dem script beschäftigen .

Turbolocke

ah, danke^^ habich noch gar nicht bemerkt weil ich bis jetzt nur den Eragon 3 button getestet habe^^

habs jetzt aber geschafft, indem ich diese funktion:

Spoiler anzeigen

[autoit]

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

[/autoit]

in diese geändert habe, daher funktioniert jetzt alles, EIN GRO?ES DANKE AN ALLE DIE SICH DAMIT BESCHÄFTIGT HABEN!!!!!!!!

Spoiler anzeigen

[autoit]

Func NaechsterTitel($Name)
$read=IniRead("settings.ini",$Name,"Zeile","Error")
$readneu=$read+1
$Zeile=$readneu
IniWrite("Settings.ini",$Name,"Zeile",$readneu)
$Trackpfad=Tracklesen($Name,$Zeile)
IniWrite("Settings.ini",$Name,"Pfad",$Trackpfad)
_SoundClose($sound)
IniWrite("Settings.ini",$Name,"ZeitMinute","00")
IniWrite("Settings.ini",$Name,"ZeitStunde","00")
IniWrite("Settings.ini",$Name,"ZeitSekunde","00")
Titelwahl($name)

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

EndFunc

[/autoit]

**Raupi**

Wenns klappt dann ist ja super aber dein Code is viel zu lang :

[autoit]

Func NaechsterTitel($Name)
$read=IniRead("settings.ini",$Name,"Zeile","Error")
$readneu=$read+1
$Zeile=$readneu
IniWrite("Settings.ini",$Name,"Zeile",$readneu)
$Trackpfad=Tracklesen($Name,$Zeile)
IniWrite("Settings.ini",$Name,"Pfad",$Trackpfad)
_SoundClose($sound)
IniWrite("Settings.ini",$Name,"ZeitMinute","00")
IniWrite("Settings.ini",$Name,"ZeitStunde","00")
IniWrite("Settings.ini",$Name,"ZeitSekunde","00")
Titelwahl($name)

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

EndFunc

[/autoit]

das sollte genauso funzen :

[autoit]

Func NaechsterTitel($Name)
$read=IniRead("settings.ini",$Name,"Zeile","Error")
IniWrite("Settings.ini",$Name,"Zeile",$read+1 )
$Trackpfad=Tracklesen($Name,$read+1)
IniWrite("Settings.ini",$Name,"Pfad",$Trackpfad)
_SoundClose($sound)
IniWrite("Settings.ini",$Name,"ZeitMinute","00")
IniWrite("Settings.ini",$Name,"ZeitStunde","00")
IniWrite("Settings.ini",$Name,"ZeitSekunde","00")
Titelwahl($name)
EndFunc

[/autoit]

oder besser noch so :

[autoit]

Func NaechsterTitel($Name)
$read=IniRead("settings.ini",$Name,"Zeile","Error")
IniWrite("Settings.ini",$Name,"Zeile",$read+1 )
IniWrite("Settings.ini",$Name,"Pfad",Tracklesen($Name,$read+1))
_SoundClose($sound)
IniWrite("Settings.ini",$Name,"ZeitMinute","00")
IniWrite("Settings.ini",$Name,"ZeitStunde","00")
IniWrite("Settings.ini",$Name,"ZeitSekunde","00")
Titelwahl($name)
EndFunc

[/autoit]

Turbolocke

mhm ja hab da etwas überdeclariert *g*
War grad in Laune *gg*
Hab sie danach natürlich wieder weg gemacht, die kamen daher weil ich ne ganze weile dran rumprobiert habe bis ich festgestellt habe, dass ich den neuen Trackpfad nicht übergeben habe^^
:pinch:

**Raupi**

Hab mir angewöhnt so ziemlich alles und jedes zu kommentieren wenn ich was Scripte . Weiß manchmal net mehr wo ich wann was und überhaupt mache bei 2000 Codezeilen und mehr . Da seh ich auch manchmal den Wald vor lauter Bäumen net .