Beiträge von Turbolocke

  • Hörbuchplayerproblem

    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:

  • Hörbuchplayerproblem

    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]

  • Hörbuchplayerproblem

    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.

  • Hörbuchplayerproblem

    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.

  • Grüße von Schäuble ? LOL

    etwa im zweiten drittel ein Rechtschreibfehler gefunden Bundesanzleramt statt Bundeskanzleramt ;)
    Find ich ganz lustig das Teil.
    Überleg grad ob ichs abschreibe und in der schule aufn schulserver stelle und draufklicken lasse wenn der Beamer an ist ^^
    edit ^^ noch ein rechtschreibfehler *nicht schlagen*
    in der ersten oder zweiten zeile glaub ich war er ,ein d zuviel^^
    Und ich bleib dabei die idee is einfach nur geil!!!!

  • _Ispressedtime

    Is nur ganz kurz, aber eigentlich zu schade zum ständig neu schreiben.

    Gibt die Zeit,die eine Taste gedrückt wird zurück. Als parameter braucht man dasselbe wie bei Ispressed.
    [spoiler]

    [autoit]

    Func _IsPressedtime($Hexkey)
    $begin = TimerInit()
    Do

    Until _IsPressed($Hexkey)=0
    $dif = TimerDiff($begin)
    Return $dif
    EndFunc

    [/autoit]

  • Cliptomatik

    Cliptomatik ist ein Zwischenablageerweiterungtool.Es öffnet bei ALT c ein Auswahlfenster wo man mitthilfe von Buttons den Text in der Zwischenablage abspeichert. mit ALTv kann man den Text wieder in die Zwischenablage kopieren, auch wenn der Pc neugestartet wurde.
    Vorteil, im moment;=) : Wenn man einen Ordner in der ablage hat, und diesen abspeichert, und danach wieder mithilfe des tools einfügt, dann wird der Pfad zurückgeben( Grund: Wegen dem Textrückgabe)

    Im Moment die Version 1.0 BETA

    Buggs:Evl bei einigen Auflösungen Probleme, wenn gefunden, bitte melden.

    to do: Bilder und Ordner ebenfalls verwenden können.
    erledigt, funzt mit allem.

    Über Feedback freu ich ich

    Turbolocke


    Neue Version 1.01:

    Spoiler anzeigen

    Hab das ganze abspeichern bzw laden umgebaut, is zwar etwas unschöner, funzt aber jetzt dafür mit alllen Dateitypen.
    Evtl gibt es Probleme,wenn man seine cpu bereits asgelastet hat.werde es noch umbauen und evtl silent machen,kommt drauf an ob mir langweilig ist ;)
    setup.exe im anhang, ebenso wie die scripts.

  • Clipboard-Problem mit Format etc.

    Kann mir mal zusätzlich jemand sagen warum diese Func schwarz zurückgibt anstatt grün oder blau?

    Spoiler anzeigen
    [autoit]

    Func Farbezuordnen($Button)
    If FileExists("C:\Programme\Cliptomatik\Settings\Settings"&$Button&".ini") =1 Then
    $ReturnFarbe=0xff0000
    Else
    $ReturnFarbe=0x008000
    Return $ReturnFarbe
    EndIf
    EndFunc

    [/autoit]


    verwendet hab ich sie so:

    Spoiler anzeigen
    [autoit]

    $Farbe1=Farbezuordnen($Button1)

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

    GUICtrlSetBkColor($Button1,$Farbe1)

    [/autoit]

    edit, Bzw schwarze gui erzeugt, obwohl bei msgbox das richtige rauskommt?
    Im anhang ein bild

  • Clipboard-Problem mit Format etc.

    Ich mach gerade ein Programm ,mit dem ich die Zwischenablage erweitern kann.
    Mit Text und auch wenn ich ordner markiere und kopieren will gehts.
    Wenn ich jedoch im I net ein bild in die ablage kopiere, bekomm ich Probleme.
    Funzt nämlich nicht( Logisch, ich würde ja dann n bild in ne ini reinschreiben, geht natürlich nicht)
    Wie kriege ich das jetzt am besten hin, dass ich eine Grafik abspeicher, und zb, nach nen Neustart wieder in die ablage bring,ohne dass ich im inet das bild wieder suchen muss?