À l'aide - SonsCD Ver 0.1.0

label focusplay,music,recom,emplace,volume
label open,recomencer,nextmusic,invisible
dim NomFichier$,a$


left 0,250
top 0,150
width 0,306
height 0,155
caption 0,"SonsCD Version 0.1.0"

picture 15
height 15,51
left 15,120
top 15,65
width 15,146
color 15,0,0,0

sound 1
file_load 1,"C:\Documents and Settings\Enfants\Bureau\Nicolas\Panoramic et fortran\temporaire\Sons\vide.wav"

track_bar 2
left 2,20
top 2,30
width 2,250
height 2,25
min 2,250:max 2,250
on_change 2,focusplay

button 3
left 3,30
top 3,65
width 3,40
caption 3,"u"
font_name 3,"Wingdings 3"
font_bold 3
on_click 3,music

button 6
left 6,75
top 6,65
width 6,40
font_name 6,"Wingdings"
font_bold 6
caption 6,"n"
font_size 6,10
on_click 6,recomencer

button 11
left 11,30
top 11,96
width 11,85
height 11,21
caption 11,"Emplacement"
font_bold 11
on_click 11,emplace

alpha 7
top 7,9
width 7,298
caption 7,"_________________________________________________."

picture 8
width 8,22
height 8,21
file_load 8,"\bouton nouveau.bmp"
on_click 8,recom
hint 8,"Nouvelle Source"

picture 4
width 4,23
height 4,21
left 4,22
file_load 4,"\bouton ouvrir.bmp"
hint 4,"Ouvrir Source"
on_click 4,open

picture 9
width 9,23
height 9,21
left 9,50
file_load 9,"\previous inac.bmp"
hint 9,"Fichier précédant dans le répertoire"

picture 10
width 10,21
height 10,21
left 10,71
file_load 10,"\next inac.bmp"
hint 10,"Fichier suivant dans le répertoire"

picture 16
width 16,21
height 16,21
left 16,95
file_load 16,"\volume2.bmp"
hint 16,"Ajustement du volume…"
on_click 16,volume

rem invisible ------------- hide -----------------------------------------------------------------------------

form 12
hide 12
width 12,500
height 12,150
command_target_is 12

edit 13
hide 13
left 13,10
top 13,10
width 13,472

button 14
hide 14
left 14,20
width 14,452
top 14,36
height 14,50
caption 14,"OK"
font_bold 14
font_size 14,12
on_click 14,invisible

set_focus 6
message "Bouton charger : bouton nouveau.bmp, bouton ouvrir.bmp, previous inac.bmp, next inac.bmp, volume2.bmp, bouton nouveau2.bmp, bouton ouvrir2.bmp, previous.bmp, next.bmp, volume.bmp. Son charger : Vide.wav."
end

focusplay:
set_focus 6
return

music:
play 1
return

emplace:
show 12
show 13
show 14
text 13,""+Nomfichier$
caption 12,"Emplacement \ "+Nomfichier$
return

invisible:
hide 14:hide 13:hide 12
return

nextmusic:
message "Ouverture de :  "+file_find_first$
file_load 1,file_find_first$
a$=file_find_next$
while a$<>"_"
  file_load 1,""+a$
  a$=file_find_next$
end_while
file_find_close
file_load 10,"\next inac.bmp"
return

recom:
file_load 8,"\bouton nouveau2.bmp"
wait 100
file_load 8,"\bouton nouveau.bmp"
recomencer:
file_load 1,"C:\Documents and Settings\Enfants\Bureau\Nicolas\Panoramic et fortran\temporaire\Sons\vide.wav"
return

open:
file_load 4,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton ouvrir2.bmp"
wait 100
file_load 4,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton ouvrir.bmp"
open_dialog 5
filter 5,"Fichiers audio WAV|*.wav;*.MP3|Fichiers audio MP3"
NomFichier$=file_name$(5)
delete 5
if (file_exists(NomFichier$)=1)
  file_load 1,NomFichier$
  active 3
  file_load 9,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\previous.bmp"
  on_click 9,nextmusic
  file_load 10,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\next.bmp"
  on_click 10,nextmusic
  dir_change ""+Nomfichier$
end_if
return

volume:
file_load 16,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\volume.bmp"
wait 100
file_load 16,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\volume2.bmp"
set_focus 6
message "Ajustement du volume…"
execute "sndvol32.exe"
return