Re: VB gegevens op een rijtje (derde en goede proging)

Article View: nl.comp.programmeren

Article #97

Back to nl.comp.programmeren Previous Next

#97

From: Ward
Date: Wed, 18 Apr 2007 17:50

63 lines
2920 bytes

En hoe maak je juist die list? Ik ben nog maar een groentje...

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.
> 
> 
>

Technical Details

Message-ID: <PTsVh.127379$gJ3.919657@phobos.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!newsfeed1.ip.tiscali.net!tiscali!newsfeed2.ip.tiscali.net!news.astraweb.com!newsrouter-eu.astraweb.com!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

References: <2BsVh.127215$ZW7.859206@phobos.telenet-ops.be> <f05lav$1ub3$1@textnews.wanadoo.nl>

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!news2.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!newsfeed1.ip.tiscali.net!tiscali!newsfeed2.ip.tiscali.net!news.astraweb.com!newsrouter-eu.astraweb.com!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: Ward <mmoopp@gmail.com>
User-Agent: Thunderbird 1.5.0.10 (Windows/20070221)
MIME-Version: 1.0
Newsgroups: nl.comp.programmeren,be.comp.programming
Subject: Re: VB gegevens op een rijtje (derde en goede proging)
References: <2BsVh.127215$ZW7.859206@phobos.telenet-ops.be> <f05lav$1ub3$1@textnews.wanadoo.nl>
In-Reply-To: <f05lav$1ub3$1@textnews.wanadoo.nl>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Antivirus: avast! (VPS 000734-2, 18/04/2007), Outbound message
X-Antivirus-Status: Clean
Lines: 63
Message-ID: <PTsVh.127379$gJ3.919657@phobos.telenet-ops.be>
Date: Wed, 18 Apr 2007 17:50:39 GMT
NNTP-Posting-Host: 84.194.232.196
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1176918639 84.194.232.196 (Wed, 18 Apr 2007 19:50:39 MEST)
NNTP-Posting-Date: Wed, 18 Apr 2007 19:50:39 MEST
Organization: Telenet Internet

Reply to Parent Message