VB 2005 Express edition : """Willekeurige getallen""""

Thread View: nl.comp.programmeren

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by Ward Fri, 27 Apr 2007 16:01

#108

Author: Ward
Date: Fri, 27 Apr 2007 16:01

19 lines
1799 bytes

Hoe komt het dat als ik dit

     Sub Main()
         Dim arraytt(5) As Byte
         Dim AC As Integer
         For AC = 1 To 5
             arraytt(AC) = (Int(Rnd() * 42) + 1)
         Next
         For AC = 1 To 5
             MsgBox(arraytt(AC))
         Next
     End Sub

uitvoer met VB 2005 krijg ik willekeurige getallen, maar als ik dit 
programma nogmaals uitvoer krijg ik juist dezelfde getallen enz enz 
enz... Als ik echter dit in access bij modulles invoer werkt het 
programma wel zoals het moet, hoe komt dit?

W.

Re: VB 2005 Express edition : """Willekeurige getallen""""

#109

Author: Jawade
Date: Fri, 27 Apr 2007 16:27

28 lines
2512 bytes

In article <l7pYh.144037$iy5.807039@phobos.telenet-ops.be>, Ward <mmoopp@gmail.com> says...
> Hoe komt het dat als ik dit
> 
>      Sub Main()
>          Dim arraytt(5) As Byte
>          Dim AC As Integer
>          For AC = 1 To 5
>              arraytt(AC) = (Int(Rnd() * 42) + 1)
>          Next
>          For AC = 1 To 5
>              MsgBox(arraytt(AC))
>          Next
>      End Sub
> 
> uitvoer met VB 2005 krijg ik willekeurige getallen, maar als ik dit 
> programma nogmaals uitvoer krijg ik juist dezelfde getallen enz enz 
> enz... Als ik echter dit in access bij modulles invoer werkt het 
> programma wel zoals het moet, hoe komt dit?

Het komt omdat de random-generator steeds gereset wordt bij het
starten. Ik gebruik dan "randomize timer" maar of dat in VB 2005
ook nog werkt weet ik niet zeker.

-- 
Met vriendelijke groeten, Jawade.       Bootmanager ook voor Vista
Zin in een koffie- thee- of borrelpraatje?  Kom naar alt.jawade.nl
http://jawade.nl (Mirror op http://www.geocities.com/kolibrie.geo)
Bootmanager, ClrMBR, DiskEditors, POP3lezer, Filebrowser, Kalender

Re: VB 2005 Express edition : """Willekeurige getallen""""

#110

Author: JanS
Date: Fri, 27 Apr 2007 21:13

39 lines
2903 bytes

"Jawade" <Henk_Jawade@hotmail.com> wrote in message 
news:MPG.209c42e12ebc1aa098aa56@news.caiway.nl...
> In article <l7pYh.144037$iy5.807039@phobos.telenet-ops.be>, Ward 
> <mmoopp@gmail.com> says...
>> Hoe komt het dat als ik dit
>>
>>      Sub Main()
>>          Dim arraytt(5) As Byte
>>          Dim AC As Integer
>>          For AC = 1 To 5
>>              arraytt(AC) = (Int(Rnd() * 42) + 1)
>>          Next
>>          For AC = 1 To 5
>>              MsgBox(arraytt(AC))
>>          Next
>>      End Sub
>>
>> uitvoer met VB 2005 krijg ik willekeurige getallen, maar als ik dit
>> programma nogmaals uitvoer krijg ik juist dezelfde getallen enz enz
>> enz... Als ik echter dit in access bij modulles invoer werkt het
>> programma wel zoals het moet, hoe komt dit?
>
> Het komt omdat de random-generator steeds gereset wordt bij het
> starten. Ik gebruik dan "randomize timer" maar of dat in VB 2005
> ook nog werkt weet ik niet zeker.
>
> -- 
> Met vriendelijke groeten, Jawade.       Bootmanager ook voor Vista
> Zin in een koffie- thee- of borrelpraatje?  Kom naar alt.jawade.nl
> http://jawade.nl (Mirror op http://www.geocities.com/kolibrie.geo)
> Bootmanager, ClrMBR, DiskEditors, POP3lezer, Filebrowser, Kalender

zie MSDN voor de volledige uitleg

http://msdn2.microsoft.com/en-us/library/8zedbtdt.aspx

--
groeten

Re: VB 2005 Express edition : """Willekeurige getallen""""

#111

Author: Ward
Date: Sat, 28 Apr 2007 08:37

44 lines
3052 bytes

Het werkt, bedankt

W.

JanS schreef:
> "Jawade" <Henk_Jawade@hotmail.com> wrote in message 
> news:MPG.209c42e12ebc1aa098aa56@news.caiway.nl...
>> In article <l7pYh.144037$iy5.807039@phobos.telenet-ops.be>, Ward 
>> <mmoopp@gmail.com> says...
>>> Hoe komt het dat als ik dit
>>>
>>>      Sub Main()
>>>          Dim arraytt(5) As Byte
>>>          Dim AC As Integer
>>>          For AC = 1 To 5
>>>              arraytt(AC) = (Int(Rnd() * 42) + 1)
>>>          Next
>>>          For AC = 1 To 5
>>>              MsgBox(arraytt(AC))
>>>          Next
>>>      End Sub
>>>
>>> uitvoer met VB 2005 krijg ik willekeurige getallen, maar als ik dit
>>> programma nogmaals uitvoer krijg ik juist dezelfde getallen enz enz
>>> enz... Als ik echter dit in access bij modulles invoer werkt het
>>> programma wel zoals het moet, hoe komt dit?
>> Het komt omdat de random-generator steeds gereset wordt bij het
>> starten. Ik gebruik dan "randomize timer" maar of dat in VB 2005
>> ook nog werkt weet ik niet zeker.
>>
>> -- 
>> Met vriendelijke groeten, Jawade.       Bootmanager ook voor Vista
>> Zin in een koffie- thee- of borrelpraatje?  Kom naar alt.jawade.nl
>> http://jawade.nl (Mirror op http://www.geocities.com/kolibrie.geo)
>> Bootmanager, ClrMBR, DiskEditors, POP3lezer, Filebrowser, Kalender
> 
> zie MSDN voor de volledige uitleg
> 
> http://msdn2.microsoft.com/en-us/library/8zedbtdt.aspx
> 
> --
> groeten
> 
>

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