Uno más de RS232 - WinXP+VB6

[BrunoF]

Ya regresé a mis pruebas...

Quise compilar la siguiente instrucción pero VB me regaña...

Public volt(1 To 40) As String  'lleva el voltaje de cada medidor

y me dice que...



ya le di varias revisadas y no entiendo porqué está mal.

Ah y lo de mid e instr todavía no lo pruebo. Apenas compile les aviso.

Estas intentando declarar un array publico en un formulario. O creas un modulo(.bas) y lo declaras como publico ahi y accedes desde el formulario, o bien cambias el "Public" a "Private" en la declaracion dentro del form, pero solamente vas a poder acceder al array desde codigo dentro del form.

Saludos.

[migsantiago]

Bruno, gracias, funcionó con private 

Ya probé la instrucción Mid e Instr y funciona bien, gracias!!! 

El pic manda una cadena cuando vb la pide, la cadena es más o menos así...

B01 12.5V(enter)B02 12.5(enter) B03..... B40 12.5(enter)

Aquí mi código...

Código: [Seleccionar]

Public cadena As String 'cadena a recibir desde pic
Public poscad As Integer 'posición de texto en cadena
Public i As Integer 'lleva el conteo del arreglo
Private volt(1 To 40) As Double  'lleva el voltaje de cada medidor
Public buscadena As String 'cadena a buscar

Private Sub Close_Click()
    MSComm1.PortOpen = False 'Cierra puerto
    End 'termina programa
End Sub

Private Sub Command1_Click()
Text1.Text = ""
End Sub

Private Sub Command2_Click()
MSComm1.Output = Chr$(115) 'envía petición de envío, letra s
Command2.Enabled = False 'evita que puede reclickear botón

End Sub

Private Sub Form_Load()
       MSComm1.Settings = "19200,N,8,1"
       MSComm1.CommPort = 1 'usa el com1
       MSComm1.InputLen = 0 'tamaño de buffer de entrada
       MSComm1.PortOpen = True 'abre puerto
       MSComm1.RThreshold = 1 'habilita el evento ante recepción
                              'en buffer después de recibir 1 byte
                             
'inicializa el contenido de las labels que muestran
'el voltaje en tiempo real
Label01.Caption = "n/d"
Label02.Caption = "n/d"
.........
Label34.Caption = "n/d"
Label35.Caption = "n/d"
Label36.Caption = "n/d"
Label37.Caption = "n/d"
Label38.Caption = "n/d"
Label39.Caption = "n/d"
Label40.Caption = "n/d"
End Sub

Private Sub MSComm1_OnComm()
'aquí llega si el com1 tuvo cambios en rx o tx
If MSComm1.InBufferCount >= 419 Then 'el pic envía 419bytes
cadena = MSComm1.Input
For i = 1 To 40
    If (i < 10) Then
        buscadena = "B0" & i
    Else
        buscadena = "B" & i
    End If
    poscad = InStr(cadena, buscadena) 'busca B?? en cadena
    volt(i) = Mid(cadena, (poscad + 4), 4) 'deposita voltaje
Next

Label01.Caption = volt(1)
Label02.Caption = volt(2)
Label03.Caption = volt(3)
Label04.Caption = volt(4)
Label05.Caption = volt(5)
Label06.Caption = volt(6)
Label07.Caption = volt(7)
Label08.Caption = volt(8)
Label09.Caption = volt(9)
Label10.Caption = volt(10)
Label11.Caption = volt(11)
.......
Label35.Caption = volt(35)
Label36.Caption = volt(36)
Label37.Caption = volt(37)
Label38.Caption = volt(38)
Label39.Caption = volt(39)
Label40.Caption = volt(40)
vstring.Caption = 0 'borra contenido

For i = 1 To 40
    vstring.Caption = vstring.Caption + volt(i) 'suma los voltajes
Next

Command2.Enabled = True 'evita que pueda reclickear botón
End If
End Sub

Private Sub Timer1_Timer()
'cada 25ms entrega el tamaño del buffer de entrada
Text2.Text = MSComm1.InBufferCount
End Sub

Y la pantalla queda así...

http://img131.imageshack.us/img131/5717/dibujotp7.jpg

