hola mi nombre es javier eduardo borrero soy estudiante de tecnologia electronica vivo en colombia.
mi inquietud y espero me puedan colaborar es la sigt:
Estoy realizando para una asignatura especificamente"microcontroladores"
un proyecto con el cual deseo implementar un control de dispositivos desde una PC , el problema es que encontre un codigo de la interfaz del usuario pero no la entiendo es esta:

Dim ValorA As Integer
Dim ValorB As Integer
Dim ValorC As Integer
Dim j As Integer
Option Explicit
__________________________________________________ ____
Private Sub Form_load()
If MSComm1.PortOpen = False Then
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End If
End Sub
__________________________________________________ ___________
Private Sub timer1_timer()
If MSComm1.PortOpen = True And MSComm1.InBufferCount > 0 Then
TRx = TRx + MSComm1.Input
End If
End Sub
__________________________________________________ ___________
Private Sub TimEscan_Timer()
BLeer.Value = 1
End Sub
__________________________________________________ ___________
Private Sub BLeer_Click(Index As Integer)
MSComm1.Output = Chr(165) + Chr(66) + Chr(88) + Chr(99)
End Sub
__________________________________________________ ___________
Private Sub enviar_Click(Index As Integer)
ValorC = 64
ValorA = 64
For j = 0 To 5
If outA(j).Value = 1 Then
ValorA = ValorA + 2 ^ j
If outC(j).Value = 1 Then
ValorC = ValorC + 2 ^ j
End If
End If
Next j
MSComm1.Output = Chr(ValorA + 128) + Chr(ValorC) + Chr(ValorA) + Chr(ValorC)
End Sub
__________________________________________________ _____________
Private Sub TRx_Change()
Dim j As Integer
If Len(TRx) > 3 Then TRx = ""
If Len(TRx) = 2 Then
ValorA = Asc(Mid(TRx, 1, 1)) - 64
ValorB = 0
ValorC = Asc(Mid(TRx, 2, 1)) - 64
End If
If Len(TRx) = 3 Then
ValorA = Asc(Mid(TRx, 1, 1)) - 64
valor B = Asc(Mid(TRx, 2, 1))
valor C = Asc(Mid(TRx, 3, 1)) - 64
End If
If (Len(TRx) = 2) Or (Len(TRx) = 3) Then
For j = 0 To 7
DIn(j).BackStyle = (ValorB And 2 ^ j) / (2 ^ j)
Next j
For j = 0 To 5
DoutA(j).BackStyle = (ValorA And 2 ^ j) / (2 ^ j)
outA(j).Value = (ValorA And 2 ^ j) / (2 ^ j)
DoutC(j).BackStyle = (ValorC And 2 ^ j) / (2 ^ j)
outC(j).Value = (ValorC And 2 ^ j) / (2 ^ j)
Next j
text2 = TRx
TRx = ""
End If
End Sub



por favor si alguien entiende de esto por favor colaboreme
mi correo es dmjm1977@hotmail.com
gracias

Iniciado por flecha

Dim ValorA As Integer
Dim ValorB As Integer
Dim ValorC As Integer
Dim j As Integer <-- aca estas definiendo variables de tipo entero o sea variables que pueden tomar valores de -32.768 a +32.767
Option Explicit <-- Con esto le dices que solo acepte variables definidas.
__________________________________________________ ____
Private Sub Form_load() <-- si este es tu formulario inicial, el siguiente código se ejecuta cuando inicias tu aplicación
If MSComm1.PortOpen = False Then <-- Aca revisas si el puerto serial del PC esta libre. Si esta libre se ejecutan las líneas hasta en END IF
MSComm1.CommPort = 1 <-- Le dices el número de puerto que deseas utilizar, en este caso el com 1
MSComm1.Settings = "9600,N,8,1" <-- le ingresas los parametros de comunicacion. En este caso 9600 Baudios. Sin paridad, largo del dato de 8 bit y utilizas un bit de parada.
MSComm1.PortOpen = True <-- un vez asignado el puerto y los parametros, abres el puerto para poder enviar o recibir datos.
End If
End Sub
__________________________________________________ ___________
Private Sub timer1_timer() <-- Aca hay una rutina que se ejecuta de forma cíclica segun el intervalo del timer1. Lo que hace es estar permanentemente revisando el buffer de entrada del puerto que abrimos arriba, si hay datps, que los cargue en TRx (imagino que es una variable)
If MSComm1.PortOpen = True And MSComm1.InBufferCount > 0 Then <-- aca dice. Si el puerto esta abierto y hay algo en el bufer entonces ejecute la siguiente línea
TRx = TRx + MSComm1.Input <-- TRx es igual al valor anterior de TRx más el valor que llego al puerto serial desde el dispocitivo
End If
End Sub
__________________________________________________ ___________
Private Sub TimEscan_Timer() <-- Con el código que hay aca, no logro entender la utilidad de esto, pero alguna función tendra que tener
BLeer.Value = 1
End Sub
__________________________________________________ ___________
Private Sub BLeer_Click(Index As Integer)
MSComm1.Output = Chr(165) + Chr(66) + Chr(88) + Chr(99) <-- aca le estas mandando un mensaje al dispocitivo, y por el nombre del control me da la idea que es una pregunta que va a ser respondida por el dispotivo (podria estar perguntando por el estado o por algun valor en especial, sin conocer el dispocitivo ni su protocolo es dificil decirlo a priori)
End Sub
__________________________________________________ ___________
Private Sub enviar_Click(Index As Integer)
ValorC = 64
ValorA = 64
For j = 0 To 5
If outA(j).Value = 1 Then <-- aca revisa el valor binario de algún control
ValorA = ValorA + 2 ^ j <-- aca contruye el valor decimal a partir del valor binario de los controles
If outC(j).Value = 1 Then
ValorC = ValorC + 2 ^ j
End If
End If
Next j
MSComm1.Output = Chr(ValorA + 128) + Chr(ValorC) + Chr(ValorA) + Chr(ValorC) <-- Aca también envias un mensaje al dispotivo, con la diferencia que el mensaje que envias no es un mensaje fijo, si no un mensaje que se construye tomando valores (me la idea que son valores binarios) desde algún menú que utiliza el usuario.
End Sub
__________________________________________________ _____________
Private Sub TRx_Change() <-- ¿Recuerdas que TRx recibia los datos desde el dispotivo?. Bueno, si llegaron datos, el valor de TRx cambia y por ende ocurre lo que esta aca abajo. Y esto es una decodificación del mensaje presentarlo de forma entendible al operador
Dim j As Integer
If Len(TRx) > 3 Then TRx = "" <-- si hay TRx tiene más de caracteres. limpie TRx.
_____________________________________________
If Len(TRx) = 2 Then <-- Si hay 2 caracteres en TRx entonces:
ValorA = Asc(Mid(TRx, 1, 1)) - 64 <-- debuelva el valor númerico del primer caracter menos el valor 64 (el porque de esta formula depende del protocolo que utiliza el dispocitivo y por ende de la sintaxis conque muestra los datos)
ValorB = 0 <-- si hay dos caracteres, entonces el ValorB vale 0
ValorC = Asc(Mid(TRx, 2, 1)) - 64 <-- Llene el valor C con el valor del segundo caracter recibido
End If
__________________________________________________ _
If Len(TRx) = 3 Then <-- Si hay 3 caracteres en TRx entonces:
ValorA = Asc(Mid(TRx, 1, 1)) - 64 <-- aca va el primero caracter
valor B = Asc(Mid(TRx, 2, 1)) <-- el segundo
valor C = Asc(Mid(TRx, 3, 1)) - 64 <-- el tercero
* un caracter en ascii se asocia a 8 Y/O 7 bit, por lo cual lo que estas haciendo es separar octetos de bits que te envia el equipo.
End If
__________________________________________________
If (Len(TRx) = 2) Or (Len(TRx) = 3) Then
For j = 0 To 7
DIn(j).BackStyle = (ValorB And 2 ^ j) / (2 ^ j) <-- aca estas descomponiendo el segundo octeto que te envio el equipo. aunque no me puse a analizar el algoritmo, a vuelo de pajaro me la idea que esta presentando el valor Decimal como un valor Binario al cambiar el estilo de ciertos controles en el formulario.
Next j
For j = 0 To 5
DoutA(j).BackStyle = (ValorA And 2 ^ j) / (2 ^ j)
outA(j).Value = (ValorA And 2 ^ j) / (2 ^ j)
DoutC(j).BackStyle = (ValorC And 2 ^ j) / (2 ^ j)
outC(j).Value = (ValorC And 2 ^ j) / (2 ^ j)
Next j <-- hasta aca hace lo mismo que al inicio pero con el primer y tercer octeto.
text2 = TRx <-- cargue el valor original en el control text2
TRx = "" <-- una vez hecha la decodificación, limpie la variable de recepción
End If
End Sub



por favor si alguien entiende de esto por favor colaboreme
mi correo es dmjm1977@hotmail.com
gracias <--- Esto es un foro de Ayuda. tu duda hoy puede ser la duda de alguien más mañana, por lo cual yo solo respondo temas usando el foro y no por MSN (esa es mi opinión personal)

Me da la idea que es un programa simpe para visualizar y enviar datos a un dispocitivo único, el cual muestra la información y se programa con información en binario.
Edited by: Garfield