vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Variablen/Strings · Algorithmen/Mathematik   |   VB-Versionen: VB6, VBA15.07.16
Der Goldene Schnitt

Mit diesem Quellcode berechnen Sie die drei Längen (Major, Minor) und die Gesamtlänge des goldenen Schnitts.

Autor:   Bernd TheilackerBewertung:  Views:  3.434 
www.oggisoft.deSystem:  Vista, Win7, Win8, Win10 Beispielprojekt 

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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2019 vb@rchiv Dieter OtterAlle 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.