Ma première application en VB.

Version imprimable

Bonjour tout le monde.

Je viens de me mettre au visual basic et j'utilise Microsoft Visual Basic 2008 Express. J'ai saisi quelques bases mais il y a certaines choses sur lesquelles je bloque, et je vous assure que je me suis creusé la tête avant de vous poser ces questions, je n'aime pas trop demander mais là je sèche vraiment. Alors voilà je vais essayer d'expliquer ce avec quoi j'ai du mal le plus clairement possible, en espérant que je serais suffisamment clair pour vous (comme on dit: un problème correctement expliqué est un problème à moitié résolu ^^)

Je souhaite créer avec Visual Basic 2008 une application qui, lorsqu'on clic sur un bouton, ça écrive quelque chose dans une zone de saisie de texte.

Par exemple, je souhaite que lorsqu'on l'utilisateur écrive quelque chose dans un Champ de texte (que je nomme ChampText, dans l'exemple ci dessous c'est "blabla") puis appuie sur un bouton que je nommerais"IF"
Ca me crée dans une zone de texte un:
Code:

1 2 3 4 5 6 IF (blabla) ELSE END
Bon, ça c'est fait, voici le code que j'ai assigné au bouton "IF":
Code:

1 2 TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Chr(9) + "IF" + " (" + ChampText.Text + ")" + Environment.NewLine + Chr(9) + Chr(9) + Environment.NewLine + Chr(9) + "ELSE" + Environment.NewLine + Chr(9) + Chr(9) + Environment.NewLine + Chr(9) + "END" + Environment.NewLine + TextBox1.Text.Substring(TextBox1.SelectionStart) ChampText.Clear()
Ainsi ca marche très bien.
Mais c'est après que je bloque... Je voudrais que lorsque l'utilisateur cliquera entre le IF et le ELSE déja insérés dans la zone de texte, son curseur soit à une tabulation par rapport au bord de ma TextBox1 et lorsqu'il recliquera de nouveau sur le bouton "IF" , ça écrira un nouveau IF, ELSE et END avec cette fois 2 tabulation par rapport au bord comme ci dessous:
Code:

1 2 3 4 5 6 7 8 9 10 IF () IF () ELSE END ELSE END
Hors, là ce que j'obtiens dans ma TextBox1 avec ce code c'est ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 IF () IF () ELSE END ELSE END
Qu'est ce qui pèche dans mon code? Je ne sais pas trop ou est mon erreur...

Seconde question:

En cliquant sur un bouton, comment puis-je afficher une fenêtre proposant à l'utilisateur d'enregistrer le contenu de sa TextBox1 dans un fichier *.txt ?

Troisième question !

J'ai crée une zone de saisie de Texte que j'apelle "ChampNum". Je désirerais qu'il soit possible pour l'utilisateur de ne saisir que des chiffres dedans. Si l'utilisateur tente de saisir une lettre, il reçoit un message d'erreur lui indiquant qu'il n'est possible d'écrire que des chiffres dedans ! Comment procéder ?

Dernière question...

Je souhaite que si l'utilisateur saisisse une valeur numérique (dans l'exemple la valeur saisie est "6" dans "ChampNum" puis click sur le bouton que j'ai nommé "BLOCK", celà écrive dans le TextBox1:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Block (1) Block (2) Block (3) Block (4) Block (5) Block (6)
Quel est dans ce cas le Code à associer au bouton "block" ? Ou du moins, quelles dont les fonctions à utiliser et comment fonctionnent ces fonctions?

Voilà ! Je vous remercie d'avance si vous prenez la peine de répondre et veuillez me pardonner ma N00bitude !! Cordialement,

Denis

Salut,

Je pense que je peux apporter une solutions aux 3 dernières questions.

Citation:

Envoyé par Denis61400

Seconde question:

En cliquant sur un bouton, comment puis-je afficher une fenêtre proposant à l'utilisateur d'enregistrer le contenu de sa TextBox1 dans un fichier *.txt ?

