title image


Smiley Re: Probleme bei VB-Aufgabe
Hi!



Zuerst ein bischen Mathematik: Wenn du Werte quadrierst brauchst du kein Absolut mehr, da diese immer positiv sind. Als nächstes möchte ich dir mal meinen Ansatz vorstellen:

Option Explicit



Private Type Dreieck

x(0 To 2) As Double

y(0 To 2) As Double

End Type





Private Function Laenge(X1 As Double, Y1 As Double, X2 As Double, Y2 As Double) As Double

Laenge = Sqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)

End Function





Private Function Umfang(Drei_Ecken As Dreieck) As Double

Dim i As Byte, j As Byte

For i = 0 To 1

For j = 1 To 2

If j <> i And j > i Then Umfang = Umfang + Laenge(Drei_Ecken.x(i), Drei_Ecken.y(i), Drei_Ecken.x(j), Drei_Ecken.y(j))

Next j

Next i

End Function





'Beispielrechnung

Private Sub CmdUmfang_Click()

Dim D As Dreieck

D.x(0) = 1

D.y(0) = 0.7

D.x(1) = 5.8

D.y(1) = 2.9

D.x(2) = 1.5

D.y(2) = 7.8

Label1.Caption = Umfang(D)

End Sub







MfG

Mr. S ICQ #67858520http://www.developersmanual.com/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: