5

Neobook y Arduino

arduino-b

Buenas hoy  voy a mostrarles un ejemplo de conexión con arduino pedido por Cheolucho.

Plugins utilizados:

gtComms (G Turner) (Descargar)

Lado Neobook:

Para conectarnos al puerto serie tendremos que utilizar la función

gtCommOpenStd "14,9600"

Como vemos la función recibe 1 parámetro pero separa por “,” y los transforma en 2 lo que seria:

14 > El puerto COM al cual queremos conectarnos

9600 > Velocidad (baudios)

Para cerrar la conexión debemos usar la función gtCommClose pasandole como parámetro solo el puerto que deseamos cerrar.

Para mandar datos:

Usamos gtCommSend con los siguientes parámetros

gtCommSend "14,3"

14 > El puerto COM

3 > Dato a enviar

Tambien podriamos enviar el contenido de una variable con lo que quedaria:

gtCommSend "14,[enviar]"

Para recibir datos de arduino:

Usamos gtCommRxS con los siguientes parámetros

gtCommRxS "14,1,return"

14 > El puerto COM

1 > Numeros de bytes a leer

return > Nombre de la variable donde almacenara la lectura (sin las [])

Si tenemos errores estos aparecerán en las variables [gtOpenCommErr] y [gtCommErr].

Lado Arduino:

Para este ejemplo use 1 Display de 7 segmentos (Common Cathode) siguiendo el siguiente esquema

arduino-7-segment-LED-display-circuit

Por ultimo utilzamos el siguiente sketch

//Creamos el array de numeros
const byte numeros[11] = {
    B11111100, //0
    B01100000, //1
    B11011010, //2
    B11110010, //3
    B01100110, //4
    B10110110, //5
    B00111110, //6
    B11100000, //7
    B11111110, //8
    B11100110, //9
    B00000000, //nada
};
const int pins[8] = {
    5, 8, 9, 7, 6, 4, 3, 2
};
void setup() {
    //iniciamos el puerto serie
    Serial.begin(9600);
    //iniciamos los pines en modo salida
    for (int i = 0; i & lt; 8; i++) {
        pinMode(pins[i], OUTPUT);
    }
}
void loop() {
    //si existe algo en el serie
    if (Serial.available()) {
        //leemos lo que mandamos por serie
        int r = Serial.read() – ’0′;
        //enviamos respuesta lo que leimos (a modo debug)
        Serial.print((int) r);
        //y por ultimo mostramos el numero correspondiente del array
        mostrarDigito((int) r);
        delay(100);
    }
}
void mostrarDigito(int numero) {
    boolean BitSet;
    for (int segmento = 0; segmento & lt; 8; segmento++) {
        BitSet = bitRead(numeros[numero], segmento);
        digitalWrite(pins[segmento], BitSet);
    }
}

Screenshots

sshot-1

sshot-2

Utilizando el mismo ejecutable con otro proyecto

IMG_20130818_151253

Descarga

  ejarduino.rar (1,6 MiB, 645 hits)

Espero que sea útil

Saludos


2

Bases de Datos (III)

Antes de comenzar hice unos cambios:

* Agregue 1 campo Código (Puede ser un código interno que tengamos puestos en nuestros cds).
* Se puso el nombre de la db en una variable [DBNombre].
* Se puso la ruta de la db en una variable [DBRuta].
* Los botones con color celeste son los nuevos.

En esta entrega veremos como realizar búsquedas.

Para qué realizar búsquedas? 

Las búsquedas nos permiten filtrar la información de la base de datos. Si tenemos una agenda de contactos en algún momento tendremos que buscar el numero de una persona. O simplemente son necesarias, pues cuando ya tenemos muchos registros no podemos estar recorriendo uno por uno para encontrar el deseado.

NeobookDB nos ofrece 2 acciones para buscar pero nosotros usaremos dbfQuery ya que ésta nos permite realizar búsquedas que involucren a varios campos.

Por ejemplo si queremos evitar registros duplicados (utilizaremos un campo código) tendremos que realizar una búsqueda para ver si existe y mostrar un mensaje (ver ejemplo).