Il faut utiliser le contrôle SaveFileDialog pour demander à l'utilisateur le chemin d'enregistrement. Il y a peut être un bémol au niveau du WriteLine, car tu utilise peut être un RichTextBox au lieu du TextBox.
Code:

1 2 3 4 5 6 7 Dim sfd As New Windows.Forms.SaveFileDialog() If (sfd.ShowDialog() = Windows.Forms.DialogResult.OK) Then Dim sw As StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(sfd.FileName, False) sw.WriteLine(TextBox1.Text) sw.Close() End If sfd.Dispose()
Citation:

Envoyé par Denis61400

Troisième question !
J'ai crée une zone de saisie de Texte que j'apelle "ChampNum". Je désirerais qu'il soit possible pour l'utilisateur de ne saisir que des chiffres dedans. Si l'utilisateur tente de saisir une lettre, il reçoit un message d'erreur lui indiquant qu'il n'est possible d'écrire que des chiffres dedans ! Comment procéder ?

Il faut gérer l'évenement TextChanged et vérifier que c'est bien une chaine qui ne contient que des chiffres :
Code:

1 2 3 4 5 6 7 8 9 Dim a As New ArrayList({"0"c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c}) Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If (Not a.Contains(e.KeyChar)) Then e.KeyChar = "" 'Par contre empeche l'effacement Label1.Text = "Il faut entrer un chiffre" Else Label1.Text = "" End If End Sub
Par contre, je ne sais pas comment annuler la saisie correctement. Surement une annulation de l'évenement.

EDIT 22:52
Tu peux aussi utiliser le contrôle NumericUpDown, et au lieu de .Text, tu récupères .Value

Citation:

Envoyé par Denis61400

Dernière question...
Je souhaite que si l'utilisateur saisisse une valeur numérique (dans l'exemple la valeur saisie est "6" dans "ChampNum" puis click sur le bouton que j'ai nommé "BLOCK", celà écrive dans le TextBox1:

Quel est dans ce cas le Code à associer au bouton "block" ? Ou du moins, quelles dont les fonctions à utiliser et comment fonctionnent ces fonctions?

Tu écris de la même façon que ton IF, mais tu récupères ChampNum.Text au leur de ChampText

@+
Mat

Salut Mat :)

Merci pour tes réponses :ccool:

Il y a certaines choses qui ne fonctionnent pas.

Tout d’abord pour la réponse à ta première question, le logiciel me dit comme erreur que: Type 'StreamWriter' non défini. J'utilise bien un TextBox et non un RichTextBox.

Pour ta réponse à ma 3ème question, pas de soucis, j'y suis arrivé.

Pour ta réponse à ma dernière question il me semble que tu n'ai pas bien saisi ce que j'essayais d'expliquer. Ou alors je n'ai pas bien compris ta réponse.

Je voudrais que lorsque l'utilisateur saisisse un chiffre dans ma zone de saisie "ChampNum", celà affiche dans ma TextBox1 autant de champs "BLOCK" que la valeur saisie avec un ordre croissant affiché automatiquement entre les ().

Concrètement, je rentre la valeur "5" dans ChampNum , je click sur mon bouton "BLOCK" et j'obtiens dans ma zone de texte:
Code:

1 2 3 4 5 6 7 8 9 Block (1) Block (2) Block (3) Block (4) Block (5)
Si j'avais entré la valeur "3", j'aurais donc obtenu dans ma TextBox1 :
Code:

1 2 3 4 5 6 Block (1) Block (2) Block (3)
Je cherche donc un code du type:
Code:

1 2 3 4 5 6 7 IF (Valeur de ChampNum<1) Afficher un message: "Veuillez saisir une valeur avant de cliquer sur BLOCK !" ELSE LOOP 1 to Valeur de ChampNum TextBox1.Text = "Block" + "(1 to Valeur de ChampNum") END LOOP END IF
Je voudrais que a chaque fois que la boucle fait un tour, la valeur de ChampNum s'incrémente dans les parenthèses qui suivent "BLOCK", et ce de 1 à la valeur max de mon ChampNum.

