Discussion :

[Dorhken]

Salutations à vous tous. Je ne crois pas que les problemes ci-dessous vous causeront d'énormes problemes. Merci de votre aide:



Voici une image du programme (très basique, je peux l'avouer)

Je vous explique un peu la fonction. En haut, tu dois écrire trois chiffres. (bois-mana-minerais). Lorsque ceci est fait, vous devez cliquez sur "Calculer". C'est la que tout ce passe. Un Loup de Fenris, par exemple, coute 3 de bois, 1 mana et 1 de minerais. Je veux que le programme calcule le nombre de Loup de Fenris (avec les couts) que je peux faire, avec les unités de bois/mana/minerais que j'ai entré plus haut. En gros, je veux que le programme fasse: (Si j'inscrit que je possède 50 de bois, 50 de mana et 50 de minerais)

=50 / par le cout (3)
=50/3
=17(environ)
Ensuite
=50(mana) / 1

Voilà.. J'ai fais un minimum de 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub cmdCalculer_Click()
 
lblH1_bois.Caption = Val(txtBois.Text) / 3
lblH1_mana.Caption = Val(txtMana.Text) / 1
lblH1_minerais.Caption = Val(txtMinerais.Text) / 1
 
If Val(lblH1_bois.Caption) <= Val(lblH1_mana.Caption) <= Val(lblH1_minerais.Caption) Then
lblH1.Caption = Val(lblH1_bois.Caption)
End If
 
If Val(lblH1_bois.Caption) <= Val(lblH1_minerais.Caption) <= Val(lblH1_mana.Caption) Then
lblH1.Caption = Val(lblH1_bois.Caption)
End If
 
If Val(lblH1_minerais.Caption) <= Val(lblH1_mana.Caption) <= Val(lblH1_bois.Caption) Then
lblH1.Caption = Val(lblH1_minerais.Caption)
End If
 
If Val(lblH1_mana.Caption) <= Val(lblH1_bois.Caption) <= Val(lblH1_minerais.Caption) Then
lblH1.Caption = Val(lblH1_mana.Caption)
End If
 
If Val(lblH1_minerais.Caption) <= Val(lblH1_bois.Caption) <= Val(lblH1_mana.Caption) Then
lblH1.Caption = Val(lblH1_minerais.Caption)
End If
 
If Val(lblH1_bois.Caption) <= Val(lblH1_minerais.Caption) <= Val(lblH1_mana.Caption) Then
lblH1.Caption = Val(lblH1_bois.Caption)
End If
 
If Val(lblH1_mana.Caption) <= Val(lblH1_minerais.Caption) <= Val(lblH1_bois.Caption) Then
lblH1.Caption = Val(lblH1_mana.Caption)
End If
 
End Sub
Private Sub cmdCalculer2_Click()
txtFerme = Val(txtpourcentageFerme.Text) * (txtcout.Text) / 200
txtMaison = Val(txtpourcentageMaison.Text) * (txtcout.Text) / 200
End Sub
Private Sub cmdQuitter_Click()
End
End Sub

Ne faites pas attention au "Calculer2". C'est une fonction que j'ai rajouté dernièrement.

(PS. Biensûr, le IF ne fonctionne pas, la est mon probleme)



Donc dans la zone de texte blanche, je veux que le programme inscrit le plus bas chiffre des trois réponses. Ici, ça ce trouve à être lblH1_bois, mais les trois diviseur de base ( 3, 1 et 1) vont toujours être modifiée.

Je ne sais pas si j'ai bien été compris, mais bon.

Premier label rouge: lblH1_bois
Deuxième label rouge: lblH1_mana
Troisième label rouge: lblH1_minerais
Label blanc: lblh1

Deuxième probleme:
Si par exemple, j'inscris 85. Le programme fera: 85 / 3 donc = 28.33333

Il y a une manière de rendre la réponse juste et net à 23? (Sans modifier le 85 ou le 3) Comme en arrondissant.


Merci.

[Gaetch]

Pour faire une division entière faut utiliser \ au lieu de / je crois.
Ensuite dans un if je crois pas aue tu peux faire direct a < b < c, faut faire if a < b and b < c il me semble. Ecris une fonction minimum sinon genre :

Code :

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

1
2
3
4
5
6
Function Min (A As Integer, B As Integer, C As Integer) As Integer
Dim Temp As Integer
Temp = IIf (A > B, A, B)
Temp = IIf (Temp > C, Temp, C)
Min = Temp
End Function

Ensuite pour remplir ton lblH1.Caption (le blanc) tu fais :

Code :

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

lblH1.Caption = Min (lblH1_Bois.caption \ 3, lblH1_Mana.caption, lblH1_Minerais.caption)

[LeForestier]

Je confirme la réponse de Gaetch, les if ne supportent pas les comparaisont multiple de la façon que tu l'écrit.

Exemple

Code :

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

1
2
3
4
5
6
7
if (A < E and X > B) or (V > A and H < Z) then
....
elseif E=2 or I=5 then
.....
else
....
end if

[Dorhken]

Voici ce que j'ai:

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
Private Sub cmdCalculer_Click()
lblH1_bois.Caption = Val(txtBois.Text) \ 3
lblH1_mana.Caption = Val(txtMana.Text) \ 1
lblH1_minerais.Caption = Val(txtMinerais.Text) \ 1
Function Min(A As Integer, B As Integer, C As Integer) As Integer
Dim Temp As Integer
Temp = IIf(A > B, A, B)
Temp = IIf(Temp > C, Temp, C)
Min = Temp
End Function
lblH1.Caption = Min(lblH1_bois.Caption \ 3, lblH1_mana.Caption \ 1, lblH1_minerais.Caption \ 1)
End Sub
 
Private Sub cmdCalculer2_Click()
txtFerme = Val(txtpourcentageFerme.Text) * (txtcout.Text) / 200
txtMaison = Val(txtpourcentageMaison.Text) * (txtcout.Text) / 200
End Sub
 
Private Sub cmdQuitter_Click()
End
End Sub

Pourtant ça ne fonctionnne pas. L'erreur: Expected End Sub.

Il est pourtant bien la...

[LeForestier]

Dit donc..... relit un peu ton code,
tu imbrique une fonction dans une sub

[Dorhken]

Aie, ou j'avais la tête héhé.

Cependant ça ne résous pas mon probleme. Si j,entre 12/12/12 dans txtBois/txtMana/txtMinerais.

Ça lance les réponse
1. 4 dans lblh1_bois
2. 12 dans lblh1_mana
3. 12 dans lblh1_minerais

Et pourtant, dans lblh1 (le label blanc) il me sort le chiffre "12" alors que C'est senser donner "4".

Désolé si je vous dérange, mais bon. Je ne vois aucune erreure nul-part...

[sovo]

Ton erreur (L'erreur: Expected End Sub.), viens de la :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cmdCalculer_Click()
lblH1_bois.Caption = Val(txtBois.Text) \ 3
lblH1_mana.Caption = Val(txtMana.Text) \ 1
lblH1_minerais.Caption = Val(txtMinerais.Text) \ 1
Function Min(A As Integer, B As Integer, C As Integer) As Integer
Dim Temp As Integer
Temp = IIf(A > B, A, B)
Temp = IIf(Temp > C, Temp, C)
Min = Temp
End Function
lblH1.Caption = Min(lblH1_bois.Caption \ 3, lblH1_mana.Caption \ 1, lblH1_minerais.Caption \ 1)
End Sub

Tu as mis une fonction dans une procedure, En VB c'est pas possible, tu doit faire ressortir la fonction de la definition de la procedure comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdCalculer_Click()
lblH1_bois.Caption = Val(txtBois.Text) \ 3
lblH1_mana.Caption = Val(txtMana.Text) \ 1
lblH1_minerais.Caption = Val(txtMinerais.Text) \ 1
lblH1.Caption = Min(lblH1_bois.Caption \ 3, lblH1_mana.Caption \ 1, lblH1_minerais.Caption \ 1)
End Sub
 
Private Function Min(A As Integer, B As Integer, C As Integer) As Integer
Dim Temp As Integer
Temp = IIf(A > B, A, B)
Temp = IIf(Temp > C, Temp, C)
Min = Temp
End Function

La comme ca tu ne devrais plus avoir ce genre d'erreur.