Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Kegelberechnung
Autor: xmex
Datum: 01.02.03 19:41
Also ich habe ein Problem mit der Kegelberechnung. Das Programm ist nicht mal fertig und schon tauchen erste Fehler auf. Es exestiert nur ein Button der alles fehlende berechnet. Natürlich nur das was zu berechnen geht. Man kommt ja von nur Umfang ja nicht gleich auf Volumen. Es gibt aber so viele Möglichkeiten. Um z.B: auf Radius zu kommen gibt es schon 4 Möglichkeiten. Wenn einer schon einen fertigen Source Code hat .... hier Posten. Oder paar Tipps wie man das Prog. mit einer besseren Variante Proggen könnte. Z.B: Das das Progg nicht auf die Changes von den Textfeldern reagieren soll , sonder ... ( euer Vorschlag ) Private Sub Command1_Click() Dim r As Currency Dim g As Currency Dim hk As Currency Dim v As Currency Dim s As Currency Dim m As Currency Dim o As Currency Dim pi As Currency Dim u As Currency Dim d As Currency Dim s1_change As Currency Dim hk1_change As Currency Dim r1_change As Currency Dim g1_change As Currency Dim v1_change As Currency Dim m1_change As Currency Dim o1_change As Currency Dim u1_change As Currency Dim d1_change As Currency hk1_change = hk1.Text <> "hk" s1_change = s1.Text <> "s" d1_change = d1.Text <> "d" u1_change = u1.Text <> "u" o1_change = o1.Text <> "o" m1_change = m1.Text <> "m" v1_change = v1.Text <> "v" g1_change = g1.Text <> "g" r1_change = r1.Text <> "r" pi = "3,141592654" ' Definetion für Pi ' von Umfang auf Durchmesser ' Durchmesser = Umfang durch pi If u1_change Then u = u1.Text d = u / pi End If ' 1 Möglichkeit ' r = Wurzel aus s² - hk ² ' alle wege um Radius zu berechnen ' Info: ' von d nach r ' von u nach r ' von s und hk nach r ' von g nach r If d1_change Then ' von d nach r d = d1.Text r = d / 2 ElseIf u1_change Then ' von u nach r u = u1.Text r = (u / pi) / 2 r1.Text = r ElseIf s1_change And hk1_change Then ' von s und hk nach r s = s1.Text hk = hk1.Text r = Sqr((s * s) - (hk * hk)) ElseIf g1_change Then ' von g nach r g = g1.Text r = Sqr((g) / (pi)) Else: GoTo 10 End If ' 4 Möglichkeit ' von Radius auf Grundfläche 10 If r1_change Then r = r1.Text pi = "3,141592654" g = (r * r * pi) End If ' -------------------------------- ' Beschreibungen hk1.Text = hk s1.Text = s d1.Text = d r1.Text = r u1.Text = u g1.Text = g End Sub Cya, gruß xmex

Kegelberechnung	592	xmex	01.02.03 19:41
Re: Kegelberechnung	321	dbayer	02.02.03 20:55
Re: Kegelberechnung	250	xmex	02.02.03 21:29
Re: Kegelberechnung	249	dbayer	02.02.03 21:41
Re: Kegelberechnung	226	xmex	02.02.03 23:42

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übersicht

Suchen