Clarion - Capturar puertos COM

 
Vista:
Imágen de perfil de Fabián Postai
Val: 94
Plata
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Capturar puertos COM

Publicado por Fabián Postai (67 intervenciones) el 08/08/2018 19:08:46
Buenas tardes foro de Calrion

Estoy programando un sistema de stock y necesito saber como debo conectarme con una balanza mediante puerto COM.

Si hay algún template para dicha conexión, donde puedo encontrarlo en forma gratuita.-

Gracias !!!!!

P/D : El template gratuito porque no estimo el costo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 60
Bronce
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Capturar puertos COM

Publicado por Victor David (29 intervenciones) el 08/08/2018 22:59:45
Fijate en http://www.carabez.com/downloads/pcwedge.zip
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Fabián
Val: 94
Plata
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Capturar puertos COM

Publicado por Fabián (67 intervenciones) el 09/08/2018 20:18:09
Gracias Victor por tu atención lo voy a probar

Saludos cordiales
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 196
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Capturar puertos COM

Publicado por Marcelo Madelón (135 intervenciones) el 09/08/2018 23:49:57
Fabián

Yo uso WinEvent no es free.
No conozco algo que sea free.

Te paso el código que uso pro si te sirve.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
KillAllPorts()   !   me aseguro que cierro el puerto (si esta cerrado no reporta error al tratar de cerrarlo)
PortId = NewPort ('COM1:9600,n,8,1',1024,1024)  ! Lo Configuro
 
IF  PortId < 0
    Message ('Error al Abrir el Puerto '&PortId)
    Bandera = 0
    return level:fatal
END
Display
 
Sleep(210)  ! se 'duerme'
X#  =   0
Y#  =   0
LOOP        ! Loop continuo
    peso    =   ''                           ! Limpio la variable
    Result = Clip(readport(PortId,peso,7))  ! Leo  7 caracteres del puerto
    S# =    0
    Loop X# = 1 TO 7 BY 1                   ! Rastreo el principio del dato
        Char = val(sub(Peso,X#,1))           ! cargo el valor del dígito a la variable Char
        Inicio = sub(Peso,X#,1)             ! cargo el valor del dígito a la variable Char
        IF  Inicio Not >    ''! veo si es el inicio de la transmisió
            S# = 1                           ! Marco la Salida
            LOC:PesoVisor   = Sub(Peso,X# + 1,7) ! lee parte del campo Peso a partir del caracter
            break     ! Corto en loop
        end
    End ! Loop X#
    Y#  +=  1
    IF  Y#  >   60
        Message('Cantidad de Intentos de Lecturas Agotados. No Puede Leer el Puerto....','Mensaje del Sistema',ICON:Exclamation)
        Bandera = 0
        Break                                ! loop contínuo
    END
    IF  S#  >   0                            ! Si S# > 0 es por que leyó y ahora sale del
        Break                                ! loop contínuo
    END
END ! Loop continuo
Display                                      ! Muestro
 
KillAllPorts()  ! Me aseguro que Cierro Todos los Puertos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar