How to generate numbers is sequential order

[rpglover]

Hi there guys, i need a code in Visual Basic 6 for a form which allows me to auto generate numbers in sequential order starting from 1 then 2 then 3 then 4 etc.

Sorry if this was a repeated question but i'm new here and i need it for a job in my work.

Thanks alot.

[si_the_geek]

Welcome to VBForums

Thread moved from the 'CodeBank VB6' forum (which is for you to post working code examples, not questions) to the 'VB6 and earlier' forum

[Spoo]

RPG

At its most basic level, you could use a loop

Dim nBeg as Integer
Dim nEnd as Integer
Dim nSeq as Integer
' 1. define scope
nBeg = 1
nEnd = 4    
' 2. generate the sequential numbers
For ii = nBeg to nEnd
    nSeq = nSeq + 1
Next ii

When nSeq is Dim'd, it's value is 0 (or more precisely, Empty).
Thus, each iteration through the loop will increment its value by 1
and produce the series ... 1 2 3 4

Did you need something more "advanced"?

Spoo

[Code Doc]

Build a form with a command button and a label. Then apply this code:

Dim MyNum As Long
Private Sub Command1_Click()
MyNum = MyNum + 1
Label1.Caption = MyNum
End Sub

You can press the command button a couple of billion times or so.

[jmsrickland]

Code Doc, no offense, but the OP indicated to auto generate but your method requires user intervention.

[Code Doc]

Code Doc, no offense, but the OP indicated to auto generate but your method requires user intervention.

Whoops! Sorry, I guess I missed the term, "Auto". OP did not indicate how fast he wanted the numbers to appear, nor did he say how many that he wanted to see.

So, let's modify the code by adding a timer and let the computer show the sequential numbers with no intervention:

Dim MyNum As Long
Private Sub Command1_Click()
MyNum = MyNum + 1
Label1.Caption = MyNum
End Sub

Private Sub Form_Load()
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
Command1.Value = True
End Sub

Cheers!