Nas

Yo en mi proyecto utilizo DirectShow para reproducir videos AVI y MPGE, lo de reproducir videos comprimidos o no depende de los codecs ke tengas instalados. Revisa los ejemplos del SDK, ahi viene un ejemplo de reproductor multimedia con DirectShow.

Salu2...

[EX3]                                

                                Como echo de menos un buen plataformas 2D al estilo Prince of Persia o Flash Back!

Las 2D no mueren, sobreviven por ke son inprescindibles!                                

                                Nas:

Estoy intentando pasarme a DirectGraphics para poder dotar a mi engine 2D de funciones avanzadas (Alphablend, Rotacion, ...) ya que DirectDraw no las soporta (y el Alphablending a pelo en VB no rinde muy bien  :-? ), pero tengo ciertos problemillas que no logro solucionar y me frenan en mi intento por migrar a DirectGraphics:

1. ¿Como puedo leer un pixel de una textura en DirectGraphics?
2. ¿Se puede trabajar sobre otra superficie o textura a parte del BackBuffer?
3. ¿El manejo del factor Gamma es similar al de DirectDraw?
4. Otra cosa que no tengo clara, dibujo de primitivas ¿Es similar al de un poligono?

... y alguna duda más que ahora mismo no recuerdo.

Si podeis ayudarme con direcciones de paginas donde expliquen estas cosas o algun tuto que merezca la pena o incluso si alguno se anima a explicarmelo, lo agradeceria mucho.

Gracias...

[EX3]                                

                               

Código [Seleccionar] Expand

ASC(String As String) As Integer Esto te devuelve el codigo ASCII del caracter que pongas como parametro.                                

                               

Bueno, quillo, que te responda un programador que yo no tengo ni idea. Es pq he visto cero replies.

jeje, agradezco tu interes  :)

Mi razon de no utilizar formularios es por ke estoy programando una dll y no es plan de meter formularios, ya que esta pensada para contener solo funciones.

Si, tambien podria utilizar el evento keypress desde el formulario en que programe la aplicacion que use la dll, por supuesto, pero para mi es mas comodo usar una funcion que me devuelva el valor ASCII como en BASIC u otros lenguajes, en vez de tener de ke usar el evento keypress.

Espero haber aclarado tu duda  :ojo:
y yo a seguir esperando... a ver si hay suerte  :D

Salu2...

[EX3]                                

                                Nas:

Necesito encontrar una funcion para VB que me devuelva el codigo ASCII cuando presiono una tecla sin utilizar el evento KeyPress del formulario, ya que estoy trabajando sin formularios, solo a nivel de modulos *.bas.

Salu2...

[EX3]                                

                                Gracias por contestar  :)

He probado tu codigo en mi programa que uso para probar la funcion de derivado a RGB y este es el resultado:

Color  /  32 Bits   /     16 Bits
--------------------------------
Rojo   /   255,0,0   /    0,0,31
Verde  /  0,255,0   /    0,63,0
Azul   /    0,0,255   /    31,0,0
Amarillo / 255,255,0  /  0,63,31
Blanco / 255,255,255 / 31,63,31

No se si por ser 16 Bits tiene que devolver esos valores, si no es asi seguro que con alguna operacion matematica se pueden cuadrar los resultados con los obtenidos en 32 Bits.
Lo de que el valor de rojo aparezca en el azul y viceversa es un problema que ya experimente, pero que tiene facil solucion.

Sea como sea, mas o menos, ya podria trabajar con la lectura de color en 16 Bits, algo es algo, muchas gracias por la ayuda  :D.

Salu2...

[EX3]                                

                                Nas y Feliz Año a tod@s:

Estoy implementando una funcion para extraer los componentes RGB de un color devuelto por la funcion GetPixel() de DirectDraw en Visual Basic.

La conversion en 32Bits de color funciona perfectamente, pero cuando ejecuto la funcion en 16Bits, como es logico, el resultado de GetPixel() es diferente y la conversion a RGB no es correcta.

¿Como puedo hacer una conversion de color a RGB en 16Bits que sea fiable?

Salu2...

[EX3]                                

                                Y no es mas sencillo usar la simple funcion del VB "Shell()"?

Sintaxis:

Código [Seleccionar] Expand

Shell ([Ruta y/o nombre de programa], [Estilo de presentacion]) As Double
El primer parametro es simplemente la direccion y nombre del programa ejecutable.
El segundo parametro es la forma de presentar la ventana (Nomal, Maximizada, Minimizada, etc...)

Abrimos el block de notas tal cual. Ejemplo:

Código [Seleccionar] Expand

Private Sub Form_Load()

Shell "c:windowsnotepad.exe", vbNormalFocus

End Sub



Abrimos el block de notas y le decimos que abra el archivo texto.txt que se encuentra en c:. Ejemplo:

Código [Seleccionar] Expand

Private Sub Form_Load()

