Programmatje maken die mij helpt met tellen

[WILLIAMXXX]

Hey,

Zoals in mijn profiel staat dat ik wil tellen van 1 tot miljard (1000000000?)
Kan iemand mij helpen iets te maken dat zelf telt dat dus snapt wat alles wordt van 1 tot miljard...
Ik kon niets bedenken omdat je dan bijvoorbeeld 121 hebt moet die eerst
honderd doen dan de een en dan de twintig...

 

[visha]

tellen??
je bedoeld getallen omzetten in tekst.
dus eigenlijk vertalen??

 

[WILLIAMXXX]

Ja, dus 1 wordt een 2 wordt twee etc. tot een miljard

 

[RonaldGJ]

Ik wil wel helpe:thumb:, lijkt me supergaaf!
Ik zal is ff kijken hoe het werkt!

Gr. Ronald!

 

[WILLIAMXXX]

Die ene kerel had d'r ook een maar die wil de code nie zeggen...

Maar bedankt dat je me wilt helpen:thumb:

 

[RonaldGJ]

Ik heb het al dat ie het doet in cijfers:thumb:!

Nu nog een module ofzo maken, of een subje dat hij cijfers omzet in letters! En ik heb al ideën!

Gr. Ronald!

 

[WILLIAMXXX]

Oké, ik hoor ze graag

 

[MerlinTheGreat]

In bijlage een module die ik een aantal jaren geleden heb gemaakt om getallen in tekst om te zetten. Gaat wel niet tot 1 miljard omdat ik dat niet nodig had, maar je kan hem makkelijk aanpassen (uitbreiden).
Ik heb hem vandaag geëditeerd en een if-then-elseif-endif vervangen door een select case, vandaar de datum...
De module is wel voor VB6, maar je kan hem makkelijk naar VB2005 omzetten.

Succes ermee!

 

[WILLIAMXXX]

Oke, bedankt zal wel even uit proberen heb nu geen tijd

 

[RonaldGJ]

Hoe werkt het precies? Ik heb hem toegevoegd en er even naar gekeken, maar kom er niet helemaal uit!

Gr. Ronald!

 

[WILLIAMXXX]

Ik snap het dus ook niet helemaal hoe ik het "goed" voor elkaar krijg in vb.net

 

[RonaldGJ]

ik gebruik VB60! Maar weet niet hoe ik het moet gebruiken?

Gr. Ronald!

 

[wimpie999]

tis een module. dus je kan hem zo toevoegen bij je project.

vb.

text1= GetalNaarLetters(50)

text1 wordt dan vijftig.

 

[WILLIAMXXX]

Oké, ik heb nu even de module in vb.net gezet maar ik heb 2 fouten eentje heb ik er 2X:



Verder is alle code goed, kan iemand mij helpe?