ekvationer

Hej!
Behöver hjälp med lite ekvationer (hur jag "räknar" ut dessa).

• FirstDegree som löser ekvationer av typen: ax + b = 0 som tar två argument (a, b) och returnerar - (b / a) konverterad till data typen String
• SecondDegree som löser ekvationer av typen som tar tre argument (a, b, c). Man beräknar först tri = roten ur(b upphöjt till 2 - 4ac)
Om trinagel < 0 returnerar textsträngen ” No real solutions!”.
Om trinagel > 0 returneras : x1 och x2 konverterade till data typen String

En bild:
http://member.webforum.nu/1575/ekvation.jpg

Som sagt har jag inga problem med konstruktorer eller liknande utan matten.

Tjenixen!

Ska jag som vanligt skyffla över till .NET, eller gäller frågan VB6 eller lägre?

Mvh
anders

Hehe asså jag ger upp!
Förra gången posta jag i .net men då skulle det hit här, å nu postar jag här och nu ska det till .net.
Det värsta är att alla gånger har det gällt vb.net 2003.

Är det .NET så ska det vara i .NET-forumet.
Lätt som en plätt. :)

Flyttas.

red: Jag hittar förresten ingen tråd du skapat som handlar om .NET som ligger i VB-forumet.

Hum, jag hade för mig att du flytta http://www.webforum.nu/showthread.php?s=&forumid=29&threadid=99219 till VB!
Jag är väl yr som vanligt

Förstår inte riktigt hur du vill ha det..
Har du någon färdig ekvation som du vill köra mha .NET?

Jag ska göra två funktioner, en som tar två värden (a och b) och en tre värden (a, b och c).
Såg nu att lite saker försvunnit däruppe, redigerar det :)

• FirstDegree som löser ekvationer av typen: som tar två argument (a, b) och returnerar konverterad till data typen String
• SecondDegree som löser ekvationer av typen som tar tre argument (a, b, c). Man beräknar först
Om returnerar textsträngen ” No real solutions!”.
Om returnerar :
konverterade till data typen String

Ok, men vad ska du göra med argumenten?
Du måste specificera ekvationerna som du vill "översätta" till .NET, vilket är ren matematik. Det du specificerat kan betyda vad som helst.

PDahlen: som du såg uppdatera jag precis =)

Ett tips är att du läser på lite om System.Math som innehåller (nästan) allt du behöver för matematiska beräkningar.

Det handlar inte om det, utan att jag inte kan den här sortens matte.

Du har ju redan ekvationerna och ska bara översätta dessa till .NET. Det är därför du ska kolla System.Math.
T.ex.

• FirstDegree som löser ekvationer av typen: ax + b = 0 som tar två argument (a, b) och returnerar - (b / a) konverterad till data typen String

Du har redan skrivit vad som ska returneras nämligen:

 - (b / a)

I den andra har du också skrivit vad som ska kollas och returneras.

roten ur(b upphöjt till 2 - 4ac)

Sen kollar du i System.Math vad det finns för funktioner för roten ur och upphöjt till.

humma... okej det är så enkelt alltså?
testar =)

Är lite osäker, men tror det är System.Math.Sqrt som tar hand om kvadratrötter.

Public Overloads Function Tal(a As Integer, b As Integer) As String
   Dim Sum As Integer =  a*x+b
   Return Sum
End Function

Public Overloads Function Tal(a As Integer, b As Integer, c As Integer) As String
   Dim Sum As String =  System.Math.Sqrt(b^2-4a*c)
   Return Sum
End Function

Det här är förmodligen så fel det kan bli, men det är väl på ett ungefär så här det ska göras.

MSDN, det första stället man ska kolla på om man vill lära sig vilka .NET klasser det finns och vad de gör.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemMathClassTopic.asp
Där har du en länk till System.Math

Annars kan du ta en titt här:

http://dotgnu.org/pnetlib-doc/System/Math.html

Tack alla har löst det!
Såg att förra kursen hade samma ekvationer så jag kunde ta grejer ifrån min lösning där.

Hur blev det till slut? :)

Public Overloads Function Tal(ByVal a As Integer, ByVal b As Integer) As String
        Dim Sum As Integer = -(b / a)

        Return Sum
    End Function
    Public Overloads Function Tal(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As String

        Dim checkroot, result1, result2 As Single
        Dim sum As String

            checkroot = (Math.Pow(b, 2)) - (4 * a * c)

            If checkroot < 0 Then
            sum = "Inga lösningar"
            ElseIf checkroot = 0 Then
                result1 = (-b + Math.Sqrt((Math.Pow(b, 2)) - (4 * a * c))) / (2 * a)
            sum = "x1 = x2 = " & CStr(result1)
            Else
                result2 = (-b - Math.Sqrt((Math.Pow(b, 2)) - (4 * a * c))) / (2 * a)
                result1 = (-b + Math.Sqrt((Math.Pow(b, 2)) - (4 * a * c))) / (2 * a)
            sum = "x1 = " & CStr(result1) & "; x2 = " & CStr(result2)

        End If
        Return sum

    End Function

så blev d =)