SoloCodigo

Epa:
    No es mi intension hecerte quedar mal, no creas, al principio me partí la cabeza cuando intenté conectar un osciloscopio al serial e interpretar los códigos desde VB.  No entendía porque unos codigos si los leia y otros no, y todo por la funcion Len(), esta no contaba los codigos no imprimibles y por consiguiente me era imposible entender la trama de los codigos.  No detectaba algunos.  Hasta llegué a pensar que el osciloscopio no funcionaba bien, incluso culpe al cable y hasta el puerto serial, que si que en la ayuda del MSDN  estaba hasta abajo una notita en la informacion del Len(), donde comentaba la diferencia en caso de querer contar caracteres como byte o sea LenB().  

Por una letrita todo el lio que se me armó. .  Consecuentemente encontre que tambien tenía que usar MidB() en vez de Mid(), AscB() en vez de Asc(), y así sucecibamente.

Si InputMode vale 1 (comInputModeBinary), habilito recibir caracteres no imprimibles o sea siempre se recibiran en ASCII.

En este caso hay una mala interpretacion. En el puerto serial recibes bytes y cada uno de estos puede tener un valor entre 0 y 255 (256 valores posibles).  Cuando tu control serial esta en valor 0, interpreta estos valores directamente a codigo ASCII, en este caso los valores son preinterpretados, por ejemplo si ingresa un codigo 00001101 (13 decimal) en ASCII es un Enter, 00100000 (32 decimal) un espacio en blanco, etc.  En el caso de configurar ImputMode a 1, no existe una pre-interpretacion, recibes el número binario tal cual es.  Lo que no puede hacer es asignar estos valores a un Label o Texto directamente pues estos controles interpretan automaticamente cualquier byte a ASCII, hay que tratarlos a nivel de variables unicamente.

Aquí incluyo una rutina que tengo para leer el puerto serial por medio de un control (name = comX), del cual leo los datos que me envía un osciloscopio, y dependiendo del codigo del byte ejecuto el programa correspondiente.


El buffer del serial se guarda en una variable tipo string. La clave de extraer cada byte del buffer es la funcion AscB() como byte.

Asc (Función)
     

Devuelve un tipoInteger que representa elcódigo de carácter correspondiente a la primera letra de una cadena.

Sintaxis

Asc(cadena)

Elargumento obligatorio cadena es unaexpresión de cadena válida. Si cadena no contiene caracteres, se produce unerror en tiempo de ejecución.

Comentarios

El intervalo del valor de retorno es entre 0 y 255 en sistemas que no sean DBCS, y entre –32768 y 32767 en sistemasDBCS.

Nota   La función AscB se utiliza con bytes de datos contenidos en una cadena. En lugar de devolver el código de carácter para el primer carácter, AscB devuelve el primer byte. La función AscW siempre devuelve el código de carácterUnicode en plataformas donde no se admite Unicode, en cuyo caso, el comportamiento es idéntico al de la función Asc.

Otra funcion importante es LenB(), ya que la funcion Len() pre-interpreta el codigo, y no toma el cuenta los carateres no imprimibles, por lo que daría un numero menor.

Len (Función)
     

Devuelve un tipoLong que contiene el número de caracteres en una cadena o el número de bytes necesarios para almacenar unavariable.

Sintaxis

Len(cadena | nombrevar)

La sintaxis de la función Len consta de las siguientes partes:

Parte Descripción
cadena Cualquierexpresión de cadena válida. Si cadena contieneNull, se devuelve Null.
Nombrevar Cualquier nombre devariable válido. Si nombrevar contiene Null, se devuelve Null. Si nombrevar es un tipoVariant, Len actúa igual que con un tipo String y siempre devuelve el número de caracteres que contiene.


Comentarios

Se deben especificar uno (y sólo uno) de los dosargumentos posibles. Contipos definidos por el usuario, Len devuelve el tamaño como se escribirá en el archivo.

