Control de audio

Si tienes la versiçon 8.5 sigue con ella.
No te he entendido muy bien el cçodigo lingo que quieres. Explícamelo otra vez.

Hola de nuevo, perdón si no me expliqué bien...
Tengo varias canciones una en cada frame
Con texto y fotos, lo que necesito es que me aparezca una barra de control en cada frame para poder manejar el sonido como si fuera un cd, por ejemplo :
Adelantar el tema, atrasarlo pausa etc...
como si fuera el reproductor de cd de windows..
¿Yo tenía el director8 y mr pasé al 8.5 está bien o vuelvo al 8?
Gracias de nuevo
Carlos

Lo normal serçia que los sonidos fueran vinculados y que no estuvieran el score. Eso es lo que hace el reproductor de windows:
Para controlarlo podrçias usar mis behaviours al respecto:
Volumen del sonido:
--Creado por bedelludrica
property p_barra,p_maximo_o_minimo,p_canal,volumen
on getBehaviorTooltip me
return \
"Este comportamiento debes vincularlo al topo " & \
"Sirve para controlar el volumen absoluto de un canal. Debes indicar en que sprite se encuentra la barra de control de VOLUMEN " & \
"NOTA:da igual donde coloques el topo pues se colocara en la posicion" &\
"de volumen 0 al comenzar la pelicula"& \
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"[email protected] "
end getBehaviorTooltip
on getPropertyDescriptionList me
list=[:]
addprop list, #p_barra,[#comment:"¿que sprite es la barra del topo?",\
#format:#integer,#default:2]
addprop list, #p_canal,[#comment:"¿cual es el canal de audio?",\
#format:#integer,#default:2]
addprop list, #p_maximo_o_minimo,[#comment:"si lo activas la pelicula comenzara con máximo volumen" &&\
"sino empezara con mínimo volumen",\
#format:#boolean,#default:true]
return list
end getPropertyDescriptionList
on beginsprite me
sprite (me.spritenum).moveableSprite =true
altura=sprite(p_barra).height
if p_maximo_o_minimo then
localizacion=sprite(p_barra).locv
else
localizacion=sprite(p_barra).locv +altura
end if
sprite(me.spritenum).locv=localizacion
sprite(me.spritenum).loch=sprite(p_barra).loch
sprite(me.spritenum).constraint= p_barra
end
on mouseup me
volumen_max=255
altura=sprite(p_barra).height
topo_inicio=sprite(p_barra).locv +altura
topo_actual=sprite(me.spritenum).locv
topo_relativo=topo_inicio-topo_actual
volumen=integer((integer(topo_relativo)*volumen_max)/altura)
sound(p_canal).volume=volumen
end
on mouseUpOutside me
volumen_max=255
altura=sprite(p_barra).height
topo_inicio=sprite(p_barra).locv +altura
topo_actual=sprite(me.spritenum).locv
topo_relativo=topo_inicio-topo_actual
volumen=integer((integer(topo_relativo)*volumen_max)/altura)
sound(p_canal).volume=volumen
end
on exitframe me
-- // if rollover(me.spritenum) then
if the mousedown then
volumen_max=255
altura=sprite(p_barra).height
topo_inicio=sprite(p_barra).locv +altura
topo_actual=sprite(me.spritenum).locv
topo_relativo=topo_inicio-topo_actual
volumen=integer((integer(topo_relativo)*volumen_max)/altura)
sound(p_canal).volume=volumen
end if
-- end if
end
Control de sonido:
property p_tipo_control, pVideoSprite,ptitulo,r
on getPropertyDescriptionList me
list = [:]
addProp list, #ptitulo,[#comment:"elige la musica",#format:#sound,#default:""]
addProp list, #p_tipo_control, [#comment: "accion de este boton",\
#format: #symbol,¬
#range: [#play, #stop, #pausa,\
#vete_comienzo, #marcha_atras, #repeticion],\
#default: #stop]
addProp list, #pVideoSprite, [#comment: "¿cual es el sprite del canal de sonido?",\
#format: #sprite, #default: 1]
return list
end
on beginsprite me
r=0
end
on exitframe
end
on mouseUp me
case p_tipo_control of
#play:
if r=0 then
Sound(pVideoSprite).play(member(ptitulo))
r=1
else
sound(pVideoSprite). Play()
end if
#stop:
sendallsprites(#variable,0)
sound(1).stop()
#pausa:
pause(sound(pVideoSprite))
#repeticion:
member(ptitulo).loop = \
not member(ptitulo).loop
end case
end
on variable me,u
r=u
end
Tiempo transucrrido:
Property pVideoSprite, n
--Creado por bedelludrica
On getBehaviorTooltip me
return \
"Para usar este comportamiento debes lanzarlo sobre un texto para que muestre el tiempo transcurrido de un un sonido" & \
on getPropertyDescriptionList me
list = [:]
addProp list, #pVideoSprite, [#comment: "¿cual es el sprite del canal de sonido?",\
#format: #sprite, #default: 1]
return list
end
on beginsprite me
sprite(me.spritenum).member.text="00:00:00"
end
on exitframe me
segundos=sound(pVideoSprite).elapsedTime/1000
segundos2=string(segundos mod 60)
if segundos2<value(10) then
segundos2="0"&segundos2
end if
minutos=segundos/60
minutos2=string(minutos mod 60)
if minutos2<value(10) then
minutos2="0"&minutos2
end if
horas= minutos/60
if horas<value(10) then
horas="0"&horas
end if
the itemdelimiter="."
horas=string(horas).item[1]
sprite(me.spritenum).member.text=(horas)&":"&minutos2&":"&segundos2
end
Para pasar de una canción a otro debes hacer un bucle en la carpeta del disco duro.

Gracias por tu respuesta, voy a probarla, ¿cómo y de donde saco la barra de control?
¿Qué es el topo?
Gracias por preocuparte...
Carlos