mp3 player vraag

[Breskuz]

hallo iedereen
zoals je mischien in de shoutbox hebt gelezen ben ik liberty basic aan het leren ! en nu heb ik al iet of wat script maar ik wil iets proberen maar ik kan er niet aan uit . ik ben dus een mp3 player aan het maken .
ik heb al een heel deel :

'** Created by Liberty BASIC Workshop - 30-5-2005 12:12:38
'** Ledenadministratie (sportvereniging)

    True = 1 : False = 0

[InitColors1]
    'Please use default colors when possible.
    'ForegroundColor$ = "Black"
    'BackgroundColor$ = "Buttonface"
    'TexteditorColor$ = "White"
    'TextboxColor$    = "White"
    'ComboboxColor$   = "White"
    'ListboxColor$    = "White"

[WindowSetup1]
    NOMAINWIN
    WindowWidth = 600 : WindowHeight = 550
    UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

[ControlSetup1]
Menu        #main1, "Bestand", "Openen", [openen1], "Nieuw", [nieuw1], "Exit", [quit]
Menu        #main1, "Actie", "Record wijzigen", [wijzigen1], "Record sorteren", [sorteren1]
Menu        #main1, "Extra", "Adressen", [adressen1], "Mailing", [mailing1]
Menu        #main1, "Help", "Help onderwerpen", [help1], "Versie", [versie]
statictext  #main1.static1, "Hier moeten nog aankondigingen komen", 131, 80, 248, 23
statictext  #main1.static2, "TEKST grootte SPORTVERENIGING", 131, 147, 237, 28

Open "Ledenadministratie (sportvereniging)" for Window as #main1
    #main1 "trapclose [quit1]"
    #main1 "font ms_sans_serif 10"

[loop1]
    Wait

[quit1]
    close #main1 : END

[openen1]
    'place code here
    'filedialog hier
    Wait

[nieuw1]
    'place code here
    Wait

[wijzigen1]
    'place code here
    'testen welk bestand open is en dan
    goto [WindowSetup2]
    Wait

[sorteren1]
    'place code here
    Wait

[adressen1]
    'place code here
    Wait

[mailing1]
    'place code here
    Wait

[help1]
    'place code here
    Wait

[versie1]
    'place code here
    Wait


'** Created by Liberty BASIC Workshop - 30-5-2005 13:00:13
'** Onderhoud Leden records (Wijzigen/ Verwijderen)

    True = 1 : False = 0

[InitColors2]
    'Please use default colors when possible.
    'ForegroundColor$ = "Black"
    'BackgroundColor$ = "Lightgray"
    'TexteditorColor$ = "White"
    'TextboxColor$    = "White"
    'ComboboxColor$   = "White"
    'ListboxColor$    = "White"

[WindowSetup2]
    NOMAINWIN
    WindowWidth = 600 : WindowHeight = 550
    UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

[ControlSetup2]
Menu        #main2, "Bewaren", "bewaren", [bewaren2]
Menu        #main2, "Zoeken", "Voornaam", [voornaam2], "Achternaam", [achternaam2], "Adres", [adres2], "Woonplaats", [woonplaats2], "reg Nummer", [regNummer2]
statictext  #main2.static1, " REG. NUMMER", 5, 5, 115, 25
statictext  #main2.static2, "ACHTERNAAM", 5, 35, 110, 25
statictext  #main2.static3, "ALFA A NAAM", 5, 65, 110, 25
statictext  #main2.static4, "ROEPNAAM", 5, 95, 110, 25
statictext  #main2.static5, " VOORNAAM", 5, 125, 120, 25
statictext  #main2.static6, " VOORLETTER", 5, 155, 115, 25
statictext  #main2.static7, " ADRES", 5, 185, 115, 25
statictext  #main2.static8, " POSTCODE", 5, 215, 115, 25
statictext  #main2.static9, " WOONPLAATS", 5, 245, 125, 25
statictext  #main2.static10, " GEB. DATUM", 5, 275, 120, 25
statictext  #main2.static11, " GESLACHT", 5, 305, 115, 25
statictext  #main2.static12, " TELEFOON", 5, 335, 115, 25
statictext  #main2.static13, " E-MAIL", 5, 365, 115, 25
statictext  #main2.static14, " SOORT LID", 5, 395, 110, 25
statictext  #main2.static15, " BANK NUMMER", 5, 425, 115, 25
statictext  #main2.static16, "INGANGS DATUM", 5, 455, 120, 25
stylebits   #main2.button1, _BS_MULTILINE, 0, 0, 0
button      #main2.button1, "E-mail", [button1.click], UL, 480, 365, 70, 20
textbox     #main2.textbox1, 140, 0, 120, 25
textbox     #main2.textbox2, 140, 30, 275, 25
textbox     #main2.textbox3, 140, 60, 120, 25
textbox     #main2.textbox4, 140, 90, 175, 25
textbox     #main2.textbox5, 140, 120, 275, 25
textbox     #main2.textbox6, 140, 150, 70, 25
textbox     #main2.textbox7, 140, 180, 335, 25
textbox     #main2.textbox8, 140, 210, 70, 25
textbox     #main2.textbox9, 140, 240, 355, 25
textbox     #main2.textbox10, 140, 270, 90, 25
textbox     #main2.textbox11, 140, 300, 40, 25
textbox     #main2.textbox12, 140, 330, 355, 25
textbox     #main2.textbox13, 140, 360, 310, 25
textbox     #main2.textbox14, 140, 390, 170, 25
textbox     #main2.textbox15, 140, 420, 250, 25
textbox     #main2.textbox16, 140, 450, 175, 25

