Parcours de TextBox pour calcul

Version imprimable

maintenant j'aurais une autre demande si vous voulez bien?
Je contrôle 64 TextBox afin de vérifier si elles sont vides de cette façon.

Code:

1
2
3
4
5
6
7
8
Function calculordi1()
        If b.seul.Checked = True Then
            compteur = 0
            For i As Integer = 1 To 64
                If DirectCast(Panel1.Controls("a" & i.ToString), TextBox).Text = "" Then compteur = compteur + 1
            Next
            a.erreur.Text = compteur
            a.erreur.Visible = True

En fait j'ai créé comme un tableau de 8 colonnes par 8 lignes ce qui fait mes 64 textbox
j'aimerais pouvoir contrôler une à une chaque textbox si elle sont vide (code ci-dessus) et en même temps contrôler le contenu des textbox à droite, à gauche, en haut et en bas et additionner le tout.
je ne sais pas si mon explication est bien claire ? merci

voila, j'ai essayé de tester la première textbox mais ca ne calcul pas. ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function calculordi1()
        If b.seul.Checked = True Then
            compteur = 0
            For i As Integer = 1 To 64
                If DirectCast(Panel1.Controls("a" & i.ToString), TextBox).Text = "" Then 'compteur = compteur + 1
                    If i = 1 Then
                        compteur = Val(a1.Text) + Val(a9.Text) + Val(a1.Text) + Val(a2.Text)
                    End If
                End If
            Next
            a.erreur.Text = compteur
            a.erreur.Visible = True

EDIT ____________________________

j'y suis arrivé ainsi, mais comment tester toutes les textbox dans une boucle et retenir le calcul le plus fort ?
voici le code que j'ai ébauché

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function calculordi1()
        If b.seul.Checked = True Then
            compteur = 0
            For i As Integer = 1 To 64
                'If DirectCast(Panel1.Controls("a" & i.ToString), TextBox).Text = "" Then 'compteur = compteur + 1
                If i = 1 And a1.Text <> "" Then
                    If a9.Text = "" Then
                        compteur = Val(a1.Text) + Val(a2.Text)
                    ElseIf a2.Text = "" Then
                        compteur = Val(a1.Text) + Val(a9.Text)
                    Else
                        compteur = Val(a1.Text) + Val(a9.Text) + Val(a1.Text) + Val(a2.Text)
                    End If
                End If
            Next

Pourquoi pas ainsi

Code:

1
2
3
4
5
6
7
8
9
10
11
 Private Function CountEmptyTexbox(container As Control ) As Integer
        Dim count As Integer = 0
        For Each ctrl In container.Controls
            If TypeOf ctrl Is TextBox Then
                If DirectCast(ctrl, TextBox).Text = String.Empty Then
                    count += 1
                End If
            End If
        Next
        Return count
    End Function

pour utiliser

Code:

1
2
dim count as integer
count  =CountEmptyTexbox(panel1)

Bonsoir,

Franchement, j'ai suivi jusqu'au comptage des textbox vides mais après je ne comprends plus rien...
pourquoi faire une boucle de 64 fois si c'est pour le faire quelque chose que sur occurrence 1 ?
votre dernier code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function calculordi1()
        If b.seul.Checked = True Then
            compteur = 0
            For i As Integer = 1 To 64
                'If DirectCast(Panel1.Controls("a" & i.ToString), TextBox).Text = "" Then 'compteur = compteur + 1
                If i = 1 And a1.Text <> "" Then
                    If a9.Text = "" Then
                        compteur = Val(a1.Text) + Val(a2.Text)
                    ElseIf a2.Text = "" Then
                        compteur = Val(a1.Text) + Val(a9.Text)
                    Else
                        compteur = Val(a1.Text) + Val(a9.Text) + Val(a1.Text) + Val(a2.Text)
                    End If
                End If
            Next

équivaut à ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function calculordi1()
        If b.seul.Checked = True Then
            compteur = 0
                If  a1.Text <> "" Then
                    If a9.Text = "" Then
                        compteur = Val(a1.Text) + Val(a2.Text)
                    ElseIf a2.Text = "" Then
                        compteur = Val(a1.Text) + Val(a9.Text)
                    Else
                        compteur = Val(a1.Text) + Val(a9.Text) + Val(a1.Text) + Val(a2.Text)
                    End If
                End If

16/11/2014, 21h07
rv26t

Bonjour

@ shayw

Citation:

Envoyé par shayw

Pourquoi pas ainsi

Ce n'est plus le sujet de la question (dont les réponses ont été proposées dans ce post et qu'il a adapté à son besoin).

La il veut faire le calcul avec les valeurs contenues dans une TextBox + celles adjacente (horizontalement et verticalement), passer à la TextBox suivante et refaire le calcul, garder la valeur la plus grande, puis continuer avec la textbox suivante, etc. Ses textBox représentant un tableau de 8 x 8.
16/11/2014, 21h33
shayw

Bonjour

Je viens de voir :?

Si tes textboxes sont

a1 a8

a57 a64

avec a1
tu veux additionner a1 + a2 + a9 ?

et passer à la textbox suivante a2
a2 + a1 + a10 ?

pas clair :roll:
17/11/2014, 17h23
pascb423

en fait rv26t a raison, il s'agit du tableau 8 x 8
textbox de a1 à a8, après textbox de a9 à a16, ect.
mais le problème c'est de savoir quel est le calcul le plus haut en additionant par exemple a1+a2+a1+a9 et pour a2+a1+a2+a3+a2+10 et pour par exemple une text box au centre a10+a9+a10+a11+a10+a2+a10+a18 calcul en croix
voilà, c'est un peu compliqué mais...