Electronico

Option Explicit
Dim value As Long
Dim bandera As Boolean
Private Sub enviar_Click()
Timer1.Enabled = False
If MSComm1.PortOpen = True Then
MSComm1.Output = "a"
End IfTimer1.Enabled = True
End Sub
Private Sub conectar_Click()
'comprueva que el puerto este cerrado para poder abrirlo
If MSComm1.PortOpen = False Then
'determina el puerto que hemosseleccionado.
If puerto.ListIndex = 0 Then
MSComm1.CommPort = 1
End If
If puerto.ListIndex = 1 Then
MSComm1.CommPort = 2
End IfIf puerto.ListIndex = 2 Then
MSComm1.CommPort = 3
End If
If puerto.ListIndex = 3 Then
MSComm1.CommPort = 4
End If
Ifpuerto.ListIndex = 4 Then
MSComm1.CommPort = 5
End If
If puerto.ListIndex = 5 Then
MSComm1.CommPort = 6
End If
If puerto.ListIndex = 6 ThenMSComm1.CommPort = 7
End If
If puerto.ListIndex = 7 Then
MSComm1.CommPort = 8
End If
If puerto.ListIndex = 8 ThenMSComm1.CommPort = 9
End If
If puerto.ListIndex = 9 Then
MSComm1.CommPort = 10
End If
If puerto.ListIndex = 10 Then
MSComm1.CommPort =11
End If
End If

MSComm1.OutBufferSize = 1 'tamaño del dato a transmitir.
MSComm1.PortOpen = True
End Sub

Private Sub Form_Load()
puerto.AddItem"COM1" ' Añadimos diferentes numeraciones para el puerto serie.
puerto.AddItem "COM2"
puerto.AddItem "COM3"
puerto.AddItem "COM4"
puerto.AddItem "COM5"
puerto.AddItem "COM6"
puerto.AddItem "COM7"puerto.AddItem "COM8"
puerto.AddItem "COM9"
puerto.AddItem "COM10"
puerto.AddItem "COM11"
puerto.ListIndex = 0 ' Configuramos COM1, como predeterminado.
Timer1.Interval = 50
Timer1.Enabled =...