J'espère que j'ai mieux expliqué cette fois çi. ;D

Alors, pour le StreamWriter, il faut que tu importes le System.IO (tu peux le voir en restant la souris sur ton StreamWriter, il te proposera les corrections automatiques.

Tu n'étais pas loin avec ton algo :
Code:

1 2 3 4 5 6 7 If (Val(ChampNum.Text)<1) MsgBox( "Veuillez saisir une valeur avant de cliquer sur BLOCK !") Else For i As Short = 1 To Val(ChampNum.Text) TextBox1.Text &= "Block(" & i & ")" & VbCrLf 'le VbCrLf est peut etre obsolète, mais il marche toujours End For End If

25/07/2011, 13h57
Er3van

Des remarques en vrac suite aux réponses ci-dessus :

- Pour filtrer les caractères numériques (ou alphanumériques peut-importe), le mieux c'est de passer par des RegEx (expression régulières). Tu peux le faire avec des contrôles/extendeurs très facilement.

- Utiliser des méthodes héritées de VB (et donc non intégrées au framework .net) est déconseillé. C'est voué à disparaître.
25/07/2011, 14h10
matll

Citation:

Envoyé par Er3van

- Pour filtrer les caractères numériques (ou alphanumériques peut-importe), le mieux c'est de passer par des RegEx (expression régulières). Tu peux le faire avec des contrôles/extendeurs très facilement.

Je suis tout à fait d'accord avec toi, je sais pas pourquoi j'ai pondu ce code là, saurais-tu comment peut-on annuler une saisie "proprement" ?
A la place de :

Code:

If (Not a.Contains(e.KeyChar)) Then

Mettre :

Code:

If(not (Regex.Match("[\d]",e.keyChar).Success) Then

Citation:

Envoyé par Er3van

- Utiliser des méthodes héritées de VB (et donc non intégrées au framework .net) est déconseillé. C'est voué à disparaître.

Il faut remplacer le VbCrLf par :

Code:

Chr(13) & Chr(10)

Quelle différence entre + et & pour la concaténation ?

@+
Mat

NIIICKEL ! Merci beaucoup ! Tout celà marche merveilleusement bien :ccool:
Pour le coup de ma fonction avec le bouton "Block", voici le code final qui fonctionne:
Code:

1 2 3 4 5 6 7 8 9 10 11 If (Val(ChampNum.Text) < 1) Then MsgBox("Veuillez entrer dans la zone de saisie numérique le nombre de blocs désirés avant de vouloir insérer cette fonction !") Else TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Chr(9) + "Nombre de Blocks (" + ChampNum.Text + ")" + TextBox1.Text.Substring(0, TextBox1.SelectionStart) For i As Short = 1 To Val(ChampNum.Text) TextBox1.Text &= TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Environment.NewLine + Chr(9) + "Block (" & i & ")" + Chr(13) & Chr(10) + TextBox1.Text.Substring(0, TextBox1.SelectionStart) Next ChampText.Clear() ChampNum.Clear() End If
A savoir pour info qu'il ne connaissais pas de "end for" mais qu'il préférais un "Next" à la place. J'ignore pourquoi.

Petite démo, lorsque je tape "5" dans mon ChampNum et que je clic sur "Block" j'obtiens dans ma textBox:
Code:

1 2 3 4 5 6 7 8 9 10 11 Nombre de Blocks (5) Block (1) Block (2) Block (3) Block (4) Block (5)
Perfecto ! Par contre, petit soucis ! Il semblerais que même lorsque mon ChampNum a subi une fonction ChampNum.Clear() , L'ordinateur garde en mémoire la valeur qui y a été tapé. Ainsi, lorsque j'utilise une seconde fois ma fonction block avec un autre valeur, il fait l'opération deux fois: avec l'ancienne valeur et la nouvelle. Est-ce normal? oO

2) En ce qui concerne l'enregistrement du contenu de la textbox1 dans un fichier... Donc ce code là:
Code:

1 2 3 4 5 6 7 Dim sfd As New Windows.Forms.SaveFileDialog() If (sfd.ShowDialog() = Windows.Forms.DialogResult.OK) Then Dim sw As StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(sfd.FileName, False) sw.WriteLine(TextBox1.Text) sw.Close() End If sfd.Dispose()
Quelle est la fonction que je pourrais ajouter et qui permettra de définir le type de fichier que l'utilisateur enregistrera ? Dans mon cas, je souhaite du *.txt

Merci encore pour votre aide et votre envie de partager :)

