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

•

•

•

•

What is DaniWeb IT Discussion Community?

You're currently browsing the VB.NET section within the Software Development category of DaniWeb, a massive community of 402,100 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,489 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our VB.NET advertiser: Programming Forums

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

•

•

Join Date: Mar 2008

Location: Wales

Posts: 30

Reputation: BluePaper is an unknown quantity at this point

BluePaper is an unknown quantity at this point

Rep Power: 1

Solved Threads: 0

BluePaper is offline

Offline

Light Poster

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

#2

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

Stone In Focus - Caffeine Group - CoffeePHP - Open Notes - Onyx - Redpoint Network - Espresso

Reply With Quote

Forum Highlights

Related Features

DANIWEB FEATURE INDEX

Advertisement

Statistics

Members: 402,100

Users Online Now: 2,489

Active IRC Users: 22

Forum Threads: 130,562

Forum Posts: 668,293

Code Snippets: 888

Blogs: 146

Blog Entries: 2,142

Directory Links: 568