![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Pasar de QBASIC A DELPHI
Hola amigos del foro, tengo que levantar la informacion que provee la balanza en mi computadora.
El codigo esta en qbasic. Les agradeceria si me pudieran dar una mano. PROCESADOR DIGITAL DE PESO BC5400 1 Cableado y especificaciones de transmisión: Norma RS 232C 7 ---------------------- 5 GND Código ASCII K3 2 ---------------------- 2 RxD COM Velocidad 9.600 baudios 3 ---------------------- 7 RTS (DB 9) Formato 1 start bit 7 data bits BC 5400 Computadora 2 stop bits (El cable se provee junto al indicador) Paridad impar 2 Transmisión a pedido: La llave 1 de S1 debe ajustarse a la posición ON. El mensaje transmitido será el siguiente: LF , CR "BRUTO xxxxxx kg" (xxxxxx : Peso indicado en el display del BC 5400) LF , CR "TARA 000000 kg" LF , CR "NETO xxxxxx kg" LF , CR Rutina de recepción de datos en lenguaje QBASIC: OPEN "COM1:9600,O,7,2,CS,DS,CD" FOR INPUT AS #1 nn = 0 b$ = "" cantidad = 0 inicio: IF EOF(1) THEN GOTO Espera A$ = INPUT$(1, 1) b$ = b$ + A$ IF ASC(A$) = 13 THEN nn = nn + 1 IF nn < 4 THEN GOTO inicio CLOSE 1 PRINT MID$(b$, 9, 6) END Espera: cantidad = cantidad + 1 FOR esp = 1 TO 30000 IF EOF(1) = 0 THEN GOTO inicio NEXT esp IF cantidad = 3 THEN CLOSE 1: PRINT "0": END GOTO inicio NOTA: La instrucción OPEN "COM..., provoca que la línea RTS cambie de nivel lógico. Esto actúa como pedido de transmisión al cabezal, que enviará la información antes detallada. Al finalizar la rutina, la instrucción CLOSE provoca que la línea RTS retorne a su nivel inicial. ACLARACION: En procesadores con número de serie inferior al 82746000 la llave 1 de S1 se encuentra anulada, no interesando la posición en que se encuentra. 3 Transmisión continua: La llave 1 de S1 debe ajustarse a la posición OFF En esta condición el equipo transmite en forma permanente el valor del peso, más un caracter de control: BOT, X , xxxxxx, CR (02) (peso) (13) X = Z Si el peso es cero X = M Si el peso esta en movimiento X = N Si el peso es negativo X = P Si el peso es positivo y estable Rutina de recepción de datos en lenguaje QBASIC: OPEN "COM1:9600,O,7,2,CS,DS,CD" FOR INPUT AS #1 b$ = "" inicio: A$ = INPUT$(1, #1) IF A$ <> CHR$(02) THEN GOTO inicio lee: A$ = INPUT$(1, #1) IF A$ = CHR$(13) THEN GOTO final b$ = b$ + A$ GOTO lee final: PRINT b$ CLOSE END El punto decimal es transmitido solamente si está presente en el display y en la posición que corresponda. Desde ya muchisimas gracias. |
#2
|
|||
|
|||
La forma facil, baja un componente para el manejo del puerto serial si buscas en los hilos encontraras varios.
la forma dificil... este es un pedazo de codigo para una impresora serial, si cambias los "Writes" por "Reads" y algun detallito no creo que tengas problemas para hacer funcionar el codigo ya que creo que lo que es dificil son las rutinas para el puerto. cualquier funcion que tengas duda, la puedes encontrar en el win32 Programmer's Reference que viene en MS SDK Files de tu instalacion de delphi |
#3
|
|||
|
|||
Gracias amigo voy a probar con esto
Muchisimas gracias por la molestia.
Cita:
|
#4
|
|||
|
|||
NO me anduvo, alguien puede guiarme como pasar esto
Hola amigos del foro estoy muy complicado porque tengo que entregar un modulo de una balanza para el miercoles y tengo que levantar la informacion del puerto serial de una balanza rs232 son los conectores. Me pasaron un codigo pero no me funciono me podrian ayudar a pasar el codigo de QBasic.
El sistema operativo que yo utilizo es XP. Muchisimas gracias por su ayuda. |
#5
|
||||
|
||||
Puestos a escoger me quedo con el método de transmisión continua. Aquí te queda el código, no esta muy optimizado, pero dada la urgencia que tienes puede servirte para salir del apuro. Comprueba que los parámetros del puerto serie (velocidad, bits de parada, etc) son correctos, si no estas seguro, lo mejor, es utilizar el hypertermial del propio windows, ahí podrás probar diferentes configuraciones del puerto hasta conseguir la correcta.
Pruebalo, sino funciona prueba distintos parámetros con el hyperterminal, y si aun así no funciona a lo mejor tenemos que jugar con los valores del Pin RTS, pero primero vamos a probar así. |
#6
|
||||
|
||||
Fijándome mejor en los parámetros que utiliza el código de ejemplo, puede que la configuración del puerto que estamos buscando sea la siguiente:
|
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Pasar de delphi 7 a Delphi 2006 (problemas con VCL) | jmlifi | .NET | 8 | 24-01-2006 15:51:30 |
Pasar de Excel a Delphi | CamiloU | Conexión con bases de datos | 2 | 05-01-2006 14:03:24 |
Pasar Delphi 5 a 6,7 y viceversa | Ivanzinho | Varios | 2 | 29-11-2005 10:36:14 |
Pasar salidas delphi a xml | friendspark | Varios | 3 | 14-11-2005 18:23:56 |
Pasar cabecera dll en C++ a delphi | mar646 | API de Windows | 0 | 15-04-2005 19:18:47 |
![]() |
|