[Debutant] Aide sur un code

Bonjour,

J'ai un petit problème dans mon code, j'ai cherché pas mal mais je n'y trouve rien comme je suis débutant.

Je doute de la syntaxe et la structure des données ...

Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub cmdcalculer_Click()   Dim lgrf As Single Dim diffhauteur As Single Dim difflargeur As Single   diffhauteur = (txthtf.Text - lblrslthb) difflargeur = (txtlgrf.Text - lblrsltlb) lblrslthb.Caption = txtlgrf.Text lblrsltlb.Caption = (txtlgrf.Text / 3) * 2   lblmrgIres.Caption = ((txtlgrf.Text - lblrsltlb) / 6 * 2) lblmrgEres.Caption = ((txtlgrf.Text - lblrsltlb) / 6 * 4) lblmrgTres.Caption = ((txthtf.Text - lblrslthb) / 9 * 3) lblmrgPres.Caption = ((txthtf.Text - lblrslthb) / 9 * 6)   lbldiffreshauteur.Caption = txthtf.Text - lblrslthb lbldiffreslargeur.Caption = txtlgrf.Text - lblrsltlb End Sub

---

Je ne sais toujours pas exactement déclarer les variables même si je suis un livre ....

Si quelqu'un pourrait m'éclaircir à ce sujet où m'apporter une modification favorable dans mon code, ce serait sympa ^^

Merci d'avance pour vos réponses :)

Si je me permets de rajouter aussi que je voudrais, en cliquant sur le bouton Effacer, revenir au début du cycle ( donc effacer le contenu du bloc).

Et Que les 2 champs soit complétés, dans le cas contraire, un msgbox comme dans mon nouveau code, amis par contre quand j'y rajoute un If, il me met erreur ... je n'ai pas su debug :s

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub cmdcalculer_Click()   Dim lgrf As Integer   If txtlgrf.Text Or txthtf.Text = 0 Then MsgBox "Veuillez remplir les 2 cases", vbOKOnly, Erreur Else 'calcul Des Valeurs Du Bloc lblrslthb.Caption = txtlgrf.Text lblrsltlb.Caption = (txtlgrf.Text / 3) * 2 'Calcul Des Valeurs Des Marges lblmrgIres.Caption = ((txtlgrf.Text - lblrsltlb) / 6 * 2) lblmrgEres.Caption = ((txtlgrf.Text - lblrsltlb) / 6 * 4) lblmrgTres.Caption = ((txthtf.Text - lblrslthb) / 9 * 3) lblmrgPres.Caption = ((txthtf.Text - lblrslthb) / 9 * 6) 'Calcul des différence de marges lbldiffreshauteur.Caption = txthtf - lblrslthb lbldiffreslargeur.Caption = txtlgrf - lblrsltlb End If   End Sub

---

Encore Merci

Citation:

---

Envoyé par akatsuki1905

Je ne sais toujours pas exactement déclarer les variables même si je suis un livre ....

---

Qu'est-ce que tu ne sais pas faire exactement ? Dans ton code tu déclares pourtant plusieurs variables...

Citation:

---

Envoyé par akatsuki1905

apporter une modification favorable dans mon code

---

Tu n'as pas dit :
- ce que ton code est supposé faire
- ce qui ne marche pas
Donc c'est difficile de t'aider, il faudrait en dire un peu plus...

Citation:

---

Envoyé par akatsuki1905

Si je me permets de rajouter aussi que je voudrais, en cliquant sur le bouton Effacer, revenir au début du cycle ( donc effacer le contenu du bloc).

---

"cycle", "bloc" ? j'ai l'impression que tu parles de concepts spécifiques à ton application, mais tu ne donnes aucun détails sur le contexte... donc là encore, on ne peut pas grand chose pour toi si tu ne donnes pas plus de détails

Citation:

---

Envoyé par akatsuki1905

Code:

---

1 2	If txtlgrf.Text Or txthtf.Text = 0 Then

---

---

txtlgrf.Text n'est pas une condition...
D'autre part, la propriété Text renvoie une chaine, sa valeur "vide" n'est donc pas 0 mais "". Sinon tu peux aussi tester la propriété TextLength (longueur du texte). Au final, ton If devient quelque chose comme ça :

Code:

---

If txtlgrf.TextLength = 0 Or txthtf.TextLength = 0 Then

---

D'une manière générale, tu ne sembles pas faire la différence entre les types de données... tu mélanges dans des formules des chaines et des nombres. VB.NET autorise ça si tu n'actives pas l'option Strict, et convertit implicitement ta chaine en nombre. Mais ce n'est pas une bonne façon de faire : par exemple si l'utilisateur saisit des lettres dans la textbox, la conversion échouera et tu obtiendra une exception. Il vaut donc mieux vérifier les valeurs saisies par l'utilisateur et les convertir explicitement en nombres.

Je vois aussi que la propriété Caption est utilisée, hors elle n'existe plus en VB.Net, tu dois avoir un paquet d'erreurs signalées non ?
Le bouquin dont tu t'inspires ne serait pas pour du VB6 ?