Tjenixen!
Ska jag som vanligt skyffla över till .NET, eller gäller frågan VB6 eller lägre?
Mvh
anders
24 svar · 608 visningar · startad av Jymdis
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
Ä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
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 =)