La Biblia para android con Fivetouch

La Biblia para android con Fivetouch

Postby Jairo Barbosa » Thu Jul 09, 2015 10:33 am

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 view
#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
Last edited by Jairo Barbosa on Thu Jul 09, 2015 11:00 am, edited 1 time in total.
User avatar
Jairo Barbosa
 
Posts: 180
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia

Re: La Biblia para android con Fivetouch

Postby Jairo Barbosa » Thu Jul 09, 2015 10:53 am

<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
Jairo Barbosa
 
Posts: 180
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia

Re: La Biblia para android con Fivetouch

Postby Antonio Linares » Thu Jul 09, 2015 2:06 pm

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 35350
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: La Biblia para android con Fivetouch

Postby Antonio Linares » Thu Jul 09, 2015 2:07 pm

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
Antonio Linares
Site Admin
 
Posts: 35350
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: La Biblia para android con Fivetouch

Postby Jairo Barbosa » Thu Jul 09, 2015 2:39 pm

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
Jairo Barbosa
 
Posts: 180
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia

Re: La Biblia para android con Fivetouch

Postby Marcelo Roggeri » Mon Mar 27, 2017 10:25 pm

Hola Jairo buenas tardes, quiero descargar la DBF pero no me lo permite, serias tan amable de subirla nuevamente?
Muchas gracias
Marcelo
FWH 6.12
xHarbour para Microsoft
BCC 5.5
PellesC 4.50.113
Verce 5.3
User avatar
Marcelo Roggeri
 
Posts: 105
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina

Re: La Biblia para android con Fivetouch

Postby Jairo Barbosa » Thu Nov 02, 2017 11:32 pm

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
Jairo Barbosa
 
Posts: 180
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia

Re: La Biblia para android con Fivetouch

Postby Marcelo Roggeri » Fri Nov 03, 2017 10:26 am

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 6.12
xHarbour para Microsoft
BCC 5.5
PellesC 4.50.113
Verce 5.3
User avatar
Marcelo Roggeri
 
Posts: 105
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina

Re: La Biblia para android con Fivetouch

Postby Jairo Barbosa » Sat Nov 11, 2017 4:24 pm

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

Un fuerte Abrazo
User avatar
Jairo Barbosa
 
Posts: 180
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia

Re: La Biblia para android con Fivetouch

Postby Marcelo Roggeri » Sun Nov 12, 2017 12:17 pm

Hola Jairo gracias por tomarte las molestias de responder.
Mi email es roggerimarcelo@gmail.com
Saludos
FWH 6.12
xHarbour para Microsoft
BCC 5.5
PellesC 4.50.113
Verce 5.3
User avatar
Marcelo Roggeri
 
Posts: 105
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina


Return to FiveTouch

Who is online

Users browsing this forum: No registered users and 1 guest