opdracht visual basic (splitsen)

[daandenboon]

Hallo,

wij moeten in 2-tallen een aantal opdrachten maken als huiswerk.
uit een van deze opdrachten komen wij niet geheel uit. dit is de opdracht:

2 Opsplitsen van bedrag in munteenheden

Sinds winkels bij de banken extra moeten betalen voor wisselgeld, moeten caissières zuinig zijn met het geld in de kassa. In deze opdracht ga je een programma maken waarmee je kunt uitrekenen hoe je een bedrag met zo min mogelijk biljetten en munten kunt uitbetalen.

Tip: gebruik de functie Int(..) om naar beneden af te ronden op een geheel getal.
Gebruik verder waar nodig de functies Round en IsNumeric.

nu hebben wij een werkende code gekregen voor afgeronden getallen, bij decimalen werkt het niet. het probleem ligt in de afronding of in de komma! (in de opdracht is als tip gegeven de IsNumeric , wij hebben deze niet gebruikt omdat wij de werking ervan niet begrijpen)
Hier volgt onze code:

we hopen dat jullie ons kunnen helpen!

met vriendelijke groeten,

Daan en Tjeerd

 

[Mark xl]

Ik zie de fout al

Je moet goed controleren welke datatypen je declareert
Integer kan geen decimalen bevatten, Double kan dat wel.

Probeer daar de fout te zoeken

 

[daandenboon]

ten eerste bedankt voor je snelle reactie!

nu ik de code bekijk zie ik dat dit de versie is waar we wat aan het proberen waren! maar wat betreft integer en double hebben we alles geprobeerd. als u toch denkt dat daar de fout in zit, zou u dan iets specifieker kunnen zijn?

Alvast bedankt,

Daan en Tjeerd

 

[huijb]

@daandenboon:
Wanneer je een VBA-code of formule wil toevoegen, plaats deze dan tussen de code-tags (

 en

) oftewel selecteer je code en klik op het # icoontje. Bij voorbaat dank, zeker ook namens de helpers.

 

[E v R]

Aangezien het een huiswerkopdracht betreft enkel wat tips:

voor wat betreft IsNumeric en andere gegevens in VBA:
Selecteer het woord in VBA en druk op F1

Kijk ook eens naar een loop, kan de code een stuk korter maken

De functie Mod zou ik in deze opdracht gebruikt hebben

 

[Mark xl]

Dit komt uit jullie code: (behalve het vetgedrukte)

Dim aantal01S as Double
Dim getal12 as Double
Dim getal13 As [COLOR="red"]Integer[/COLOR]

[B]getal12 = 0.17[/B]

getal13 = (getal12 - (aantal01S * 0.1))
msgbox getal13

pas dit nu eens aan totdat je decimalen ziet

De functie Mod zou ik in deze opdracht gebruikt hebben

Ik ook... maar dat zal waarschijnlijk wel een paar lessen later zijn...

 

[huijb]

Het is niet toegestaan om huiswerkvragen te plaatsen. Zie hier http://www.helpmij.nl/forum/showthread.php?t=232791 deze gaat dicht.