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

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

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

[LeForestier]

Remet ton code rectifier pour rechercher l'erreur.

De plus ton explication sur le résultat souhaité est vraiment pas clair.

Explique de cette façon...
1 loup= 3Bois
1 loup = 1 mana
1 loup = 1minerais

C'est ça ?
sinon explique mieux

[LeForestier]

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

Attend.. Si tu pense que la réponse est 4 je suppose alors que

1 loup = 3bois+1Mana+1Minerais
Si oui, ton calcul est impossible en arrondi
tu aurrai en réponse 4 Loups et reste 8 mana et 8 Minerai

Autre réflexion, j'ai regarder dans MSDN et la fonction min() n'est pas reprise en VB6, excepté dans les requêtes SQL ?

[Dorhken]

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
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, lblH1_mana.Caption, lblH1_minerais.Caption)
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
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

Je ré-explique donc. Pour créer un loup, il faut un minimum de 3 bois, 1 mana et 1 minerais. Les txtBois, txtMana et txtMinerais signifie le nombre de bois/mana/minerais que tu possède en tout. Si j'entre 12 dans txtbois, 12 dans txtmana et 12 dans txtMinerais, le programme fait les calcule plus haut(divison de 3, division de 1 et division 1) pour savoir combien de loup serait-il possible de créer avec les ressources que tu possèdes (Bois,Mana Minerais)

Donc si je prend le premier label rouge. Dans celui-là, c'est la réponse du txtBois/3. En gros, ce label affiche combien de loup tu peux créer avec ton bois (comme s'il ne fallait pas de Mana/minerais)

C'est pareil pour les deux autres label. Puis, il y a le label blanc: la source des problemes.

Je veux que dans celui-ci, il soit affiché le plus petit chiffre des 3 labels rouges. Pourquoi? Si, avec ton bois, tu peux créer 4 loups et qu'avec la mana/minerais que tu possèdes, tu peux en créer 12. Alors c'est impossible en créer douze, due au manque de bois.

Donc dans le label blanc, la réponse serait 4.

J'espère avoir été comprit.

[zazaraignée]

Je viens juste de regarder ton sujet et la première chose qui me saute au yeux, ce sont les fautes de français sur l'interface. Si c'est juste pour toi, c'est pas grave. Sinon:
Compteur d'unités automatique celon votre race
pourrait devenir
Compteur automatique d'unités selon votre race
ou encore
Compteur d'unités selon votre race
parce que d'habitude un compteur c'est automatique, non?

Dans les trois étiquettes
possèdez
pourrait devenir
possédez

Surtout ne le prends pas mal. Je regarde le reste et je reviens.

[Edit] En fait, il tonne, alors je quite. Je reviendrai plus tard.

[LeForestier]

Bon j'ai mis ça sur mon PC l'erreur vient des IIF

Il faut faire

Code :

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

1
2
Temp = IIf(A > B, B, A)
Temp = IIf(Temp > C, C, Temp)

A+

[Dorhken]

Je viens juste de regarder ton sujet et la première chose qui me saute au yeux, ce sont les fautes de français sur l'interface. Si c'est juste pour toi, c'est pas grave. Sinon:
Compteur d'unités automatique celon votre race
pourrait devenir
Compteur automatique d'unités selon votre race
ou encore
Compteur d'unités selon votre race
parce que d'habitude un compteur c'est automatique, non?

Dans les trois étiquettes
possèdez
pourrait devenir
possédez

Surtout ne le prends pas mal. Je regarde le reste et je reviens.

[Edit] En fait, il tonne, alors je quite. Je reviendrai plus tard.

Je n'ai aucunement fait attention aux fautes, c'est un programme ou j'ai misé sur le code avant de travailler l'interface.

Merci LeForestier, mon probleme est résolu.


Cependant, j'aimerais avoir une autre information. (Je sais, j'en demande beaucoup)

Je n'ai pas trop approndis mes testes, mais les chiffres en haut de 99000 ne fonctionnent pas. Error: Overflow.

J'ai testé quelques petits trucs pour voir si cela règlait le probleme, mais non héhé. (C'est pas comme le C, faut croire)

[zazaraignée]

Essaie avec des Long plutôt que des Integer.

[Dorhken]

Merci à vous tous pour l'aide. Si j'ai d'autres problemes, je viendrai ici. Vous savez pourquoi ? Les gens aident réellement !