CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

[vb] addition décimale textbox et label

thekiller---93
thekiller---93
Niveau 7
22 mai 2009 à 19:38:34

:salut: !
je voudrai addition un label et une textbox, et inscrire ce résultat dans une nouvelle textbox, et que si cette derniere textbox contient déja des nombres, ils s'additionent.

voici comment je me suis débrouillé moi! ^^

je dispose d'un label (label1), de deux textbox (textbox1 et textbox2).

Private Sub Label32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label32.Click
If TextBox1.Text = "" Then
TextBox1.Text = Label1.Text
Else
TextBox2.Text = TextBox1.Text
TextBox1.Text = ""
Dim number1, number2, sum As Integer
number1 = Label1.Text
number2 = FormatNumber(TextBox2.Text, 2)
sum = number1 + number2
TextBox1.Text = FormatNumber(sum, 2)
End If
end sub

ici, quand je clique sur mon label1, le nombre qui est inscrit dedans s'enregistre dans la textbox1 si celle ci est vide. mais si celle ci contient déja un nombre : le champ de la textbox1 s'enregistre dans la textbox2, puis la textbox1 est vidé, puis le résultat de label1 + textbox2 est inscrit dans la textbox1! (dure dure la manip! ^^)

cela marche! mais ça m'arrondie le calcul a l'unité, alors que je voudrai arrondir a deux chiffre décimaux, est ce possible? (le format number ne marche pas beaucoup...

:merci: de votre aide! =)

_skip
_skip
Niveau 10
22 mai 2009 à 20:10:54

Il n'y a pas grand risque que l'addition de deux entiers te donnent un nombre à virgule.

thekiller---93
thekiller---93
Niveau 7
22 mai 2009 à 21:02:50

lol, je m'en doute bien! ^^ mais ce sont des nombres a virgule (ex : 13.8 + 14.9) que je veux additionner

thekiller---93
thekiller---93
Niveau 7
23 mai 2009 à 10:17:22

:up: svp

dnob700
dnob700
Niveau 10
23 mai 2009 à 10:46:22

Commence par déclarer sum comme une flottant (dim sum as float ? peut-être), tu es en VB6 ? Sinon, où est-il déclaré ?

thekiller---93
thekiller---93
Niveau 7
23 mai 2009 à 12:45:26

je suis en vb.net (2003?) sum est déclaré en meme temps que number1 et number 2avec : dim numer1, number2, sum as integer

dnob700
dnob700
Niveau 10
23 mai 2009 à 15:21:35

ah oui.

Ben si tu les déclares comme des entiers, ce n'est pas étonnant qu'ils stockent des entiers...

Remplace integer par float (je crois que c'est le nom du type, je n'en susi plus sûr) et ça devrait aller.

thekiller---93
thekiller---93
Niveau 7
24 mai 2009 à 19:06:40

quand je le remplace, sa me marque "type 'float' non défini".
je le défini comment?

dnob700
dnob700
Niveau 10
24 mai 2009 à 19:39:56

essaye avec double à la place de float, sinon cherche dans la documentation le nom correcte du type flottant.

Sous forums
  • Aide à l'achat Mac
  • Macintosh
  • Création de Jeux
  • Programmation
  • Création de sites web
  • Linux
  • Internet
  • Steam Deck
  • Hardware