vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: Schiefer wurf 
Autor: Gast Only4U
Datum: 14.05.03 00:14

Genaue Formel kann ich dir jetzt nicht geben, aber der schiefe Wurf ist folgendermaßen zu bekommen:

Werte:
Geschw___Geschwindigkeit
X_________X-Korrdinate des Ball
Y_________Y-Koordinate des Ball
Alpha______Winkel des Abwurf
Xgesch____Geschwindigkeit in X-Richtung (ohne Luftwiderstand !!)
Ygesch____Geschwindigkeit in Y-Richtung

Xgesch = Geschw * SIN (Alpha / 180 * PI) ' Winkel in Gradmaß, weis jetzt nicht, ob VB DEG oder RAD benutzt
Ygesch=Geschw * COS (Alpha / 180 * PI) ' "-------------------siehe oben-----------------------------------"

Do until Y < 0
X = X + Xgeschw
Y = Y + Ygeschw
'Ball auf Koordinaten (X / Y)
Ygeschw = Ygeschw - 0.1 (wird mit 0,1 runtergezogen)
Loop

Hoffe, du kannst damit was anfangen.

MfG
Only4U
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Schiefer wurf405-=bo=-09.05.03 15:10
Re: Schiefer wurf295Gast Only4U14.05.03 00:14

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel