VB.NET

If Statements!....for a newbie :)

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Mar 2008

Posts: 5

Reputation: ferrier18 is an unknown quantity at this point

Solved Threads: 0

ferrier18

Offline

Newbie Poster

If Statements!....for a newbie :)

Mar 22nd, 2008

Hey guys, I am having trouble with this If satement. heres the code that i have so far:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
If Val(TextBox1.Text) = Val(TextBox3.Text) And Val(TextBox2.Text) = Val(TextBox4.Text) Then
     Label6.Text = "Students share 2 Subjects"
End If
 
If Val(TextBox1.Text) = Val(TextBox4.Text) And Val(TextBox2.Text) = Val(TextBox3.Text) Then
     Label6.Text = "Students share 2 Subjects"
End If
 
If Val(TextBox1.Text) = Val(TextBox3.Text) Or Val(TextBox2.Text) = Val(TextBox4.Text) Then
     Label6.Text = "Students share 1 Subject"
     If Val(TextBox2.Text) = Val(TextBox3.Text) Or Val(TextBox1.Text) = Val(TextBox4.Text) Then
          Label6.Text = "Students share 1 Subject"
     End If
End If
 
If Val(TextBox1.Text) <> Val(TextBox3.Text) And Val(TextBox2.Text) <> Val(TextBox4.Text) Then
     Label6.Text = "Students share 0 subjects"
End If
If Val(TextBox1.Text) <> Val(TextBox4.Text) And Val(TextBox2.Text) <> Val(TextBox3.Text) Then
     Label6.Text = "Students share 0 subjects"
End If
If Val(TextBox1.Text) = Val(TextBox3.Text) And Val(TextBox2.Text) = Val(TextBox4.Text) Then
     Label6.Text = "Students share 2 Subjects"
End If

If Val(TextBox1.Text) = Val(TextBox4.Text) And Val(TextBox2.Text) = Val(TextBox3.Text) Then
     Label6.Text = "Students share 2 Subjects"
End If

If Val(TextBox1.Text) = Val(TextBox3.Text) Or Val(TextBox2.Text) = Val(TextBox4.Text) Then
     Label6.Text = "Students share 1 Subject"
     If Val(TextBox2.Text) = Val(TextBox3.Text) Or Val(TextBox1.Text) = Val(TextBox4.Text) Then
          Label6.Text = "Students share 1 Subject"
     End If
End If

If Val(TextBox1.Text) <> Val(TextBox3.Text) And Val(TextBox2.Text) <> Val(TextBox4.Text) Then
     Label6.Text = "Students share 0 subjects"
End If
If Val(TextBox1.Text) <> Val(TextBox4.Text) And Val(TextBox2.Text) <> Val(TextBox3.Text) Then
     Label6.Text = "Students share 0 subjects"
End If

And here's what im trying to achieve (DL pic file attatchment). So If the two subject codes are the same the label is meant to read "students share 2 subjects" and if only one subject code matches then the label is meant to read "students share 1 subject" and if no subjects match then "students share 0 subjects".

I haven't named the textboxes or labels yet, so TextBox1 and TextBox2 are the subjects of Student 1 and TextBox3 and TextBox4 are the subjects of Student 2. Label6 is wehre the "students share x subject(s)"!!

Thank you very much for any help....I'm new to vb.net and appreciate any help given, Thank you very much!!!!

Last edited by WolfPack; Mar 22nd, 2008 at 9:49 am. Reason: Added code tags. Use them when you post code. Also corrected indenting.

Attached Thumbnails

•

Join Date: Mar 2008

Posts: 31

Reputation: BluePaper is an unknown quantity at this point

Solved Threads: 0

BluePaper

Offline

Light Poster

Re: If Statements!....for a newbie :)

Mar 22nd, 2008

Hey there ferrier, couldn't you just shorten that whole piece of code down to just 3 statements? I've done it here (without using Val, you can add it if you want and such):

 Help with Code Tags 
 VBNET Syntax (Toggle Plain Text) 
If TextBox1.Text = TextBox3.Text And TextBox2.Text = TextBox4.Text Or TextBox1.Text = TextBox4.Text And TextBox2.Text = TextBox3.Text Then
            Label6.Text = "Students share 2 subjects"
        ElseIf TextBox1.Text = TextBox3.Text And TextBox2.Text <> TextBox4.Text Or TextBox1.Text = TextBox4.Text And TextBox2.Text <> TextBox3.Text Or TextBox2.Text = TextBox4.Text And TextBox1.Text <> TextBox3.Text Or TextBox2.Text = TextBox3.Text And TextBox1.Text <> TextBox4.Text Then
            Label6.Text = "Students share 1 subject"
        Else
            Label6.Text = "Students share 0 subjects"
        End If
If TextBox1.Text = TextBox3.Text And TextBox2.Text = TextBox4.Text Or TextBox1.Text = TextBox4.Text And TextBox2.Text = TextBox3.Text Then
            Label6.Text = "Students share 2 subjects"
        ElseIf TextBox1.Text = TextBox3.Text And TextBox2.Text <> TextBox4.Text Or TextBox1.Text = TextBox4.Text And TextBox2.Text <> TextBox3.Text Or TextBox2.Text = TextBox4.Text And TextBox1.Text <> TextBox3.Text Or TextBox2.Text = TextBox3.Text And TextBox1.Text <> TextBox4.Text Then
            Label6.Text = "Students share 1 subject"
        Else
            Label6.Text = "Students share 0 subjects"
        End If

I think it works with every option if it doesn't then I'd have to sit down and work through it some more. Aye the middle elseif is just one huge statement lol.

Hope it works.

mhmm, looks like the VB.net highlighting syntax is incomplete