Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
890 connectés 

  FORUM HardWare.fr
  Programmation

  Problème Visual basic 6...

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème Visual basic 6...

n°63783
stef57
Posté le 06-10-2001 à 23:53:10  profilanswer
 

Je vien de faire un prog avec Vb 6 et g un pti prob...
Voici le prog: http://s.ludwig.free.fr/Calcul.exe
Le problème c que il me dit comme résultat que 2^24+10^24=10^24...donc c pas juste...qu'elqu'un peut m'éxpliquer ???

mood
Publicité
Posté le 06-10-2001 à 23:53:10  profilanswer
 

n°63801
macray
Posté le 07-10-2001 à 09:38:13  profilanswer
 

c'est normal, car c'est le résultat
2^24 + 10^24 = 1e24
 
par contre mets les parenthéses

n°63803
TheJackal
Posté le 07-10-2001 à 10:01:06  profilanswer
 

desoler de te dire ca mais on comprend pas grand chose a l'interface...

n°63807
stef57
Posté le 07-10-2001 à 11:01:24  profilanswer
 

Pour l'interface, t'inkiet, c qu'un essaie pour des pôtes et moi...je vais encore la revoir, ce qui m'énerve pour l'instant c pkoi 10^24+2^24=10^24 ou plutôt comment changer ça...ou je doit les mettres les parenthèses???
Voici le code au cas ou...
Private Sub About_Click()
MsgBox "Copyright © 2001 Stéphane Ludwig E-mail: stephane_ludwig@yahoo.fr", 64, "About"
End Sub
 
Private Sub Command1_Click()
a = Text1(0).Text
b = Text1(1).Text
c = Text1(2).Text
d = Text1(3).Text
For n = 3 To d
For x = 2 To a
For y = 2 To b
For z = 2 To c
If (z ^ n) = ((x ^ n) + (y ^ n)) Then GoTo fin
Next z
Next y
Next x
Next n
MsgBox "Rien n'a été trouvé", 16, "Fin de la recherche"
fin: Text1(4).Text = x
Text1(5).Text = y
Text1(6).Text = z
Text1(7).Text = n
End Sub
 
Une idée ???

n°63808
stef57
Posté le 07-10-2001 à 11:04:44  profilanswer
 

Si vs comprenez pas ce qui faut faire, faut remplir les options et cliquez sur go...d'après un certain théorème, il doit jamais rien me trouver...mais là si je met n juske 100 ou plus par exemple il me marque ((2^24)+(10^24))=(10^24)...ce qui n'est pas juste !

n°63811
TheJackal
Posté le 07-10-2001 à 11:31:38  profilanswer
 

10^24+2^24=10^24
sur la calculatrice ca donne ca et c juste.
 
c koi comme type de variable a, b, c, d
ce ke je veux dire c ke j'espere que tu les a declar qq part

 

[edtdd]--Message édité par TheJackal--[/edtdd]

n°63813
macray
Posté le 07-10-2001 à 11:37:43  profilanswer
 

Je te conseille de mettre les commentaires et de nous renvoyer le programme, au passage tu peux modifier une chose, bénine...
Si tu veux récupérer la valeur d'un quelquonque bloc texte, je te conseille, de mettre VAL(.....  
 