Shell "c:windowsnotepad.exe c:texto.txt", vbNormalFocus

End Sub



Como puedes ver es la manera más sencilla que tiene VB de llamar a un programa externo.

Salu2...

[EX3]                                

                                Al fin una respuesta, ya pensaba que nadie responderia,  :jaja:

Hace ya dos semanas que solucione el problema de los cronometros y con buen resultado y utilizando la "tipica" funcion GetTickCount() de Windows, pero aun asi muchas gracias por vuestra ayuda.  :ojo:

Os explico, utilize la formula de calculo de FPS de mi motor para hacer el incremento en los cronometros:

Esta es la formula tipica de calculo de FPS:

Código [Seleccionar] Expand

'Para los cuadros por segundo

Dim FPS_tUltimo As Long

Dim FPS_Suma As Single

Dim FPS_Actual As Single 'Los FPS del programa.



'Declaración de la función API para manejar los tiempos

Private Declare Function GetTickCount Lib "kernel32" () As Long



Private Sub FPS_Count()



   If (GetTickCount() - FPS_tUltimo) >= 1000 Then

       FPS_Actual = FPS_Suma

       FPS_Suma = 0

       FPS_tUltimo = GetTickCount()

   End If

   FPS_Suma = FPS_Suma + 1



End Sub



Mi cronometro seria asi:

Código [Seleccionar] Expand

Dim m_Timer As Long 'Cronometro.

Dim Last_Tick As Long 'Guarda el ultimo ciclo de reloj.



'Declaración de la función API para manejar los tiempos

Private Declare Function GetTickCount Lib "kernel32" () As Long



Private Sub Timer_Count()

   

   'Si "GetTickCount()" menos el "Ultimo Ciclo del reloj" es igual o mayor que un segundo...

   If (GetTickCount() - Last_Tick) >= 1000 Then

       Last_Tick = GetTickCount()

       m_Timer = m_Timer + 1 '... incremento el cronometro.

   End If



End Sub



Este ejemplo realiza el incremento cada segundo.
Esta formula es la que tengo actualmente implementada en el motor pero con precision en decimas y no me ha dado ningun problema de momento.

Aun asi probare con las otras funciones que me habeis facilitado, que nunca viene nada mal probar otras maneras.

Gracias  :)

[EX3]                                

[Visual Basic, ke burrada por mi parte seria, jeje :P]

                                Cuando digo ke a veces estoy en la parra no me ekivoco!  :oops:

Se me olvido mencionar que los cronometros que estoy intentando crear los programo en Visual Basic, ke burrada por mi parte seria, jeje  :P                                

                                Nas a todos:

He creado unos cronometros similares a los de div, pero el problema ke me dan es ke pierden precision segun la cantidad de cuadros por segundo (fps) del programa. Si alguien me puede echar una mano con esto se lo agradeceria mucho.

Salu2

[EX3]                                

                                Yo me pensaba que queria hacerse un monitor de recursos.

Pues mi contestacion es mas o menos parecida, no es necesario ningun control para realizar barras de progreso (aunque reconozco que es muy comodo el OCX  :) )

Tengo un ejemplo que te muestra como hacer barras de progreso con un simple PictureBox y que te muestre el porcentaje en la propia barra, como en las instalaciones, esta muy bien y muy sencillo de usar.

Si lo quieres te lo paso.

Salu2

[EX3]                                

                                Si no recuerdo mal eso se puede hacer sin necesidad de un control, vamos, creo ke tengo un programilla que hice hace tiempo que te decia el uso de memoria de la cpu y demas detalles como la ram en total y usada, etc...

Lo buscare y si lo encuentro te aviso.

[EX3]                                

[Proyectos]

                                Me alegra saber que no soy el unico que aun se pirra por un buen juego 2D :riendo:

Eso me da mas animos para continuar con mi proyecto (un poco estancado por falta de tiempo) y hablando de proyectos, seguro ke muchos de vosotros trabajais todavia con las 2D y que estareis con algun proyecto serio entre manos, ¿por ke no exponemos aki algunos de nuestros proyectos, para asi estar un poco al tanto? A mi al menos me gustaria conocer el trabajo de muchos de vosotros. ¿Kien se anima a ser el primero?

Salu2...

[EX3]

P.D.: Para cuando suba mi proyecto a mi web, habilitare la seccion de Proyectos, esa seccion esta reservada a Proyectos del grupo ke estamos formando unos amigos y tb para que vosotros expongais vuestros proyectos al publico. Os animo a ke os lo penseis, ya informare mas adelante de como hacerlo.
_________________
...:::DX_Lib32.DLL - Libreria ActiveX de funciones estilo Div2 con la potencia de DirectX. Nunca programar con DirectX fue tan facil. :::...

Visita http://www.dxlib32.es.vg">http://www.dxlib32.es.vg

[ Este Mensaje fue editado por: [EX3] el 2002-09-17 02:14 ]