none
Error código Output RRS feed

  • Pregunta

  • Hola:

    Estoy con el VB 6 bajo Windows 7 de 64 bits. Puse dos botones en el Form1. Lo ejecuta bien, cuando pulsa el botón me sal este error.

    El error que dice es este.

    Precisamente en la palabra Output.

    Quiero enviar datos al puerto serie. En este caso

    Command_Led_8_ON.Output = "Led_8_ON"

    Saludos.



    http://electronica-pic.blogspot.com

    martes, 24 de marzo de 2015 16:19

Respuestas

Todas las respuestas

  • Te da el error porque el commandbutton no tiene la propiedad Output


    Saludos, Javier J

    martes, 24 de marzo de 2015 16:59
  • ¿Dónde saco la propiedad Output?

    http://electronica-pic.blogspot.com

    miércoles, 25 de marzo de 2015 5:21
  • la propiedad Output es del control MSComm, no del CommandButton.

    Saludos, Javier J

    • Marcado como respuesta Metaconta miércoles, 25 de marzo de 2015 14:18
    miércoles, 25 de marzo de 2015 9:32
  • Hola:

    Muy cierto.

    He hecho este código.

    Private Sub Command_Led_8_OFF_Click()
    MSComm1.Output = "Led_8_OFF"
    End Sub
    
    Private Sub Command_Led_8_ON_Click()
    MSComm1.Output = "Led_8_ON"
    End Sub
    
    Private Sub Form_Load()
    MSComm1.PortOpen = True   'habilitar el puerto 1
    Timer1.Interval = 1       'correr el timer a 1 mls
    End Sub

    Como dice en este texto y lo he hecho:

    Para su correcto funcionamiento, es necesario copiar los dos archivos
      mscomm32.OCX y msvbvm60.dll, en el disco duro de su computador, pero
      si aun sigue dando problemas al iniciar este programa, debe mover los
      2 archivos ya antes mensionados dentro de la carpeta de windows.

    ¿Realmente lo necesito estas librerías para Windows 7 de 64 bits?

    Saludos.


    http://electronica-pic.blogspot.com

    miércoles, 25 de marzo de 2015 12:47
  • Si, te harán falta. ¿No te interesa hacer el proyecto en .Net?

    Saludos, Javier J

    • Marcado como respuesta Metaconta miércoles, 25 de marzo de 2015 18:52
    miércoles, 25 de marzo de 2015 18:32
  • Me imagino que me harán falta si paso el exe con esos componentes si no tengo instalado VB 6.

    En cuanto al .net, lo tengo hecho con Visual C#/C++/VB .net y Java con NetBeans.

    Ahora quiero usar el VB 6 que también me lo piden. Si queres un PDF hecho hasta el momento te lo envío por correo, pesa 22 MB. Es con Visual 2013.

    Antes fue con el 2008 pero ya es obsoleto la electrónica, ahora se usa Arduino.

    Ver y descargar PDF versión 2008.

    Saludos.


    http://electronica-pic.blogspot.com

    miércoles, 25 de marzo de 2015 18:52
  • Hola:

    Aquí uso el comoBox para elegir el puerto serie, pero me da error justo aquí.

    MSComm1.CommPort = ComboBoxCOM.ListIndex = 0

    Mensaje del error. Número del puerto no es válido.

    Ver código completo.

        Private Sub Form_Load()
           'Form1.ComboBoxCOM.Clear ' Limpiar comboBox.
              MSComm1.CommPort = ComboBoxCOM.ListIndex = 1
        Timer1.Interval = 1       ' Correr el timer a 1 mls.
           Set WMIObjectSet = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_PnPEntity") 'Win32_SerialPort")
           For Each wmiobject In WMIObjectSet
               If InStr(wmiobject.Name, "COM") Then   '
                 Form1.ComboBoxCOM.AddItem wmiobject.Name
               End If
                Next
           Set WMIObjectSet = Nothing
        End Sub
    
    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"
    End Sub
         
    Private Sub Command_Led_8_ON_Click()
        MSComm1.Output = "Led_8_ON"
    End Sub
         
    
    

    No puedo encontrar la solución.


    http://electronica-pic.blogspot.com

    sábado, 28 de marzo de 2015 22:42