Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature currently requires accessing the site using the built-in Safari browser.
Hola me llamo rodrigo.. disculpa pero podrias enviarme el plano del circuito que estas implementando.. y estoy buscando mejoras en algunos proyectos.. te agradeceria porder contar contigo...
e-mail:Debo leer las Normas del Foro @ Foros de Electrónica.Com
gracias!!!
MSComm1.RThreshold = 1 'al recibir un caracter se generará el evento OnComm y la 'propiedad CommEvent contendrá el valor comEvReceive, si le pones 2 al recibir 2 caracteres se realizara el evento, y asi susecivamente, pero para tu caso es mejor ponerle 1, ya que no envias tramas de datos.
Option Explicit
Dim Com1 As String
Dim Contador_A As Integer
Dim Contador_B As Integer
Contador_A = 0
Contador_B = 0
Private Sub Form_Load()
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
**********************************************
'Aca defines las demas propiedades del Puerto, como COM1,Velocidad,paridad, etc.
**********************************************
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Com1 = MSComm1.Input
Text1.Text = Com1
Select Case Com1
Case "A"
Contador_A = Contador_A + 1
Label20.Caption = Contador_A
Case "B"
Contador_B = Contador_B + 1
Label21.Caption = Time
End Select
End If
End Sub