Visual Basic Foro

Hola:

Parece ser que me funciona como una puncha.

    Option Explicit
     
    Dim vPuertos() As String 'Para almacenar el verdadero nombre de los puertos, sin la descripocion.
     
    Private Sub Form_Load()
        Dim i As Integer
        For i = 1 To 10
            ComboBoxCOM.AddItem "Arduino (COM" & i & ")" ' cargo el combo con descripcion y el numero del puerto
           
            ReDim Preserve vPuertos(ComboBoxCOM.ListCount - 1)
            vPuertos(ComboBoxCOM.ListCount - 1) = "COM" & i
        Next
    End Sub
     
    Private Sub ComboBoxCOM_Click()
        MsgBox vPuertos(ComboBoxCOM.ListIndex) '  te muestra solo el nombre real del puerto, sin la descripcion
    End Sub


' Si ya has seleccionado un puerto en el comboBox
' Si pulsas conectar abre el puerto y si no lo cierra.
Private Sub Command_CONECTAR_Click()
    If Not MSComm1.PortOpen Then
       MSComm1.PortOpen = True ' Abrir puerto serie.
       Command_CONECTAR.Caption = "DESCONECTAR"
    Else
       MSComm1.PortOpen = False ' Cerrar puerto serie.
       Command_CONECTAR.Caption = "CONECTAR"
    End If
End Sub

Private Sub Command_Led_8_OFF_Click()
    MSComm1.Output = "Led_8_OFF" ' Envía este cadena de carácter por el puerto serie.
End Sub
     
Private Sub Command_Led_8_ON_Click()
    MSComm1.Output = "Led_8_ON" ' Envía este cadena de carácter por el puerto serie.
End Sub
Me he dado cuante, elija cualquier puerto o no en el ComboBox, puedo controlar de igualmente Arduino. Algo no anda bien.

Hay que buscar el fallo.

Si elijo el peurto COM1 que no tengo nada conectado, está bien que abra el puerto, pero que no controle el Arduino, lo mismo para los demás puertos.

Saludos.

Hola a todos y a todas:

Estoy intentando hacer un buen diseño básico con VB 6 bajo Windows 7 de 64 bits.



1) Se trata de una interfaz que con un botón llamado CONECTAR conecte a un puerto serie que haya en disposición en el comboBox.

2) En el comboBox se añade automáticamente los puertos series físicos y virtuales detectados al ejecutar la aplicación o interfaz o tu programa de VB 6.

3) Eliges en el comboBox el puerto serie detectado y pulsas el botón CONECTAR. Si hay un puerto seleccionado en el botón se cambia la palabra a DESCONECAR para desconectar el puerto serie. Si no detecta el puerto serie en el comobox, en el comobox se queda en blanco y el botón CONECTAR desactivado. Solo se activa si detecta algún puerto serie en el comobox.

4) Los botones de ON y OFF es para enviar tramas o string por el puerto serie.
Si pulsas ON exactamente por el puerto envías esto:

Led_8_ON

Lo mismo para el botón OFF, que envías estas tramas de bytes o string.

Led_8_OFF

5) Desde el otro lado del puerto serie tiene que recibir mensajes y mostrarlo en el cuadro Text con multiline activado tal como muestra en la imagen de arriba. Arduino o un PIC e incluso un PC les llega estos mensajes.

Los mensajes que llega depende lo que se haya programado en Arduino o un PIC o un PC. Por ejemplo, si pulso el botón ON de VB 6. Envía al puerto serie Led_8_ON, ARduino lo detecta y le devuelve un mensaje o cadena de carácteres que dice:

Led 8 encendido.

He intentado que me salga pero no me sale mucho. Necesito ayuda en la programación, ya que no se parece nada al VB .net y para equipos viejos que usa Windows XP de 32 bits me va de maravilla.

Un cordial saludos.