Dim s as Sound // instância do objeto
s = GetOpenFolderItem("").OpenAsSound //Abre o arquivo de som
if s = Nil Then Return //Encerra se não houver arquivo
s.Play // Toca a musica
Moleza não é ? Bom, mesmo assim vou falar algo a respeito.
A classe Sound apesar de reduzida tem algumas propriedades interessantes, como por exemplo o Pan, onde você pode regular o balanço do stério, o Volume que varia de 0 a 100, o PlayLooping que permite repetir continuamente um som, e sem esquecer do Stop que para o som imediatamente
Com o Stop, eu consegui fazer um telegrafo usando um único beep continuo, apenas variando o tempo de duração que eu queria para cada beep.
Com a propriedade IsPlaying, é possível saber se o som ainda esta tocando, assim um playlist ficará bem simples de ser feita (Quando terminar uma, coloque a próxima da lista).
E isso é tudo p p soal :)
Nenhum comentário:
Postar um comentário
Escreva à-vontade. mas dê prioridade ao idioma Português, e lembre-se, aqui não é o MSN, ICQ, etc. mais de uma pessoa vai ler, então tente escrever a palavra toda.
E a propósito.
Os comentários estão sem moderação. Caso sua TESTOSTERONA ou TPM esteja em níveis elevados, lembre-se que crianças visitam esse blog. ;)