a = val((text1.text(0)))
b = val((...
c =...
 
ensuite, si tu ne trouve pas, mets des points d'arrêts, (rond rouge) pour voir l'évolution de ton programme, et une liste provioire pour voir ou il "plante"...
 
pour en revenir à ton calacul  
(2^24)+ (10^24) = 1e24 donc...

n°63814
stef57
Posté le 07-10-2001 à 11:41:40  profilanswer
 

TheJackal==>Non, justement je les ai pas déclaré les variables...je doit ??? A ce moment là je les déclare en Integer ou long ou autre chose???

n°63817
TheJackal
Posté le 07-10-2001 à 11:43:42  profilanswer
 

vo mieux les declarer kan meme...
en integer t'aura une limite pour la valeur a 65536 et long je c pu
m'enfin si tu fait une puissance de 65536 deja :ouch:

n°63818
stef57
Posté le 07-10-2001 à 11:51:39  profilanswer
 

macray==>le "val" ça change quoi par rapport à ma syntaxe (a = Text1(0).Text) ???
Ensuite le programme je l'ai envoyé, le lien est plus haut, je doit mettre quoi comme commentaires ?
Ensuite je suis d'acc que ...+...=1^24 mais j'aimerais savoir comment faire pour kil voit pas ça en puissance mais en nbr entier...

mood
Publicité
Posté le 07-10-2001 à 11:51:39  profilanswer
 

n°63819
stef57
Posté le 07-10-2001 à 11:52:21  profilanswer
 

jvai essayer, à dans 5min...

n°63820
stef57
Posté le 07-10-2001 à 11:57:37  profilanswer
 

Correction du code mais tjr pareil...
 
Private Sub About_Click()
MsgBox "Copyright © 2001 Stéphane Ludwig E-mail: stephane_ludwig@yahoo.fr", 64, "About"
End Sub
 
Private Sub Command1_Click()
Dim a, b, c, d, n, x, y, z As Integer
a = Text1(0).Text
b = Text1(1).Text
c = Text1(2).Text
d = Text1(3).Text
For n = 3 To d
For x = 2 To a
For y = 2 To b
For z = 2 To c
If (z ^ n) = ((x ^ n) + (y ^ n)) Then GoTo fin
Next z
Next y
Next x
Next n
MsgBox "Rien n'a été trouvé", 16, "Fin de la recherche"
fin: Text1(4).Text = x
Text1(5).Text = y
Text1(6).Text = z
Text1(7).Text = n
End Sub
 
D idées de correction ???

n°63821
TheJackal
Posté le 07-10-2001 à 11:57:41  profilanswer
 

1 000 000 000 000 000 000 001 024
 :D  
 
par contre pour kil affiche ca sous vb... aucune idee

n°63822
stef57
Posté le 07-10-2001 à 11:58:54  profilanswer
 

Bon, jreviens vers 15h les gars, merci de votre aide...

n°63823
macray
Posté le 07-10-2001 à 12:01:40  profilanswer
 

La fonction val, converti en nombre les chifres d'une chaîne (la conversion s'arrêtte caractére qui n'est pas un chiffre, ou à 0 s'il n'y a pas de chiffre en tête)
 
val("123" ) = 123
val("123abdcd" )=123
va("abev0" ) = 0
 
ensuite les commentaies permet de comprendre le programme pour une personne tier, expliquer à quoi sert chacune des vraiables ect...
 
Il vaut effectivement déclarer les variables, les plus approprié à ton programme sont ces deux

  • integer = -32768 à +32768
  • currency (nombre entier)= -922337203685477,5808 à +922337203685477,5807

n°63854
stef57
Posté le 07-10-2001 à 15:20:28  profilanswer
 

integer g essayé ça marche pas...essayons curency...

n°63855
TheJackal
Posté le 07-10-2001 à 15:29:20  profilanswer
 

c pas ca qui va resoudre ton prob je pense
au fait, il te sert a koi ce prog?

n°63857
stef57
Posté le 07-10-2001 à 15:39:49  profilanswer
 

C long à expliquer...c aussi une histoire de fou...mon prof de philo, pour nous montrer kekchose nous a lacher de trouver x, y, z dans x^n+y^n=z^n pour n>2...pour n=2 on trouve 3,4,5.En fait on à découvert que pour n>2 ça marche pas, mais on veut kan même vérifier !(on est un zarb dans la classe...)...on à donc fait un prog sur la graph 100 casio mais elle est un peu lente...donc j'ai dit que j'allait voir sur mon Pc...(tient, jviens d'avoir une idée...)

n°63858
macray
Posté le 07-10-2001 à 15:49:10  profilanswer
 

ton PC n'ira pas plus loin que la puissance 14 décimal, au delà il t'affichera 1e14,1e15,1e16...quoique que tu fasse,

n°63859
stef57
Posté le 07-10-2001 à 16:03:38  profilanswer
 

merde...bon tant pis...merci kan même...

n°63865
macray
Posté le 07-10-2001 à 16:24:40  profilanswer
 

:jap:

mood
Publicité
Posté le   profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  Problème Visual basic 6...

 

Sujets relatifs
[C] qui a deja fait le probleme du tsp (voyageur de commerce)visual studio.net et java
[C++] VISUAL: Listbox de taille variable??[php/html] problème de cookie pour un forum fait par mes mains;)
Probleme d'URLproblème sur access PLEASE j en peux plus !!!
Problème OCX lorsque j'execute mon prog visual Basic...Visual Basic 6 & windows 2000 = problème !!!!!!!!
[Visual Basic] probleme avec DriveListBoxProblème avec Visual Basic 6
Plus de sujets relatifs à : Problème Visual basic 6...


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR