Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 723

Page 1
2
Next

You are currently viewing page 1 of this multi-page discussion thread

Jan 5th, 2009

help

Expand Post »

hi can anyone help me? because i dont know how to use for next loop i want to make a sample program in vb i have 1 textbox

if i inputted value of 3 in text1.text

it will come up in this answer

1
2
3

then if i click my command button next the next answer should this

4
5
6

next

7
8
9

how can i came up this answeR? using for next loop?

thanks god bless

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

Permalink

Jan 5th, 2009

Re: help

vb Syntax (Toggle Plain Text)
Dim LastNum As Integer
 
Private Sub Command1_Click()
Dim NewNum As Integer
Dim I As Integer
 
If Text1.Text = vbNullString Then
    MsgBox "Enter A Value"
    Exit Sub
End If
 
NewNum = LastNum + Val((Text1.Text) - 1)
 
Text2.Text = vbNullString
For I = LastNum To NewNum
    Text2.Text = Text2.Text & I & " "
Next I
 
LastNum = I
 
End Sub
 
Private Sub Form_Load()
LastNum = 1
End Sub
Dim LastNum As Integer

Private Sub Command1_Click()
Dim NewNum As Integer
Dim I As Integer

If Text1.Text = vbNullString Then
    MsgBox "Enter A Value"
    Exit Sub
End If

NewNum = LastNum + Val((Text1.Text) - 1)

Text2.Text = vbNullString
For I = LastNum To NewNum
    Text2.Text = Text2.Text & I & " "
Next I

LastNum = I

End Sub

Private Sub Form_Load()
LastNum = 1
End Sub

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 5th, 2009

Re: help

ahm only 1 textbox sir and if the number reach in 100 it will stop

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

Permalink

Jan 5th, 2009

Re: help

I'm certain that with what you have been provided, you can make the necessary modifications for it to fit your needs. Secondly, how are you meant to show the numbers, if not for a second textbox? A Label?

Last edited by Comatose; Jan 5th, 2009 at 8:52 am.

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 5th, 2009

Re: help

comatose can u help me about this i have only 1 textbox and 2 command button

this is my code in command1 button

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command1_Click()
Dim x, n
n = Val(Text1.Text)
For x = 1 To n
Print x
Next x
command1.enabled = false
End Sub
Private Sub Command1_Click()
Dim x, n
n = Val(Text1.Text)
For x = 1 To n
Print x
Next x
command1.enabled = false
End Sub

the output of my command1 is for example i inputted a value of 3 in my textbox the output should come w/ this

1
2
3

this is the code in my 2nd button

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command2_Click()
Dim x, n
n = Val(Text1.Text)
For x = n + 1 To n * 2
Print x
Next x
End Sub
Private Sub Command2_Click()
Dim x, n
n = Val(Text1.Text)
For x = n + 1 To n * 2
Print x
Next x
End Sub

the output of this is

4
5
6

if i click once again in my 2nd command button the answer is still 456 i want is like this if i click once again my second command button the answer should like this

7
8
9

if i click again

10
11
12

until he reach in 100.

Last edited by Ancient Dragon; Jan 5th, 2009 at 3:23 pm. Reason: add code tags

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

Permalink

Jan 5th, 2009

Re: help

If you check the code I posted, you'll notice that I keep track of the LastNum (Last number) that X had been. You are not doing this. For x = n + 1 To n * 2 If n is always 3, x will always be from 3 to 6. Try it.. replace n with the number in the textbox. The for loop will always produce the same result. You need to somehow keep track of the last number that X was.... sort of like:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
For I = LastNum To NewNum
     print  I 
Next I
 
LastNum = I
For I = LastNum To NewNum
     print  I 
Next I

LastNum = I

Then, you will have to calculate "NewNum" so you know how far you are supposed to loop until NewNum = LastNum + Val((Text1.Text) - 1). Furthermore, LastNum needs to be public (or static, but public is easier in this case).

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 5th, 2009

Re: help

because the requirements is only 1 textbox

thats why it so hard

if i inputted 5 in textbox the output should like this

1
2
3
4
5

then if i click once again it should be like this

6
7
8
9
10

so on. .

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

Permalink

Jan 5th, 2009

Re: help

That is what my initial post does. How about removing the second textbox, and changing it from text2.text = text2.text & i & " " to something like print i

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 5th, 2009

Re: help

ive tried your code making a 2 texboxt but it still wrong for example in the text1 value = 5

1
2
3
4
5

then if i click once again the answer in the text2 should

6
7
8
9
10

but in your code is still

1
2
3
4
5

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

Permalink

Jan 5th, 2009

Re: help

Then you put Dim LastNum as Integer in the wrong spot Brosive.

Attached Files

FigureIt.zip (1.4 KB, 4 views)

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Page 1
2
Next

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: showing record on the report

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Online Examination

DaniWeb Message

Cancel Changes

User Name
Password