Nota   Utilice la función LenB con datos de byte incluidos en una cadena, como en los lenguajes del conjunto de caracteres de doble byte (DBCS). En lugar de devolver el número de caracteres en una cadena, LenB devuelve el número de bytes utilizados para representar esa cadena. Con tipos de datos definidos por el usuario, LenB devuelve el tamaño en memoria, incluyendo cualquier relleno entre código que utiliza LenB, vea el segundo ejemplo en el tema de ejemplo.

Nota    Puede que Len no sea capaz de determinar el número real requerido de bytes de almacenamiento cuando se utiliza con cadenas de longitud variable entipos de datosdefinidos por el usuario.

Si el control que utilizas es el que aparece en esta imagen:



Lo que tienes que cambiar es la propiedad ImputMode del control de valor 0 (0 - comInputModeText) a 1 (1 - comInputModeBinary), y listo ya tienes los datos byte por byte en en numeros binarios.

Revisa el archivo adjunto (MPlayer.zip) en este esta el codigo de un formulario.

Para que funcione debes setear por defecto la carpeta donde desempaques el archivo zip.

SET DEFALULT TO "ruta donde lo desempaques"

Luego ejecutas el programa main.prg y listo.



Descargar archivo: MPlayer.zip

El programa tiene la capacidad de reproducir archivos en formato MP3, MIDI y WAV.  Pero en realidad puede reproducir cualquier archivo de audio que soporte el reproductor Windows Media.  El control que agregué es el Windows Media version 11, pero funciona si agregas versiones anteriores.

Revisalo y me cuentas.

Hola culd:
   Disculpa que hasta ahora te contesto pero he estado un poco ocupado en el trabajo ya que viajo mucho.  Según lo que mencionas, te comento.

El cuadro combinado no indica el nombre de fabrica de cada joystick como aparece en windows, si no lo siguiente:

*Joistick 3 4 Axes 12 Buttons (Joystick Microsoft Controler)
*Joistick 4 4 Axes 12 Buttons (Joystick Microsoft Controler)

Primero el nombre generico:  Joystick, despues el numero de dispositivo que en tu caso son el 3 y 4, luego el numero de ejes (Axes) que para tus joystick son cuatro ejes, por darte un ejemplo la palanca ocupa 2, los otros dos podrian ser el control de altitud y/o mira.  Por ultimo la cantidad de botones (Buttons) que en teoria deberían de tener 12 cada uno.

Lo que no muy entiendo es porque te los reconoce como dispositivos 3 y 4, esto ocurre solo si tienes conectados otros 2 y que por ejemplo estén conectados y funcionando antes de conectar tus joystick gemelos.  

En el cuadro combinado aparece la tabla de dispositivos maximos que soporta tu PC, aunque no esten conectados, cuando uno los conecta y carga el drive, se posicionan desde el primero hasta llenar los espacios segun la cantidad de joystick conectados.  

Ahora respecto al JoystickStatus donde aparece unknow podemos hacer lo siguiente:

En el codigo del modulo modJoystick puedes modificar la funcion JoyEst de la siguiente manera:

Public Function JoyEst(ByVal IDx As Long) As String
'Indentify the Joystick status.
Dim xRes As String
Select Case IDx
   Case JOYERR_NOERROR
       xRes = "Ready"
   Case MMSYSERR_NODRIVER
       xRes = "No device driver present"
   Case MMSYSERR_INVALPARAM
       xRes = "Invalid parameter passed"
   Case JOYERR_PARMS
       xRes = "Invalid ID"
   Case JOYERR_NOCANDO
       xRes = "Request not completed"
   Case JOYERR_UNPLUGGED
       xRes = "Unplugged"
   Case Else
       xRes = "Unknown"
End Select
JoyEst = "(" & xRes & ") " & IDx   'Cambio
End Function

Lo unico que se modifica es la penultima lina agregandole & IDx, con esto en JoystickStatus aparecera un numero al final.  Necesito que lo copies por ahí y me lo envies.

Aparte enviame el listado de joysticks que aparecen en tu cuadro combinado desde el primero al ultimo.  Para hacer esto conecta antes tus joystick y asegurate que windows los reconoce, inicia la aplicacion y tomas los datos.  Intenta posicionarte en cada dispositivo del cuadro combinado e intenta activar botones o lo que sea de tus joysticks y me cuentas que pasa.

Puedes tomar una foto o un Printscreen o si puedes un video de lo que pasa, entre mas informacion me envies, de mejor manera te puedeo ayudar.

Atentamente
          DrakerDG

En el evento Load no puedes llamar propiedades de ningun control del formulario, pues los controles aún no existen, es decir no están cargados.  Esto lo puede hacer en el evento Init del formulario.  Además el nombre del control por si solo no es reconocible, por lo que tiene que tener como prefijo el objeto al cual pertenece, en este caso el formulario, es decir:


Si en dado caso son varios los controles a los cuales les vas a cambiar alguna propiedad puedes usar el comando WITH de la siguiente forma


En el comando del boton cmdPrevius:


Y en el boton cmdNext:

Revisá este link, talvez te de alguna idea:

¿Ocultar proceso de adm. de tareas?

y este otro:

Hacer oculto al programa en la lista de tareas

 

Este ejemplo hace uso de medios gráficos y auditivos para mostrar el estado de los registros del puerto paralelo y puede ser utilizado desde Win95 a WinXP.

La aplicación se vale de recursos gráficos para mostrar el estado del puerto. Muestra el conector DB-25 (Macho o Hembra) indicando con colores el valor de cada bit asociado a cada pin. Al hacer click en los pines de salida se modifica el estado del bit asociado al valor opuesto (de cero a uno y viceversa) generando un sonido, se puede cambiar el conector hembra a macho y viceversa. Un botón despliega información referente al puerto paralelo con un circuito de ejemplo con el cual se puede poner a prueba esta aplicación. Esta información puede ser impresa desde la misma ventana de información.

En la ventana principal muestra el valor del estado de cada registro del puerto en forma decimal, hexadecimal y binario. En la barra de estado muestra si el conector de la grafica es macho o hembra de acuerdo a la orientación de los pines.

Se utilizó la función sndPlaySound para reproducir los sonidos en la aplicación.

LPT1XP utiliza la librería io.dll (incluida) para comunicarse con dicho puerto.
De esta librería se utilizaron las funciones PortOut (subrutina) y PortIn (funcion).

Nota:  Este software es un prototipo, como tal queda bajo responsabilidad del usuario final el cometido que este le quiera dar.  En caso de realizar el circuito de ejemplo, hay que tener en cuenta que una mala conexión puede dañar su equipo parcial o totalmente.  En caso de tener dudas, pregunte primero y trate de conseguir información por medios alternos, lo mas que sea posible.



Autor: DrakerDG

Verifica lo siguiente:




Tambien puedes intentar instalarla desde cero, quitando los controladores de tu PC, quitando la tarjeta, reconectandola e instalndo los drivers de nuevo.

Espero te sean utiles estos consejos.

Es un placer

No hay problema, de hecho hice el ejemplo porque tambien dude y quize asegurarme.  

El tipo de variable que almacena solo 255 caracteres es la tipo Character.  La variable tipo String puede almacenar miles, creo que la limitante es tu memoria RAM.  Para comprobar que si soporta grandes tamaños declare una variable tipo string en el evento Load de un form, es decir


Agregue un EditBox, un par de Labels, un CommandButton y un Timer en el Form.

El eneto Timer de Timer1 escribí el siguiente código:


Establecí la propiedad enabled de Timer1 a .F. (False), para que no ejecutara el evento Timer al correr el Form.

En el evento Click del CommandButton escribí el código para habilidar y deshabilitar el Timer1.


Puedes utilizar una variable tipo string para almacenar la cantidad de caracteres que necesites.
Adjunte el formulario que te comento (Zip file), revisalo y me cuentas.

Para capturar la ventana activa manualmente se usa alt+prtscr, utilizando SentKeys sería %{PRTSC}, pero no funciona, entonces se puede utilizar el API con el siguiente procedimiento:


Puedes crear un procedimiento de la siguiente manera:


Lo llamas y listo. Revisa el codigo adjunto