GAMBAS Almenos es basic- Puerto Serie - PIC16F628A

Claro que si!!!! y muchas gracias por colocar este pequeño trabajo en la zona de descargas!!, espero sea de gran ayuda para la comunidad el pequeño aporte que hicimos, y de cualquier forma seguiré trabajando en el, con base en las fuentes ya publicadas, y pues seguire dando los pormenores, mil gracias nuevamente, y saludos desde México!!

Pd. Por cierto este mes, es el mes de la Patria Mexicana!, mi patria

Hola que tal, ya nadamas, para comentar que al rato subiré las modificaciones al código, puesto que tiene unos bug's, no muy graves, pero funca muy bien

saludos!!

Bueno aqui estan ya las correcciones


http://www.filefactory.com/file/a0a2a6h/n/mmm-testserial_0_0_5_orig_tar_gz

y bueno un video de como funciona ya este programa


Para grabar el escritorio use gtk-RecordMyDesktop y para los acercamientos use un efecto de Compiz Fusion
para convertir los videos a .AVI que genera el gtk-RecordMyDesktop use la consola con el mencoder, muy bueno, muy rápido y sencillo, el comando usado fue

mike@mike:~$ mencoder testRS232viaSSh.ogv -o testRS232viaSSh.avi -oac mp3lame -ovc lavc
Saludos!!

Si alguien no podido instalar por dependencias en Ubuntu los paquetes que he puesto, ya que requerie que gambas 2 este instalado, pues aqui les dejo de donde bajar el Run-Time, para que corran los programas que se han puesto, gracias!!!

http://packages.ubuntu.com/search?keywords=gambas2-runtime

He actualizado el archivo en la zona de descargas a los últimos cambios en tu proyecto.

Pues definitivamente tengo algo raro en mi puerto serie.
Viendo tu video veo que el programa no se te bloquea al abrir el puerto, pero a mí sí... eso me pasa también con el ejemplo que viene con Gambas.

El puerto funciona, pero la interface gráfica se queda bloqueada hasta que se cierra el puerto...
Me salen los mensajes de puerto abierto, etc.. pero una vez que se cierra.
La ventana se bloquea justo en el momento de abrir el puerto. y no puedo hacer nadfa en ella, ningún botón parece funcionar, pero si le doy al botón de cerrar el puerto pués se cierra sin problemas y entonces me muestra los mensajes que haya.

Alguna idea de porqué me puede estar pasando esto?

Una disculpa, pero no habia entrado antes al foro, debido a cuestiones de trabajo.

Pikitin escribió:He actualizado el archivo en la zona de descargas a los últimos cambios en tu proyecto.

Gracias!!!

Pikitin escribió:
El puerto funciona, pero la interface gráfica se queda bloqueada hasta que se cierra el puerto...
Me salen los mensajes de puerto abierto, etc.. pero una vez que se cierra.
La ventana se bloquea justo en el momento de abrir el puerto. y no puedo hacer nadfa en ella, ningún botón parece funcionar, pero si le doy al botón de cerrar el puerto pués se cierra sin problemas y entonces me muestra los mensajes que haya.

Alguna idea de porqué me puede estar pasando esto?

Es posible que Gambas te este causando algun tipo de conflicto con el servidor X, Xorg supongo, verifica en los procesos que no se quede zombie de alguna forma el proceso que se inicie con gambas, mmm una cosa, cuando usas el puerto serie, lo has intentado como root?

bueno ahora no se que distro tengas instalada en tu caja linux, pero supongo que es ubuntu, oye y si intentas desde una instalción limpia, desde el virtualbox, ya que este te da la opcion de acceso al puerto serial, en mi caso tengo el virtualbox 3.0.4.

Otra opcion que pudieras intentar es una ejecucion por pasos, colocando breakpoints en las lineas de código de abrir el boton
mira aqui

Código:


IF ttyUSB.Status = Net.Active THEN
  CLOSE ttyUSB
  cmdAbreCierra.Text = "Abre"
  ELSE
  'Linea de parametros
  ttyUSB.PortName = cmdPort.Text
  'ttyUSB.PortName = txtPortText.Text
  ttyUSB.Speed = cmdVelocidad.Text
  ttyUSB.Parity = cmbParidad.Index
  ttyUSB.DataBits = cmbDataBits.Text
  ttyUSB.FlowControl = cmbControlFlujo.Index
  ttyUSB.StopBits = cmbBitParo.Text

  ' TRY
  ttyUSB.Open()    '<---- Igual y aqui se trabe, yo  trataba de poner un try, pero no le agarro aun :p
  ' IF ERROR THEN
  '  Message.Error(ERROR.text)
  '  TextArea1.Text = ""
  '  cmdAbreCierra.Text = "Abre"
  ' END IF
  ' END TRY
 
  Check_Status()
  TextArea1.Text = "Puerto Abierto : " & ttyUSB.PortName & " Ajustes : " &
  ttyUSB.Speed & " , " & ttyUSB.Parity & " , " & ttyUSB.DataBits & " , " &
  ttyUSB.StopBits & " , " & Chr(13) & Chr(10)
  cmdAbreCierra.Text = "Cierra"
  ENDIF
 
END


Espero te sea de utilidad la informacion que te envio!!!.

Saludos

Gracias maigke.

Es posible que Gambas te este causando algun tipo de conflicto con el
servidor X, Xorg supongo, verifica en los procesos que no se quede
zombie de alguna forma el proceso que se inicie con gambas, mmm una
cosa, cuando usas el puerto serie, lo has intentado como root?

He intentado como root y lo mismo...

bueno ahora no se que distro tengas instalada en tu caja linux, pero supongo que es ubuntu, oye y si intentas
desde una instalción limpia, desde el virtualbox, ya que este te da la
opcion de acceso al puerto serial, en mi caso tengo el virtualbox 3.0.4.

Si.. estoy usando Ubuntu Hardy, lo he probado en un par de instalaciones y siempre lo mismo.

Otra opcion que pudieras intentar es una ejecucion por pasos, colocando breakpoints en las lineas de código de abrir el boton

Código:

ttyUSB.Open()    '<---- Igual y aqui se trabe, yo  trataba de poner un try,

Justo ahí es donde se queda... pero lo del "try" no hace nada, porque en realidad el puerto abre bién y funciona, el caso es que toda la interface se queda bloqueada hasta que se cierra el puerto.

Por ejemplo: si abro el puerto, mando algunos datos y cierro el puerto; entonces todo funciona bién y como es una cosa rápida no se boquea nada. Si abro el puerto, mando unos datos y no cierro el puerto; entonces los datos se envían correctamente, pero no me muestra el mensaje de puerto abierto y la interface gráfica queda congelada... lo único que funciona es el botón de cerrar el puerto (si lo hay), si cierro el puerto entonces me muestra los mensajes de puerto abierto y puerto cerrado, todo de golpe, y todo vuelve a funcionar.

Esto me ha pasado tanto con el ejemplo como con algún intento mío y también con tu proyecto de servos (aunque yo no tengo nada conectado para probarlo).

Lo que se me ocurre es que estan abriendo el puerto en modo bloqueante, entonces se queda el puerto bloqueado hasta que envie y reciba la cantidad de datos, para lo cual fue programado, es decir, se queda en ttyUSB.Open() hasta que se ha vaciado el buffer de salida y el buffer de entrada.

Voy a hecharle una mirada a internet para ver como en gambas configurarlo como nobloqueante, por evento y por timeout.

Otra opción seria abrir un hilo que maneja la apertura y cierra del Puerto, y así liberar la GUI y que no espere a que el proceso de lectura y escritura acabe.