Der Goldene Schnitt Mit diesem Quellcode berechnen Sie die drei Längen (Major, Minor) und die Gesamtlänge des goldenen Schnitts.
Autor:   BT-Soft	Bewertung:     [ Jetzt bewerten ]	Views:  6.226
https://bt-soft.de	System:  Win7, Win8, Win10, Win11	Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Der Goldene Schnitt. Mit diesem Quellcode berechnen Sie die drei Längen (Major, Minor) und die Gesamtlänge des goldenen Schnitts. Sie benötigen dafür 3 Textboxen und 2 CommandButtons. Tippen Sie anschließend nur in ein Textfeld eine Zahl ein und drücken Sie auf "Enter". Die beiden anderen Längen werden nun berechnet.

Private Sub Form_Load()
  Me.Caption = "Der goldene Schnitt - OGGISOFT"
  Command1.Default = True
  Command1.Caption = "Berechnen"
  Command2.Caption = "Neu"
End Sub

Private Sub Command1_Click()
  Dim dMajor As Double    ' größerer teil
  Dim dMinor As Double    ' kleinerer teil
  Dim dGesamt As Double   ' gesamtlänge
  Dim dPhi As Double      ' goldener schnitt
 
  dPhi = 1.61803398874989     ' goldener schnitt
 
  If Text1.Text <> "" Then
    dMajor = CDbl(Text1.Text)
    dMinor = dMajor / dPhi
    dGesamt = dMajor + dMinor
  ElseIf Text2.Text <> "" Then
    dMinor = CDbl(Text2.Text)
    dMajor = dPhi * dMinor
    dGesamt = dMajor + dMinor
  ElseIf Text3.Text <> "" Then
    dGesamt = CDbl(Text3.Text)
    dMajor = dGesamt / dPhi
    dMinor = dMajor / dPhi
  Else
    MsgBox "Bitte eine Zahl in ein Textfeld eintragen!", vbInformation, "Bedienungshinweis"
    Text1.SetFocus
    Exit Sub
  End If
 
  Text1.Text = CStr(dMajor)
  Text2.Text = CStr(dMinor)
  Text3.Text = CStr(dGesamt)
End Sub

Private Sub Command2_Click()
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Text1.SetFocus
End Sub