PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio | Mensajes recientes | Conéctese... |  | Español FR
Inicio → WINDEV Mobile 2024 → [WM17] Carton Loto optimiser code
[WM17] Carton Loto optimiser code
Iniciado por Pingouin84, 04,ene. 2012 21:57 - 1 respuesta
#1
Miembro registrado
13 mensajes
Publicado el 04,enero 2012 - 21:57
bonjours a tous,

je développement actuellement un programme pour gérer mes carton de loto.

ma base de donnée est composé comme sa:
-------------------------------------
I Carton I Ligne I Numéro I
-------------------------------------
I IDCarton I IDCarton I Nombre I
I Propriétaire I Quine I Sortie I
I NumSérie I I IDLigne I
I CartonPlein I I I
-------------------------------------

et voici le code que je voudrait optimiser:

Carton.Proprietaire = SAI_Propriétaire
Carton.NumSerie = SAI_NumSérie
HAjoute(Carton)
Ligne.IDCarton = Carton.IDCarton
HAjoute(Ligne)
Numéro.IDLigne = Ligne.IDLigne
Numéro.Nombre = SAI_A1
HAjoute(Numéro)
Numéro.Nombre = SAI_A2
HAjoute(Numéro)
Numéro.Nombre = SAI_A3
HAjoute(Numéro)
Numéro.Nombre = SAI_A4
HAjoute(Numéro)
Numéro.Nombre = SAI_A5
HAjoute(Numéro)
Numéro.Nombre = SAI_A6
HAjoute(Numéro)
Numéro.Nombre = SAI_A7
HAjoute(Numéro)
Numéro.Nombre = SAI_A8
HAjoute(Numéro)
Numéro.Nombre = SAI_A9
HAjoute(Numéro)
HAjoute(Ligne)
Numéro.IDLigne = Ligne.IDLigne
Numéro.Nombre = SAI_B1
HAjoute(Numéro)
Numéro.Nombre = SAI_B2
HAjoute(Numéro)
Numéro.Nombre = SAI_B3
HAjoute(Numéro)
Numéro.Nombre = SAI_B4
HAjoute(Numéro)
Numéro.Nombre = SAI_B5
HAjoute(Numéro)
Numéro.Nombre = SAI_B6
HAjoute(Numéro)
Numéro.Nombre = SAI_B7
HAjoute(Numéro)
Numéro.Nombre = SAI_B8
HAjoute(Numéro)
Numéro.Nombre = SAI_B9
HAjoute(Numéro)
HAjoute(Ligne)
Numéro.IDLigne = Ligne.IDLigne
Numéro.Nombre = SAI_C1
HAjoute(Numéro)
Numéro.Nombre = SAI_C2
HAjoute(Numéro)
Numéro.Nombre = SAI_C3
HAjoute(Numéro)
Numéro.Nombre = SAI_C4
HAjoute(Numéro)
Numéro.Nombre = SAI_C5
HAjoute(Numéro)
Numéro.Nombre = SAI_C6
HAjoute(Numéro)
Numéro.Nombre = SAI_C7
HAjoute(Numéro)
Numéro.Nombre = SAI_C8
HAjoute(Numéro)
Numéro.Nombre = SAI_C9
HAjoute(Numéro)

merci d'avance de votre aide
#2
Miembro registrado
17 mensajes
Popularité : +1 (1 vote)
Publicado el 05,enero 2012 - 12:01
Carton.Proprietaire = SAI_Propriétaire
Carton.NumSerie = SAI_NumSérie
HAjoute(Carton)

AssocieLigne("A")
AssocieLigne("B")
AssocieLigne("C")

///////
PROCEDURE AssocieLigne(sType)

x est un entier

HRAZ(Ligne)
Ligne.IDCarton = Carton.IDCarton
HAjoute(Ligne)

POUR x = 1 A 9
Numéro.IDLigne = Ligne.IDLigne
Numéro.Nombre = {"SAI_" + sType + NumériqueVersChaîne(x)}
HAjoute(Numéro)
FIN
→ Volver a WINDEV Mobile 2024