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

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


  Mostrar Mensajes
Páginas: [1]
1  Programación / Programación Visual Basic / Re: Codigo en textbox en: 20 Octubre 2008, 19:27 pm
Mmm n ose bien si es esto a lo que te reifers...

Agregas un timer con enabled en False

Private Sub Form_Load()
Timer1.Enabled = True
End sub

Private Timer1_Timer()
MsgBox "Hello World",vbinformation,"Hello"
End sub

Saludos!
No sé si estoy en lo cierto pero el se refiere (en su ejemplo) a que si pones en el textbox "MsgBox "Hola"" Escriba esto en el código:
Código
  1. Sub comenzar()
  2. MsgBox "Hola"
  3. End Sub
  4.  
Y lo ejecute claro.

Yo te diría que es imposible ya que si lo pones, se representara todo entre "", por lo tanto lo pondrá como texto, no como codigo.
2  Programación / Programación Visual Basic / Re: [Ayuda] ¿Cómo leer un archivo midi? 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.  
3  Programación / Programación Visual Basic / Re: [Ayuda] ¿Cómo leer un archivo midi? 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.
4  Programación / Programación Visual Basic / Re: [Ayuda] ¿Cómo leer un archivo midi? en: 19 Octubre 2008, 19:33 pm
Entonces, ¿No hay solución a mi problema  :(?
Entonces dejo el post abierto por si alguien se le ocurre alguna idea, mientras intentaré buscar otras formas de hacer mi proyecto.
5  Programación / Programación Visual Basic / Re: [Ayuda] ¿Cómo leer un archivo midi? en: 12 Octubre 2008, 16:01 pm
Con "Plasmar" Me refiero a poner el número de hercio de la nota, la duración, el instrumento, el volumen, el tempo de todo el tema.

¿Ahora me entienden?

PD: He probado lo de ░▒▓BlackZeroҖ▓▒░ pero me da unos carácteres de cualquier forma (pensareis que soy vago al preguntarlo, pero he intentado ponerlo pero no he podido).
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines