un novato que quiere iniciarce en VB 6. config port comm

[japifer_22]

hola a todos. he buscado todo este dia y no consigo entender como configurar el puerto com del PC, pero de una forma detallada.
en este tema estoy utilisando BV6, y quiero hacer varias cosas, pero de apoco.

Si me pueden ayudar a poder configurar el puerto com, para poder tener lectura de él. se los agradeseria ya que de verda he buscado info pero no me resulta nada.

he creado un from2 que me me pide el com a utilizar, esto es por medio de un combobox, tambien tengo otro combobox con los baudios, otro con los bit de parada, otro con la paridad, y el ultimo con bit de datos.

ahora como puedo hacer para que con estos datos que tengo, quede listo el puerto para la transmisión o recepción de datos.????
se que en setting del msComm esta la configuracion, pero como puedo generar ésta yo, con los combobox ya mencionados.

saludos y espero queme puedan ayudar. ya que nesesito de ella.

DP: esta es la primera parte nomas por que tengo mas dudas, pero de apoco. 

[japifer_22]

hola, alomeor no se entiende lo que quiero hacer.

ahora uno siempre o por lo menos en la mayoria de los casos uno configura el setting del mscomm a voluntad del pc, pero lo que yo quero es poder configurar este parametro en cualquier momento. y en cualquier pc. osea

MSComm1.CommPort = 1 'Paso 1: elijo el puerto
MSComm1.Settings = "9600,N,8,1" 'Paso 2:
MSComm1.PortOpen = True

el paso dos lo quiero cambiar por la asignación de los combobox que mencione en el post de arriba, porque así podre seleccionar la configuracion de comunicación a voluntad. se entiende ?? ayuda por favor.

lo que yo hice pero lo mas seguro esque este mal es:

MSComm.Setting ="baudios.paridad.dato.bit"

donde cada nombre entre "" son los nombres que le asigno a los combobox. estara bine esto o no ??

[japifer_22]

hola, bueno he avansado un poco mas, pero ahora tengo un problema, y es que al definir la configuracion del puerto. para esto estoy usando la siguente sentencia:

Código: [Seleccionar]

MSComm1.Settings = baudios.Text & "," & config & "," & BitdeDato.Text & "," & BitParada.Text
pero el punto es que donde dice config, no me toma el dato que deveria, ya que esta es el bit de paridad, esto lo tengo en un combobox y a esto le tengo las forma de esto,
par
impar
espacio
marca
ninguno

pero segun lo que he leido no se puede configurar con estos nombres, pero si con sus letras de asignacion, osea
E
O
S
M
N

el punto es que para hacer el cambio utilizo

Código: [Seleccionar]

Select Case paridad1.Text
        Case par
             config = e
        Case marca
             config = m
        Case ninguno
             config = n
        Case impar
             config = o
        Case espacio
             config = s
    End Selectpero el punto es que entra en esta sentencia cuando cambio algo de este combobox de paridad1, pero lo que no hace es asigna la letra a la variable config.

se entiende ??? me pueden sedir como hacer esto por favor

[japifer_22]

hola, logre lo que pregunto de mas arriba, pero ahora quiero cerrar el puerto, pero desde otro form.
tengo 2 form, donde en el form1 quiero que por medio de un button apague el puerto, pero a la vez que pase a mi form2, y en el form2 tengo mi MSComm1 y sus parametros.
??

[PalitroqueZ]

sino mal recuerdo tienes que colocar el nombre del formulario seguido del resto.

ej:  form1.mscomm1.port=false

[Ducky]

Hola japifer_22, Para que tu config te guarde el valor deves asignarselo entre comillas doble en el caso de caracteres

ej. Config = "N"

Para poder cerrar el puerto com desde otro formulario tienes quee mandar a llamarlo según en el formulario en que lo tengas

ej. Form1.MSComm1.PortOpen = False

 Saludos!!

[japifer_22]

hola gracias por las respuestas, ya he logrado hacer esto. pero en lo que estoy liado ahora es en poder leer una frame en el puerto serie.

