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.