FAQ FAQ  •  Buscar Buscar  •  Registrarse Registrarse  •  Entre para ver sus mensajes privados Entre para ver sus mensajes privados
Login Login

Error al conectar Visual Basic con Proteus (Programa Básico)
Índice de los Foros Electronica Facil » FOROS ELECTRONICA » Microcontroladores PIC
Publicar nuevo tema   Responder al tema
Ver tema anteriorEntre para ver sus mensajes privadosVer tema siguiente
AutorMensaje
dr9216
22 Asunto: Error al conectar Visual Basic con Proteus (Programa Básico) MensajePublicado: 02 Mar, 2013 - 04:50
Nuevo en el Foro
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, Smile



VB.jpg

VB.jpg


 
 Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor  
Responder citando Volver arriba
Mostrar mensajes anteriores:     
Cambiar a:  
Todas las horas son GMT + 1 Hora
Publicar nuevo tema   Responder al tema
Ver tema anteriorEntre para ver sus mensajes privadosVer tema siguiente
 Índice de los Foros Electronica Facil » FOROS ELECTRONICA »  Microcontroladores PIC
powered by phppowered by MySQLPOWERED BY APACHEPOWERED BY CentOS© 2004 F.J.M.Información LegalPrensa
Esta web utiliza cookies, puedes ver nuestra política de cookies, aquí Si continuas navegando estás aceptándola
Política de cookies +