Operadores

Podremos crear búsquedas complejas con los siguientes operadores:
= Busca al menos parte del contenido (ej. … “Tipo=Auto” … Encontraría registros como auto, automático, automotor,etc.)
== El contenido del campo es exactamente igual a lo que se busca.
< El contenido del campo es menor a lo que se busca. > El contenido del campo es mayor a lo que se busca.
<> El contenido del campo es distinto a lo que se busca.
Los conectores AND (y) y OR (ó) nos permiten unir varios criterios.

Ejemplo

dbfQuery “[DB]” “Nombre=Pedro AND Edad>21 AND Edad<57”

Con eso estaríamos buscando en nuestra base todos los registros de personas que se llamen Pedro y que tengan entre 21 y 57 años de edad.

A tener en cuenta

Cuando hacemos búsquedas nuestra vista de la tabla se actualizara mostrando sólo los registros que devolvió dicha búsqueda. Para volver a mostrar todos los registros deberemos usar dbfShowAll.

Otro punto importante es que si la búsqueda dio como resultado varios registros queda seleccionado automáticamente el primero de éstos, para acceder a los siguientes deberemos usar las acciones  dbfNext, dbfPrev, dbfFirst, dbfLast. Lo recomendable es proveerle al usuario una forma cómoda para seleccionar el registro deseado (una vista podría ser).

Screenshot

sshot-5

Descarga

  db-MisCds-3.rar (1,3 MiB, 790 hits)


0

Ejemplo reiniciar publicacion

Hola este ejemplo es para responder a Jorgesp que tenia la siguiente consulta:

Hola!! ¿alguien sabe qué función puedo crear para reiniciar la aplicación? Cerrar y abrir de nuevo el ejecutable sin necesidad de plug-ins, ¿hay alguna función? Gracias!!!

Para resolver esto hice la función ReiniciarPub:

.Separamos la variable commandline
StrParse "[CommandLine]" "[#13]" "[Parametro]" ""
.El primer parametro es el la ruta a nuestro ejecutable
setvar "[DirNombreExe]" "[Parametro1]"
DeleteArray "[Parametro]" "All"
.Separamos para obtener solo el nombre
StrParse "[DirNombreExe]" "\" "[NombreExePartes]" "[NombreExePartes.C]"
setvar "[NombreExe]" "[NombreExePartes[NombreExePartes.C]]"
DeleteArray "[NombreExePartes]" "All"
clearvariables "[NombreExePartes.C]"
.Aca escribimos en temp un simple .bat que nos ayudara
.Escribimos el comando taskkill que cerrara nuestra app
FileWrite "[TempDir]reinip.bat" "All" "start /B /WAIT taskkill /f /im [NombreExe]"
.Si le pasamos un numero como parametro escribira el comando timeout que esperara los segundos que le pasemos
if "[%1]" ">" "0"
FileWrite "[TempDir]reinip.bat" "Append" "start /B /WAIT timeout [%1]"
endif
.Escribimos el comando start que se encargara de ejecutar nuevamente nuestra app
FileWrite "[TempDir]reinip.bat" "Append" "start [DirNombreExe]"
.Por ultimo ejecutamos el .bat que escribimos
Run "[TempDir]reinip.bat" "" "RunOnce+Hidden" "" ""

Entonces para llamarla hacemos :

Call "ReiniciarPub" "10"

La función recibe 1 parámetro que es la cantidad de segundos que queremos que espere antes de reabrir la aplicación.

Por lo que si queremos que el reinicio sea instantáneo seria:

Call "ReiniciarPub" "0"

Screenshots

sshot

Descarga:

  ejReiniciarPub.rar (1.019,1 KiB, 558 hits)

NOTA: La función ReiniciarPub (incluida en el .rar) debe estar en la carpeta functions donde esta instalado neobook.

Espero que sirva.

BuNKeR

 


0

Bases de Datos (II)

Antes de comenzar hice unos cambios:

* Agregue 2 campos NTemas (cantidad de canciones en el cd) y Temas (la lista de temas).
* Las acciones de crear (o abrir) la base las pase al startup de la aplicación.
* La vista de la tabla es para ver los cambios que realizamos y por ese motivo esta en modo solo lectura (pero actualiza los datos del registro seleccionado).

