Discussion :

[akatsuki1905]

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 :

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
 
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

[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).

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 :

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
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

[tomlev]

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...

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...

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

Code :

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

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 :

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

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.

[OhMonBato]

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 ?