Discussion :

[mamzelle hajar]

bonjour , je suis bloqué
jai un exos sur un jeu de tel ; le formulaire se compose d'un label (num de tel ) un boutton ( somme ) et un text box
traitement utilisé
lutilisateur doit saisir son num selon le format suivant 06-??-??-??-??
le num de tel doit commencer par 06 et doit comporter 14 caractere en comptant les - ( mon code doit prendre en consideration ces contraintes )
le clique sur somme provoquera le calcul des composants du num de tel si la somme est multiple de 3 vous afficher le message "bravo" sinon un msgbox contient byby et un button ok
je veut le programmme en vb.net
merci d'avance

[clementmarcotte]

Bonjour,

bonjour , je suis bloqué
jai un exos sur un jeu de tel
je veut le programmme en vb.net
merci d'avance

Toi, tu veux une solution gratuite et clef-en-main. Nous, nous ne voulons pas faire les devoirs des étudiants à leur place.

En principe, si c'est un exercice, tu as eu la formation nécessaire.

Nous pourrons t'aider à corriger ou améliorer le programme que tu auras fait, mais pas le faire à ta place.

[mamzelle hajar]

oui oui je le sais très bien et t'a raison
le probléme c'est que j'ai un examen la semaine prochaine et j'ai perdus tout mes leçons et ça fait 2ans que j'ai assister à ces cours , donc j'ai tout oublié à propos de la programmation en vb.net

[rv26t]

Bonjour,

Le Cours VB.NET de Philippe Lasserre est une mine d'information, très bien pour apprendre.

Une petite aide, il existe le composant MaskedTextBox.

[mamzelle hajar]

bonjour,
merci rv26t je vais lire ce cours

[mamzelle hajar]

bonjour tout le monde ,
est ce quelqu'un peut me corriger mon code ? j'ai fait un effort mais il me reste un problème je doit sommer les composant du numéro de tel 06+14+20+09+11 par exemple
merci d'avance

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
18
19
20
21
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim t() As String = TextBox1.Text.Split("-")
        Dim s As Integer = 0
        If (t(0) = "06") Then
 
            For i = 0 To 5
                s = s + Val(t(i))
            Next
        End If
        TextBox2.Text = s
        If (s Mod 3 = 0) Then
            MsgBox("Bravo! Vous avez gagner!")
        Else
            MsgBox("byby...", vbOKOnly + vbInformation, "Au revoir")
        End If
 
    End Sub
End Class

[mamzelle hajar]

bonjour,
c'est bon j'ai trouvé mon erreur le problème est resolu