DaniWeb Home > Forums > Software Development > Visual Basic 4 / 5 / 6

RSS

help

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums

Page 1 of 2

•

Posts: 161

Reputation: ryan311 has a little shameless behaviour in the past

Solved Threads: 1

ryan311

Offline

Junior Poster

help

Jan 5th, 2009

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

•

Posts: 2,404

Reputation: Comatose is a jewel in the rough

Solved Threads: 209

Comatose

Offline

Taboo Programmer

Re: help

Jan 5th, 2009

 Help with Code Tags 
 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

•

Posts: 161

Reputation: ryan311 has a little shameless behaviour in the past

Solved Threads: 1

ryan311

Offline

Junior Poster

Re: help

Jan 5th, 2009

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

•

Posts: 2,404

Reputation: Comatose is a jewel in the rough

Solved Threads: 209

Comatose

Offline

Taboo Programmer

Re: help

Jan 5th, 2009

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 7:52 am.

•

Posts: 161

Reputation: ryan311 has a little shameless behaviour in the past

Solved Threads: 1

ryan311

Offline

Junior Poster

Re: help

Jan 5th, 2009

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

this is my code in command1 button

Help with Code Tags

(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

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

Help with Code Tags

(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

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 2:23 pm. Reason: add code tags

•

Posts: 2,404

Reputation: Comatose is a jewel in the rough

Solved Threads: 209

Comatose

Offline

Taboo Programmer

Re: help

Jan 5th, 2009

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:

Help with Code Tags

(Toggle Plain Text)

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).

•

Posts: 161

Reputation: ryan311 has a little shameless behaviour in the past

Solved Threads: 1

ryan311

Offline

Junior Poster

Re: help

Jan 5th, 2009

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. .

•

Posts: 2,404

Reputation: Comatose is a jewel in the rough

Solved Threads: 209

Comatose

Offline

Taboo Programmer

Re: help

Jan 5th, 2009

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

•

Posts: 161

Reputation: ryan311 has a little shameless behaviour in the past

Solved Threads: 1

ryan311

Offline

Junior Poster

Re: help

Jan 5th, 2009

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