Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 1257

Aug 13th, 2007

Needs help with If statement

Expand Post »

I'm trying to write a game for fun. I've been able to get some lines of code from other friends who have been able to help. But they couldn't help me with this. I'm trying to write the code to where, when you click on the button it should change the caption one time. Thus you click on the button and it starts at 1 and stays at one. However it instead runs through all of the If commands and instead of stopping at 1, it proceeds all the way to 3. Here is a copy of the code:

Private Sub Tornado_Click()
If Me.TL.Caption = "" Then
Me.TL.Caption = 1
End If

If Me.TL.Caption = 1 Then
Me.TL.Caption = 2
End If

If Me.TL.Caption = 2 Then
Me.TL.Caption = 3
End If
End Sub

Similar Threads

MySQL LIKE statement in MySQL
missing return statement in Java
Switch Case Statement in Java
loop in main function to an "if" statement in C++
run sql statement in asp in ASP

venomocity

Reputation Points: 2

Solved Threads: 0

Newbie Poster

Offline

16 posts
since Aug 2007

Permalink

Aug 14th, 2007

Re: Needs help with If statement

After it's changed to 1, it goes on to the next if statement(if = 1), Since now it is =1 it does that if statement and continues to the next etc.
Try

Select Case Me.Tl.Caption
Case ""
me.tl.caption = 1
Case 1
me.tl.caption = 2
case 2
me.tl.caption = 3
End select

Or change your if statement to the following

If me.tl.caption = "" then
me.tl.caption = 1
elseif me.tl.caption = 1 then
me.tl.caption =2
elseif me.tl.caption =2 then
me.tl.caption =3
end if

this way it does only one of the statements

plusplus

Reputation Points: 10

Solved Threads: 16

Posting Whiz in Training

Offline

207 posts
since Jul 2007

Permalink

Aug 14th, 2007

Re: Needs help with If statement

Thank you very much. That worked. The one I needed was the ElseIf. Thus you could click the button and it applies once each time its clicked. Im sure it was simple for you guys, but I couldn't tell how to terminate it from continuing the If statement. I can setup such things like a random pick between a set of numbers and display that, like in a roll of the dice but just couldn't figure that out. Thanks

Last edited by venomocity; Aug 14th, 2007 at 2:35 pm.

venomocity

Reputation Points: 2

Solved Threads: 0

Newbie Poster

Offline

16 posts
since Aug 2007

Permalink

Aug 16th, 2007

Re: Needs help with If statement

every if put exit sub before end if
example:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Tornado_Click()
If Me.TL.Caption = "" Then
Me.TL.Caption = 1
exit sub
End If 
 
If Me.TL.Caption = 1 Then
Me.TL.Caption = 2
exit sub
End If 
 
If Me.TL.Caption = 2 Then
Me.TL.Caption = 3
End If
End Sub
Private Sub Tornado_Click()
If Me.TL.Caption = "" Then
Me.TL.Caption = 1
exit sub
End If 

If Me.TL.Caption = 1 Then
Me.TL.Caption = 2
exit sub
End If 

If Me.TL.Caption = 2 Then
Me.TL.Caption = 3
End If
End Sub

jireh

Reputation Points: 11

Solved Threads: 49

Posting Whiz

Offline

316 posts
since Jul 2007

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

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: Updating Combo Box

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: cpu/ram usage

DaniWeb Message

Cancel Changes

User Name
Password