Programming Forums - View Single Post - [vb6] need advice concerning a largescale non-recurring random number generator

KTiger · Jun 8th, 2006, 6:04 AM

Oki here it is, this code DID work with Windows 98 and I haven't tested it with XP.

Put this in modul-section

Option Explicit

'Time Device
Public Declare Function GetTickCount& Lib "kernel32" ()

and put this in either form or module

(Toggle Plain Text)

Dim fTime As Long
fTime = GetTickCount&

And just repeat GetTickCount to get new tick, ie: 7893244643
basically it's number of ticks since 1970 1.january, and 1 tick = 1 millisecond

I hope this works for you, and remember this is VB6 code (not VB.net).

Jun 8th, 2006, 6:04 AM	#9
KTiger Newbie Join Date: May 2006 Location: Narvik, Norway Posts: 22 Rep Power: 0	Oki here it is, this code DID work with Windows 98 and I haven't tested it with XP. Put this in modul-section (Toggle Plain Text) Option Explicit 'Time Device Public Declare Function GetTickCount& Lib "kernel32" () Option Explicit 'Time Device Public Declare Function GetTickCount& Lib "kernel32" () and put this in either form or module (Toggle Plain Text) Dim fTime As Long fTime = GetTickCount& Dim fTime As Long fTime = GetTickCount& And just repeat GetTickCount to get new tick, ie: 7893244643 basically it's number of ticks since 1970 1.january, and 1 tick = 1 millisecond I hope this works for you, and remember this is VB6 code (not VB.net). __________________ To sell your own books it's like selling a piece of your soul. Kim