Directcast du message précédent

Version imprimable

17/11/2014, 19h17
pascb423

Directcast du message précédent

Bonsoir,
je sais que j'ai marqué ce problème comme résolu mais j'ai encore une petite question

est-il possible de rajouter un chiffre pour i.tostring dans directcast? j'aimerais ajouter à i 3 ou 4 ou 6

j'ai essayé ce code mais ca ne marche pas

Code:

DirectCast(Panel1.Controls("a" & i + 4.ToString), TextBox).Text

merci encore
17/11/2014, 19h24
rv26t
Citation:

Envoyé par pascb423

je suis un peu pointilleux mais comment ajouter 1 ou 2 ou 3 à i dans

Code:

DirectCast(Panel1.Controls("a" & i.ToString), TextBox).Text

j'ai essayé ca

Code:

DirectCast(Panel1.Controls("a" & i + 1.ToString), TextBox).Text

mais ca ne marche pas, merci

Ajouter (des nombres : i + 1) si i vaut 1 => 2

Code:

DirectCast(Panel1.Controls("a" & (i + 1).ToString), TextBox).Text

Concatener (des chaînes de caractère i.ToString & "1" ou i.ToString & 1.ToString) si i vaut 1 => 11
Code:

1 2 3 DirectCast(Panel1.Controls("a" & i.ToString & "1"), TextBox).Text ' ou DirectCast(Panel1.Controls("a" & i.ToString & 1.ToString), TextBox).Text
Le Cours VB.NET de Philippe Lasserre est une mine d'information, très bien pour apprendre.
Je te conseille d'étudier ce cours afin de progresser. ;)
17/11/2014, 19h48
pascb423
Citation:
Envoyé par rv26t

Ajouter (des nombres : i + 1) si i vaut 1 => 2

Code:

DirectCast(Panel1.Controls("a" & (i + 1).ToString), TextBox).Text

Concatener (des chaînes de caractère i.ToString & "1" ou i.ToString & 1.ToString) si i vaut 1 => 11

Code:

1 2 3 DirectCast(Panel1.Controls("a" & i.ToString & "1"), TextBox).Text ' ou DirectCast(Panel1.Controls("a" & i.ToString & 1.ToString), TextBox).Text

Le Cours VB.NET de Philippe Lasserre est une mine d'information, très bien pour apprendre.
Je te conseille d'étudier ce cours afin de progresser. ;)
j'ai essayé la première solution puisque je dois ajouter 4 à i c-a-dire si i vaut 1 ca fera 1+4=5 avec

la première solution mais ça me renvoi une erreur qui est:

Informations supplémentaires*: Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Label' en type 'System.Windows.Forms.TextBox'.
17/11/2014, 19h56
rv26t

Citation:

Envoyé par pascb423

la première solution mais ça me renvoi une erreur qui est:
Informations supplémentaires*: Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Label' en type 'System.Windows.Forms.TextBox'.

Citation:

Envoyé par pascb423

j'ai 64 textbox nomées de a1 a a64

Tu travailles avec des TextBox ou des Label ?
De toute façon la solution est évidente.
Sinon Sehnsucht te donne la solution dans ce post
17/11/2014, 20h32
pascb423

Citation:

Envoyé par rv26t

Tu travailles avec des TextBox ou des Label ?
De toute façon la solution est évidente.
Sinon Sehnsucht te donne la solution dans ce post

je ne vois toujours pas la solution?
17/11/2014, 20h38
rv26t

Citation:

Envoyé par Sehnsucht

la propriété Text est définie au niveau de la classe Control, ce qui est le résultat de l'indéxeur sur Controls donc pas besoin de passer par TextBox

Il est donc inutile d'utiliser le directcast. Celui-ci pourra servir pour accéder à des propriétés spécifiques d'un contrôle.

Code:

Panel1.Controls("a" & (i + 1).ToString)).Text
17/11/2014, 20h46
pascb423

Citation:

Envoyé par rv26t

