Ostis Mediaplayer

DAFLO programming Forum
Verfügbare Informationen zu "Ostis Mediaplayer"

  • Qualität des Beitrags: 0 Sterne
  • Beteiligte Poster: daos06 - Chimera
  • Forum: DAFLO programming Forum
  • Forenbeschreibung: Forum für die Mitglieder der Programmierer-Gruppe DAFLO programming
  • aus dem Unterforum: RapidBatch
  • Antworten: 5
  • Forum gestartet am: Samstag 05.08.2006
  • Sprache: deutsch
  • Link zum Originaltopic: Ostis Mediaplayer
  • Letzte Antwort: vor 16 Jahren, 3 Monaten, 9 Tagen, 22 Stunden, 12 Minuten
  • Alle Beiträge und Antworten zu "Ostis Mediaplayer"

    Re: Ostis Mediaplayer

    daos06 - 13.09.2006, 13:20

    Ostis Mediaplayer
    Hier: Mein eigener Mediaplayer 1.0. Leider, schaltet er noch nicht aufs nächste Lied, wenn das 1ste fertig ist :? .

    Code: FUNC SndTime: [_File]

    mci 'open "' # [_File] # '" type MPEGVideo alias snd'
    if [errorcode] ! '1' ret ''
    mci 'status snd length'
    [_Len] = [errorcode]
    mci 'close snd'
    [_Len] + '500'
    gettok [_Len] = [_Len] / '1000', '.', '1'
    ret [_Len]

    ENDFUNC



    [count] = '1'

    rem MP3 Player

    rem --- creating code for widget "myDialog"
    newdialog 'myDialog', 'DIALOG', '280|134|399|234'
    letdialog 'myDialog', 'caption', 'Ostis MP3 Player'
    letdialog 'myDialog', 'menu', 'Player:new playlist|add to playlist|delete playlist|-|beenden;Info:information;'
    letdialog 'myDialog', 'style', 'SINGLE'

    rem --- creating code for widget "myWidget1"
    newdialog 'myDialog:myWidget1', 'LABEL', '40|30|400|30'
    letdialog 'myDialog:myWidget1', 'caption', ''
    letdialog 'myDialog:myWidget1', 'font', 'Times new Roman|17|0'

    rem --- creating code for widget "myWidget2"
    newdialog 'myDialog:myWidget2', 'PROGRESS', '45|80|275|25'
    letdialog 'myDialog:myWidget2', 'progress', [true]

    rem --- creating code for widget "myWidget3"
    newdialog 'myDialog:myWidget3', 'BUTTON', '45|130|40|20'
    letdialog 'myDialog:myWidget3', 'caption', 'Play'

    rem --- creating code for widget "myWidget4"
    newdialog 'myDialog:myWidget4', 'BUTTON', '100|130|40|20'
    letdialog 'myDialog:myWidget4', 'caption', 'Stop'

    rem --- creating code for widget "myWidget5"
    newdialog 'myDialog:myWidget5', 'BUTTON', '155|130|40|20'
    letdialog 'myDialog:myWidget5', 'caption', 'next'

    rem --- creating code for widget "myWidget6"
    newdialog 'myDialog:myWidget6', 'BUTTON', '210|130|40|20'
    letdialog 'myDialog:myWidget6', 'caption', 'last'

    rem --- make the dialog window visible
    letdialog 'myDialog', 'visible', [true]

    repeat



    If [event] = 'click_myDialog:Menu_new playlist'
       [OpenBox_MultiSel] = [true]
       openbox [Playlist] = 'Wählen Sie einen oder mehrere Titel aus!', 'MP3 files|*.mp3'
       If [music] = 'on' mci 'stop "' # [Playlist:[count]:'1'] # '"'   
       [count] = '1'
       gettok [Anfang] = [Playlist], '|', '1'
       [count] + '1'
       gettok [tok2] = [Playlist], '|', [count]
       [tok] = [Anfang] # '\' # [tok2]
       [Playlist:[count]:'1'] = [tok]
       cntvar [anzahl] = [tok], '\'
       getpos [pos] = [tok], '\', [anzahl]
       copyvar [aTitel] = [tok], [pos] + '1', '30'
       [Playlist:[count]:'3'] = [aTitel]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       

       [warted] = [Playlist:[count]:'2'] / '100'
       [warted] * '1000'
       [a] = '0'
    endif

    If [music] = 'on'
       [a] + '1'
       letdialog 'myDialog:myWidget2', 'progress', [a]
    endif


    rundialog [event] = [warted]
     
     
    If [a] = '100'
    [ab] = [count]
       [count] + '1'
       gettok [Playlist:[count]:'1'] = [Playlist], '|', [count]
       mci 'stop "' # [Playlist:[ab]:'1'] # '"'
       [Playlist:[count]:'1'] = [tok]
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       copyvar [Playlist:[count]:'3'] = [tok], [pos] + '1', '30'
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
    endif

     
    If [event] = 'click_myDialog:myWidget4'  & [music] = 'on'
       mci 'stop "' # [Playlist:[count]:'1'] # '"'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       [music] = 'off'
    endif
       
       
    If [event] = 'click_myDialog:myWidget3'  & [music] = 'off'
       If [music] = 'off'
          mci 'play "' # [Playlist:[count]:'1'] # '"'
          [music] = 'on'
       endif
    endif
       
       
    If [event] = 'click_myDialog:myWidget5' & [music] = 'on'
       [ab] = [count]
       [count] + '1'
       gettok [tok2] = [Playlist], '|', [count]
       [tok] = [Anfang] # '\' # [tok2]
       [Playlist:[count]:'1'] = [tok]
       mci 'stop "' # [Playlist:[ab]:'1'] # '"'
       mci 'close "' # [Playlist:[ab]:'1'] # '"'
       [Playlist:[count]:'1'] = [tok]
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       [Playlist:[count]:'3'] = [tok2]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
    endif
       
       
    If [event] = 'click_myDialog:myWidget6' & [count] > '2'  & [music] = 'on'
       [ab] = [count]
       [count] - '1'
       gettok [tok2] = [Playlist], '|', [count]
       [tok] = [Anfang] # '\' # [tok2]
       mci 'stop "' # [Playlist:[ab]:'1'] # '"'
       mci 'close "' # [Playlist:[ab]:'1'] # '"'
       [Playlist:[count]:'1'] = [tok]
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       [Playlist:[count]:'3'] = [tok2]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
    endif

    If [event] = 'click_myDialog:Menu_add to playlist'
       [OpenBox_MultiSel] = [true]
       openbox [Playlist2] = 'Wählen Sie einen oder mehrere Titel aus!', 'MP3 files|*.mp3|WMA files|*.wma|All files|*.*'
       If [music] = 'on' mci 'stop "' # [Playlist:[count]:'1'] # '"' mci 'close "' # [Playlist:[count]:'1'] # '"'
       [Playlist] # '|' # [Playlist2]
       [count] = '1'
       gettok [Anfang] = [Playlist], '|', '1'
       [count] + '1'
       gettok [tok2] = [Playlist], '|', [count]
       [tok] = [Anfang] # '\' # [tok2]
       [Playlist:[count]:'1'] = [tok]
       cntvar [anzahl] = [tok], '\'
       getpos [pos] = [tok], '\', [anzahl]
       copyvar [aTitel] = [tok], [pos] + '1', '30'
       [Playlist:[count]:'3'] = [aTitel]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'

       [warted] = '100' / [Playlist:[count]:'2']
       [warted] * '1000'
       [a] = '0'
    endif

    If [event] = 'click_myDialog:Menu_delete playlist'
       If [music] = 'on' mci 'stop "' # [amusic] # '"'
       reset [music]
       reset [amusic]
       reset [Sec]
       reset [tok]
       reset [Playlist]
       reset [Playlist2]
       reset [count]
       reset [anzahl]
       reset [a]
       reset [aTitel]
       letdialog 'myDialog:myWidget1', 'caption', ''
       letdialog 'myDialog:myWidget2', 'progress', '0'
    endif

    If [event] = 'click_myDialog:Menu_beenden'
       halt
    endif

    If [event] = 'click_myDialog:Menu_information'
       echo 'MP3 Player 1.0' # [new_line] # [new_line] # 'copyright © 2006 by Daniel Ostheimer, FLODA-programming' # [new_line] # [new_line] # 'Dieses Programm wurde am 21.08.2006 von Daniel Ostheimer fertiggestellt.' # [new_line] # [new_line] # 'Zu der Entwicklung wurde die Sprache RapidBatch 5.0.6 verwendet.'
    endif

    until [event] = 'close_myDialog'

    end



    Re: Ostis Mediaplayer

    daos06 - 27.09.2006, 21:19


    Jetzt fast Fehlerlos. Ich hab die Funktion add to Playlist weggetan, weil sie nicht funktionieren wird (schade).

    Code: rem Es gibt jetzt nur noch einen Fehler: Wenn man auf die Playlist-Liste klickt wird [count] nur um 1 höher.


    FUNC SndTime: [_File]

    mci 'open "' # [_File] # '" type MPEGVideo alias snd'
    if [errorcode] ! '1' ret ''
    mci 'status snd length'
    [_Len] = [errorcode]
    mci 'close snd'
    [_Len] + '500'
    gettok [_Len] = [_Len] / '1000', '.', '1'
    ret [_Len]

    ENDFUNC



    [count] = '1'

    rem MP3 Player

    rem --- creating code for widget "myDialog"
    newdialog 'myDialog', 'DIALOG', '450|200|399|234'
    letdialog 'myDialog', 'caption', 'FLODA MP3 Player'
    letdialog 'myDialog', 'menu', 'Player:show playlist|close playlist|new playlist|delete playlist|-|beenden;'
    letdialog 'myDialog', 'style', 'SINGLE'

    rem --- creating code for widget "myWidget1"
    newdialog 'myDialog:myWidget1', 'LABEL', '10|30|700|30'
    letdialog 'myDialog:myWidget1', 'caption', ''
    letdialog 'myDialog:myWidget1', 'font', 'Times new Roman|17|0'

    rem --- creating code for widget "myWidget2"
    newdialog 'myDialog:myWidget2', 'PROGRESS', '45|80|275|25'
    letdialog 'myDialog:myWidget2', 'progress', [true]

    rem --- creating code for widget "myWidget3"
    newdialog 'myDialog:myWidget3', 'BUTTON', '45|130|40|20'
    letdialog 'myDialog:myWidget3', 'caption', 'Play'

    rem --- creating code for widget "myWidget4"
    newdialog 'myDialog:myWidget4', 'BUTTON', '100|130|40|20'
    letdialog 'myDialog:myWidget4', 'caption', 'Stop'

    rem --- creating code for widget "myWidget5"
    newdialog 'myDialog:myWidget5', 'BUTTON', '155|130|40|20'
    letdialog 'myDialog:myWidget5', 'caption', 'next'

    rem --- creating code for widget "myWidget6"
    newdialog 'myDialog:myWidget6', 'BUTTON', '210|130|40|20'
    letdialog 'myDialog:myWidget6', 'caption', 'last'

    rem --- make the dialog window visible
    letdialog 'myDialog', 'visible', [true]

    newdialog 'myDialog2', 'DIALOG', '100|134|310|375'
    letdialog 'myDialog2', 'caption', 'Playlist'

    newdialog 'myDialog2:list', 'LIST', '1|1|300|350'
    letdialog 'myDialog2:list', 'items', [Playlist]
    letdialog 'myDialog2:list', 'EVENT_DBLCLICK', [true]

    letdialog 'myDialog2', 'visible', [true]





    repeat



    If [event] = 'click_myDialog:Menu_new playlist'
       [OpenBox_MultiSel] = [true]
       openbox [Playlist] = 'Wählen Sie einen oder mehrere Titel aus!', 'MP3 files|*.mp3'
    rem   [v] = '2'
    rem   [v2] = '1'
    rem   [yx] = '1'
    rem   repeat
    rem   gettok [a:[yx]] = [Playlist], '|', [v]
    rem   If [v2] < '10'
    rem      [a:[yx]] = '0' # [v2] # ' ' # [a:[yx]]
    rem   else
    rem      [a:[yx]] = [v2] # ' ' # [a:[yx]]
    rem   endif
    rem   [v] + '1'
    rem   [v2] + '1'
    rem   [yx] + '1'
    rem   until [a:[yx]] = ''
    rem   gettok [Anfang5] = [Playlist], '|', '1'
    rem   [zusammen] = [Anfang5]
    rem   [xy] = '1'
    rem   repeat
    rem   [zusammen] # '|' # [a:[xy]]
    rem   [xy] + '1'
    rem   until [xy] = [v2]
    rem   getpos [pos52] = [zusammen], '|', '1'
    rem   getpos [pos62] = [zusammen], '|', '2'
    rem   copyvar [Playlist32] = [zusammen], [pos52] + '1', [pos62] - '1'
    rem   getpos [pos72] = [zusammen], '|', '1'
    rem   copyvar [Playlist32] = [Playlist32], '1', [pos72] - '1'
    rem   copyvar [Playlist42] = [zusammen], [pos62] + '1', '40000000'
    rem   [Playlist52] = [Playlist42] # '|' # [Playlist32]
    rem   letdialog 'myDialog2:list', 'items', [Playlist52]

       
       
       

       getpos [pos5] = [Playlist], '|', '1'
       getpos [pos6] = [Playlist], '|', '2'
       copyvar [Playlist3] = [Playlist], [pos5] + '1', [pos6] - '1'
       getpos [pos7] = [Playlist3], '|', '1'
       copyvar [Playlist3] = [Playlist3], '1', [pos7] - '1'
       copyvar [Playlist4] = [Playlist], [pos6] + '1', '40000000'
       [Playlist5] = [Playlist4] # '|' # [Playlist3]
       letdialog 'myDialog2:list', 'items', [Playlist5]
       If [music] = 'on' mci 'stop "' # [Playlist:[count]:'1'] # '"'   
       [count] = '1'
       gettok [Anfang] = [Playlist], '|', '1'
       [Playlist] = [Anfang] # '|' # [Playlist5]
       [count] + '1'
       gettok [tok2] = [Playlist], '|', [count]
       [tok] = [Anfang] # '\' # [tok2]
       [Playlist:[count]:'1'] = [tok]
       cntvar [anzahl] = [tok], '\'
       getpos [pos] = [tok], '\', [anzahl]
       copyvar [aTitel] = [tok], [pos] + '1', '30'
       [Playlist:[count]:'3'] = [aTitel]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       

       [warted] = [Playlist:[count]:'2'] / '100'
       [warted] * '1000'
       [a] = '0'
    endif

    If [music] = 'on'
       [a] + '1'
       letdialog 'myDialog:myWidget2', 'progress', [a]
    endif


    rundialog [event] = [warted]
     
     
    If [a] = '100'
       [ab] = [count]
       [count] + '1'
       gettok [Playlist:[count]:'1'] = [Playlist], '|', [count]
       [Playlist:[count]:'3'] = [Playlist:[count]:'1']
       gettok [Anfang] = [Playlist], '|', '1'
       [Playlist:[count]:'1'] = [Anfang] # '\' # [Playlist:[count]:'1']
       mci 'stop "' # [Playlist:[ab]:'1'] # '"'
       mci 'close "' # [Playlist:[ab]:'1'] # '"'
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       [a] = '0'
       [warted] = [Playlist:[count]:'2'] / '100'
       [warted] * '1000'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
    endif

     
    If [event] = 'click_myDialog:myWidget4'  & [music] = 'on'
       mci 'stop "' # [Playlist:[count]:'1'] # '"'
       mci 'close "' # [Playlist:[count]:'1'] # '"'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       [music] = 'off'
    endif
       
       
    If [event] = 'click_myDialog:myWidget3'  & [music] = 'off'
       If [music] = 'off'
          mci 'open "' # [Playlist:[count]:'1'] # '"'
          mci 'play "' # [Playlist:[count]:'1'] # '"'
          [music] = 'on'
       endif
    endif
       
       
    If [event] = 'click_myDialog:myWidget5' & [music] = 'on'
       [ab] = [count]
       [count] + '1'
       gettok [tok2] = [Playlist], '|', [count]
       If [tok2] ! ''
          [tok] = [Anfang] # '\' # [tok2]
          [Playlist:[count]:'1'] = [tok]
          mci 'stop "' # [Playlist:[ab]:'1'] # '"'
          mci 'close "' # [Playlist:[ab]:'1'] # '"'
          [Playlist:[count]:'1'] = [tok]
          SndTime [Sec] = [Playlist:[count]:'1']
          [Playlist:[count]:'2'] = [Sec]
          mci 'open "' # [Playlist:[count]:'1'] # '"'
          mci 'play "' # [Playlist:[count]:'1'] # '"'
          [music] = 'on'
          [warted] = [Playlist:[count]:'2'] / '100'
          [warted] * '1000'
          [a] = '0'
          letdialog 'myDialog:myWidget2', 'progress', [a]
          [Playlist:[count]:'3'] = [tok2]
          letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       else
          reset [tok2]
          gettok [tok2] = [Playlist], '|', '2'
          [tok] = [Anfang] # '\' # [tok2]
          [Playlist:[count]:'1'] = [tok]
          mci 'stop "' # [Playlist:[ab]:'1'] # '"'
          mci 'close "' # [Playlist:[ab]:'1'] # '"'
          [Playlist:[count]:'1'] = [tok]
          SndTime [Sec] = [Playlist:[count]:'1']
          [Playlist:[count]:'2'] = [Sec]
          mci 'open "' # [Playlist:[count]:'1'] # '"'
          mci 'play "' # [Playlist:[count]:'1'] # '"'
          [music] = 'on'
          [warted] = [Playlist:[count]:'2'] / '100'
          [warted] * '1000'
          [a] = '0'
          letdialog 'myDialog:myWidget2', 'progress', [a]
          [Playlist:[count]:'3'] = [tok2]
          letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       endif

    endif
       
       
    If [event] = 'click_myDialog:myWidget6' & [count] > '2' & [music] = 'on'
       [ab] = [count]
       [count] - '1'
       gettok [tok2] = [Playlist], '|', [count]
       [tok] = [Anfang] # '\' # [tok2]
       mci 'stop "' # [Playlist:[ab]:'1'] # '"'
       mci 'close "' # [Playlist:[ab]:'1'] # '"'
       [Playlist:[count]:'1'] = [tok]
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       [warted] = [Playlist:[count]:'2'] / '100'
       [warted] * '1000'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       [Playlist:[count]:'3'] = [tok2]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
    endif





    rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



    rem If [event] = 'click_myDialog:Menu_add to playlist'
    rem   [OpenBox_MultiSel] = [true]
    rem   openbox [Playlist2] = 'Wählen Sie einen oder mehrere Titel aus!', 'MP3 files|*.mp3|WMA files|*.wma|All files|*.*'
    rem   getpos [pos8] = [Playlist2], '|', '1'
    rem   If [errorcode] = '-1'
    rem      cntvar [\] = [Playlist2]], '\'
    rem       getpos [pos99] = [Playlist2], '\', [\]
    rem       copyvar [newPlaylist] = [Playlist2], [pos99] + '1', '4000000000'
    rem       If [Playlist5] ! ''
    rem          [Playlist5] # '|' # [newPlaylist]
    rem       else
    rem          [Playlist5] = [newPlaylist]
    rem       endif
    rem       
    rem       letdialog 'myDialog2:list', 'items', [Playlist5]
    rem       

    rem       getpos [pos9] = [Playlist2], '|', '2'
    rem       copyvar [Playlist10] = [Playlist2], [pos8] + '1', [pos9] - '1'
    rem       getpos [pos11] = [Playlist8], '|', '1'
    rem       copyvar [Playlist8] = [Playlist8], '1', [pos7] - '1'
    rem       copyvar [Playlist9] = [Playlist2], [pos9] + '1', '40000000'
    rem       [Playlist10] = [Playlist9] # '|' # [Playlist8]
    rem       gettok [Anfang2] = [Playlist2], '|', '1'
    rem       [Playlist2] = [Anfang2] # '|' # [Playlist10]

    rem    If [music] = 'on' mci 'stop "' # [Playlist:[count]:'1'] # '"' mci 'close "' # [Playlist:[count]:'1'] # '"'
    rem    If [Playlist] ! ''
    rem       [Playlist] # '|' # [Playlist2]
    rem    else
    rem       [Playlist] = [Playlist2]
    rem    endif
    rem    getpos [pos5] = [Playlist], '|', '1'
    rem    copyvar [Playlist3] = [Playlist], [pos5] + '1', '400000'
    rem    letdialog 'myDialog2:list', 'items', [Playlist3]
    rem    [count] = '1'
    rem    gettok [Anfang] = [Playlist], '|', '1'
    rem    [count] + '1'
    rem    gettok [tok2] = [Playlist], '|', [count]
    rem    [tok] = [Anfang] # '\' # [tok2]
    rem    [Playlist:[count]:'1'] = [tok]
    rem    cntvar [anzahl] = [tok], '\'
    rem    getpos [pos] = [tok], '\', [anzahl]
    rem    copyvar [aTitel] = [tok], [pos] + '1', '30'
    rem    [Playlist:[count]:'3'] = [aTitel]
    rem    letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
    rem    SndTime [Sec] = [Playlist:[count]:'1']
    rem    [Playlist:[count]:'2'] = [Sec]
    rem    mci 'open "' # [Playlist:[count]:'1'] # '"'
    rem    mci 'play "' # [Playlist:[count]:'1'] # '"'
    rem    [music] = 'on'

    rem    [warted] = [Playlist:[count]:'2'] / '100'
    rem    [warted] * '1000'
    rem    [a] = '0'
    rem endif


    rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!






    If [event] = 'click_myDialog:Menu_delete playlist'
       mci 'stop "' # [Playlist:[count]:'1'] # '"'
       mci 'close "' # [Playlist:[count]:'1'] # '"'
       reset [music]
       reset [amusic]
       reset [Sec]
       reset [tok]
       reset [Playlist]
       reset [Playlist2]
       reset [count]
       reset [Playlist3]
       reset [anzahl]
       reset [a]
       reset [aTitel]
       reset [Playlist:[count]:'1']
       reset [Playlist:[count]:'2']
       reset [Playlist:[count]:'3']
       letdialog 'myDialog:myWidget1', 'caption', ''
       letdialog 'myDialog:myWidget2', 'progress', '0'
       letdialog 'myDialog2:list', 'items', ''
    endif

    If [event] = 'click_myDialog:Menu_beenden'
       halt
    endif


    if [event] = 'dblclick_myDialog2:list'
       If [music] = 'on' mci 'stop "' # [Playlist:[count]:'1'] # '"' mci 'close "' # [Playlist:[count]:'1'] # '"'
       [count] + '1'
       getdialog [Playlist:[count]:'3'] = 'myDialog2:list', 'SELECTION'
       gettok [Anfang2] = [Playlist], '|', '1'
       [Playlist:[count]:'1'] = [Anfang2] # '\' # [Playlist:[count]:'3']
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'

       [warted] = [Playlist:[count]:'2'] / '100'
       [warted] * '1000'
       [a] = '0'
    endif

    If [event] = 'close_myDialog2'
       letdialog 'myDialog2', 'Visible', [false]
    endif

    If [event] = 'click_myDialog:Menu_show playlist'
       letdialog 'myDialog2', 'Visible', [true]
    endif

    If [event] = 'click_myDialog:Menu_close playlist'
       letdialog 'myDialog2', 'Visible', [false]
    endif


    until [event] = 'close_myDialog'

    end



    Re: Ostis Mediaplayer

    daos06 - 17.11.2006, 22:29


    Schreibt einfach ne PM an mich, dann kann ich euch das Programm compiliert schicken.

    Grafisch ein bisschen Verbessert:



    Code: rem Es gibt jetzt nur noch einen Fehler: Wenn man auf die Playlist-Liste klickt wird [count] nur um 1 höher.


    FUNC SndTime: [_File]

    mci 'open "' # [_File] # '" type MPEGVideo alias snd'
    if [errorcode] ! '1' ret ''
    mci 'status snd length'
    [_Len] = [errorcode]
    mci 'close snd'
    [_Len] + '500'
    gettok [_Len] = [_Len] / '1000', '.', '1'
    ret [_Len]

    ENDFUNC

    cntvar [gtposv] = [ownname], '\'
    getpos [pos] = [ownname], '\', [gtposv]
    copyvar [Pfad] = [ownname], '1', [pos]



    [count] = '1'

    rem MP3 Player

    rem --- creating code for widget "myDialog"
    newdialog 'myDialog', 'DIALOG', '450|200|399|234'
    letdialog 'myDialog', 'caption', 'FLODA MP3 Player'
    letdialog 'myDialog', 'menu', 'Player:show playlist|close playlist|new playlist|delete playlist|-|beenden;'
    letdialog 'myDialog', 'style', 'SINGLE'

    rem --- creating code for widget "myWidget1"
    newdialog 'myDialog:myWidget1', 'LABEL', '10|30|700|30'
    letdialog 'myDialog:myWidget1', 'caption', ''
    letdialog 'myDialog:myWidget1', 'font', 'Times new Roman|17|0'

    rem --- creating code for widget "myWidget2"
    newdialog 'myDialog:myWidget2', 'PROGRESS', '45|80|275|25'
    letdialog 'myDialog:myWidget2', 'progress', [true]

    rem --- creating code for widget "myWidget3"
    newdialog 'myDialog:myWidget3', 'IMAGEBUTTON', '45|130|40|20'
    letdialog 'myDialog:myWidget3', 'IMAGE', [Pfad] # 'play.bmp'

    rem --- creating code for widget "myWidget4"
    newdialog 'myDialog:myWidget4', 'IMAGEBUTTON', '100|130|40|20'
    letdialog 'myDialog:myWidget4', 'IMAGE', [Pfad] # 'stop.bmp'

    rem --- creating code for widget "myWidget5"
    newdialog 'myDialog:myWidget5', 'IMAGEBUTTON', '210|130|40|20'
    letdialog 'myDialog:myWidget5', 'IMAGE', [Pfad] # 'right.bmp'

    rem --- creating code for widget "myWidget6"
    newdialog 'myDialog:myWidget6', 'IMAGEBUTTON', '155|130|40|20'
    letdialog 'myDialog:myWidget6', 'IMAGE', [Pfad] # 'left.bmp'

    rem --- make the dialog window visible
    letdialog 'myDialog', 'visible', [true]

    newdialog 'myDialog2', 'DIALOG', '100|134|310|375'
    letdialog 'myDialog2', 'caption', 'Playlist'

    newdialog 'myDialog2:list', 'LIST', '1|1|300|350'
    letdialog 'myDialog2:list', 'items', [Playlist]
    letdialog 'myDialog2:list', 'EVENT_DBLCLICK', [true]

    letdialog 'myDialog2', 'visible', [true]





    repeat



    If [event] = 'click_myDialog:Menu_new playlist'
       [OpenBox_MultiSel] = [true]
       openbox [Playlist] = 'Wählen Sie einen oder mehrere Titel aus!', 'MP3 files|*.mp3'
    rem   [v] = '2'
    rem   [v2] = '1'
    rem   [yx] = '1'
    rem   repeat
    rem   gettok [a:[yx]] = [Playlist], '|', [v]
    rem   If [v2] < '10'
    rem      [a:[yx]] = '0' # [v2] # ' ' # [a:[yx]]
    rem   else
    rem      [a:[yx]] = [v2] # ' ' # [a:[yx]]
    rem   endif
    rem   [v] + '1'
    rem   [v2] + '1'
    rem   [yx] + '1'
    rem   until [a:[yx]] = ''
    rem   gettok [Anfang5] = [Playlist], '|', '1'
    rem   [zusammen] = [Anfang5]
    rem   [xy] = '1'
    rem   repeat
    rem   [zusammen] # '|' # [a:[xy]]
    rem   [xy] + '1'
    rem   until [xy] = [v2]
    rem   getpos [pos52] = [zusammen], '|', '1'
    rem   getpos [pos62] = [zusammen], '|', '2'
    rem   copyvar [Playlist32] = [zusammen], [pos52] + '1', [pos62] - '1'
    rem   getpos [pos72] = [zusammen], '|', '1'
    rem   copyvar [Playlist32] = [Playlist32], '1', [pos72] - '1'
    rem   copyvar [Playlist42] = [zusammen], [pos62] + '1', '40000000'
    rem   [Playlist52] = [Playlist42] # '|' # [Playlist32]
    rem   letdialog 'myDialog2:list', 'items', [Playlist52]

       
       
       

       getpos [pos5] = [Playlist], '|', '1'
       getpos [pos6] = [Playlist], '|', '2'
       copyvar [Playlist3] = [Playlist], [pos5] + '1', [pos6] - '1'
       getpos [pos7] = [Playlist3], '|', '1'
       copyvar [Playlist3] = [Playlist3], '1', [pos7] - '1'
       copyvar [Playlist4] = [Playlist], [pos6] + '1', '40000000'
       [Playlist5] = [Playlist4] # '|' # [Playlist3]
       letdialog 'myDialog2:list', 'items', [Playlist5]
       If [music] = 'on' mci 'stop "' # [Playlist:[count]:'1'] # '"'   
       [count] = '1'
       gettok [Anfang] = [Playlist], '|', '1'
       [Playlist] = [Anfang] # '|' # [Playlist5]
       [count] + '1'
       gettok [tok2] = [Playlist], '|', [count]
       [tok] = [Anfang] # '\' # [tok2]
       [Playlist:[count]:'1'] = [tok]
       cntvar [anzahl] = [tok], '\'
       getpos [pos] = [tok], '\', [anzahl]
       copyvar [aTitel] = [tok], [pos] + '1', '70'
       [Playlist:[count]:'3'] = [aTitel]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       

       [warted] = [Playlist:[count]:'2'] / '100'
       [warted] * '1000'
       [a] = '0'
    endif

    If [music] = 'on'
       [a] + '1'
       letdialog 'myDialog:myWidget2', 'progress', [a]
    endif


    rundialog [event] = [warted]
     
     
    If [a] = '100'
       [ab] = [count]
       [count] + '1'
       gettok [Playlist:[count]:'1'] = [Playlist], '|', [count]
       [Playlist:[count]:'3'] = [Playlist:[count]:'1']
       gettok [Anfang] = [Playlist], '|', '1'
       [Playlist:[count]:'1'] = [Anfang] # '\' # [Playlist:[count]:'1']
       mci 'stop "' # [Playlist:[ab]:'1'] # '"'
       mci 'close "' # [Playlist:[ab]:'1'] # '"'
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       [a] = '0'
       [warted] = [Playlist:[count]:'2'] / '100'
       [warted] * '1000'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
    endif

     
    If [event] = 'click_myDialog:myWidget4'  & [music] = 'on'
       mci 'stop "' # [Playlist:[count]:'1'] # '"'
       mci 'close "' # [Playlist:[count]:'1'] # '"'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       [music] = 'off'
    endif
       
       
    If [event] = 'click_myDialog:myWidget3'  & [music] = 'off'
       If [music] = 'off'
          mci 'open "' # [Playlist:[count]:'1'] # '"'
          mci 'play "' # [Playlist:[count]:'1'] # '"'
          [music] = 'on'
       endif
    endif
       
       
    If [event] = 'click_myDialog:myWidget5' & [music] = 'on'
       [ab] = [count]
       [count] + '1'
       gettok [tok2] = [Playlist], '|', [count]
       If [tok2] ! ''
          [tok] = [Anfang] # '\' # [tok2]
          [Playlist:[count]:'1'] = [tok]
          mci 'stop "' # [Playlist:[ab]:'1'] # '"'
          mci 'close "' # [Playlist:[ab]:'1'] # '"'
          [Playlist:[count]:'1'] = [tok]
          SndTime [Sec] = [Playlist:[count]:'1']
          [Playlist:[count]:'2'] = [Sec]
          mci 'open "' # [Playlist:[count]:'1'] # '"'
          mci 'play "' # [Playlist:[count]:'1'] # '"'
          [music] = 'on'
          [warted] = [Playlist:[count]:'2'] / '100'
          [warted] * '1000'
          [a] = '0'
          letdialog 'myDialog:myWidget2', 'progress', [a]
          [Playlist:[count]:'3'] = [tok2]
          letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       else
          reset [tok2]
          gettok [tok2] = [Playlist], '|', '2'
          [tok] = [Anfang] # '\' # [tok2]
          [Playlist:[count]:'1'] = [tok]
          mci 'stop "' # [Playlist:[ab]:'1'] # '"'
          mci 'close "' # [Playlist:[ab]:'1'] # '"'
          [Playlist:[count]:'1'] = [tok]
          SndTime [Sec] = [Playlist:[count]:'1']
          [Playlist:[count]:'2'] = [Sec]
          mci 'open "' # [Playlist:[count]:'1'] # '"'
          mci 'play "' # [Playlist:[count]:'1'] # '"'
          [music] = 'on'
          [warted] = [Playlist:[count]:'2'] / '100'
          [warted] * '1000'
          [a] = '0'
          letdialog 'myDialog:myWidget2', 'progress', [a]
          [Playlist:[count]:'3'] = [tok2]
          letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       endif

    endif
       
       
    If [event] = 'click_myDialog:myWidget6' & [count] > '2' & [music] = 'on'
       [ab] = [count]
       [count] - '1'
       gettok [tok2] = [Playlist], '|', [count]
       [tok] = [Anfang] # '\' # [tok2]
       mci 'stop "' # [Playlist:[ab]:'1'] # '"'
       mci 'close "' # [Playlist:[ab]:'1'] # '"'
       [Playlist:[count]:'1'] = [tok]
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'
       [warted] = [Playlist:[count]:'2'] / '100'
       [warted] * '1000'
       [a] = '0'
       letdialog 'myDialog:myWidget2', 'progress', [a]
       [Playlist:[count]:'3'] = [tok2]
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
    endif





    rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



    rem If [event] = 'click_myDialog:Menu_add to playlist'
    rem   [OpenBox_MultiSel] = [true]
    rem   openbox [Playlist2] = 'Wählen Sie einen oder mehrere Titel aus!', 'MP3 files|*.mp3|WMA files|*.wma|All files|*.*'
    rem   getpos [pos8] = [Playlist2], '|', '1'
    rem   If [errorcode] = '-1'
    rem      cntvar [\] = [Playlist2]], '\'
    rem       getpos [pos99] = [Playlist2], '\', [\]
    rem       copyvar [newPlaylist] = [Playlist2], [pos99] + '1', '4000000000'
    rem       If [Playlist5] ! ''
    rem          [Playlist5] # '|' # [newPlaylist]
    rem       else
    rem          [Playlist5] = [newPlaylist]
    rem       endif
    rem       
    rem       letdialog 'myDialog2:list', 'items', [Playlist5]
    rem       

    rem       getpos [pos9] = [Playlist2], '|', '2'
    rem       copyvar [Playlist10] = [Playlist2], [pos8] + '1', [pos9] - '1'
    rem       getpos [pos11] = [Playlist8], '|', '1'
    rem       copyvar [Playlist8] = [Playlist8], '1', [pos7] - '1'
    rem       copyvar [Playlist9] = [Playlist2], [pos9] + '1', '40000000'
    rem       [Playlist10] = [Playlist9] # '|' # [Playlist8]
    rem       gettok [Anfang2] = [Playlist2], '|', '1'
    rem       [Playlist2] = [Anfang2] # '|' # [Playlist10]

    rem    If [music] = 'on' mci 'stop "' # [Playlist:[count]:'1'] # '"' mci 'close "' # [Playlist:[count]:'1'] # '"'
    rem    If [Playlist] ! ''
    rem       [Playlist] # '|' # [Playlist2]
    rem    else
    rem       [Playlist] = [Playlist2]
    rem    endif
    rem    getpos [pos5] = [Playlist], '|', '1'
    rem    copyvar [Playlist3] = [Playlist], [pos5] + '1', '400000'
    rem    letdialog 'myDialog2:list', 'items', [Playlist3]
    rem    [count] = '1'
    rem    gettok [Anfang] = [Playlist], '|', '1'
    rem    [count] + '1'
    rem    gettok [tok2] = [Playlist], '|', [count]
    rem    [tok] = [Anfang] # '\' # [tok2]
    rem    [Playlist:[count]:'1'] = [tok]
    rem    cntvar [anzahl] = [tok], '\'
    rem    getpos [pos] = [tok], '\', [anzahl]
    rem    copyvar [aTitel] = [tok], [pos] + '1', '30'
    rem    [Playlist:[count]:'3'] = [aTitel]
    rem    letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
    rem    SndTime [Sec] = [Playlist:[count]:'1']
    rem    [Playlist:[count]:'2'] = [Sec]
    rem    mci 'open "' # [Playlist:[count]:'1'] # '"'
    rem    mci 'play "' # [Playlist:[count]:'1'] # '"'
    rem    [music] = 'on'

    rem    [warted] = [Playlist:[count]:'2'] / '100'
    rem    [warted] * '1000'
    rem    [a] = '0'
    rem endif


    rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!






    If [event] = 'click_myDialog:Menu_delete playlist'
       mci 'stop "' # [Playlist:[count]:'1'] # '"'
       mci 'close "' # [Playlist:[count]:'1'] # '"'
       reset [music]
       reset [amusic]
       reset [Sec]
       reset [tok]
       reset [Playlist]
       reset [Playlist2]
       reset [count]
       reset [Playlist3]
       reset [anzahl]
       reset [a]
       reset [aTitel]
       reset [Playlist:[count]:'1']
       reset [Playlist:[count]:'2']
       reset [Playlist:[count]:'3']
       letdialog 'myDialog:myWidget1', 'caption', ''
       letdialog 'myDialog:myWidget2', 'progress', '0'
       letdialog 'myDialog2:list', 'items', ''
    endif

    If [event] = 'click_myDialog:Menu_beenden'
       halt
    endif


    if [event] = 'dblclick_myDialog2:list'
       If [music] = 'on' mci 'stop "' # [Playlist:[count]:'1'] # '"' mci 'close "' # [Playlist:[count]:'1'] # '"'
       [count] + '1'
       getdialog [Playlist:[count]:'3'] = 'myDialog2:list', 'SELECTION'
       gettok [Anfang2] = [Playlist], '|', '1'
       [Playlist:[count]:'1'] = [Anfang2] # '\' # [Playlist:[count]:'3']
       letdialog 'myDialog:myWidget1', 'caption', [Playlist:[count]:'3']
       SndTime [Sec] = [Playlist:[count]:'1']
       [Playlist:[count]:'2'] = [Sec]
       mci 'open "' # [Playlist:[count]:'1'] # '"'
       mci 'play "' # [Playlist:[count]:'1'] # '"'
       [music] = 'on'

       [warted] = [Playlist:[count]:'2'] / '100'
       [warted] * '1000'
       [a] = '0'
    endif

    If [event] = 'close_myDialog2'
       letdialog 'myDialog2', 'Visible', [false]
    endif

    If [event] = 'click_myDialog:Menu_show playlist'
       letdialog 'myDialog2', 'Visible', [true]
    endif

    If [event] = 'click_myDialog:Menu_close playlist'
       letdialog 'myDialog2', 'Visible', [false]
    endif


    until [event] = 'close_myDialog'

    end



    Re: Ostis Mediaplayer

    Chimera - 17.12.2006, 15:06


    an mich bitte kompiliert senden wenn möglich auch das tamagotchi :D
    womit kompiliert man eigentlich rapidbatch und noch ne frage zu rapidbatch, gibts da eigentlich keine schleifen?

    //Edit bei Wolf: Tamagotchi bitte



    Re: Ostis Mediaplayer

    daos06 - 17.12.2006, 20:26


    Sicherlich gibt es in Rapidbatch Schleifen:

    Zitat:
    repeat <-- Schleifen anfang

    until <-- Schleifen ende




    Hier ist da kompilierte Programm:

    http://rapidshare.com/files/7891296/MP3_Player.rar.html



    Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken



    Weitere Beiträge aus dem Forum DAFLO programming Forum

    "Vista" top oder flop? - gepostet von daos06 am Dienstag 21.11.2006



    Ähnliche Beiträge wie "Ostis Mediaplayer"

    Probleme mit mit einem MediaPlayer(nicht nur Windows)?? - SamyDeluxe (Mittwoch 30.05.2007)
    Was für einen Mediaplayer habt ihr - goch (Montag 22.11.2004)
    Was spielt euer Mediaplayer / Winamp Player grade? - Tobey (Sonntag 08.10.2006)
    Microsoft.Windows.Mediaplayer.11.FINAL.GERMAN.CRACKED-SUN - tuncay1574 (Sonntag 07.01.2007)
    Das Plugin für Mediaplayer - slsven (Montag 28.05.2007)
    MediaPlayer with a massive support of net-features - bellerophones24 (Mittwoch 08.08.2007)