🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: nl.comp.programmeren
Article #99

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

#99
From: Ward
Date: Thu, 19 Apr 2007 05:50
86 lines
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-mail
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>

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