Il est donc inutile d'utiliser le directcast. Celui-ci pourra servir pour accéder à des propriétés spécifiques d'un contrôle.

Code:

Panel1.Controls("a" & (i + 1).ToString)).Text

il me retourne une autre erreur:

La référence d'objet n'est pas définie à une instance d'un objet.?
17/11/2014, 21h15
shayw

ton control "a" & (i + 1).ToString) n'existe pas

quelle est la valeur de i ?
17/11/2014, 21h22
pascb423

Citation:

Envoyé par shayw

ton control "a" & (i + 1).ToString) n'existe pas

quelle est la valeur de i ?

dans le premier passage i = 1 donc ça devrais faire 2 et a2 existe?
17/11/2014, 21h37
shayw

quelle est la valeur de i au moment de l'erreur ?
quand l'erreur va être relevé vérifie la valeur de i
17/11/2014, 21h39
pascb423

Citation:

Envoyé par shayw

quelle est la valeur de i au moment de l'erreur ?
quand l'erreur va être relevé vérifie la valeur de i

voilà mon code qui bug

Code:

If i = 1 And Panel1.Controls("a" & i.ToString).Text = "" And Panel1.Controls("b" & i.ToString).Text = "" And (a2.Text <> "" Or a9.Text <> "") Then

et quand je met le code avec le (i + 1) ça bug
17/11/2014, 21h59
shayw

tu n'as pas écrit if a =1 .....
dans une boucle ?

for i =
17/11/2014, 22h53
rv26t

Et b sort d'ou ? 8O
Il est dans Panel1 ?
Il existe un b2 ?
etc.
(en tout cas, comme l'a dit shayw, un des contrôles n'existe pas, dans la série des a ou des b dans le conteneur panel1)

Une seule ligne de code ne donne pas assez d'info pour t'aider. Si ca se trouve l'erreur est lié avec b.
Du coup je réitère ma question : Tu travailles avec des TextBox ou des Label ? Voire les 2 ?
Qu'est ce qui correspond à quoi ?

Tu as les principes, il faut les conprendre, ensuite tu pourras progresser.
Tu as aussi les points d'arrêt, et le survol d'une variable avec la souris pour voir sa valeur, les espions. Tout cela te permet de déboguer.

Citation:

Envoyé par rv26t

Et b sort d'ou ? 8O
Il est dans Panel1 ?
Il existe un b2 ?
etc.
(en tout cas, comme l'a dit shayw, un des contrôles n'existe pas, dans la série des a ou des b dans le conteneur panel1)

Une seule ligne de code ne donne pas assez d'info pour t'aider. Si ca se trouve l'erreur est lié avec b.
Du coup je réitère ma question : Tu travailles avec des TextBox ou des Label ? Voire les 2 ?
Qu'est ce qui correspond à quoi ?

Tu as les principes, il faut les conprendre, ensuite tu pourras progresser.
Tu as aussi les points d'arrêt, et le survol d'une variable avec la souris pour voir sa valeur, les espions. Tout cela te permet de déboguer.