Open "Onderhoud Leden records (Wijzigen/ Verwijderen)" for Window as #main2
    #main2 "trapclose [quit2]"
    #main2 "font ms_sans_serif 10"

[loop2]
    Wait

[quit2]
    close #main2 ': END
    wait

[bewaren2]
    'place code here
    Wait

[voornaam2]
    'place code here
    Wait

[achternaam2]
    'place code here
    Wait

[adres2]
    'place code here
    Wait

[woonplaats2]
    'place code here
    Wait

[regNummer2]
    'place code here
    Wait

[button1.click]
    'place code here
    wait

ik ga eerlijk zijn en ook er bij vermelden dat ik reeds hulp had
maar ik wil nog vanalles aanpassen ....
- een vooruit knop ( volgend liedje )
- een achteruit knop ( vorig liedje )
- en vooral wil ik wat het venster overzichterlijker maken


mja mijn vraag is .... hoe kan ik nu het best het script veranderen .... en in wat ?


grtz Breske The Only One

[Breskuz]

    open "minatica player 1.0" for window as #m
    button #1.b, "open iets",[open],UL,10,10,80,26
    button #1.stop, "Stop",[closeSong],UL,100,10,80,26
    button #1.pause, "Pauze",[pause],UL,10,40,80,26
    button #1.resume, "speel",[resume],UL,100,40,80,26
    button #1.exit, "sluit",[quit],UL,100,70,80,26
    open "Minatica player 1.0 " for window_nf as #1
    print #1, "trapclose [quit]"


    [loop]
    wait


    [open]

        if musicOpen=1 then r$=mciSendString$("close music")

        filedialog "kies een liedje","*.mp3",m$
        if m$="" then [loop]
        m$=GetShortPathName$(m$)
        r$=mciSendString$("open "+m$+" type MpegVideo alias music")
        musicOpen=1
        r$=mciSendString$("speel muziek")
        goto [loop]


    [closeSong]
        r$=mciSendString$("sluit muziek")
        musicOpen=0
        goto [loop]

    [quit]
        if musicOpen=1 then r$=mciSendString$("sluit muziek")
        close #1:end


    [pause]

        r$=mciSendString$("pauze muziek")
        goto [loop]

    [play]
        r$=mciSendString$("speel muziek")
        goto [loop]


    Function mciSendString$(s$)
        'Buffer will contain a return string from
        'the function, if there is one.
        buffer$=space$(1024)+chr$(0)
        calldll #winmm,"mciSendStringA",s$ as ptr,buffer$ as ptr,_
            1028 as long, 0 as long, r as long

        'truncate returned string at null character
        buffer$=left$(buffer$, instr(buffer$, chr$(0)) - 1)

            if r>0 then
                mciSendString$="error"
            else
                mciSendString$=buffer$
            end if
        End Function

    Function GetShortPathName$(lPath$)
        lPath$=lPath$+chr$(0)
        sPath$=space$(256)
        lenPath=len(sPath$)
        calldll #kernel32, "GetShortPathNameA",lPath$ as ptr,_
        sPath$ as ptr,lenPath as long,r as long
        GetShortPathName$=left$(sPath$,r)
        end function

ps . dit is liberty basic