Recibir datos desde el puerto serie
Publicado por Meta (5 intervenciones) el 05/04/2015 20:12:40
Hola a todos y a todas:
Gracias a muchos sitios he logrado enviar comandos o datos al puerto serie para que Arduino lo entienda, ya se puede apagar y encender un Led.
En estos momentos me falta lograr que desde el puerto serie con VB 6 me lleguen los datos y se muestre en el componente Text como indica esta imagen.
Su código es hecho hasta el momento es:
Aquí dejo un enlace temporal de un tutorial en pdf para novatos de como hacer su propia interfaz con VB 6.
https://www.dropbox.com/s/4s6txlfkit9d1xv/Tutorial%20VB6%20puertoCOM.pdf?dl=0
Como dije antes, necesito una ayudita sobre recibir datos desde el puerto serie para completas este tutorial.
¿Estás dispuesto a ayudar?
Un cordial saludo.
PD: Tengo otro con VB .net, C++, C# y Java de lo mismo en PDF, el que lo quiera lo hace saber y pongo unenlace temporal aquí mismo.
PD2: Dejo claro que el tutorial está aún incompelto, sobre todo me falta la parte de la electrónica y en tutorial de VB 6 será colocado dentro del mismo pdf que los demás lenguajes.
Gracias a muchos sitios he logrado enviar comandos o datos al puerto serie para que Arduino lo entienda, ya se puede apagar y encender un Led.
En estos momentos me falta lograr que desde el puerto serie con VB 6 me lleguen los datos y se muestre en el componente Text como indica esta imagen.
Su código es hecho hasta el momento es:
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Form_Load()
With Me.ComboBoxCOMSet WMIObjectSet = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_PnPEntity")
For Each wmiobject In WMIObjectSet
If InStr(wmiobject.Name, "COM") Then
ComboBoxCOM.AddItem wmiobject.Name
Dim nCom% ' Buscamos el número del puerto:
nCom = InStrRev(wmiobject.Name, "COM", , vbTextCompare)
nCom = Val(Mid(wmiobject.Name, nCom + 3))
ComboBoxCOM.ItemData(ComboBoxCOM.NewIndex) = nCom
End If
Next
Set WMIObjectSet = NothingIf ComboBoxCOM.ListCount = 0 Then
MsgBox "No se encontraron puertos COM."Exit Sub
End If
' Para seleccionar el primer puerto encontrado:
ComboBoxCOM.ListIndex = 0
End With
End Sub
Private Sub ComboBoxCOM_Click()
' Configurar MSComm
With Me.ComboBoxCOMMSComm_Puerto_Serie.CommPort = ComboBoxCOM.ItemData(ComboBoxCOM.ListIndex)
End With
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 MSComm_Puerto_Serie.PortOpen ThenMSComm_Puerto_Serie.PortOpen = True ' Abrir puerto serie.
Command_CONECTAR.Caption = "DESCONECTAR" ' Mostrar texto en el botón.
ComboBoxCOM.Enabled = False
Command_Led_8_ON.Enabled = True ' Activar botón ON.
Command_Led_8_OFF.Enabled = True ' Activar botón OFF.
Else
MSComm_Puerto_Serie.PortOpen = False ' Cerrar puerto serie.
Command_CONECTAR.Caption = "CONECTAR" ' Mostrar texto en el botón.
ComboBoxCOM.Enabled = True
Command_Led_8_ON.Enabled = False ' Desactivar botón ON.
Command_Led_8_OFF.Enabled = False ' Desactivar botón OFF.
End If
End Sub
Private Sub Command_Led_8_OFF_Click()
' Envía este cadena de carácter por el puerto serie.
MSComm_Puerto_Serie.Output = "Led_8_OFF"
End Sub
Private Sub Command_Led_8_ON_Click()
' Envía este cadena de carácter por el puerto serie.
MSComm_Puerto_Serie.Output = "Led_8_ON"
End Sub
Aquí dejo un enlace temporal de un tutorial en pdf para novatos de como hacer su propia interfaz con VB 6.
https://www.dropbox.com/s/4s6txlfkit9d1xv/Tutorial%20VB6%20puertoCOM.pdf?dl=0
Como dije antes, necesito una ayudita sobre recibir datos desde el puerto serie para completas este tutorial.
¿Estás dispuesto a ayudar?
Un cordial saludo.
PD: Tengo otro con VB .net, C++, C# y Java de lo mismo en PDF, el que lo quiera lo hace saber y pongo unenlace temporal aquí mismo.
PD2: Dejo claro que el tutorial está aún incompelto, sobre todo me falta la parte de la electrónica y en tutorial de VB 6 será colocado dentro del mismo pdf que los demás lenguajes.
Valora esta pregunta
0