Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dreiecksberechnung
Autor: KeineAhnung
Datum: 26.12.04 18:12
Hallo, ich muss ein Programm programmieren, dass die Fehlenden Winkel oder Strecken mit dem Kosinus- oder Sinussatz berechnet. Das Programm soll anzeigen welchen Satz es verwendet, dann die Formel und die entsprechend wenn nötig umgestellte Formel und das Ergebnis. Hab scho ein bisschen, ist aber nicht viel. Bitte helft mir, ist wichtig!   Option Explicit Dim leer As Integer Dim a As Single Dim b As Single Dim c As Single Dim alpha As Single Dim beta As Single Dim gamma As Single 'Formeln: 'a/sin alpha=b/sin beta 'a²=b²+c²-2*b*c*cos alpha 'a/sin alpha=c/sin gamma 'b²=a²+c²-2*a*c*cos beta 'b/sin beta=c/sin gamma 'c²=a²+b²-2*a*b*cos gamma Private Sub cmd_rechne_Click() '1.: alle felder bis auf eins ausgefüllt? txta.Text = a txtb.Text = b txtc.Text = c txtalpha.Text = alpha txtbeta.Text = beta txtgamma.Text = gamma If Val(txta.Text) = 0 Then leer = leer + 1 If Val(txtb.Text) = 0 Then leer = leer + 1 If Val(txtc.Text) = 0 Then leer = leer + 1 If Val(txtalpha.Text) = 0 Then leer = leer + 1 If Val(txtbeta.Text) = 0 Then leer = leer + 1 If Val(txtgamma.Text) = 0 Then leer = leer + 1 If leer > 3 Then MsgBox "Bitte füllen Sie mindestens 3 Felder aus!" If alpha + beta + gamma > 180 Then MsgBox "Winkel dürfen in einem Dreieck nicht größer als 180 Grad sein!" End If End Sub   Vielen Dank!

Dreiecksberechnung	2.886	KeineAhnung	26.12.04 18:12
Re: Dreiecksberechnung	2.137	SailSteam	26.12.04 21:58
Re: Dreiecksberechnung	2.135	skydeck	27.12.04 11:49
Re: Dreiecksberechnung	2.340	KeineAhnung	27.12.04 13:08
Re: Dreiecksberechnung	2.136	Jigo	02.01.05 12:24
Re: Dreiecksberechnung	2.148	Jigo	02.01.05 12:27

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