oui, les "b" sont des labels et les "a" sont des textbox.
je vous met le début de la programmation à toute fin utile
je vais essayer ce que vous me dites.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Function calculordi1()
        If b.seul.Checked = True Then
            compteur = 0
            compteur2 = 0
            compteur3 = 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 Panel1.Controls("a" & i.ToString).Text = "" And b1.Text = "" And (Panel1.Controls("a" & (i + 1).ToString).Text <> "" Or a9.Text <> "") Then
                    If a2.Text >= a9.Text Then total = Val(a2.Text) + 1
                    If a9.Text >= a2.Text Then total = Val(a9.Text) + 1
                    If (Val(b.dificulte.Text) = 1 And total = 10) Or (Val(b.dificulte.Text) = 2 And total = 13) Or (Val(b.dificulte.Text) = 3 And total = 16) Or (Val(b.dificulte.Text) = 4 And total = 21) Or (Val(b.dificulte.Text) = 5 And total = 31) Then
                        If Val(a2.Text) = total - 2 Then
                            total = Val(a2.Text) + 1
                        ElseIf Val(a9.Text) = total - 2 Then
                            total = Val(a9.Text) + 1
                        Else
                            total = total - 2
                        End If
                    End If
                    If (Val(b.dificulte.Text) = 1 And total < 10) Or (Val(b.dificulte.Text) = 2 And total < 13) Or (Val(b.dificulte.Text) = 3 And total < 16) Or (Val(b.dificulte.Text) = 4 And total < 21) Or (Val(b.dificulte.Text) = 5 And total < 31) Then
                        nomcelluleseul = b1.Name
                        nomcelluleseula = a1.Name
                        un = total + Val(a2.Text)
                        deux = total + Val(a9.Text)
                        If un = total Then un = 0
                        If deux = total Then deux = 0
                        compteur = CInt(un) + CInt(deux)
                        compteur2 = compteur
                        compteur3 = compteur3 + 1
                        valcelluleseul = total
                    End If
                End If
                If i = 2 And a2.Text = "" And b2.Text = "" And (a3.Text <> "" Or a10.Text <> "" Or a1.Text <> "") Then
                    If a3.Text >= a10.Text And a3.Text >= a1.Text Then total = Val(a3.Text) + 1
                    If a10.Text >= a3.Text And a10.Text >= a1.Text Then total = Val(a10.Text) + 1
                    If a1.Text >= a10.Text And a1.Text >= a3.Text Then total = Val(a1.Text) + 1
                    If (Val(b.dificulte.Text) = 1 And total = 10) Or (Val(b.dificulte.Text) = 2 And total = 13) Or (Val(b.dificulte.Text) = 3 And total = 16) Or (Val(b.dificulte.Text) = 4 And total = 21) Or (Val(b.dificulte.Text) = 5 And total = 31) Then
                        If Val(a3.Text) = total - 2 Then
                            total = Val(a3.Text) + 1
                        ElseIf Val(a1.Text) = total - 2 Then
                            total = Val(a1.Text) + 1
                        ElseIf Val(a10.Text) = total - 2 Then
                            total = Val(a10.Text) + 1
                        Else
                            total = total - 2
                        End If
                    End If
                    If (Val(b.dificulte.Text) = 1 And total < 10) Or (Val(b.dificulte.Text) = 2 And total < 13) Or (Val(b.dificulte.Text) = 3 And total < 16) Or (Val(b.dificulte.Text) = 4 And total < 21) Or (Val(b.dificulte.Text) = 5 And total < 31) Then
                        un = total + Val(a3.Text)
                        deux = total + Val(a1.Text)
                        trois = total + Val(a10.Text)
                        If un = total Then un = 0
                        If deux = total Then deux = 0
                        If trois = total Then trois = 0
                        compteur = CInt(un) + CInt(deux) + CInt(trois)
                        If compteur2 < compteur Then
                            compteur2 = compteur
                            nomcelluleseul = b2.Name
                            nomcelluleseula = a2.Name
                            valcelluleseul = total
                        End If
                        compteur3 = compteur3 + 1
                    End If
                End If
                If i = 10 And a10.Text = "" And b10.Text = "" And (a9.Text <> "" Or a11.Text <> "" Or a2.Text <> "" Or a18.Text <> "") Then
                    If a9.Text >= a11.Text And a9.Text >= a2.Text And a9.Text >= a18.Text Then total = Val(a9.Text) + 1
                    If a11.Text >= a9.Text And a11.Text >= a2.Text And a11.Text >= a18.Text Then total = Val(a11.Text) + 1
                    If a2.Text >= a9.Text And a2.Text >= a11.Text And a2.Text >= a18.Text Then total = Val(a2.Text) + 1
                    If a18.Text >= a9.Text And a18.Text >= a11.Text And a18.Text >= a2.Text Then total = Val(a18.Text) + 1
                    If (Val(b.dificulte.Text) = 1 And total = 10) Or (Val(b.dificulte.Text) = 2 And total = 13) Or (Val(b.dificulte.Text) = 3 And total = 16) Or (Val(b.dificulte.Text) = 4 And total = 21) Or (Val(b.dificulte.Text) = 5 And total = 31) Then
                        If Val(a9.Text) = total - 2 Then
                            total = Val(a9.Text) + 1
                        ElseIf Val(a11.Text) = total - 2 Then
                            total = Val(a11.Text) + 1
                        ElseIf Val(a2.Text) = total - 2 Then
                            total = Val(a2.Text) + 1
                        ElseIf Val(a18.Text) = total - 2 Then
                            total = Val(a18.Text) + 1
                        Else
                            total = total - 2
                        End If
                    End If
                    If (Val(b.dificulte.Text) = 1 And total < 10) Or (Val(b.dificulte.Text) = 2 And total < 13) Or (Val(b.dificulte.Text) = 3 And total < 16) Or (Val(b.dificulte.Text) = 4 And total < 21) Or (Val(b.dificulte.Text) = 5 And total < 31) Then
                        un = total + Val(a9.Text)
                        deux = total + Val(a11.Text)
                        trois = total + Val(a2.Text)
                        quatre = total + Val(a18.Text)
                        If un = total Then un = 0
                        If deux = total Then deux = 0
                        If trois = total Then trois = 0
                        If quatre = total Then quatre = 0
                        compteur = CInt(un) + CInt(deux) + CInt(trois) + CInt(quatre)
                        If compteur2 < compteur Then
                            compteur2 = compteur
                            nomcelluleseul = b10.Name
                            nomcelluleseula = a10.Name
                            valcelluleseul = total
                        End If
                        compteur3 = compteur3 + 1
                    End If
                End If
            Next

ta loop for va de 1 à 64
que se passe t'il quand i = 64
à cette ligne de code
Code:

1 2 If i = 1 And Panel1.Controls("a" & i.ToString).Text = "" And b1.Text = "" And (Panel1.Controls("a" & (i + 1).ToString).Text <> "" Or a9.Text <> "") Then If a2.Text >= a9.Text Then total = Val(a2.Text) + 1
plus précisément à

Code:

(Panel1.Controls("a" & (i + 1).ToString).Text

?
"a" & (i + 1).ToString = a65

Citation:
Envoyé par shayw
ta loop for va de 1 à 64
que se passe t'il quand i = 64
à cette ligne de code
Code:

1 2 If i = 1 And Panel1.Controls("a" & i.ToString).Text = "" And b1.Text = "" And (Panel1.Controls("a" & (i + 1).ToString).Text <> "" Or a9.Text <> "") Then If a2.Text >= a9.Text Then total = Val(a2.Text) + 1
plus précisément à

Code:

(Panel1.Controls("a" & (i + 1).ToString).Text

?
"a" & (i + 1).ToString = a65
mais je pense que comme je limite avec if i = 1 ca ne va pas plus haut et "a" & (i + 1) i devrait valoir 2 ?
oui, vous avez raison je vient de tester avec "a" & (1 + 1) et la ça marche,
alors quand il voit i + 1 il incrémente jusqu'a dépasser 64 et la je comprend l'erreur!
mais comment lui dire alors que j'aimerais incrémenter i de 1 seulement et que ça s’arrête?
en fait avec ca j'aimerais remplacer le a2.text par Panel1.Controls("a" & (i + 1).ToString).Text

18/11/2014, 09h03
shayw

que doit faite ta sub ordi ?

avec ton code spaghetti tu ne vas pas t'en sortir ;)
18/11/2014, 09h05
pascb423

Citation:

Envoyé par shayw

que doit faite ta sub ordi ?

avec ton code spaghetti tu ne vas pas t'en sortir ;)

je pourrais programmer comme l'exemple les 64 textbox mais c'est fastidieux, c'est pour cela que je voulais remplacer mes a1 à a64 par i !!!
18/11/2014, 09h14
shayw

tu ne répond pas à la question
que doit faite ta sub ordi ?
A part que tu as 64 textbox le reste rien compris :?
18/11/2014, 09h22
pascb423

Citation:

Envoyé par shayw

tu ne répond pas à la question
que doit faite ta sub ordi ?
A part que tu as 64 textbox le reste rien compris :?

en fait, il y a au début du lancement du programme quelques textbox avec des chiffres choisi aléatoirement et le but de la fonction ordi est de trouver à coté des chiffres sur le plateau le plus haut calcul pour additionner le chiffre qui est sur le plateau avec celui que l'ordi va mettre, voilà
18/11/2014, 10h06
shayw

Citation:

Envoyé par pascb423

en fait, il y a au début du lancement du programme quelques textbox avec des chiffres choisi aléatoirement et le but de la fonction ordi est de trouver à coté des chiffres sur le plateau le plus haut calcul pour additionner le chiffre qui est sur le plateau avec celui que l'ordi va mettre, voilà

Super clair 8O
18/11/2014, 12h38
rv26t

Citation:

Envoyé par pascb423

en fait, il y a au début du lancement du programme quelques textbox avec des chiffres choisi aléatoirement et le but de la fonction ordi est de trouver à coté des chiffres sur le plateau le plus haut calcul pour additionner le chiffre qui est sur le plateau avec celui que l'ordi va mettre, voilà

J'avais compris que tu voulais faire des calculs d'ajout en croix avec les cases (textbox) pour trouver le résultat de calcul maxi. ~~(mais je croyais que tu voulais ajouter toutes les valeurs)~~

Bon, Résumons, nous avons un plateau de 64 cases (textbox) de 8x8
Des nombres sont placé aléatoirement sur quelques cases (dans les textbox).
On parcours toutes les cases.
Si la case (textbox) est vide, on recherche le plus grand nombre dans les cases (textbox) adjacentes (haut, bas, droite, gauche) et on lui ajoute le nombre que l'ordi a généré automatiquement. Ce résultat est mis dans cette case (textbox) vide. On continu la boucle.

Avant de se lancer dans ce genre de chose, on réfléchi sur papier, on met une méthode/algorithme au point, et quand elle/il fonctionne, on code.

Tu as plusieurs approche.
- Tu traites tous les cas individuellement (très lourd - ce que tu veux éviter)
- tu fais une table des traitements que tu interprétes ensuite par code (encore assez lourd, puisque tu doit référencer tous les cas)
- tu crés un algorithme de traitement (plus complexe - mais moins de code)
- tu fais un mixe des solutions pour simplifier

Une orientation parmis d'autres
- tu traites les 4 angles a part (4 méthodes)
- tu traites les 4 bords à part (4 méthodes - 2 si tu réfléchis bien - voire même une - 3 si tu veux suivre une logique de parcours des cases linéairement)
- tu traite le centre (une méthode)

[Edit]
Autre orientation
Un algo qui traite tout,
Il suffit de vérifier les bords (avec des if) et tu ne traites pas les zones hors plateau
[/Edit]

Décompose tes traitements
- recherche du plus grand nombre et calcul.
- contrôle du résultat du calcul afin d'ajuster celui-ci suivant les contrainte de ton/tes labels et nouveau résultat.

Citation:

Envoyé par rv26t

Si la case (textbox) est vide, on recherche le plus grand nombre dans les cases (textbox) adjacentes (haut, bas, droite, gauche) et on lui ajoute le nombre que l'ordi a généré automatiquement. Ce résultat est mis dans cette case (textbox) vide.

Si c'est le fonctionnement que tu attends.

L'init

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub frmJeuNombreAleatoire_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        rempliPlateau()
    End Sub
    Private GenerateurNombre As System.Random = New System.Random()
    Sub rempliPlateau()
        Dim n As Integer = 0
        For x As Integer = 1 To 64
            n = GenerateurNombre.Next(1, 50)
            If n Mod 3 = 0 Then Panel1.Controls("TextBox" & x).Text = n.ToString
        Next
    End Sub

recherche le plus grand nombre dans les cases

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Function CalculCase(UneCase As Integer) As Integer
        Dim val As Integer = 0
        ' calcul case haut
        If UneCase > 8 Then
            If (Panel1.Controls("TextBox" & UneCase - 8).Text <> "") AndAlso (Panel1.Controls("TextBox" & UneCase - 8).Text > val) Then val = Panel1.Controls("TextBox" & UneCase - 8).Text
        End If
        ' calcul case bas
        If UneCase < 57 Then
            If (Panel1.Controls("TextBox" & UneCase + 8).Text <> "") AndAlso (Panel1.Controls("TextBox" & UneCase + 8).Text > val) Then val = Panel1.Controls("TextBox" & UneCase + 8).Text
        End If
        ' calcul case gauche
        If UneCase Mod 8 <> 1 Then
            If (Panel1.Controls("TextBox" & UneCase - 1).Text <> "") AndAlso (Panel1.Controls("TextBox" & UneCase - 1).Text > val) Then val = Panel1.Controls("TextBox" & UneCase - 1).Text
        End If
        ' calcul case droite
        If UneCase Mod 8 <> 0 Then
            If (Panel1.Controls("TextBox" & UneCase + 1).Text <> "") AndAlso (Panel1.Controls("TextBox" & UneCase + 1).Text > val) Then val = Panel1.Controls("TextBox" & UneCase + 1).Text
        End If
        Return val
    End Function

Appel

Code:

1
2
3
4
5
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For i As Integer = 1 To 64
            If Panel1.Controls("TextBox" & i).Text = "" Then Panel1.Controls("TextBox" & i).Text = CalculCase(i) + GenerateurNombre.Next(1, 50)
        Next
    End Sub

Voici donc une base de travail (remplace "TextBox" par "a")

18/11/2014, 21h57
Sehnsucht

@rvt26t: quelques petites remarques sur le code (rien de bien dramatique) ; tu fais appel à Randomize pour rien et tu as un random (r) défini au niveau de la classe qui ne sert à rien (mais qui devrait plutôt servir à remplacer les random définis dans les méthodes à chaque fois. De plus plutôt que de faire des tests sur les valeurs de UneCase pour les cas spécifiques ; pour ne pas directement appeler l'indéxeur Controls et vérifier qu'on n'obtient pas Nothing (ce qui éliminera le cas où du plantage sur un controle mal nommé donc non-trouvé au passage) ?

Sinon j'ai toujours pas compris pourquoi un tel niveau de complexité ; déjà un code qui repose sur la manière de nommer les controles c'est pas la panacée (je dirais même que c'est jamais bon mais c'est déjà plus subjectif).
Pourquoi ne pas "simplement" utiliser un TableLayoutPanel avec 8 lignes et 8 colonnes en mettant un TextBox/Label/Whatever dedans ; après il suffira juste de boucler sur les éléments du TableLayoutPanel (et l'accès aux éléments mitoyens en sera également simplifié)

Cordialement !

L'utilisation du TableLayoutPanel est plus simple pour parcourir les éléments. Il faut avouer que si le besoin avait été exprimé clairement dés le début.
Dans sa toute première discussion sur ce sujet, je lui avais montré avec une collection, lui indiquant que c'était plus propre. (que les noms)
Citation:
Citation:

Envoyé par pascb423

j'ai 64 textbox nomées de a1 a a64
j'aimerais tester dans une boucle les textbox vides
Citation:
Envoyé par rv26t
Pour traiter proprement si tous les TextBox (et seulement ceux-ci) sont dans un conteneur (panel, groupbox (, form)).
Code:

1 2 3 4 5 Sub TestTextBox(ByVal conteneur As Control) For Each txt As TextBox In conteneur.Controls.OfType(Of TextBox)() If txt.Text = "" Then MessageBox.Show("vide") Else MessageBox.Show("renseigné") Next End Sub
Appel TestTextBox(Panel1).
(Pour les nombres aléatoires j'avais changé et pas fait le ménage, désolé) correction faite.

merci Sehnsucht