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
 Descripción:

Descargar
 Nombre del archivo: VB.jpg
 Tamaño: 147,76 KB
 Descargado: 107 veces

 
 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
Sindicacion RSSSindicacion RSS forosNoticias en tu correo© 2004 F.J.M.Información Legal