Siempre que trabajemos con base de datos vamos a tener que hacer un ABM (Alta, Baja y Modificación).

Lo mas fácil es la Baja pues ejecuta la función dbfDeleteRecord que como dije arriba eliminará el registro que tengamos seleccionado en la vista (mas adelante podremos eliminar haciendo búsquedas).

Algo que tienen que saber que al trabajar con dbfs si eliminamos un registro en realidad queda marcado como eliminado, por ej.

Si tenemos

Registro A
Registro B
Registro C
Registro D

Y hacemos dbfDeleteRecord a los registros B y C, éstos quedaran marcados como eliminados, dándonos como total 4 registros. Para eliminarlos completamente y que la cantidad total de registros nos de correcta debemos usar la función dbfPack.

Para realizar Alta y Modificación hice un container con entradas de texto para cada uno de los campos. También utilizo una variable [form1.accion] para saber que acción (nuevo ó modificar) estamos realizando y hacer lo correspondiente.

Al trabajar con dbfs si seleccionamos un registro se actualiza las variables del registro seleccionado ([NombreDB.Campo]), esto quiere decir que tendría las siguientes variables:

[MisCds.Titulo]
[MisCds.Artista]
[MisCds.Genero]
[MisCds.Año]
[MisCds.Discog]
[MisCds.NTemas]
[MisCds.Temas]

Osea que si tengo seleccionado un registro estos campos se llenaran con la información del registro y si modifico alguna estoy haciendo una modificación del registro (es por esto que uso una variable auxiliar para saber si es nuevo o estoy modificando).

Entonces al dar Alta a un registro debemos usar dbfAddRecord que nos crea un registro nuevo (en blanco) y luego asignamos los contenidos de las entradas de texto (ej [form1.Titulo]) a las variables (ej [MisCds.Titulo]) y por ultimo ejecutamos dbfSaveEdits para confirmar esas modificaciones.

Al modificar debemos mostrar el contenido del registro que estamos modificando por lo cual hago:

SetVar "[form1.campo]" "[NombreDB.campo]"
.ej
SetVar "[form1.Titulo]" "[MisCds.Titulo]"

Con ésto lleno el formulario con los datos del registro y al cambiarlos como ya expliqué arriba ya estaríamos modificandolos por lo cual solo resta hacer dbfSaveEdits.

Screenshots

sshot-2

Descarga:

  db-MisCds-2.rar (1,3 MiB, 692 hits)

 

Cualquier duda me consultan

NOTA: Ésta es una forma de realizar un ABM, puede haber otras mejores (o peores =P).

Espero que sirva.

BuNKeR


1

Bases de Datos (I)

Hola hoy vamos a ver Bases de Datos (DB) y como implementarlas en neobook. Será una serie de entradas las cuales vamos a ir agregando funcionalidades a la misma. DB es un tema bastante amplio que no voy desarrollar ya que voy a centrarme directamente en como implementarlas en neobook. Dejo para uds que lean sobre el tema.

que es una base de datos?

Una base de datos o banco de datos es un conjunto de datos pertenecientes a un mismo contexto y almacenados sistemáticamente para su posterior uso.

tipos de bases de datos

Existen varios pero los mas importantes hoy en día son mysql y sqlite. Sin olvidar que también existen mssql, Access (.mdb), tablas libres (.dbf), etc.

cual me conviene?

Depende del volumen de inf, tipos de datos, seguridad, acceso (local o remoto) que necesitemos para nuestra DB.

que plugins puedo usar?

Existen varios algunos free algunos pagos, dependiendo del tipo de DB a la cual conectarnos, etc. Ya veremos ésto mas adelante.

Manos a la Obra

En este ejemplo voy a utilizar NeobookDB (gratis).

Antes de comenzar tenemos que analizar que vamos a guardar para poder establecer cómo lo vamos a guardar. Vamos a crear un simple catalogo de CDs de musica que almacenara los siguientes datos:

Titulo (cadena de texto max 35)
Artista (cadena de texto max 35)
Genero (cadena de texto max 35)
Año (entero)
Discografica (cadena de texto max 35)

Creando la base de datos

dbfCreate "[PubDir]MisCds.dbf" "Titulo,String,35|Artista,String,35|Genero,String,35|Anio,Integer,0|Discog,Integer,0" "DbActu"

dbfCreate requiere 3 parámetros:

1: La ruta de la DB a crear.
2: Campos.
3: Subrutina a ejecutar cuando haya cambios.

*Si le hacemos doble click podremos acceder a un “asistente” para crear los campos de la tabla con los tipos de datos disponibles.

Hay que recordar que esta acción primero intenta abrir la base de datos y si no existe la crea.

Con eso ya tenemos creada la DB, ahora vamos a mostrarla. Para mostrar usaremos la acción dbfShowTable.

dbfShowTable "[PubDir]sample.dbf" "Rectangle1" "NavigationBar"

dbfShowTable requiere 3 parámetros:

1: La ruta a la DB.
2: Rectángulo destino.
3: Opciones para mostrar (Con o sin barra de navegación, Solo lectura o no).

También podemos personalizar un poco el estilo de la grilla con estas funciones:

.Definimos el tamaño de las columnas
dbfSetColumnWidths "[PubDir]MisCds.dbf" "133|132|104|46|164"
.Definimos el estilo del titulo de las columnas
dbfSetTitleStyle "[PubDir]MisCds.dbf" "White" "Arial" "9" "Normal" "Black"
.Definimos el estilo de las celas
dbfSetCellStyle "[PubDir]MisCds.dbf" "249,249,249" "Arial" "9" "Normal" "WindowText"
.Definimos el estilo de la celda seleccionada
dbfSetHighlightColor "[PubDir]MisCds.dbf" "255,255,225" "Black"
.Traducimos el texto de los botones de navegacion
dbfTranslateHints "Primero|Anterior|Siguiente|Ultimo|Agregar|Eliminar|Editar|Guardar Cambios|Cancelar Edicion"

Con esto ya aprendimos a crear una base de datos y mostrarla en un rectángulo donde podemos navegar los registros. Luego veremos cómo personalizar el ingreso de los datos a la DB.

Screenshots

sshot-1

Descarga:

  db-MisCds.rar (1,3 MiB, 768 hits)

Espero que sirva.

BuNKeR


3

Funciones: TextoEntre

Hoy voy a compartir con ustedes una función creada por mi que me ha sido de mucha ayuda en mis proyectos. Su nombre es TextoEntre y funciona de la siguiente manera:

Dado un texto ej.: <a href=”www.google.com.ar”>Ir a google</a> guardado en [texej] y necesitamos obtener solo el link (www.google.com.ar) llamaríamos a la función del siguiente modo

Call "TextoEntre" "[texej]" "href=[#34]" "[#34]>" "[link]"

obtendríamos lo deseado en la variable [link].

La función recibe 4 parámetros:

Call "TextoEntre" "[fuente]" " [inicio]" "[fin]" "[resultado]"

[fuente] -> La cadena fuente

[inicio] -> La cadena que está antes del texto

[fin] -> La cadena que está después del texto

[resultado] -> Donde se desea guardar el texto

[resultado] guardara el texto encontrado entre [inicio] y [fin]. Si no encuentra [inicio] o [fin] en la cadena fuente TextoEntre devolvera 0(cero).

Espero que les sea útil.

Captura:

Descarga:

  ejTextoEntre.rar (1,1 MiB, 969 hits)

 

NOTA: Las función debe ser copiada a la  carpeta Functions de NeoBook.


2

Comparando números en neobook

Hace unos días recibí un mail donde me decían que si tenían 2 números (grandes) y éstos diferían en alguna parte, el comando IF daba como resultado que eran IGUALES aunque no lo fueran.

Para ver a partir de que cifra es que neobook los considera iguales hice este ejemplo en el cual genero un numero y cambio el ultimo dígito por uno diferente, luego hago las comparaciones con IF, rlStrCmp (rlfunctions) y dec_CompararDosCadenas (dec_plus).