25/07/2011, 15h35
Er3van

De mémoire, à vérifier donc, je crois que c'est comme ceci :

Code:

sfd.Filter = "Text file (.txt)|.txt"
25/07/2011, 15h40
matll

Citation:

Envoyé par Denis61400

A savoir pour info qu'il ne connaissais pas de "end for" mais qu'il préférais un "Next" à la place. J'ignore pourquoi.

C'est normal, c'est moi qui ai fait l'erreur, End For n'existe pas en VB.Net

Citation:

Envoyé par Denis61400

Perfecto ! Par contre, petit soucis ! Il semblerais que même lorsque mon ChampNum a subi une fonction ChampNum.Clear() , L'ordinateur garde en mémoire la valeur qui y a été tapé. Ainsi, lorsque j'utilise une seconde fois ma fonction block avec un autre valeur, il fait l'opération deux fois: avec l'ancienne valeur et la nouvelle. Est-ce normal? oO

C'est en effet étrange, et si à la place de faire ChampNum.Clear(), tu fais ChampNum.Text = "", que se passe-t'il ? Peut être que clear ne fait que modifier l'affichage, mais je n'en suis pas sur du tout.

Citation:

Envoyé par Denis61400

Quelle est la fonction que je pourrais ajouter et qui permettra de définir le type de fichier que l'utilisateur enregistrera ? Dans mon cas, je souhaite du *.txt

Tu rajoutes le filtre suivant pour limiter au fichiers Txt. (c'est l'exemple de la doc)

Code:

sfd.Filter = "Fichiers texte (*.txt)|*.txt

Citation:

Envoyé par Documentation

La chaîne de filtre doit contenir une description du filtre, suivie d'une barre verticale (|) et du modèle du filtre. Les chaînes pour les différentes options de filtre doivent également être séparées par la barre verticale. Exemple : "Fichiers texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"

Merci Matt & Er3van

Citation:

Envoyé par matll

C'est en effet étrange, et si à la place de faire ChampNum.Clear(), tu fais ChampNum.Text = "", que se passe-t'il ? Peut être que clear ne fait que modifier l'affichage, mais je n'en suis pas sur du tout.

J'ai également essayé avec ChampNum.Text = "" et ça me fait la même :calim2: D'après moi ca vient de l'algorithme:
Code:

1 2 3 4 5 6 7 8 9 10 11 If (Val(ChampNum.Text) < 1) Then MsgBox("Veuillez entrer dans la zone de saisie numérique le nombre de blocs désirés avant de vouloir insérer cette fonction !") Else TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Chr(9) + "Nombre de Blocks (" + ChampNum.Text + ")" + TextBox1.Text.Substring(0, TextBox1.SelectionStart) For i As Short = 1 To Val(ChampNum.Text) TextBox1.Text &= TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Environment.NewLine + Chr(9) + "Block (" & i & ")" + Chr(13) & Chr(10) + TextBox1.Text.Substring(0, TextBox1.SelectionStart) Next ChampText.Clear() ChampNum.Clear() End If
Car j'ai essayé avec un code simple sur un autre bouton "SetValue" du type:
Code:

1 2 3 TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Chr(9) + "SetValue" + " (" + ChampNum.Text + ")" + Environment.NewLine + TextBox1.Text.Substring(TextBox1.SelectionStart) ChampNum.Clear()
Et lorsque je retape une nouvelle valeur et que je reclic sur le bouton "SetValue" ca me met la nouvelle valeur entre () mais ca me fait pas la même erreur qu'avec ma fonction "Block" :calim2: