fabim

Bom dia amigos. já procurei pelo forum alguma discução que se encaixe na minha necessidade mais não encontrei nada, por isto criei este tópico. seguintiu.. Trabalho com desenvolvimento de sistemas eletronicos Ucontroladores microchip e ARM7. Por hoby depois de dar uma pesquisada pela net, vi algumas Edrum´s bem legais. Desenvolvi um sistema que comunica com o PC viu USB HID, utilizando um UC 18F da microchip. O Sistema mensura a força aplicada nos Pad´s com as baquetas, atravéz de transdutores piezoeletricos, e pode mandar o protocolo para o PC da forma que eu necessite, dentro do meu programinha criado no delphi eu recebo os bytes e os trato, tambem da forma que eu necessito. Pois Bem aí que a porca esta torcendo o rabo, para que o meu sisteminha fique muitissisimo bonzio, eu preciso tratar trez coisas nos samples Wav. suponha que o som tem 300mS. 1° A função deve ser passada de tal forma que eu inicie a reprodução do som de qualquer ponto dentro dos ditos 300mS. "exemplo sndPlaySound(arquivo, ponto inicial de execução);" 2° A função deve se passada de tal forma que eu inicie a reprodução do som com dado volume podendo variar de 0 mudo a 128 máximo. "exemplo sndPlaySound(arquivo, ponto inicial de execução, volume);" 3° Por eu fazer alguns testes percebi que se eu usar o mmsystem e executar o audio pelo disco existem um delay entre a ocorrencia de clik no botão e o inicio do audio, este delay é um pé no saco. Precisava descobrir um forma de carregar os audios nas var´s, tipo. Var X : Tfile; X := 'C:/samples/prato1.wave' SndPlaySound(X, 150ms, 64); //= prato1, inicia do meio dos 300mS, volume 50%. Se possivel, de houver a ajuda dos amigos, gostaria de disponibilizar o projeto para que os hobystas de plantão pudessem montar também, e sair um pouco da rotina de.!! Trampo, "chega em casa muié e fio pra torrar o saco", dorme, trampo....... rsrs Abraços Fabim

ummm. bom pelo que deu pra entender.... o que você quer basicamente ... é a mesma coisa que se.. clica botão direito > abrir com > bloco de notas.,..... fabim

Pessoal. Aproveitando o Post e a paciência dos amigos. O circuito usando a USB do PIC18F4455, em questão, o qual eu já consegui fazer funcionar belezerinha. Seguinte o circuito é para uma bateria eletronica, que estou montando para meu irmãozinho, funciona assim. 64 bytes ou 32 que seja.. Toda vez que acontece um evento na usb o programa da uma paradinha trata o que chegou executa e pinba. No meu caso eu tenho 63 sons reais de bateria de ótima qualidade, os sons variam de 1,2 a 3,8Segundos. quando chega dados eu dou uma zoiada byte a byte, se diferente de 0 intão eu executo um som wave ou crio um evento de keybd, para usar outros sintetizadores que tem por aí. Meu problema é que por exemplo executo o bumbo(usando o MP do delphi), quando acontece outro evento do prato por exemplo e executo o wave prato, o som do bumbo não continua. Ele para e o som executado é o do prato.. alguém poderia me dar uma força neste pepino ? Pelo que eu entendi, eu tenho que fazer uma interpolação de dados, tipo.. som prato = 3 segundos(length), se 1.8S eu executo o surdo o programa pega o ponto atual do prato 1.8S e soma deste ponto pra frente com o som do surto e play.. Estou correto? Fabim.

agora funfou :) ..... Brigadão Micheus. vlw merrrrmo. Agóra so apanhar de outras lógicas. :) . Pascal pra Ucontroladores é uma sopa, mais pra PC.. hummm.rs Quando eu preciso dar um cabiocó na logica do pascal pra uControladores eu abro um ASM modifico os bytes acerto o que eu quero e End; Mais pro delphi é complicado rss. Abração e obrigado a todos que me ajudaram nos meus 1.0^-32 % de aprendizagem do delphi.rs áá.. Agora eu sei porque meus amigos diziam pra eu comprar a biblia do delphi. Rapaz que tamãe de livro. :) Fabim

é isso mesmo micheus.. Na saida de str pra byte... preencho o bufferout com o numero de strings validas no edit1.txt.. No evento de entrada.. Pchar......... Só que na caixa que apresenta dos dados recebidos.. não aparece nada.. se eu fizer byte a byte.. aí funciona.. De uma bizoiada na procerure button7.. e na função hid event na ultima função... vai entender o que eu estou dizendo.. Baixe o fonte por favor. esta no post à cima.. Abração :) Fabim

beleza. Acho miózio postar um link com o fonte para o delphi.. Assim fica mais fácil entender o funcionamente do menino. Tem algumas coisas doidas, mais descartem, foi uns testes que eu fiz. ó o linkio. www.proenergysafety.com.br/arquivos/projetos/delphihid.rar Só baixar e se puder me dar um help.. abração Fabim

Opa. Desculpe pela demora.. Obrigado MICHEUS. Fiquei virando o PC uzio de ponta cabeça.. mais a lógica num deu muito certo não. Pra ageitar o bufferout eu faço assim. pra pegar as strings eu uso um edit. txt : string. bufferout : array[1..64] of byte. n : byte; while n < length(txt)+1 do begin bufferout[n] := ord(txt[n]); inc(n) end; E pra receber eu uso a logica contraria disso. Tentei usar o Pchar..... mais ele não retorna nenhuma string valida.. Obrigado pela atenção Abraços Fabim OBS. Quem gosta de tunning ou fazer uns case com mostrador digital ou comunicação que seja usando microcontroladores pic de 12C a 30F.. tamos aí pra ajudar no que quizerem.

Ola a todos. Bom pessoal, eu trabalho com pascal mais para microcontroladores. Para Pc eu uso o delphi, pois usa uma linguagem que já fuço bem. Minha dúvida é o seguinte. Eu estou fazendo uma comunicação pela usb com um Uc Pid com usb. Em determinados momentos o PC vai receber uma array de até 64 bytes que são todos caracteres válidos.. Aí entra o que da Kestão.rs. Como converter uma array independente de of byte ou char... para string e apresentar em uma memo ou edit... Se for byte a byte tudo bem... mais eu queria que me ajudassem em um function que já fizesse isso. Obrigado a todos. Fabim