Article View: nl.comp.programmeren
Article #99Re: VB gegevens op een rijtje (derde en goede proging)
From: Ward
Date: Thu, 19 Apr 2007 05:50
Date: Thu, 19 Apr 2007 05:50
86 lines
3534 bytes
3534 bytes
Daarom snapte ik het niet, ik ben nu bezig met de "Console Application"...
W.
Bert ( A W RvB ) schreef:
> 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.
>>>
>>>
>>>
>
>
Technical Details
Message-ID:
<QqDVh.128526$P83.884886@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-mailReferences:
<2BsVh.127215$ZW7.859206@phobos.telenet-ops.be> <f05lav$1ub3$1@textnews.wanadoo.nl> <PTsVh.127379$gJ3.919657@phobos.telenet-ops.be> <f05oe5$1vdv$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> <PTsVh.127379$gJ3.919657@phobos.telenet-ops.be> <f05oe5$1vdv$1@textnews.wanadoo.nl> In-Reply-To: <f05oe5$1vdv$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: 86 Message-ID: <QqDVh.128526$P83.884886@phobos.telenet-ops.be> Date: Thu, 19 Apr 2007 05:50:40 GMT NNTP-Posting-Host: 84.194.232.196 X-Complaints-To: abuse@telenet.be X-Trace: phobos.telenet-ops.be 1176961840 84.194.232.196 (Thu, 19 Apr 2007 07:50:40 MEST) NNTP-Posting-Date: Thu, 19 Apr 2007 07:50:40 MEST Organization: Telenet Internet