Article View: nl.comp.programmeren
Article #98Re: VB gegevens op een rijtje (derde en goede proging)
From: Bert ( A W RvB )
Date: Wed, 18 Apr 2007 18:36
Date: Wed, 18 Apr 2007 18:36
84 lines
3153 bytes
3153 bytes
Ward schreef:
> En hoe maak je juist die list? Ik ben nog maar een groentje...
Open de ( zit in View ) Toolbox en klik op de listbox en plaats deze in
de Form door met de muis aan te geven hoe groot deze moet worden. Open
de properties window en verander de naam van de listbox.
Bert RvB.
>
> W.
>
> Bert ( A W RvB ) schreef:
>
>> Ward schreef:
>>
>>> Ik ben een beetje aan het leren programmeren in Visual Basic en ik heb
>>> een programmaatje gemaakt om de delers van een getal te zoeken. Dit is
>>> het programma:
>>>
>>> 'declaratie variablen + invoer
>>>
>>> Dim SNGgetal As Single
>>> SNGgetal = InputBox("geef een getal om de delers van te
>>> zoeken")
>>> If SNGgetal = 0 Then End
>>> Dim SNGtest As Single
>>> SNGtest = 2
>>> Dim SNGdeler As Single
>>> SNGdeler = 0
>>> Dim SNGdeling As Single
>>>
>>> 'verwerking
>>>
>>> 'verwerking (lus) + uitvoer
>>
>>
>>
>> lstDelers.Clear
>>
>>
>>>
>>> Do While SNGtest > 1
>>> SNGdeler = SNGdeler + 1
>>> SNGdeling = SNGgetal / SNGdeler
>>> SNGtest = SNGgetal / SNGdeler
>>>
>>> If SNGdeling = Int(SNGdeling) Then
>>
>> lstDelers.AddItem SNGdeling
>>
>> doevents
>>
>>
>> endif
>>
>>
>>>
>>> Loop
>>>
>>> Als ik dit nu ga uitvoeren wordt er iedere keer als een deler is
>>> gevonden een bericht gegeven met die deler. Nu zou ik graag hebben dat
>>> al die delers op het einde in een rijtje worden weer gegeven. Is dit
>>> mogelijk? en hoe?
>>>
>>> W.
>>
>>
>> Maak een list aan: lstDelers
>>
>>
>>
>> Bert RvB.
>>
>>
>>
--
Bert RvB.
www.rjrsnvbrn.nl
Technical Details
Message-ID:
<f05oe5$1vdv$1@textnews.wanadoo.nl>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.germany.com!feed.xsnews.nl!border-1.ams.xsnews.nl!feeder1.cambrium.nl!feed.tweaknews.nl!news2.euro.net!textnews.euro.net!textnews.wanadoo.nl!not-for-mailReferences:
<2BsVh.127215$ZW7.859206@phobos.telenet-ops.be> <f05lav$1ub3$1@textnews.wanadoo.nl> <PTsVh.127379$gJ3.919657@phobos.telenet-ops.be>Show Full Headers
Complete Article Headers
X-Google-Thread: 107324,4eefbb53c7e96621 X-Google-Thread: fcea4,4eefbb53c7e96621 X-Google-Attributes: gid107324,gidfcea4,public X-Google-Language: DUTCH,ASCII-7-bit Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.germany.com!feed.xsnews.nl!border-1.ams.xsnews.nl!feeder1.cambrium.nl!feed.tweaknews.nl!news2.euro.net!textnews.euro.net!textnews.wanadoo.nl!not-for-mail From: "Bert ( A W RvB )" <a.w.r.v.b@wanadoo.nl> Newsgroups: nl.comp.programmeren,be.comp.programming Subject: Re: VB gegevens op een rijtje (derde en goede proging) Date: Wed, 18 Apr 2007 20:36:33 +0200 Organization: Wanadoo NL Lines: 84 Message-ID: <f05oe5$1vdv$1@textnews.wanadoo.nl> References: <2BsVh.127215$ZW7.859206@phobos.telenet-ops.be> <f05lav$1ub3$1@textnews.wanadoo.nl> <PTsVh.127379$gJ3.919657@phobos.telenet-ops.be> Reply-To: a.w.r.v.b@wanadoo.nl NNTP-Posting-Host: c529dafd7.cable.wanadoo.nl Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: textnews.wanadoo.nl 1176921349 64959 82.157.175.215 (18 Apr 2007 18:35:49 GMT) X-Complaints-To: abuse@wanadoo.nl NNTP-Posting-Date: Wed, 18 Apr 2007 18:35:49 +0000 (UTC) User-Agent: Mozilla Thunderbird 1.0.7 (Windows/20050923) X-Accept-Language: nl-NL, nl, en In-Reply-To: <PTsVh.127379$gJ3.919657@phobos.telenet-ops.be>