Discussion :

[xam44]

Bonjour je suis en train d'apprendre visual basic et pour cela j'utilise micro application visual basic 5 en 16h.Mais je travail sur la version 6. voila la commande que je rentre et qui ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
Private Sub SaisieDurée_Change()
If ListeTarifs.Text = "" Or SaisieDurée.Text = "" Then Exit Sub
ElseIf OptionVille.Value Then AfficheCout.Caption = Val(SaisieDurée.Text) * Val(ListeTarifs.Text)
ElseIf Option50.Value = True Then AfficheCout.Caption = Val(SaisieDurée.Text) * Val(ListeTarifs.Text) * 3
ElseIf Option200.Value = True Then AfficheCout.Caption = Val(SaisieDurée.Text) * Val(ListeTarifs.Text) * 5
Else OptionDistance.Value = True Then AfficheCout.Caption = Val(SaisieDurée.Text) * Val(ListeTarifs.Text) * 5.2
End If
End Sub

merci d'avance si vous pouvez m'aider

[Pol63]

1/ il y a un forum spécial vb6 (qui doit ressembler à vb5)
ici tu es sur le forum qui concerne vb 7 à 9 (qui sont totalement différents)

2/ le forum a une balise code qui permet de faire ca :

Code :

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

1
2
3
4
5
6
7
8
Private Sub SaisieDurée_Change()
  If ListeTarifs.Text = "" Or SaisieDurée.Text = "" Then Exit Sub
    ElseIf OptionVille.Value Then AfficheCout.Caption = Val(SaisieDurée.Text) * Val(ListeTarifs.Text)
    ElseIf Option50.Value = True Then AfficheCout.Caption = Val(SaisieDurée.Text) * Val(ListeTarifs.Text) * 3
    ElseIf Option200.Value = True Then AfficheCout.Caption = Val(SaisieDurée.Text) * Val(ListeTarifs.Text) * 5
    Else OptionDistance.Value = True Then AfficheCout.Caption = Val(SaisieDurée.Text) * Val(ListeTarifs.Text) * 5.2
  End If
End Sub

(beaucoup plus lisible)

3/ en général il est conseillé de préfixer les objets graphiques par ce qu'il sont genre TXTSaisieDurée au lieu de SaisieDurée (on comprend tout de suite que c'est un textbox, LBL pour un label etc..)

4/ pour ce qui est de ton code qui ne fonctionne pas, peut etre que certaines commandes vb6 n'existaient pas sous vb5 (voir point n°5 si tu ne peux rien faire avec ta version de vb)

5/ une fois que tu auras compris les bases du developpement, tu peux passer sur vb8 dont il existe une version gratuite nommée visual basic express, il y a des bon tutoriels sur le net
genre http://plasserre.developpez.com/vsommair.htm, mais il te faudra entre 5 et 10 x plus que 16heures pour tout assimiler (enfin au bout de 20h tu pourras surement deja faire des trucs sympas sans avoir tout vu ...)

[ucfoutu]

Bonjour,

Ton code ne risque pas de fonctionner sous VB6, non parce qu'il contiendrait des instructions VB6 non comprises par VB5, mais parce que ton utilisation de l'instruction If... Then... Else est fausse !
Il ne tournerait pas non plus sous VB5

Ouvre donc ton aide en ligne sur If...Then...Else..., s'il te plait, et réécris ton code conformément à ce que tu liras

Bonne continuation.