Somme de variable et différence de termesRésolu

Question

Bnojour &#224; tous et &#224; toutes

Je suis sur un petit projet de g&#233;n&#233;rateur de grille de sudoku et je n'arrive pas sur un point (essentiel) :

&#164; J'ai une ligne de label "case0", index&#233; de 0 &#224; 8. Ils poss&#232;dent une valeur entre 1 et 9. en bout de ligne j'ai un textbox "somme". je souhaiterai que se textbox m'affiche la somme de tout les labels. la seule solution que j'ai trouv&#233; est de faire 
somme.text = case0(0).caption + case0(1).caption + case0(2).caption + ...
je cherche plus court parce que j'ai 9 lignes et 9 colonnes comme cela.

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

cs_CanisLupus · Accepted Answer

Salut,

une petite piste :

Dim i as integer
Dim total as integer

for i=0 to 8
   total = total + cint(case0(i).caption)
next

somme.text= total

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

jrivet · Answer

Bonsoir,

Tu peux essayer de te faire qu une seule matrice de controle Case0, ensuite de te faire une matrice de controle Somme

Et de faire une boucle du genre:

For i= 0 to 8
  somme(i) = case0(9* i + 0).caption + case0(9* i + 1).caption + case0(9* i + 2).caption + ....

next

Je ne sais pas si cela peux t'aider

cs_Acolyte · Answer

merci beaucoup c'est exactement ce qu'il me fallait.

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

jrivet · Answer

OUps ben le temps que je redige un truc, Me suis fait griller (:))

cs_Acolyte · Answer

wep pas grave merci quand m&#234;me de poster.

par contre :
Dim i As Integer
Dim total As Integer

For i = 0 To 8
total = total + CInt(case0(i).Caption)
Next i

somme(0).Text = total
Marche bien mais je n'arrvie pas &#224; le dupliquer pour arriver au ligne 9 to 26 / 27 to 
35 etc...

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

crenaud76 · Answer

For j = 0 to 8
  For i = 0 To 8
    total = total + CInt(case0(i + (j * 9)).Caption)
  Next 
  somme(j).Text = total
Next

devrait faire l'affaire ... 

CR

P.S. : Pourquoi t'embetes-tu a faire la sommes des valeurs d'une ligne pour un Sudoku ?

cs_Acolyte · Answer

arf... oui est non il faut juste qu'&#224; chaque ligne je divise par j enfin je croit...

++

et bonne prog.

____________________________________
Acolyte vous remercie...

_______________________by Acolyte __

Somme de variable et différence de termes

7 réponses

Discussions similaires