[VB6] Calculator vraagje...

[NielsNL]

Ik ben bezig met een programmaatje voor m'n werk.

Het is de bedoeling om een getal uit te splitsen in aantal waardes (120, 50, 40, 20, 10, 5, 4, 3, 2, 5.2, 5.3, 4.7 & 4.8), zodat er bij elkaar weer de beginwaarde uitkomt...

bv: 345,6 --> 120, 120, 50, 40, 5, 5.3 & 5.3

De waarde wordt in een textbox ingetypt,
en de uitkomst komt in een listbox te staan.

Zou iemand even een begginetje voor me kunnen schrijven?
Je hoeft dus niet de hele routine te geven, of alle waardes erin te zetten...

Alvast hartstikke bedankt!

[NielsNL]

Hm, is dit zo moeilijk?
Of heb ik gewoon geen geduld?

[Tsjipmanz]

Als het om de waardes gaat die tussen de haakjes staan is het niet zo moeilijk.

Gewoon steeds het grootste getal eraf trekken totdat het niet meer kan, en dan verder met een kleiner getal, totdat je op precies 0 staat.

edit:

topix omhoog trappe wordt hier niet gewaardeerd, hiermee elimineer je de kans op hulp nogal

[Verwijderd]

Op vrijdag 19 april 2002 15:36 schreef NelisNL het volgende:
Ik ben bezig met een programmaatje voor m'n werk.

Het is de bedoeling om een getal uit te splitsen in aantal waardes (120, 50, 40, 20, 10, 5, 4, 3, 2, 5.2, 5.3, 4.7 & 4.8), zodat er bij elkaar weer de beginwaarde uitkomt...

bv: 345,6 --> 120, 120, 50, 40, 5, 5.3 & 5.3

De waarde wordt in een textbox ingetypt,
en de uitkomst komt in een listbox te staan.

Zou iemand even een begginetje voor me kunnen schrijven?
Je hoeft dus niet de hele routine te geven, of alle waardes erin te zetten...

Alvast hartstikke bedankt!

Een beejte apart.
Eerst zeg je dat je bezig bent met een programma'tje.
En dan vraag je of iemand even een beginnetje voor je kan schrijven.

topix omhoog trappe wordt hier niet gewaardeerd,

En btw. script/code requests worden niet gewaardeerd.
http://gathering.tweakers.net/forum/list_messages/392390/#2

[NielsNL]

Op vrijdag 19 april 2002 16:29 schreef webskipper het volgende:

[..]

Een beejte apart.
Eerst zeg je dat je bezig bent met een programma'tje.
En dan vraag je of iemand even een beginnetje voor je kan schrijven.

[..]

Ik bedoelde alleen een begginetje voor die routine, de rest red ik zelf wel...

Dus bijv. dat stukkie dat er steeds een "stukkie" vanaf wordt getrokken...

Ik wist niet dat een forum omhoog wordt "getrapt" als je zelf reply's (onnodige) gaat toevoegen , sorry daarvoor.

En btw. script/code requests worden niet gewaardeerd.
http://gathering.tweakers.net/forum/list_messages/392390/#2

Ik wil dus geen script "ombouwen", ik vraag een maker een script te schrijven... En dat mag natuurlijk wel... (toch?)

[Netman768]

Idd gewoon het grootst mogelijke getal eraftrekken

uit men hoofd:

code:

Waarde = InputTextbox.text 

Trekafvoegtoe:

if Waarde > 120 then
 Waarde = Waarde - 120
 textbox.text = textbox.text + "120 eraf "
 goto trekafvoegtoe
end if

if Waarde > 100 then 
 Waarde = Waarde - 100
 textbox.text = textbox.text + "100 eraf"
 goto trekafvoegtoe
end if

Enz.

[edit]
Waarde moet een Integer zijn, textbox moet de textbox waar je de output naar wil schrijven zijn. In InputTextbox moet je de waarde invullen

Vergeet niet aan het eind het zooitje af te breken, anders hangt je comp

[Blizard]

Ooit een proggie moeten schrijven dat een getal verdeelde in muntstukken (toen nog BEF), misschien heb je hier iets aan ?

code:

Private Sub cmdBereken_Click()
Dim dblInvoer As Double
Dim dblGetal50 As Double
Dim dblGetal20 As Double
Dim dblGetal5 As Double
Dim dblGetal1 As Double

dblInvoer = CDbl(txtInvoer)

dblGetal50 = dblInvoer \ 50
dblInvoer = dblInvoer Mod 50
dblGetal20 = dblInvoer \ 20
dblInvoer = dblInvoer Mod 20
dblGetal5 = dblInvoer \ 5
dblInvoer = dblInvoer Mod 5
dblGetal1 = dblInvoer

txtGetal50 = CStr(dblGetal50)
txtGetal20 = CStr(dblGetal20)
txtGetal5 = CStr(dblGetal5)
txtGetal1 = CStr(dblGetal1)

End Sub

[D2k]

2 voor de prijs van 1

Hoi,
[topic=392390/1/25]

Policy mbt het omhoogschoppen van threads. Wacht minstens 24 uur voor je je topic omhoog schopt. Doe dit dan ook alleen met een zinnige opmerking en dus niet met "Waarom antwoord er nou niemand" nadat je 5 minuten geen antwoord hebt gehad. Sommigen van ons hebben een leven

en
Hoi,
deze thread gaat dicht
Dit is wat wij noemen een scriptrequest en die mogen hier niet.
P&W is gericht op het zelf maken van dingen en in het oplossen van problemen die daarbij kunnen ontstaan.
Kijk bijvoorbeeld eens op www.hotscripts.com of in de P&W faq.
Zie voor discussies: [topic=411717/1/25]