🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

🏠 Home 📰 News 🗂️ Usenet Search 🔑 Login 📝 Register
Thread View: nl.comp.programmeren
13 messages
[T] Back to Threads [V] Tree View [G] Group Articles
13 total messages Started by Ward Wed, 18 Apr 2007 17:30
VB gegevens op een rijtje (derde en goede proging)
#95
Author: Ward
Date: Wed, 18 Apr 2007 17:30
34 lines
2286 bytes 
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

          Do While SNGtest > 1
              SNGdeler = SNGdeler + 1
              SNGdeling = SNGgetal / SNGdeler
              SNGtest = SNGgetal / SNGdeler

              If SNGdeling = Int(SNGdeling) Then MsgBox(SNGdeler)

          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.
Re: VB gegevens op een rijtje (derde en goede proging)
#96
Author: Bert ( A W RvB )
Date: Wed, 18 Apr 2007 17:43
61 lines
2501 bytes 
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
Re: VB gegevens op een rijtje (derde en goede proging)
#97
Author: 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.
> 
> 
>
Re: VB gegevens op een rijtje (derde en goede proging)
#98
Author: Bert ( A W RvB )
Date: Wed, 18 Apr 2007 18:36
84 lines
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
Re: VB gegevens op een rijtje (derde en goede proging)
#99
Author: 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.
>>>
>>>
>>>
> 
>
Re: VB gegevens op een rijtje (derde en goede proging)
#100
Author: Bert ( A W RvB )
Date: Thu, 19 Apr 2007 14:18
25 lines
1629 bytes 
Ward schreef:
> Daarom snapte ik het niet, ik ben nu bezig met de "Console Application"...
> 
> W.


	Wat gebruik je?

	VB 6.0 oid

	of

	Micorsoft Visual Basic 2005

	of iets anders?


	Bert RvB.




-- 
Bert RvB.
www.rjrsnvbrn.nl
Re: VB gegevens op een rijtje (derde en goede proging)
#101
Author: Ward
Date: Fri, 20 Apr 2007 05:41
28 lines
1884 bytes 
2005 Express Edition

W.

Bert ( A W RvB ) schreef:
> Ward schreef:
>> Daarom snapte ik het niet, ik ben nu bezig met de "Console 
>> Application"...
>>
>> W.
> 
> 
>     Wat gebruik je?
> 
>     VB 6.0 oid
> 
>     of
> 
>     Micorsoft Visual Basic 2005
> 
>     of iets anders?
> 
> 
>     Bert RvB.
> 
> 
> 
>
Re: VB gegevens op een rijtje (derde en goede proging)
#102
Author: Patrick
Date: Sun, 22 Apr 2007 09:38
25 lines
1635 bytes 
Om je een beetje op weg te helpen kan je gebruik maken van een 
StringBuilder. Overigens is niet de enige weg die naar 'Rome' gaat.

>          'declaratie variablen + invoer
>
>          Dim SNGgetal As Single
>          ...
>          Dim SNGdeling As Single

Dim sbResultaten As New Text.StringBuilder

>
>          Do While SNGtest > 1
>              SNGdeler = SNGdeler + 1
>              SNGdeling = SNGgetal / SNGdeler
>              SNGtest = SNGgetal / SNGdeler

If SNGdeling = Int(SNGdeling) Then
  strBuilder.AppendLine(SNGdeler)
End If

>
>          Loop

MsgBox(sbResultaten.ToString)
Re: VB gegevens op een rijtje (derde en goede proging)
#103
Author: Ward
Date: Sun, 22 Apr 2007 17:06
37 lines
2325 bytes 
Dit werkt toch niet helemaal, ik krijg onderstaande foutmelding:

Error	1	Name 'strBuilder' is not declared.	D:\Mijn 
Documenten\Ward\Visual Studio 2005\Projects\Delers zoeken 1\Delers 
zoeken 1\Delers Zoeken.vb	26	17	Delers zoeken 1

Wat kan ik hieraan doen?
W.


Patrick schreef:
> Om je een beetje op weg te helpen kan je gebruik maken van een 
> StringBuilder. Overigens is niet de enige weg die naar 'Rome' gaat.
> 
>>          'declaratie variablen + invoer
>>
>>          Dim SNGgetal As Single
>>          ...
>>          Dim SNGdeling As Single
> 
> Dim sbResultaten As New Text.StringBuilder
> 
>>          Do While SNGtest > 1
>>              SNGdeler = SNGdeler + 1
>>              SNGdeling = SNGgetal / SNGdeler
>>              SNGtest = SNGgetal / SNGdeler
> 
> If SNGdeling = Int(SNGdeling) Then
>   strBuilder.AppendLine(SNGdeler)
> End If
> 
>>          Loop
> 
> MsgBox(sbResultaten.ToString)
> 
> 
>
Re: VB gegevens op een rijtje (derde en goede proging)
#104
Author: Patrick
Date: Sun, 22 Apr 2007 21:40
10 lines
1264 bytes 
>
> Wat kan ik hieraan doen?
> W.
>
Oops foutje van mij kant.

strBuilder moet natuurlijk, sbResultaten worden ;-)

(had eerst de copy gemaakt en daarna ergens anders ingeplakt en wat 
aangepast)
Re: VB gegevens op een rijtje (derde en goede proging)
#105
Author: Ward
Date: Mon, 23 Apr 2007 17:13
18 lines
1829 bytes 
Bedankt! Nu werkt het.
Dan kan ik me nu gaan bezig houden met het uitzoeken hoe de code juist 
in elkaar zit dat ik later zulke zaken zelf kan samenstellen.

W.

Patrick schreef:
>> Wat kan ik hieraan doen?
>> W.
>>
> Oops foutje van mij kant.
> 
> strBuilder moet natuurlijk, sbResultaten worden ;-)
> 
> (had eerst de copy gemaakt en daarna ergens anders ingeplakt en wat 
> aangepast) 
> 
>
Re: VB gegevens op een rijtje (derde en goede proging)
#106
Author: Bert ( A W RvB )
Date: Mon, 23 Apr 2007 20:24
17 lines
1745 bytes 
Ward schreef:
> 2005 Express Edition


	Ik heb antwoord gegeven alsof het Visual Basic 1.x of hoger moest zijn.

	Van 2005 Express Edition snap ik nog niet zoveel.


	Bert RvB.




-- 
Bert RvB.
www.rjrsnvbrn.nl
Re: VB gegevens op een rijtje (derde en goede proging)
#107
Author: Ward
Date: Tue, 24 Apr 2007 14:55
19 lines
1932 bytes 
Ik heb hiervoor gekozen omdat express edition nu eenmaal verniet is.

W.

Bert ( A W RvB ) schreef:
> Ward schreef:
>> 2005 Express Edition
> 
> 
>     Ik heb antwoord gegeven alsof het Visual Basic 1.x of hoger moest zijn.
> 
>     Van 2005 Express Edition snap ik nog niet zoveel.
> 
> 
>     Bert RvB.
> 
> 
> 
>
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads