Where am I going wrong with my VB 2005 code?

Question

Hello Everyone,

I keep getting a "Conversion from string "TrueTrueTrueTrueTrue" to type 'Boolean' is not valid." error....Why? and how do I fix?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim all As Double = 3
Dim love As Double = 5
Dim mid As Double = 2
Dim house As Double = 0
Dim vac As Double = 3
If (TextBox1.Text = CDbl(all))
& (TextBox2.Text = CDbl(love))
& (TextBox3.Text = CDbl(mid))
& (TextBox4.Text = CDbl(house))
& (TextBox5.Text = CDbl(vac))
Then Form3.Show()
Else MsgBox("Sorry, please try again")
End Sub

Answer 1

In your IF statement you are comparing a STRING to a DOUBLE.

textbox.text = CDBL(all)

You are trying to test for equality between two different data types.

I would add a test variable for each text box which will be used to hold the DOUBLE value of the converted textbox.text

DIM testText1 as Double
DIM ALL as Double = 3

testText1 = VAL(textbox1.text) ' this converts the text string into a number

The VAL function converts a string in to a DOUBLE based on the first numbers encountered in the string.


IF testText1 = All then
' do something
End IF

This IF statement is comparing two DOUBLE values for equality.


ALSO!!!!!

A Single ampersand (&) is used for concatenation. Basically sticking strings together. Use AND as your logic funtion.

IF (testText1 = all) AND ( testText2 = love) THEN

Answer 2

I'm not sure as I don't do much VB, but it looks like the & symbols are concatonating a string rather than serving as "ands" for your conditions. If I recall, you need to write out the word "AND" instead of using the &'s.

So the if statement would look like:
...
If (TextBox1.Text = CDbl(all))
AND (TextBox2.Text = CDbl(love))
AND (TextBox3.Text = CDbl(mid))
AND (TextBox4.Text = CDbl(house))
AND (TextBox5.Text = CDbl(vac))
...

Answer 3

Use "and" instead of & . You're mixing languages.

Edit:
if scorillo is the poster, then you can either make the change we suggested OR you can make it:
If ((TextBox1.Text = CDbl(all))
& (TextBox2.Text = CDbl(love))
& (TextBox3.Text = CDbl(mid))
& (TextBox4.Text = CDbl(house))
& (TextBox5.Text = CDbl(vac)) = "TrueTrueTrueTrueTrue")
Then Form3.Show()

which is what the contatenated strings are. But the solution the 2nd responder & I wrote are correct and preferred.

Answer 4

You should reference a string intstead of a double value when working with textboxes. Or you can use the double.ToString() method.




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim all As String = "3"
Dim love As String = "5"
Dim mid As String = "2"
Dim house As String= "0"
Dim vac As String = "3"
If textbox1.text = all AND textbox2.text = love AND textbox3.text = mid AND textbox4.text = house AND textbox5.text = vac THEN
Form3.Show()
Else MsgBox("Sorry, please try again")
End Sub
End if

Answer 5

The VB response is right from her part because neither you understand is i put to write this:
If (TextBox1.Text = CDbl(all))&(TextBox2.Text = CDbl(love))...

Get it?!?