Page 1 of 1

La Biblia para android con Fivetouch

Posted: Thu Jul 09, 2015 10:33 am
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

#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)+renglon
skip
end 
 
    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 nil
function 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

Re: La Biblia para android con Fivetouch

Posted: Thu Jul 09, 2015 10:53 am
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

Re: La Biblia para android con Fivetouch

Posted: Thu Jul 09, 2015 2:06 pm
by Antonio Linares
Image

Re: La Biblia para android con Fivetouch

Posted: Thu Jul 09, 2015 2:07 pm
by Antonio Linares
Jairo,

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

Re: La Biblia para android con Fivetouch

Posted: Thu Jul 09, 2015 2:39 pm
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

Re: La Biblia para android con Fivetouch

Posted: Mon Mar 27, 2017 10:25 pm
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

Re: La Biblia para android con Fivetouch

Posted: Thu Nov 02, 2017 11:32 pm
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

Re: La Biblia para android con Fivetouch

Posted: Fri Nov 03, 2017 10:26 am
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

Re: La Biblia para android con Fivetouch

Posted: Sat Nov 11, 2017 4:24 pm
by Jairo Barbosa
Marcelo si no te molesta pasame tu eMail
el mio es hk3dqc@gmail.com

Un fuerte Abrazo

Re: La Biblia para android con Fivetouch

Posted: Sun Nov 12, 2017 12:17 pm
by Marcelo Roggeri
Hola Jairo gracias por tomarte las molestias de responder.
Mi email es roggerimarcelo@gmail.com
Saludos