Verfügbare Informationen zu "Ostis Mediaplayer"
Qualität des Beitrags: 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:20Ostis 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)
