traduction du pseudo code au VB Fermé

Question

Bonjour, 

Je suis étudiant mph et en ce moment j'utilise  visual basic à l'IUT mais je ne comprends pas grand chose...  J'arrive à peu près à faire un programme en pseudocode sur papier mais dès qu'il faut traduire ce programme sur vb je n'y arrive pas du tout... (mon partiel sur vb étant déja passé jpense avoir une très mauvaise note :-( et je dois pourtant absolument comprendre comment cela fonctionne car jsuis totalement perdu pouvez me dire ou est ce que je pourrais trouver des infos pour passer du pseudocode à vb? merci davance




Configuration: Windows 7 / Internet Explorer 9.0

Heliotte · Answer

Bonsoir jejecycle,

Si tu me donne un pseudo-code (algorithme) et que je te le traduit en VB pour toi, est-ce cela t'aidera-t-il ?
Si oui, poste-le ici et j'essaierais de le traduire seulement si ton code n'est pas trop gros (pas un programme complet).

Je n'ai pas beaucoup de temps ce soir, et demain non plus.
Mais on pourrait commencer demain soir .. ça te va ?

P.S.: Quel Visual Basic, car j'ai le VB 6.0 et Studio Visual Basic 2008.

jejecycle · Answer

à l'IUT jai le studio visual basic 2010, a oui ça serait très sympa comme ça j'aurais un exemple pour une forme alors voici un énoncé par exemple : 
"Ecrire un programme qui lit le prix HT
d'un article, le nombre d'articles et le
taux de TVA, et qui fournit le prix total
TTC correspondant. Faire en sorte que
des libellés apparaissent clairement lors
de l'affichage du résultat"

le pseudocode est :

Déclaration: prix en réel
                   nbarticles en entier
                   TVA en réel
                   prix TTC en réel
Debut: 
         ecrire ("donner le prix")
         lire (prix)
         ecrire ("donner TVA")
         lire (TVA)
         ecrire ("donner nb d'articles")
         lire (nbarticles)
         prix TTC <= ((1+ TVA/100)*prix)*nbarticles
         ecrire ("le prix total est", prix TTC)
         fin

jejecycle · Answer

je sais faire les déclarations sur vb mais après je ny arrive pas :(

Heliotte · Answer

Je te propose de créer ton formulaire, quatre labels et trois textbox, comme ceci.
	ecrire ("donner le prix") ' renommer: label_PrixBrut
	lire (prix) ' renommer: textbox_PrixBrut
	ecrire ("donner TVA") ' renommer: label_TauxTVA
	lire (TVA) ' renommer: textbox_TauxTVA
	ecrire ("donner nb d'articles")	' renommer: label_NbArticles
	lire (nbarticles) ' renommer textbox_NbArticles
	ecrire ("le prix total est", prix TTC) ' renommer: label_PrixTTC

Heliotte · Answer

Cliquer sur le formulaire .. Arriver dans la feuille de code, cette procédure doit apparaître :    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub

Heliotte · Answer

Dans cette feuille de code, il faut créer un évènement qui se déclenchera à chaque changement de valeur d'une des trois premières "TextBox":Private Sub ChangementValeur(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textbox_PrixBrut.TextChanged, textbox_TauxTVA.TextChanged, textbox_NbArticles.TextChanged
        Dim NbArticles As Integer = 0, prix As Double = 0.0, TVA As Double = 0.0, prixTTC As Double = 0.0
        '
        If (IsNumeric(textbox_PrixBrut.Text) And _
           IsNumeric(textbox_TauxTVA.Text) And _
           IsNumeric(textbox_NbArticles.Text)) Then
            prix = textbox_PrixBrut.Text
            NbArticles = textbox_NbArticles.Text
            TVA = textbox_TauxTVA.Text
            ' calcul
            prixTTC = ((1 + (TVA / 100)) * (prix * NbArticles))
            label_PrixTotal.Text = "le prix total est " & prixTTC.ToString
        End If
    End Sub

Heliotte · Answer

Cette procédure se déclenchera à chaque changement de valeur d'une des trois "TextBox", mais, grâce à la condition:If (IsNumeric(textbox_PrixBrut.Text) And _
           IsNumeric(textbox_TauxTVA.Text) And _
           IsNumeric(textbox_NbArticles.Text)) Thenne calculera que lorsque les trois textbox contiennent du numérique.

Traduction du pseudo code au VB

7 réponses

Discussions similaires