I think should beCode:Loop Until mynumber = 10
Code:Do Until mynumber = 10
This is a bit more complicated then you may think, I mean do without loop? Just add do. Buuuut in this case I can not find this and I need this to work... sooo...
Sorry for the mess, I attempted tabbing... I don't like it... heheCode:Thank you for the help... I don't want TNT changing anything on neopets so I am ridding of this code being public.
Last edited by Ashleys165; 01-22-2012 at 11:38 AM.
I think should beCode:Loop Until mynumber = 10
Code:Do Until mynumber = 10
Ashleys165 (01-21-2012)
If you indent your code properly it would be much easier to debug things like this.
Sorry it is hard to read this code (indent when you are in a loop, the indention shows what peice of code goes within which part of the loop) , but it looks like you are mixing the types of loop statements.
When using Do until, you don't need a second loop statement.
A do while statement requires the loopCode:Private Sub Command1_Click() Dim x As Integer x = 0 Do Text1.Text = x x = x + 1 Loop Until x = 10 End Sub
It does not appear that you are incrementing your number inside the loop, I am also not sure why you are dimensiong variables in a loop.Code:Private Sub Command1_Click() Dim x As Integer x = 0 Do While x < 10 Text1.Text = x x = x + 1 Loop End Sub
Last edited by Soredavide; 01-21-2012 at 07:20 PM.