Al parecer el comando IF tiene algún tipo de limite para comparaciones, al menos en las numéricas cuando supera la cifra 17 (a veces incluyéndola).

Entonces cual seria la solución?

La solución es utilizar alguna de las funciones de los siguientes plugins:

rlStrCmp (rlfunctions)

dec_CompararDosCadenas (dec_plus)

Con esas funciones se aseguran de obtener el resultado correcto.

Captura

Descarga

  ejcomparacion.rar (1,3 MiB, 933 hits)

 


6

Acceso directo a Compilar (Botón Compilar)

Buenas, hoy voy a compartir (luego de ver un tema en el foro oficial) con ustedes un truco que hacia antes para no tener que ir tantas veces a Book>Compile/Publish y era una aplicación realizada con autohotkey que al presionar la tecla F3 me abre el cuadro compilar.

Pero ahora fui un poco mas allá (luego de leer en el tema que estaría bien un icono en la barra de herramientas) y decidí , ademas de la tecla F3, insertar un botón a neobook que facilite el acceso directo a compilar.

Como lo instalo?

Botón Compilar tiene un instalador que te facilitará las cosas. Tienes que seleccionar el directorio donde tengas instalado el neobook y listo.

Una vez instalado abre el neobook como lo haces siempre y ya podrás usar tu botón compilar o la tecla F3 para acceder  rápidamente a compilar publicación.

Espero que les sirva y me avisan si encuentran bugs.

Descarga

  botoncompilar.rar (1,3 MiB, 1.299 hits)

 

NOTA: El Programa NeoBook esta desarrollado por NeoSoft y es marca registrada de NeoSoft Corporation. Neobookeros.com.ar no tiene relación con Neosoftware.


19

Obtener las sugerencias de Google (Get google suggestions)

Hola este ejemplo lo hice para katia del foro de neosoftware que me preguntó como se podría obtener la corrección de google cuando ingresamos una palabra.

Hi. I did this example for Katia from neosoftware forum she asked how could get google correction when we enter a word.


Ya que estaba en el tema decidí hacer un ejemplo de como obtener las sugerencias que nos muestra mientras escribimos dicha palabra.

Since I was on the subject, I decided to make an example of how to get the suggestions that shows while writing the word.


Les dejo el ejemplo. Esta comentado linea por linea por lo cual no deberían tener problemas al leerlo. Cualquier cosa me consultan.

So here is the example. Is commented line by line so should have no trouble reading it. Any doubt ask me.

 

Saludos

Greetings

Captura / Screenshot

Descarga / Download

  ejGoogleSuggestions.rar (1,1 MiB, 1.298 hits)

 

Opcional:

Martín hizo unos cambios al ejemplo para que se vayan obteniendo las sugerencias mientras se escribe el texto pueden descargarlo desde acá: http://www.mediafire.com/?6demv1vgphbrkvp


8

Ejemplo Reproductor de Radio

Buenas … En estos días recibí un mail de Nelson donde que me pregunta “si es posible crear una especie de reproductor para reproducir una radio online”.

La respuesta es SI.

¿Como?

Tendremos que crear una pagina html donde incluiremos el reproductor de WMP y luego lo controlaremos a través de javascript.

Código para incluir WMP.

Luego creamos las funciones en JS para controlarlo.

function abrir(archivo){ MC1.filename=archivo;}
function play() {MC1.play();}
function subirv() {var volumen = MC1.Volumevar sube = volumen + 100;if(sube < 0) {MC1.Volume = sube;}} function bajarv() {var volumen = MC1.Volumevar baja = volumen - 100;if(baja >= -4002) {MC1.Volume = baja;}}
function mutev(muteval) {MC1.mute = muteval;}
function stop() {MC1.stop();}

Lo demás es fácil. Incrustamos el objeto navegador donde cargaremos el html. Creamos los botones y llamaremos a las funciones JS con el comando BrowserExecScript de neobook.

Les recomiendo que vean el codigo del ejemplo.

Captura

Descarga

Ejecutable y código fuente:

  ejRadio.rar (1,3 MiB, 1.279 hits)