Jump to content

Visual Basic 6 et les additions...


Recommended Posts

Petite introduction (blague récupérée je ne sais plus où)

 

Pourquoi Intel a-t-il appelé un de ses processeurs le 486 ?

Réponse : Parcequ'ils ont fait 100 + 50 dessus et ils sont arrivée à 486 :lol:

 

Et bien c'est un peu ce qui m'arrive. En effet, j'ai installé il y a pas longtemps Visual Studio 6 version Entreprise, pour me mettre à la programmation (d'ailleurs c'est bizarre, j'ai pas vu Visual J++ normalement il est fourni :??: )

 

Je commence donc à faire une petite application Visual Basic, après 5 versions, j'arrive à un joli convertisseur € multi devises entièrement paramétrable. En voici un screenshot :

 

convertisseur.JPG

 

PS : ne vous moquez pas...

 

Mais alors au cours de la programmation de la petite calculette (au milieu), je mets :

 

resultaddition = firstaddition + secondaddition

Text13 = resultaddition

 

Ce qui normalement devrait faire afficher le résultat après le "=" Mais là, problème : il me fait des additions à la microsoft : 10 + 10 = 1010, 1 + 2 = 12... que des trucs comme ça. Pour arriver à un vrai résultat, je suis obligé de faire :

 

resultaddition = firstaddition - (- secondaddition), en faire de faire - - au lieu de +. Pour ce programme là ça va, mais pour les gros, ça doit poser problème.

 

Alors, quelle est l'instruction qui permet de faire une addition si ce n'est pas + :??: Merci d'avance.

 

Ps : j'adore la logique de microsoft : 10 + 10 = 1010...

Link to comment
Share on other sites

  • 1 month later...

ben c'est pas compliqué

 

Private Sub Command6_Click()

'Commande d'addition

 

'Mise à jour des variables

firstaddition = Text5.Text

secondaddition = Text6.Text

'Réalisation de l'addition

resultaddition = firstaddition - (-secondaddition)

'On utilise - - car + juxtapose simplement les 2 membres

'On met à jour le texte

Text7.Text = resultaddition

End Sub

 

J'ai été obligé de mettre -- pour que ça marche, mais + ne marche pas

Link to comment
Share on other sites

voila ce que j'ai essayé chez moi :

 

declarations des variables  

-------------------------------

 

Dim firstaddition As Integer

Dim secondaddition As Integer

Dim resultat As Single

 

code de ton boutton =

----------------------------

Private Sub Command1_Click()

'Mise à jour des variables

firstaddition = Text1.Text

secondaddition = Text2.Text

'Réalisation de l'addition

resultat = firstaddition + secondaddition

'On met à jour le texte

Text3.Text = resultat

End Sub

et 10 + 10 me donne bien 20 !!!

 

 

tu as kel Visual ?? moi je travaille sous le 6

Si tu veux, tu peux m'envoyer ton projet et je regarderai, mais ca fonctionne ici !! j'attend des tes nouvelles !!

Link to comment
Share on other sites

he he !!!

Je comprend mieux maintenant pourkoi ca ne marche pas !!

STRING , c'est pour du TEXTE !!!!!

si tu declare tes variable de la sorte :

 

DIM FIRSTADDITION AS SINGLE  

 

cela ira sans probleme !!

SINGLE signifique que tes nombres seront des réels !!!

Donc tu pourra utiliser des nombres a virgules sans problemes !!!!

g testé avec STRING, et en fait, il fait ajouter a ta premiere chaine de caractete l'autre chaine de caractere !! ce qui fait bien 1010, puiske tu di ke 10 est un texte !!!! mais si tu di ke c'est un réel (SINGLE) cela passe sans probleme !!! Petit detail seulement, tu dois ABSOLUMENT mettre une virgule pour délimiter la partie entiere de la partie décimale, si tu met un points ( . ) au lieu de la virgule, il fait la meme chose qu'avec STRING !!

Essaye et di moi koi !!

 

a +

Link to comment
Share on other sites

ok merci beaucoup. J'ai essayé et ça marche, cool... :cool:

 

En fait j'y connais pas trop grand chose, ça te dérangerait pas de regarder le code source en entier si je te l'envoie par mail et de me donner quelques conseils ?

 

A+ ;-)

Link to comment
Share on other sites

oui pas de probleme, ca me derange pa du tout !

je suis etudiant en informatique et Visual est le compilateur ke je dois utiliser pour le projet de fin d'année !

Je ne connais pas tout Visual, mais je veux bien jeter un oeil a ton projet !!

je t'ai ajouter a ma liste de contact MSN,

voila tout de meme mon adresse : darshwizzard@hotmail.com

Link to comment
Share on other sites

  • 1 month later...

c re moi !!!

En fait, j'ai pas eu bcp le temps de regarder au code, mais je l'ai fait kan meme !!

Et si cela t'interesse j'ai kelkes fonctions qui pourraient t'etre utiles, notemenent sur les saisies, test, etc !!!

a +

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...