Hallo,
ich habe eine Formel aus einer Delphi Anwendung in eine VB.net 2005 Anwendung "kopiert". In Delphi funktioniert die Formel wunderbar aber nicht in VB. Vielleicht kann mir ja jemand helfen.
VB.Net
Eingabe:
flankenwinkel = 1
s = 2
b = 4
a = 6
radius = 7
Ergebnis querschnitt = n. def.
Delphi
Eingabe:
flankenwinkel = 1
s = 2
b = 4
a = 6
radius = 7
Ergebnis querchnitt = -66,94
Meine Aufgabe ist einfach ein Delphi Programm von 1997 neu zu gestalten und zu verbessern. Ich schreibe quasi die Formeln ab die die Delphi Anwendung enthält. Bis auf diese Formel und noch einer anderen klappt sonst alles. Ich habe keine Ahnung von solchen Formeln. Und weiß auch, dass die Eingaben total Schwachsinnig sind, aber egal was ich eingebe ich hab immer bei der Formel ein anderes Ergebnis in .NET. Vielleicht ist das auch so richtig, ich weiß es nicht. Allerdings wäre ich beruhigter wenn im VB.net das selbe immer rauskommt wie in der Delphi Anwendung.
Tausend Dank, schonmal im vorraus!
ich habe eine Formel aus einer Delphi Anwendung in eine VB.net 2005 Anwendung "kopiert". In Delphi funktioniert die Formel wunderbar aber nicht in VB. Vielleicht kann mir ja jemand helfen.
VB.Net
Code:
Imports System.Math DIM b, flankenwinkel, radius,s, a, querschnitt AS Double querschnitt = Format((b + 2 * radius / Cos(flankenwinkel * PI / 180)) * (s - a - radius) + Sqrt(radius) * PI / 2 + b * (a + radius) + (Sqrt(s - (a + radius)) * Sin(flankenwinkel * PI / 180) / Cos(flankenwinkel * PI / 180)), "F")
flankenwinkel = 1
s = 2
b = 4
a = 6
radius = 7
Ergebnis querschnitt = n. def.
Delphi
Code:
var flankenwinkel, s, b, a, radius, querschnitt:real; querschnitt := floattostrf((b + 2 * radius / cos(flankenwinkel * pi / 180)) * (s - a - radius) + sqr(radius) * PI / 2 + b * (a + radius) + (sqr(s - (a + radius)) * sin(flankenwinkel * PI / 180) / cos(flankenwinkel * PI / 180)),fffixed,9,2);
flankenwinkel = 1
s = 2
b = 4
a = 6
radius = 7
Ergebnis querchnitt = -66,94
Meine Aufgabe ist einfach ein Delphi Programm von 1997 neu zu gestalten und zu verbessern. Ich schreibe quasi die Formeln ab die die Delphi Anwendung enthält. Bis auf diese Formel und noch einer anderen klappt sonst alles. Ich habe keine Ahnung von solchen Formeln. Und weiß auch, dass die Eingaben total Schwachsinnig sind, aber egal was ich eingebe ich hab immer bei der Formel ein anderes Ergebnis in .NET. Vielleicht ist das auch so richtig, ich weiß es nicht. Allerdings wäre ich beruhigter wenn im VB.net das selbe immer rauskommt wie in der Delphi Anwendung.
Tausend Dank, schonmal im vorraus!
Comment