Help

[CountToInfinity]

I am doin a school project and i am having problems with a code. It does not seem work.

Private Sub Command1_Click()
If Text1 >= 86 Then
    Label2.Caption = "Nicely done!" And Image1.Visible = True
    ElseIf Text1 < 86 >= 73 Then
        Label2.Caption = "Good Job!" And Image2.Visible = True
    ElseIf Text1 < 73 >= 65 Then
        Label2.Caption = "Right on!" And Image3.Visible = True And Image5.Visible = True
    ElseIf Text1 < 65 >= 60 Then
        Label2.Caption = " Not bad" And Image3.Visible = True
    ElseIf Text1 < 60 >= 49 Then
        Label2.Caption = "You got to try harder" And Image3.Visible = True And Image6.Visible = True
    ElseIf Text1 < 49 Then
        Label2.Caption = "Need more studying" And Image4.Visible = True
End If
End Sub

Private Sub Command2_Click()
Label2.Caption = " "
Text1.Text = " "
End Sub

Private Sub Form_Load()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
End Sub

Private Sub Quit_Click()
End
End Sub

[aikidokid]

Welcome to VBF

Try changing your code as follows

         Label2.Caption = "Nicely done!" 
         Image1.Visible = True
    ElseIf Text1 < 86 >= 73 Then
        Label2.Caption = "Good Job!" 
        Image2.Visible = True
    ElseIf .....

[Hack]

I would do something like

Select Case Val(Text1.Text)
   Case Is > 86
         Label2.Caption = "Nicely done!" And Image1.Visible = True
   Case 73 To 86
        Label2.Caption = "Good Job!" And Image2.Visible = True
   Case 65 To 72
        Label2.Caption = "Right on!" And Image3.Visible = True And Image5.Visible = True
   Case 60 To 64
        Label2.Caption = " Not bad" And Image3.Visible = True
  Case 49 To 59
        Label2.Caption = "You got to try harder" And Image3.Visible = True And Image6.Visible = True
 Case Is < 49
        Label2.Caption = "Need more studying" And Image4.Visible = True
End Select

[aikidokid]

The op would still have to move this part to the next line in each case wouldn't he?

Label2.Caption = "Nicely done!" And Image1.Visible = True

Label2.Caption = "Nicely done!" 
Image1.Visible = True

[Hack]

Either that or use a string which gets passed to the label at the end.

It doesn't really matter which way though.

[Siddharth Rout]

first things first

replace

If Text1 >= 86 Then

by

If Val(Text1.Text) > 86 or Val(Text1.Text) = 86 then

and so on and so forth..

[CountToInfinity]

Thanks for the help guys. i may have some more school projects i need help with in the future.