TRABALAHNDO COM SOM

GESSINGER 10/01/2010 00:41:25
#331486
Ola pessoal, sou professor de musica e preciso desenvolver um programinha parar ajudar no aprendizado dos alunos.
1º tenho um form com 14 Botão, cada um corresponde a uma nota tem as 7 maiores e as 7 menores.
e um botão Play.
Tenhos essas notas ( sons ) no formato Avi.

Duvida - Como faço para quando eu clicar o btPlay tocar aleatoriamente umas dessas 14 notas ?,
quando tocar a nota, o aluno vai tentar dizar qual é a nota, selecionando um dos 14 botoes,
caso certo msgbox [Ô]
Else
Errou....espero q tenham entendido Obridado
GESSINGER 10/01/2010 00:58:39
#331488
olha ai a imagem
TECLA 10/01/2010 09:31:57
#331493
Resposta escolhida
Seguinte:

1. Crie um vetor de STRINGs contendo o PATH dos 14 sons
2. Crie um vetor de COMMANDBUTTON variando de 0 a 13 ( ou de 1 a 14, como queira)
3. Crie uma rotina com as funções Randomize e Rnd para gerar um número aleatório entre os números do item 2
4. Por fim, utilize a API sndPlaySoundA para tocar o arquivo WAV

PS. Este artigo vai te ajudar a construir a rotina pois contempla os itens 3 e 4.
GESSINGER 10/01/2010 11:32:51
#331507
tem como vc fazer por mim, eu não manjo muito de vb e agradeceria cara...Obrigado
vou postar o zip
GESSINGER 11/01/2010 08:50:08
#331549
Alguem pode me dar essa ajuda ?
TECLA 11/01/2010 12:32:21
#331572
Citação:

:
tem como vc fazer por mim, eu não manjo muito de vb e agradeceria cara...Obrigado
vou postar o zip


Te apresentei o [Ô]caminho das pedras[Ô], agora, você só precisa ter um conhecimento mínimo de LÓGICA, e utilizar o MOUSE para copiar trechos do link que postei.
ARNALDOCRUZ 11/01/2010 14:31:57
#331588
cara +- assim

cria uma variavel public numerica (integer)

Public Nota as integer

faz um sortei de 1 a 14

o numero que der vai ser a nota

digamos que o sorteio de numero 8

passa o valor sorteado para variavel --->>Nota=8

toca o som

if nota=1 then
toca=nota dó
elseif nota=2 then
toca nota re
.......

nos botões

botão1 ao clicar
if nota= 1 then
msgbox[Ô]Acertou a nota
else
msgbox[Ô]Errou a nota
endif
.....

no botão 8

if nota=8 then
mnsgbox[Ô]Acertou Nota[Ô]
else
msgbox[Ô]Errou Nota[Ô]
endif
Tópico encerrado , respostas não são mais permitidas