Compartir con vosotros un trozo de código

Posts: 118

Joined: Fri Dec 20, 2013 10:39 AM

Compartir con vosotros un trozo de código
Posted: Fri Jan 17, 2014 05:00 PM

Hola. Tengo una parte del código de mi programa principal de gestión. Querría compartirlo con vosotros por si a alguien le sirve de referencia para algo y también por si os apetece echarle un ojo y hacer cualquier comentario para mejorar mi forma de trabajar. No se si hay algún sitio para subirlo. Están los PRG, las DBF, los BMP, ... y el EXE.
Antonio, te lo mando y lo cuelgas en algún sitio? o lo puedo poner en el foro?

Cualquier crítica o comentario será bienvenido.
Un saludo.

Windows 10 + FWH 20.08 + BCC 7.4 + Harbour 3.2.0 + PSPad 5.0.3

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Compartir con vosotros un trozo de código
Posted: Fri Jan 17, 2014 07:47 PM

Puedes usar:

http://www.4shared.com

un excelente anfitrión para sus archivos.

Salu2

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Compartir con vosotros un trozo de código
Posted: Sun Jan 19, 2014 05:30 AM

+1

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

informaticaeloy

Posts: 118

Joined: Fri Dec 20, 2013 10:39 AM

Re: Compartir con vosotros un trozo de código
Posted: Sun Jan 19, 2014 03:47 PM

Hola. Como tengo una cuenta lo subo al dropbox

https://www.dropbox.com/s/z7me5lpy6v7k8tv/agenda.rar

Si a alguien le sirve como referencia genial, y si alguien lo revisa y me comenta mejoras en mi forma de programar pues entonces ......
genial:=genial*100

Un saludo

Windows 10 + FWH 20.08 + BCC 7.4 + Harbour 3.2.0 + PSPad 5.0.3

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Compartir con vosotros un trozo de código
Posted: Mon Jan 20, 2014 03:21 PM

Gracias.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: Compartir con vosotros un trozo de código
Posted: Mon Jan 20, 2014 05:33 PM

Muchas Gracias por compartir tu código .
Como nos dices que podemos hacer comentarios ( siempre constructivos

) sobre el código , quiero decirte que veo que en la edicion de la agenda usas los arrays para sostener los objetos get y las variables . Yo tambien los usaba hasta que descubrí los Hash que permiten que mi codigo sea mucho mas "comprensible" cuando se alarga el numero de lineas a realizar ....
Me explico un poco : tu codigo

Code (fw): Select all Collapse

    GNRL:={}
 
         OBJ_GNRL=ARRAY(FCOUNT())
         FOR N=1 TO FCOUNT()
             AADD(GNRL,FIELDGET(N))
         NEXT
         DBSETORDER(INDICE)
         GO POS

            DEFINE DIALOG EDIT_GNRL FROM 0, 0 TO 27, 72;
            TITLE  "Gestión de la Agenda";
            font ofontdlg

            @ 15,  15  SAY "Código" PIXEL SIZE 50,10 right
            IF NUEVO
               GNRL[1]=ULT
               @ 15,  70  GET OBJ_GNRL[1] VAR GNRL[1] PIXEL  SIZE 26,10  UPDATE;
                          VALID TRATAR_AGEN(1) COLOR CLR_AZULETE,CLR_AMARILLO
               OBJ_GNRL[1]:bLostFocus={||OBJ_GNRL[1]:SetColor(CLR_AMARILLO,CLR_AZULETE)}
               OBJ_GNRL[1]:bGotFocus={||OBJ_GNRL[1]:SetColor(CLR_AZULETE,CLR_AMARILLO)}

mi codigo seria asi :

Code (fw): Select all Collapse

    GNRL:= {=>}
    OBJ_GNRL:= {=>}

        FOR N=1 TO FCOUNT()
             GNRL[ fieldname(n) ] := FIELDGET(N)            
         NEXT
         DBSETORDER(INDICE)
         GO POS

            DEFINE DIALOG EDIT_GNRL FROM 0, 0 TO 27, 72;
            TITLE  "Gestión de la Agenda";
            font ofontdlg

            @ 15,  15  SAY "Código" PIXEL SIZE 50,10 right
            IF NUEVO

               GNRL["codigo"]=ULT

               @ 15,  70  GET OBJ_GNRL["codigo"] VAR GNRL["codigo"] PIXEL  SIZE 26,10  UPDATE;
                          VALID TRATAR_AGEN(1) COLOR CLR_AZULETE,CLR_AMARILLO
               OBJ_GNRL["codigo"]:bLostFocus={||OBJ_GNRL["codigo"]:SetColor(CLR_AMARILLO,CLR_AZULETE)}
               OBJ_GNRL["codigo"]:bGotFocus={||OBJ_GNRL["codigo"]:SetColor(CLR_AZULETE,CLR_AMARILLO)}

Joaquim Ferrer

Posts: 105

Joined: Sat Jan 14, 2012 03:46 PM

Re: Compartir con vosotros un trozo de código
Posted: Mon Jan 20, 2014 08:12 PM

Como apunte, intenta no incluir llamadas a función en la iteracion de bucles, es decir

Code (fw): Select all Collapse

for n:=1 to fcount() o for n:=1 to len()

es preferible

Code (fw): Select all Collapse

nCount:= fcount(); for n:=1 to nCount

o

Code (fw): Select all Collapse

nLen := len(a); for n:=1 to nLen

Tambien puedes simplificar este codigo

Code (fw): Select all Collapse

 OBJ_GNRL["codigo"]:bGotFocus={||OBJ_GNRL["codigo"]:SetColor(CLR_AZULETE,CLR_AMARILLO)}

Por este otro

Code (fw): Select all Collapse

 OBJ_GNRL["codigo"]:bGotFocus={|this|this:SetColor(CLR_AZULETE,CLR_AMARILLO)}

Fivewinner desde 1.9, programador PHP y Javascript, PWA & HTML5 evangelista

FiveTech Support Forums

Continue the discussion