[h1z1]

Hi, me again. This morning we started doing a pythagorean theorem which basicly will convert a set of numbers into the answer. The theorem is a² + b² = c²
Basicly I wan't it to fidn the C in a triangle.
Some thing I were told that we should use are :

 Dim a As Double 
Dim b As Double
Dim c As Double

We were also told that we shoudl use

 Math.sqrt 

The project was said to be 10 lines of code.
Here are pictures of what I have so far:


Thanks for the help

[lordofduct]

re-order the formula to be a function of a and b:

c = f(a,B)/>
f(a,B)/> = sqrt(a^2 + b^2)

solve

done

This post has been edited by lordofduct: 07 November 2011 - 11:04 AM

[Tryparse]

K, you state the theorem (a² + b² = c²), but your form shows adding 3 textboxes to get a value.
Anyway, you state that you need to find C. How do you do that? You square A and B, add them together, and get the square root of the result.
You can't just call sqrt(), it's a static method. Here's some proper function calls to get you started:

Math.Pow(a, 2)
Math.Pow(b, 2)
c = Math.Sqrt(whatNeedsToBeHere)

[h1z1]

I actually just tried something insanely stupid. I'll post back later tonight because I've gotta get to class.

[h1z1]

Alright so when I made the above post I thought I figured it out. Here is what I did:

Public Class Form1
    Dim a As Double
    Dim b As Double
    Dim c As Double
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub calcbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcbtn.Click
        lbl2.Text = Math.Sqrt(tb1a.Text + tb2b.Text)
    End Sub

    Private Sub resetbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetbtn.Click
        tb1a.Text = ""
        tb2b.Text = ""
        lbl2.Text = ""
    End Sub
End Class

But this didn't work. I can't seem to figure this one out. I don't see how I'll use the Double Strings and such, any ideas?

[h1z1]

Update: Tried something new looking at Treyparse's code

Public Class Form1
    Dim a As Double

    Dim b As Double
    Dim c As Double

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub calcbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcbtn.Click
        Math.Pow(a, 2)
        Math.Pow(b, 2)

        c = Math.Sqrt(a ^ 2 + b ^ 2)

        lbl2.Text = c
    End Sub

    Private Sub resetbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetbtn.Click

    End Sub
End Class

[Tryparse]

Now you're on the right track, except you don't just call Math.Pow(a, 2) -- it's a function, it returns a value. And I'd forgotten about the ^ operator, so you actually don't need to use Math.Pow().

This post has been edited by Tryparse: 08 November 2011 - 11:04 AM

[h1z1]

Yeah sorry, I posted an update saying I did look at your post

[Tryparse]

Oh goodie, we're posting at the same time. I modified my response in response to your response (anyone else sense a "yo dawg" coming on here?).

[h1z1]

I was kinda useing your code as a refrence, do you mind posting it back up?

Update again: I tried using Treyparse's updated code but when I did 3 and 4 I got 6.5 and I'm sure that's not right. Here's some code:

Public Class Form1
    Dim a As Double

    Dim b As Double
    Dim c As Double

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub calcbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcbtn.Click
        a = Math.Pow(Double.Parse(tb1a.Text), 2)
        b = Math.Pow(Double.Parse(tb2b.Text), 2)
        c = Math.Sqrt(tb2b.Text + tb1a.Text)
        lbl2.Text = c


    End Sub

    Private Sub resetbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetbtn.Click

    End Sub
End Class

[Tryparse]

No! Bad! You're taking the STRING values in the textboxes and concatenating them (you end up with 43 in the case of 3 & 4), then trying to get the square root of that.

c = Math.Sqrt(tb2b.Text + tb1a.Text)
'needs to be
c = Math.Sqrt(a + B)/>

'If we really wanna get crazy, here it all is in 1 line
lbl2.Text = Math.Sqrt(Math.Pow(Double.Parse(tb1a.Text), 2) + Math.Pow(Double.Parse(tb2b.Text), 2)).ToString()
'Writing one-liners like that is fun and all, but keep in mind that
'anyone who has to maintain it after you will stab you in the eye.

This post has been edited by Tryparse: 08 November 2011 - 11:38 AM