Nuevo en el Foro
Registrado: 02 Mar, 2013
Mensajes: 1
|
| Hola a todos, soy nuevo en el foro, trato de realizar el encendido de un led en Proteus mediante Visual Basic, al hacerlo con el Virtual Terminal de Proteus no hay problema , corre bien, pero cuando conecto el circuito mediante un compim con VB la comunicación no se realiza correctamente, sospecho que son los parámetros de comunicación pero no encuentro el error y estoy varado en este punto y necesito avanzar, les agradecería mucho si le echaran un ojo al programa, veo que no me deja subir algunos tipos de archivos, por lo tanto dejo el código de Microcode y VB:
Microcode:
include "modedefs.bas"
cmcon=7
led var porta.0
datos var byte
high led : pause 1000 : low led
inicio:
serin portb.0,N9600,datos
if datos="P" then goto prendido
goto inicio
prendido:
high led
serout portb.1,N9600,["E"]
pause 5000
serout portb.1,N9600,["A"]
low led
goto inicio
VB:
Private Sub Command1_Click()
MSComm1.Output = "P"
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
DATO = MSComm1.Input
If Len(DATO) > 0 Then
End If
If DATO = "E" Then
Shape1.FillColor = QBColor(12)
End If
If DATO = "A" Then
Shape1.FillColor = QBColor(8)
End If
End Sub
también un dejo un jpg del circuito en Proteus y del form en VB
y por último el link para descargar el Virtual Serial Port Kit necesario para conectar los dos programas, simplemente se crea una conexión virtual entre dos puertos com de la computadora y se asigna uno a cada uno.
www.virtual-serial-port.com
se que es mucho lo que pido, pero si tienen tiempo necesito ayuda.GRACIAS DE ANTEMANO,  |
| VB.jpg |
|
| |
| |
|
FAQ
Buscar
Registrarse
Entre para ver sus mensajes privados
Login
