La Biblia para android con Fivetouch

Post Reply
User avatar
Jairo Barbosa
Posts: 194
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia
Contact:

La Biblia para android con Fivetouch

Post by Jairo Barbosa »

Gracias a la colaboración de Antonio dejo el código de un ejemplo muy sencillo en donde solo al usar la función QTextEdit(oDlg1) se logra hacer
una muy simple demostración del poder de fivetouch y de QT .

Code: Select all | Expand

#include "FiveTouch.ch"#define renglon chr(13) + chr(10)function Main()   local oDlg //:= QDialog()   Local oText    local Elegido:={}   Local Capitulo := "Seleccione un libro"   LOCAL Buscar:= 'Buscar'   Local Salir := "Salir"   Local cLibro   local cFileLocation, cFile    cFileLocation := DownloadLocation()+"/"      cFile := "Bibliaforo.dbg"   if file( cFileLocation+cFile )   MemoWrit( cFile, MemoRead( cFileLocation+cFile ) )   endif     USE Biblia.dbg ALIAS Bibli     dbgotop()Elegido =   {"  ","Mateeo","Marcos","Lucas","Juan","Hechos"}           DEFINE DIALOG oDlg size 400,420* oDlg:SetStyleSheet( "background-color: rgba( 255, 255, 255, 255 );border: 0px solid white;" ) cTitulo    := Bibli->Titulo cVerso     := Bibli->verso cContenido := Bibli->contenido    @ 35, 100 Say osay PROMPT Capitulo  OF oDlg   IF EMPTY(cTitulo) .OR. ;  ASCAN(Elegido,cTitulo) == 1  cTitulo:= Elegido[1]  ENDIF  cTitulo:= SPACE(10)   @ 60, 100 COMBOBOX oCbx VAR cTitulo OF oDlg ;             SIZE 180, 40;             ITEMS  Elegido   @ 280, 170 BUTTON oBtn1 PROMPT Buscar OF oDlg ;              SIZE 160, 40;                ACTION  Buscar(cTitulo)  @ 280,10 BUTTON oBtn2 PROMPT Salir OF oDlg ;             SIZE 160, 40;             ACTION  oDlg:End()   ACTIVATE DIALOG oDlg CENTERED return nil***************************************************function Buscar(cTitulo  )Local cTotal:=""local oDlg1 ,oBtn Local Salir:="Salir" if empty(cTitulo) MSGINFO('Debe seleccionar un libro','Informaci?n') RETURN ENDIF define dialog oDlg1  SIZE  400, 480* oDlg1:SetStyleSheet( "background-color: rgba( 250, 250, 250, 250  ) " ) set filter to Titulo = cTitulo dbgotop()    while .not.eof()cTotal:= alltrim(cTotal) +""+  alltrim(Bibli->verso) +renglon+ alltrim(Bibli->contenido)+renglonskipend      SET( _SET_CODEPAGE, "ESWIN" )    oText = QTextEdit(oDlg1)       oText:SetText( cTotal)    oText:Resize( 420, 435 )    oText:setFont( QFont( "Comic san", 18 ) )    @ 410, 150 BUTTON oBtn PROMPT Salir OF oDlg1 ;            SIZE 160, 40;             ACTION  oDlg1:End()  Activate dialog oDlg1 centered set filter to USE Biblia.dbg ALIAS Bibli dbgotop()  return nilfunction DownloadLocation()return QStandardPaths():StandardLocations( 14 ):Value( 0 )  


En esta direccion se puede bajar la DBF que se uso para el desarrollo del ejemplo

https://www.dropbox.com/s/uaot4fz79ew2q ... o.prg?dl=0

En una oprtundad durante el dia colocare una imagen del telefono como luce el sencillo ejemplo

https://www.dropbox.com/s/hrkte9xcgs5im ... 0.jpg?dl=0

Enlace para ver la imagen de la aplicasion en el telefono
Cordialmente

Jairo
Last edited by Jairo Barbosa on Thu Jul 09, 2015 11:00 am, edited 1 time in total.
User avatar
Jairo Barbosa
Posts: 194
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia
Contact:

Re: La Biblia para android con Fivetouch

Post by Jairo Barbosa »

<a href='http://postimage.org/' target='_blank'><img src='http://s2.postimg.org/w97i0qq85/IMG_20150707_WA0006.jpg' border='0' alt="IMG 20150707 WA0006" /></a>

IMAGEN DE LA APLICACION EN EL TELEFONO

Image
User avatar
Antonio Linares
Site Admin
Posts: 42506
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 30 times
Been thanked: 72 times
Contact:

Re: La Biblia para android con Fivetouch

Post by Antonio Linares »

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 42506
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 30 times
Been thanked: 72 times
Contact:

Re: La Biblia para android con Fivetouch

Post by Antonio Linares »

Jairo,

gracias por las imágenes y enhorabuena de que tu aplicación esté funcionando ya en Android :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Jairo Barbosa
Posts: 194
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia
Contact:

Re: La Biblia para android con Fivetouch

Post by Jairo Barbosa »

Antonio Gracias a ti a tus invaluables orientaciones hay otra primer imgen que no la tengo disponible es en donde se selecciona el libro correspondiente
esta muy sencilla todavía pero ojala algunos colegas se animen a fortalecer la aplicación

Gracias

Jairo
User avatar
Marcelo Roggeri
Posts: 342
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina
Contact:

Re: La Biblia para android con Fivetouch

Post by Marcelo Roggeri »

Hola Jairo buenas tardes, quiero descargar la DBF pero no me lo permite, serias tan amable de subirla nuevamente?
Muchas gracias
Marcelo
FWH - Harbour - BCC7 - PellesC
User avatar
Jairo Barbosa
Posts: 194
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia
Contact:

Re: La Biblia para android con Fivetouch

Post by Jairo Barbosa »

Hola Marcelo Buen dia
Estaba ausente de estos foros pero vi que en meses pasados hiciste una solicitud
dime aun estas interesado? Con mucho gusto en lo que pueda colaborarte

Jairo Barbosa
User avatar
Marcelo Roggeri
Posts: 342
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina
Contact:

Re: La Biblia para android con Fivetouch

Post by Marcelo Roggeri »

Hola Jairo, buenos dias paso un tiempo y ya no recuerdo bien pero queria descargar esa dbf para probar algo que vos hiciste en fivetouch si mal no recuerdo.
Saludos y gracias
FWH - Harbour - BCC7 - PellesC
User avatar
Jairo Barbosa
Posts: 194
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia
Contact:

Re: La Biblia para android con Fivetouch

Post by Jairo Barbosa »

Marcelo si no te molesta pasame tu eMail
el mio es hk3dqc@gmail.com

Un fuerte Abrazo
User avatar
Marcelo Roggeri
Posts: 342
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina
Contact:

Re: La Biblia para android con Fivetouch

Post by Marcelo Roggeri »

Hola Jairo gracias por tomarte las molestias de responder.
Mi email es roggerimarcelo@gmail.com
Saludos
FWH - Harbour - BCC7 - PellesC
Post Reply