STX (02h) - DATA (10 ASCII) - CHECK SUM (2 ASCII) - CR - LF - ETX (03h)
[The 1byte (2 ASCII characters) Check sum is the “Exclusive OR” of the 5 hex bytes (10 ASCII) Data characters.]

donde esto quiere decir que :
Lo que quiere decir que debe eliminar el primer caracter que es STX (02h), este caracter es para hacerte saber el inicio de la cadena, despues de ese caracter es que se envian los 10 caracteres ASCII que nesesito ver por un label, despues viene el checksum, un retorno de carro
y un fin de transmision que es el caratere ETX(03h)

he esto dandole a esto pero no puedo, aparte por que soy muy novato en esto.

estoy recepcionando con MSComm1.
si me pudiecen ayudar se los agradeceria mil.

[PalitroqueZ]

para ello tienes que echarle mano al conjunto de funciones que manejan cadenas

las funciones que se usan para extraer caracteres de string son: Left, Right y Mid

aquí lo explican mejor y con ejemplos

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm#left-mid-right

[Ducky]

Hola, podria ser que un split te pueda funcionar, para separar tu cadena
 
STX (02h) - DATA (10 ASCII) - CHECK SUM (2 ASCII) - CR - LF - ETX (03h)
Ej. tu pic envia: STX - Datos - CHECK SUM - ETX


Quedaria algo así:
                                  cadena = TxtRx.Text
                                  array = Split(cadena, "ETX")
                                  For i = LBound(array) To UBound(array)
                                             msgbox = arreglo(i)     'Aqui podrias agregar tu dato al flexgrid
                                  Next

con esto te separaria las cadenas eliminando o mejor dicho usando el ETX como separador; nose si esta idea te pueda ayudar en algo, Suerte


Saludos!!

[japifer_22]

hola gracias por las respuestas, he estado intentando hacer que lo dicen y no me resulta.
la trama que puse en un mensaje más arriba, es proveniente de un sensor id-20 o mejor dicho tag.
Ahora en mi programa de VB tengo 3 form, el primero es portada, y muestra los datos almacenado proveniente de una tarjeta tag, en el segundo form tengo la configuración del puerto com a utilizar, y en el tercero tengo una planilla donde se guardan los datos de la tarjeta tag. en este punto tengo un casillero donde me pide que que pase el tag para poder leer su AIDI y asi asociar todo el formulario a éste. pero el punto que no me resulta esto último, ósea mostrar la AIDI por el label.
Como digo el tag envía una trama igual a la que mencione en un mensaje mas arriba.
Por otro lado no estoy haciendo una base de dato, ni nada por el estilo, solo quiero que al ejecutar el VB poder almacenar los datos del tag y cada vez que pase este me muestre estos dato, y nada más, como digo es solo una forma de aprender a utilizar el VB y aprovechando también la tarjeta tag

saludos

[japifer_22]

hola tengo una duda y es conrespecto a MSComm1.input, lo que pasa es que el puerto lo habro desde el form 2, pero el punto es que quiero que me muestre algo en el form3, la pregunta es que si ¿cada vez que entro a un form tengo que abrir y cerrar el puerto, o solo tengo que abrirlo una vez desde cualquier form y  luego solo leer desde cualquier form?

[PalitroqueZ]

.... ¿cada vez que entro a un form tengo que abrir y cerrar el puerto, o solo tengo que abrirlo una vez desde cualquier form y  luego solo leer desde cualquier form?

no hace falta abrir y cerrar cada momento. el uso de varios form no afecta el mscomm

[japifer_22]

ok.
pero entonces no se por que no me resulta capturar un dato y mandarlo aun label

lo que hago es:
con texto declarado como string
MSComm.InputLen = 0' antes de abrir el puerto'
texto=MSComm.imput
label1.caption=mid(texto,2,10)

mm como digo estoy resien aprendiendo esto y lo mas provable es que tenga algun tipo de falla.
es por eso que ppido si me ayudan plisss

[PalitroqueZ]

¿y no debería ser Form1.MSComm.xxxx?

[banistelrroy]

y como seria para tener opciones de configuracion COM1,COM2,COM3,COM4