DAFLO programming Forum

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

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

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