Si además quieres enviarnos un Artículo para el Blog y redes sociales, pulsa el siguiente botón:
ola necesito ayuda
tengo el circuito de esta web montado con 4 servos i kiero acer un programa para usarlo
http://microplans.xbot.es/servos4.htm
entre otras quiero saver si en la orden
Private Sub activar_Click()
MSComm1.PortOpen = True
End Sub
Private Sub enviar_Click()
MSComm1.Output = Chr(1)
End Sub
puede ir kualkier numero en el 1 i si puedo poner tambien letras
i asi asignar un numero por kada angulo i una letra por cada servo
porfavor poned todo lo que se os acurra que puede ayudarme
perdon por las faltas es que solo tengo 2 semans d margen i estoy iendo muy deprisa por todas partes pideindo ayuda
Muy buenas, en primer lugar darte la bienvenida, pese a que ni te hallas presentado antes, ya que eres nuevo por aquí. En segundo lugar, intenta hacer tu texto más legible, ya que a veces el escribir de esa forma hace que no te entiendan bien. Es un consejo.
Respecto a tu código, supongo que será BASIC, así que no puedo ayudarte mucho, ya que lo desconozco completamente. No obstante, imagino que la función MSComm1.Output = Chr(0) lo que hace es, por un ládo convertir el número entero 0 a su valor ASCII, para luego enviarlo por puerto serie, así que en principio podrías poner cualquier valor que quieras, ya que por puerto serie puedes enviar lo que quieras.
Espero que te sirva de ayuda.
Un saludo.
gracias
y intentare escrivir de un modo mas legible XD
provare con esto si consigo encontrar el programa visual basic
por cierto
ALGIEN SAVE DONDE PUEDO DESCARGAR EL PROGRAMA VISUAL BASIC
QUE SE USA EN EL TUTORIAL DE PUERTOS SERIE- BASIC?
gracias a todos por buestra ayuda
Oko, en Microsoft creo que hay una version que te puedes bajar, la version 2005.
Un cordial saludo
Francisco Balbuena
www.mecatronica.es
Hola de nuevo
vuelvo a tener una duda, esta vez referente al codigo
si tengo esta orden programada en el programa de visual basic Private
Sub activar_Click()
MSComm1.PortOpen = True
End Sub
Private Sub enviar_Click()
MSComm1.Output = Chr(1)
End Sub
en el PIC que llega y como lo hago para decirle que si llega 1 aga esto i si llega 2 haga eso otro
