Multidesk.be » Forums » Programmeren algemeen » 10 getallen invoeren en ze verovlgens optellen (gesloten)

Helpinformatie
Dit onderwerp werd gesloten.
Het is bijgevolg niet mogelijk er nog op te reageren.
  • Pagina
  • 1 van 1
  • RSS
  • Eerste ongelezen reactie
  • Plaats een reactie
  • Abonneer mij
  • Onderwerp sluiten
0 gasten lezen dit onderwerp.
^ Onderwerp geschreven door Ezio op donderdag 21 maart 2013 om 18:48:39.
Ezio's avatar
Multiviteit: 973
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
Yellow,

Hier ben ik weer met een nieuw Visual Basics vragenuurtje :)
Het zit zo: Wanneer een gebruiker op de knop 'start' drukt krijgt hij 10 opeenvolgende inputboxen te zien. In elke inputbox geeft hij een getalletje in. Nadat de 10 inputboxen gepasseerd zijn, ziet de gebruiker de totaalsom van alle 10 de ingegeven getallen.
Nu heb ik reeds onderstaande code:
CODE
  1. Dim intTeller As Integer
  2.  
  3.         For intTeller = 1 To 10
  4.             InputBox("geef getal " & intTeller & " in")
  5.         Next

Nu zie ik dus 10 inputboxen wanneer ik mijn progje laat runnen.
Die 10 ingegeven getallen moet ik nu echter nog optellen, hiervoor moet ik ze dus waarschijnlijk een variabele toekennen.
Maar hoe doe je dit nu? :s
Je kunt toch moeilijk onderstaande code gebruiken?
CODE
  1. Dim sngGetal & intTeller
  2. Dim sngGetal & intTeller
  3. Dim ...

Alvast bedankt! ;)

Thibault
I'm a gamer because I don't have a life... I've chosen to have many
^ Reactie #1 geschreven door thekid op donderdag 21 maart 2013 om 19:28:52.
thekid's avatar
Multiviteit: 5273
Moderator
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
CODE
  1.  
  2. Dim total as Integer = 0
  3. Dim intTeller as Integer
  4. For intTeller = 1 To 10
  5.   total = total + Convert.ToInt32(InputBox("Geef getal " & intTeller & " in"))
  6. Next
  7.  
  8. MessageBox.Show("Het totaal is: " & total)
  9.  


Kleine waarschuwing, int.Parse zal knallen wanneer de gebruiker een letter ofzo ingeeft. Is het VB of Vb.Net?
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
^ Reactie #2 geschreven door Ezio op donderdag 21 maart 2013 om 19:54:16.
Ezio's avatar
Multiviteit: 973
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
Bedankt voor de code! :D
Ik gebruik vb.net ;)
I'm a gamer because I don't have a life... I've chosen to have many
^ Reactie #3 geschreven door Cdude op donderdag 21 maart 2013 om 20:08:28.
Cdude's avatar
Multiviteit: 5427
Eat my shorts :)
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid

Dixit

Dixit thekid op 21/03/2013 19:28:52:
Kleine waarschuwing, int.Parse zal knallen wanneer de gebruiker een letter ofzo ingeeft. Is het VB of Vb.Net?

Krijg je dan niet gewoon een "System.FormatException." of wat bedoel jij juist met " int.Parse zal knallen"? (noob alert(blush) )
Deze tekst werd het laatst bewerkt voor 0.26 % door Cdude op donderdag 21 maart 2013 om 20:08:40.
"Two things are infinite: the universe and human stupidity; and I'm not sure about the universe."
"Friendship is like peeing in your pants : everybody can see it but only u can feel it's warmth"
^ Reactie #4 geschreven door thekid op donderdag 21 maart 2013 om 20:12:45.
thekid's avatar
Multiviteit: 5273
Moderator
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid

Dixit

Dixit Cdude op 21/03/2013 20:08:28:

Dixit

Dixit thekid op 21/03/2013 19:28:52:
Kleine waarschuwing, int.Parse zal knallen wanneer de gebruiker een letter ofzo ingeeft. Is het VB of Vb.Net?

Krijg je dan niet gewoon een "System.FormatException." of wat bedoel jij juist met " int.Parse zal knallen"? (noob alert(blush) )


InvalidCastException denk ik zo van mijn kop weg :) en eigenlijk moest ik dat nog veranderen want Convert.ToInt32 zal exact dezelfde fout smijten :D

FormatException zie ik eerder voorkomen wanneer je string.Format() zou gebruiken

Dixit

Dixit Ezio op 21/03/2013 19:54:16:

Bedankt voor de code! :D
Ik gebruik vb.net ;)


dan kan je ook total += Inputbox... gebruiken :)
Deze tekst werd het laatst bewerkt voor 43.91 % door thekid op donderdag 21 maart 2013 om 20:15:50.
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
^ Reactie #5 geschreven door thekid op zondag 24 maart 2013 om 09:51:50.
thekid's avatar
Multiviteit: 5273
Moderator
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid

Opmerking van de crew

op vraag van Ezio
slotje thekid
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
  • Pagina
  • 1 van 1
  • RSS
  • Eerste ongelezen reactie
  • Plaats een reactie
  • Abonneer mij
  • Onderwerp sluiten