Discussion :

[Jodu42]

Salut à tous

Voilà en fait chuis un peu débutant (même beaucoup) en VB.net, que j'étudie cette année car je suis en première année de STS Informatique de gestion.

En fait je m'amusais à faire une sorte de coffre fort pour trouver une combinaison, et ouvrir donc ce coffre !

Le principe est simple, 3 chiffres, 3 textbox avec 3 labels.
Un random (1-10) est effectué dès qu'on clique sur le bouton "jouer" pour affecter un chiffre par variable (3 variables donc, une par TB)
La première textbox seulement est enabled=true , si le chiffre tapé est supérieur a la valeur préalablement affecté, le label1 affichera le caractère " - " pour dire que le chiffre est trop grand, qu'il faut allez plus bas.
Il en est de même pour le " + ".
Si le bon chiffre est trouvé, le label marque "Ok" et la 2è textbox se déverrouille.

J'en viens a mon soucis : j'ai fait un timer avec une progressbar, le "joueur" a 15 secondes pour trouver la combinaison, a la fin de ce délai le programme ouvre une msgbox et dit que c'est terminé et tout se retrouve bloqué.
En revanche si il trouve, c'est OK évidemment, stop timer et tout ça...

Donc mon problème oui ! En fait j'aimerais qu'une fois qu'un bon chiffre est trouvé, le curseur passe de lui même a la textbox qui suit.
Le tabindex est bien défini car en appuyant sur "tab" tout défile correctement.

Je n'ai aucune idée de comment faire, j'ai pas vu ça du tout en cours et je dois dire que j'ai rien trouvé sur le Ouèb (si déja c'est possible ?)

Merci d'avance

[tomlev]

Cette instruction devrait faire l'affaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textBox1.SelectNextControl()

(ça tient compte du tab index)

sinon, pour le faire indépendemment du tab index :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textBox2.Focus()

[Jodu42]

Salut !

Oui, merci beaucoup, ça marche très bien, j'ai préféré utiliser le focus !

J'ai également un petit peu cherché mais j'ai rien trouvé (enfin je n'ai pas réussi à faire fonctionner) sur le moyen de remplacer automatiquement une valeur saisie dans une textbox, de manière à ce que, si le chiffre saisi est incorrect, l'utilisateur n'ait pas besoin de l'effacer manuellement pour le remplacer.

J'ai également rajouté un son "clap" quand la combinaison est trouvée, mais contrairement aux images, je ne sais pas comment l'intégrer directement dans le projet... En effet, l'executable ne marche que sur mon ordinateur vu que le son est cherché sur un chemin propre à mon ordinateur.

Je vous remercie encore

[tomlev]

J'ai également un petit peu cherché mais j'ai rien trouvé (enfin je n'ai pas réussi à faire fonctionner) sur le moyen de remplacer automatiquement une valeur saisie dans une textbox, de manière à ce que, si le chiffre saisi est incorrect, l'utilisateur n'ait pas besoin de l'effacer manuellement pour le remplacer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.Text = ""

ou alors j'ai pas compris ce que tu cherches à faire ?

J'ai également rajouté un son "clap" quand la combinaison est trouvée, mais contrairement aux images, je ne sais pas comment l'intégrer directement dans le projet... En effet, l'executable ne marche que sur mon ordinateur vu que le son est cherché sur un chemin propre à mon ordinateur.

Qu'est-ce qui te pose problème ? C'est le même principe que pour les images...

[Jodu42]

Salut.

Je vais illustrer mon exemple :



Donc voilà les 3 textbox et 3 labels dont je parlais.
La textbox1 a la valeur correcte, donc elle déverrouille la deuxième.
On voit que la valeur saisie est trop grande (grâce au caractère " - " du label 2), donc on va ressaisir une autre valeur.

Ce qu'il se passe : il faut utiliser la touche d'effacement, puis saisir un autre chiffre, etc si le chiffre ne convient pas.

Ce que je veux : si le chiffre n'est pas bon, je tape directement le nouveau chiffre, qui remplacera l'ancien.

Mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
If TextBox1.Text > nb1.ToString Then
            LB1.Text = "-"
            LB1.BackColor = Color.LightPink
        Else
            If TextBox1.Text < nb1.ToString Then
                LB1.Text = "+"
                LB1.BackColor = Color.LightSkyBlue
            Else
                If TextBox1.Text = nb1.ToString Then
                    LB1.Text = nb1
                    LB1.BackColor = Color.LightSeaGreen
                    TextBox2.Enabled = True
                    TextBox2.Focus()
                End If
            End If
        End If

Si je met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If TextBox1.Text > nb1.ToString Then
            LB1.Text = "-"
            LB1.BackColor = Color.LightPink
            Textbox.text = ""
        Else

La textbox se videra toute seule dès la saisie du chiffre, et je ne pourrai pas savoir si il faut mettre une valeur supérieure ou inférieure.


Ensuite, pour les images, j'ai utilisé deux picturebox, donc aucun soucis.

Pour le son voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
My.Computer.Audio.Play("C:\mon_chemin\clap.wav")

Voilà le problème... la source est sur mon PC.
Je recherche actuellement comment l'intégrer dans mon projet, je pense que je vais trouver à tête reposée

[tomlev]

A mon avis, plutot que d'effacer le texte, il vaudrait mieux le sélectionner : comme ça il reste visible, mais il suffit de taper quelque chose pour l'écraser. Tu peux sélectionner tout le contenu de la TextBox avec la méthode SelectAll


Pour le son, il suffit que tu ajoutes le fichier wav comme ressource dans ton appli. Ensuite, tu peux y accéder via My.Resources sous la forme d'un Stream, et tu le lis comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

My.Computer.Audio.Play(My.Resources.clap, AudioPlayMode.Background)

[Jodu42]

A mon avis, plutot que d'effacer le texte, il vaudrait mieux le sélectionner : comme ça il reste visible, mais il suffit de taper quelque chose pour l'écraser. Tu peux sélectionner tout le contenu de la TextBox avec la méthode SelectAll

Très fort, c'est le résultat que j'attendais (que mon chiffre s'efface) et ta méthode est de loin la plus simple, je n'avais pas la propriété.

Pour le son, j'ai essayé ton truc, j'ai mis quelques minutes à trouver comment intégrer une ressource mais j'ai réussi, et le code que tu m'as donné marche évidemment à la perfection

Je te remercie grandement pour ton aide, c'est vraiment important dans un forum comme celui-ci que les débutants comme moi soient aidés !

Encore merci !