Seguiré trabajando, gracias de nuevo.


Aprovechando el tema, ¿cómo hago para que el estilo visual de las ventanas de vb sea como winxp? En vc++ lo hago de esta forma...

http://www.migsantiago.com/index.php?option=com_content&view=article&id=5&Itemid=6

[migsantiago]

Pali me hizo favor de enviarme una guía de MSCOMM muy buena, sacada de los discos de MSDN. La pueden encontrar aquí...

http://todopicsan.4shared.com

Gracias

[migsantiago]

Hola de nuevo

Ya he estado trabajando más con el componente MSCOMM. Quisiera saber como generar un ejecutable que incluya ese componente, para instalarlo en una PC que no tenga Visual Basic instalado.

¿Necesito descargar algún generador de instalador o Visual Basic lo puede generar?

Gracias 

[PalitroqueZ]

En el mismo visual hay una herramienta boton inicio->programas-> microsoft visual basic (si la tienes instalada) se llama asistente para empaquetador o algo así, solo sigue los pasos y listo.

[migsantiago]

OK lo voy a buscar, también tengo otra pregunta... estoy usando una imágenes GIF que cambian dentro de la ventana según la ejecución del programa... ¿esas también las empaca esta herramienta?

[PalitroqueZ]

umm  no recuerdo... creo que sip. todo lo que use el proyecto vbp quedará empacado (incluso si usas un control activeX)

[migsantiago]

OK Pali, les cuento mis resultados luego 

Gracias

[migsantiago]

Dentro de las opciones de empaquetado se pueden agregar los archivos que uno quiera, incluso en donde se instalarán.



Gracias Pedro

[PalitroqueZ]

exacto migsantiago. sino mal recuerdo el empacador mira que es lo que tienes enlazado al .vbp y lo encapsula.

[migsantiago]

Otra duda...

Hablando en lenguaje C cuando quiero imprimir un flotante con 1 decimal y 2 cifras enteras le pongo

flota=12;
printf("%2.1f",flota); //y entrega 12.0

Ahora que estoy en VB... no sé ni como hacerlo.

Me interesa que esta línea muestre los decimales...

Private volt(1 To 40) As Double  'lleva el voltaje de cada medidor
lblVpantalla(i).Caption = volt(i + 1)

¿Qué me sugieren? 

[BrunoF]

No se si entendi bien:

A ver...

If Len(volt(i + 1)) < 3 Then
    lblvpantalla(i).Caption = volt(i + 1) & ".0)"
Else
    lblvpantalla(i).Caption = Left(volt(i + 1), 4)
End If

[PalitroqueZ]

con double puedes mostrar decimales sin necesidad de arrays, si lo que quieres es mostrar n digitos después de la coma, entonces habría que convertirlo a string y seleccionar cuantos caracteres quieres mostrar.

[migsantiago]

No me expliqué bien 

Si mi variable double (flotante en c) tiene el valor 12 quiero que cuando la imprima en una label entregue 12.0.

----------------------
public volt as double
volt=12

lblLabel.caption =volt 'esto normalmente entrega 12 en vez de 12.0
------------------------

Bruno, por ahí va la cosa, pero ¿no hay forma de hacerlo automáticamente como en c?

Además... no sé qué hace Len y Left 

Pedro, ¿cómo hago esa conversión que mencionas?

[BrunoF]

Bruno, por ahí va la cosa, pero ¿no hay forma de hacerlo automáticamente como en c?

Hasta donde yo se de VB6, no.

Me equivoque. la instruccion LEN devuelve la longitud de la variable en bytes.
La Left  es solo para cadenas de texto, y lo que hace es tomar cierta porcion del lado izquierdo de un string:
Su estructura es:

Left(cadena,cantidadcaracteres)

Entonces si por ejemplo:

MiCadena = "Hola Mundo"

y pongo
Msgbox left(MiCadena,6)

deberia salir "Hola M"

El algoritmo anterior sería:

If Len(cstr(volt(i + 1))) < 3 Then
    lblvpantalla(i).Caption = volt(i + 1) & ".0)"
Else
    lblvpantalla(i).Caption = Left(volt(i + 1), 4)
End If

Me había olvidado de hacer una conversión explícita para pasar de double a string

Saludos.