' Benötigt werden:  1. Form , 2 Command-Buttons u. 1 horiz. Scrollbar
 
Private Declare Sub FloodFill Lib "GDI32" (ByVal hDC As Integer, ByVal x As _
  Integer, ByVal Y As Integer, ByVal Color As Long)
 
Dim T
Dim G(5)
 
Const c1 = 1 / 3
Const c2 = 2 / 3
Const c3 = 1.71 / 2 * c1
 
Sub Koch(a, b, c, d)
 
 l = Sqr((c - a) ^ 2 + (b - d) ^ 2)
 
 If l > T Then
 
  v1 = c - a: v2 = d - b
  DrawWidth = 2
  Line (a, b)-(c, d), QBColor(1)
  Line (a + c1 * (c - a), b + c1 * (d - b))-(0.5 * (a + c) - c3 * v2, 0.5 * (b _
    + d) + c3 * v1), QBColor(1)
  Line (a + c2 * (c - a), b + c2 * (d - b))-(0.5 * (a + c) - c3 * v2, 0.5 * (b _
  + d) + c3 * v1), QBColor(1)
  FillColor = RGB(128, 128, 255)
  FillStyle = 0
  ScaleMode = 3
  ScaleMode = 0
  Scale (0, 4)-(6, 0)
 
  Call Koch(a, b, a + c1 * (c - a), b + c1 * (d - b))
  Call Koch(a + c1 * (c - a), b + c1 * (d - b), 0.5 * (a + c) - c3 * v2, 0.5 * ( _
    b + d) + c3 * v1)
  Call Koch(0.5 * (a + c) - c3 * v2, 0.5 * (b + d) + c3 * v1, a + c2 * (c - a), _
  b + c2 * (d - b))
  Call Koch(a + c2 * (c - a), b + c2 * (d - b), c, d)
 
 End If
 
End Sub
 
 
Private Sub Command1_Click()
 
 M = MsgBox("Die sogenannte Kochkurve entsteht dadurch, dass man auf dem" & _
   "mittleren Teil einer Strecke ein gleichseitiges Dreieck errichtet und" & _
   "dieses einfärbt. Auf vier der somit entstehenden Strecken wird dann eine" & _
   "Rekursion gestartet. Die Rekursionstiefe kann mit Hilfe des Drehreglers" & _
   "gewählt werden.", vbInformation, "Programm-Information")
 
End Sub
 
Private Sub Command2_Click()
 
 End
 
End Sub
 
Private Sub Form_Load()
   Command1.Caption = "Info"
   Command2.Caption = "Ende"
End Sub
 
Private Sub Form_Activate()
 
Scale (0, 4)-(6, 0)
G(1) = 2
G(2) = 1
G(3) = 0.5
G(4) = 0.1
G(5) = 0.008
DrawWidth = 1
T = G(1)
Call Koch(0.25, 1, 5.75, 1)
 
End Sub
 
Private Sub HScroll1_Change()
 
 T = G(HScroll1)
 Scale (0, 4)-(6, 0)
 Cls
 Command1.SetFocus
 Call Koch(0.25, 1, 5.75, 1)
 
End Sub

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...