elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Ayuda] ¿Cómo leer un archivo midi?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: [Ayuda] ¿Cómo leer un archivo midi?  (Leído 13,283 veces)
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: [Ayuda] ¿Cómo leer un archivo midi?
« Respuesta #10 en: 19 Octubre 2008, 20:28 pm »

En el ejemplo que te pase, esta lo que necesitas. No entiendo porque no puedes usarlo.

Recomendación,

Bajate un manual de visual basic.


En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
Topyr1

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Re: [Ayuda] ¿Cómo leer un archivo midi?
« Respuesta #11 en: 19 Octubre 2008, 21:04 pm »

Supongo que tendrías que analizar como es la forma de un archivo midi.
Ak tenes algo para empezar:
http://es.wikipedia.org/wiki/MIDI#Bytes_MIDI
Es posible, animo!

Gracias por tu aporte, creo que me servirá  :laugh:

En el ejemplo que te pase, esta lo que necesitas. No entiendo porque no puedes usarlo.

Recomendación,

Bajate un manual de visual basic.
Mira, yo te estoy pidiendo (por ejemplo) que me des la partitura de una canción y tu me estás pasando un programa para escucharlo, puede que me sirva, pero no es lo que busco. Y gracias por tu consejo.


« Última modificación: 19 Octubre 2008, 21:06 pm por Topyr1 » En línea

APOKLIPTICO


Desconectado Desconectado

Mensajes: 3.871


Toys in the attic.


Ver Perfil
Re: [Ayuda] ¿Cómo leer un archivo midi?
« Respuesta #12 en: 19 Octubre 2008, 21:06 pm »

En el ejemplo que te pase, esta lo que necesitas. No entiendo porque no puedes usarlo.

Recomendación,

Bajate un manual de visual basic.

Lo que está pidiendo, es conocer el pitch de los sonidos, osea, quiere saber como están compuesto cada uno de los midis, no necesita reproducirlos...
En línea

AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
Topyr1

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Re: [Ayuda] ¿Cómo leer un archivo midi?
« Respuesta #13 en: 20 Octubre 2008, 19:23 pm »

En el ejemplo que te pase, esta lo que necesitas. No entiendo porque no puedes usarlo.

Recomendación,

Bajate un manual de visual basic.

Lo que está pidiendo, es conocer el pitch de los sonidos, osea, quiere saber como están compuesto cada uno de los midis, no necesita reproducirlos...
Gracias por tu aporte, pero ahora me encunetro otro problema.

Según la wikipedia un Byte que lee el midi son 10 bits (0's y 1's), pues bien, cuando voy a poner a binario separándolo con "[]" me salen 8 bits, no 10 como decía la wikipedia.

Aquí está el código.
Código
  1. Private Sub Form_Load()
  2. Dim leer As String
  3. Open "leer.mid" For Input As #1
  4. Input #1, leer
  5. Close #1
  6. ConvertBin leer
  7. Text1 = leer
  8. End Sub
  9. Public Sub ConvertBin(TheString As String)
  10.    Dim C As Integer
  11.    Dim DD As Integer
  12.    Dim EE As Integer
  13.    Dim BinArray(7) As String
  14.    Dim TempString As String
  15.    Dim NewTheString As String
  16.  
  17.  
  18.  
  19.    For C = 1 To Len(TheString)
  20.        DD = Asc(Mid(TheString, C, 1))
  21.  
  22.        BinArray(7) = DD Mod 2
  23.        DD = DD \ 2
  24.        BinArray(6) = DD Mod 2
  25.        DD = DD \ 2
  26.        BinArray(5) = DD Mod 2
  27.        DD = DD \ 2
  28.        BinArray(4) = DD Mod 2
  29.        DD = DD \ 2
  30.        BinArray(3) = DD Mod 2
  31.        DD = DD \ 2
  32.        BinArray(2) = DD Mod 2
  33.        DD = DD \ 2
  34.        BinArray(1) = DD Mod 2
  35.        DD = DD \ 2
  36.        BinArray(0) = DD Mod 2
  37.  
  38.        For EE = 0 To UBound(BinArray)
  39.            TempString = TempString + BinArray(EE)
  40.        Next EE
  41.        TempString = TempString + "[]" 'Esto se lo puse para separar los bytes
  42.        NewTheString = NewTheString + TempString
  43.  
  44.        TempString = ""
  45.  
  46.    Next C
  47.  
  48.    TheString = NewTheString
  49.    NewTheString = ""
  50. End Sub
  51.  
En línea

APOKLIPTICO


Desconectado Desconectado

Mensajes: 3.871


Toys in the attic.


Ver Perfil
Re: [Ayuda] ¿Cómo leer un archivo midi?
« Respuesta #14 en: 20 Octubre 2008, 19:36 pm »

y... Obvio, un byte son 8 bits...
lo que tenes q hacer, es concatenarlos de a 10 bits y listo...
En línea

AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines