PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV Mobile 2024 → [WM17] Carton Loto optimiser code
[WM17] Carton Loto optimiser code
Started by Pingouin84, Jan., 04 2012 9:57 PM - 1 reply
#1
Registered member
13 messages
Posted on January, 04 2012 - 9:57 PM
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
Registered member
17 messages
Popularité : +1 (1 vote)
Posted on January, 05 2012 - 12:01 PM
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
→ Go back to WINDEV Mobile 2024