Hey Community!
Ich programmiere momentan an einem Programm, welches den freien Fall in Luft berechnen soll. Ich orientiere mich hierbei an einem JavaScript, welches einwandfrei funktioniert.
Code:


Mein vb.net Code sieht so aus:



Wenn ihr die beiden Programme, bzw. das Script ausführt, werdet ihr merken, dass bei dem vb.net Code komplett unrealistische Werte rauskommen.

Habt ihr eine Idee was ich da falsch gemacht habe? Freue mich auf eure Antworten


Edit: 'Tschuldigung Quellecode von VB.NET war falsch bezüglich der Übertragung der Werte für die Variablen. (Jetzt korrigiert)
Scheint ja doch eher ein VB-Problem zu sein => Topic verschoben

Was sind unrealistische Werte?

Unrealistische Werte sind, wie, dass ein Objekt, welches mit den HTML-Code gegebenen Werten, nach 1,1 sec auf dem Boden aufschlägt. Also der HTML-Code ist einwand frei, jedoch verursacht mir der VB.net Quellcode Kopfschmerzen...

Am besten Vergleicht man einfach mal die Ergebnisse vom JavaScript mit denen der vb-Anwendung.

woher kommt denn ht??

ht ist die Textbox, in der der Wert der Höhe (also von aus welcher Höhe das Objekt fällt) angegeben wird.

Was passiert denn, wenn du die aus den Textboxen übergebenen Werte vorher strikt in Doubles umwandelst?
Dazu auch noch die interpunktion in den strings überprüfst -> 1.33 <> 1,23 - wenn mich nicht alles täuscht.

Werde es mal ausprobieren. Bin bisher nicht darauf gekommen... Das müsste dann doch auch mein Problem, dass F immer größer wird, anstatt kleiner korrigieren.

Edit: Ich hab es ausprobiert und habe festgestellt, dass es dann "besser" funktioniert, aber die Werte dann zu ungenau sind...
Also mein genauer Standpunkt gerade: Fund a bleiben konstant (F=-180 und a=-9). Das wird doch bestimmt etwas mit den Doubles zutun haben, oder?
a müsste nach dem ersten berechnen also wenn t = 0.0 ist, -9.81 sein und danach gegen Null "streben".
Ideen, wie ich das behebe?

Ich hab hier auch noch mal die Ergebnisse für euch(Werte wurden von dem JavaScript übernommen und die Ergebnisse zur Vereinfachung in ein HTML-Dokument geschreiben):

mir fehlt noch eine Beschreibung, was das Programm eiglich machen soll.
"freien Fall in Luft berechnen" sagt mir nichts, jdfs. nicht genügend.

Ich könnte etwa hergehen, und sagen "Der freie Fall in Luft ergibt 42" - wäre das richtig oder falsch und warum?

Das du dich an perfekt funktionierendem Javascript orientierst, nützt mir nix - ich kann kein Javascript, und vb.net macht seine Ausgaben auch nicht in einem Browser.

Oder ich sag mal so:
Für deine Berechnungen ist noch völlig unklar, was einzugeben ist, und was dann herauskommen soll.
Beispielsweise könnte man aus einer Fall-Höhe (und allerlei anderen Daten) den Aufschlags-Zeitpunkt berechnen, aber ebensogut auch die Aufschlags-Geschwindigkeit. Oder bei sehr großen Höhen stellt sich ja iwann eine stabile Fallgeschwindigkeit ein.

Also m.E. beginnt der Salat bereits hier:



Das ist in diesem Fall keine Vereinfachung sondern eher eine Verunstaltung des Codes. Die Zeile mit Dim deklariert nämlich alle Variablen als "Variant" - lediglich af wird ein Decimal.
Ich würde das zuerst mal so versuchen:



Der nächste Unsinn ist doch dass Du Werte vom Typ String (das was in den Textboxen steht) einfach als Decimal behandelst und dann auch noch explizit in einen Double umwandeln willst. In dem Moment hast Du wahrscheinlich wieder "Glück" dass die entsprechenden Variablen als Variant deklariert sind sodass da zum Schluss irgend etwas zwischen "Nothing" und Unsinn drinsteht... Deklariere die entsprechenden Werte doch bitte gleich als Double und wandle dann den TExt entsprechend in Double um - das ist zwar auch nicht die feine Art, aber zumindest solltest Du erstmal weiter kommen.

Weiterhin lass bitte bei den beiden folgenden Zeilen das "Val" einfach weg. Das ist unsinnig wenn die Variablen vernünftig deklariert sind.


Und zu guter letzt tu uns bitte den Gefallen und lass diesen ganzen HTML-Quatsch weg! Wir sind hier bei .net und da kannst Du die Werte viel komfortabler überprüfen indem Du die z.B. im Direktfenster ausgeben lässt (Debug.Print) oder Haltepunkte setzt und dann einfach die Maus über die Variable bewegst, oder dir die Werte im Lokalen-Fenster anschaust, oder, oder, oder...

Wenn Du gerade dabei bist, dich in VB.net einzuarbeiten und von JavaScript kommst (??) dann wünsche ich Dir viel Erfolg Es wird bestimmt nicht einfach, die strenge Typisierung zu verinnerlichen - aber es lohnt sich. Ich bin gerade umgekehrt auf dem Weg dass ich mich (mehr oder weniger zwangsläufig) mit Javascript beschäftige...

Oh scheint ja sehr interessant, auch als "alter VB-Haase" hätte ich nicht gedacht, das in einer Deklaration á la: Dim a,b,c As Integer
nur c zum Integer wird und der Rest Variant bleibt?! hab ich was verpasst? SOllte das Stacking nicht eigentlich immer ermöglichen mehrere Variabeln selbigen Typs mit einem Aufwasch zu deklarieren? Klärt mich bitte auf.

Sorry, was meine Ausführung zur Deklaration von Variablen in einer Zeile betrifft. Da hab ich was durcheinandergeschmissen. Ich hatte aber definitiv schon mal 'ne Programmiersprache wo's so war - vielleicht VBA oder VB6

Hab's gerade getestet, da hast Du Recht, MrLee. Kann ich mir in Zukunft auch etwas Tipparbeit sparen

Aber nichtsdestotrotz ist der Rest des obigen Programms ein ziemliches Durcheinander...

Thisoft schrieb:

VBA oder VB6

VBA. Da ist nämlich der Standard Variant, den man explizit mit As überschreiben muss, wenn man es anders haben will.
Dim a, b As Integer, c, d as String a und c sind Variant, b ist Integer, d ist String

VB6 und VB.Net erlauben eine Aneinanderreihung für denselben Typ.
Dim a, b As Integer, c, d As String a und b sind Integer, c und d sind String.

Und bei VBS gibt es gar kein As, da ist alles Variant.

Also Leute... Ich hab das Problem gelöst, fragt mich nicht wie, aber ich hab's.
(Könnte daran liegen, dass ich g, p, und halbe statt mit Dim mit Const angegeben hab, da diese sich ja nicht verändern)

@ErfinderDesRades Würdest du zwei Minuten googeln würdest du die Formeln für den freien Fall eines Objektes in Luft finden. Weiterhin würdest du, wenn du dir den HTML-Code einmal kurz angucken würdest, und den einfach mal als HTML-Dokument speichern und ausführen würdest, könntest du die Werte sehen, die gemeint sind. Ich gebe aber zu, dass ich da präziser hätte sein können.

@Thisoft Könntest du mir dann sagen, wie ich den Code besser ordne, da ich wirklich noch ziemlich neu in VB.Net bin...
Was die Ausgabe in das HTML-Dokument angeht, das mache ich nur, da ich wirklich jeden Wert brauche... Und das in einer Tabelle. Eigentlich würde ich das gerne in eine Exeltabelle machen, jedoch habe ich kein Ahnung, wie ich das machen kann.

tja, ich sehe weniger meine Aufgabe darin, herumzugoogeln, um deine Frage zu verstehen, sondern darin, dir zu helfen, präziser zu fragen.
Weil eine präzise Problem-Definition ist oft sogar über die Hälfte der Lösung.

Aber hat sich jetzt ja eh erledigt.

Hallo Agassi,

ich hab Dir hier mal das Ganze für die Ausgabe in Excel umgebaut



Was jetzt noch für Dich zu tun bliebe - Du mußt sicherstellen, dass Kommawerte in den Eingabefeldern auch wirklich mit Komma und nicht mit Punkt eingegeben werden. Das ist allerdings auch von den Systemeinstellungen des jeweiligen Rechners abhängig. Das könnte nämlich auch die Ursache dafür sein, dass bei Dir falsche und dann plötzlich mal richtige Werte ausgegeben wurden. Wie gesagt, die Eingabe von Zahlenwerten per Textbox ist suboptimal - allerdings mache ich das auch öfters da mir das NumericUpDown für sowas auch nicht zusagt. Aber deshalb musst Du dann eben im Programm sicherstellen dass da Komma und/oder Punkt korrekt ausgewertet werden
Weiterhin musst Du beim Initialisieren der Decimal-Variablen explizit angeben dass der Zahlenwert ein Decimal ist (D am Ende) - sonst kommen da bereits "unerwartete" Werte zustande. Das kannst Du aber ganz gut feststellen wenn Du im Einzelschrittmodus ausführst und dir die Werte jeweils anschaust. War vermutlich auch ein Grund dass du richtige Werte bekommen hast als du diese Variablen in Konstanten geändert hast.

So, genug geschrieben (und hoffentlich keine Irrtümer meinerseits ). Du kommst damit hoffentlich mit .NET ein Stückchen weiter.

Wow, vielen Dank! Das hilft mir tatsächlich weiter. Da hoffe ich, dass ich mich solangsam in VB.net rein fuchse


MfG Agassi