Hiho da ich noch was für die schule amchen muss und nicht wirklich lust habe mich groß mit VB zu beschäftigen hab mich grad mal einen kleinen Code runtergeladen
hba noch en bissel dran rumgefeilscht nur ich soll auch KOMMENTARE reinbringen ! *warghh*
Kann mir wer sagen was etwa was bewirkt? kenne mich da nicht wirklich aus *g*
Code
Private Sub cmdStart_Click()
Dim c, d, farbe As Integer
Dim radius, alpha, pi As Long
n = 0
c = 0
d = 0
pi = 3.141592
alpha = 0
X = 0
If Check3.Value = 1 Then farbe = Label5.Caption + 1 _
Else farbe = 0
If farbe = Bild.BackColor Then farbe = 1
If farbe > 15 Then farbe = 0
If Check4.Value = 1 Then Bild.BackColor = Bild.BackColor
If Check5.Value = 1 Then Bild.Line (0, 239 - Text1.Text)-(650, 239 - Text1.Text), QBColor(farbe)
If Check5.Value = 1 Then Bild.Line (0, 241 + Text1.Text)-(650, 241 + Text1.Text), QBColor(farbe)
Do
n = n + (Text3.Text / 500)
radius = Text2.Text - 12
alpha = pi * n / radius
If Check1.Value = 1 Then X = Sin(alpha) _
Else X = Cos(alpha)
d = -Round(X * Text1.Text) + 240
Bild.PSet (n, d), QBColor(farbe)
Loop Until n > 680
If Check3.Value = 1 Then Label5.Caption = farbe
End Sub
Private Sub Form_Load()
Dim n, farbe As Integer
farbe = 0
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Erlaubt$, aa$
Erlaubt = \"0123456789-\" & Chr$(8)
aa = Chr$(KeyAscii)
If InStr(1, Erlaubt, aa) = 0 Then _
KeyAscii = 0
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim Erlaubt$, aa$
Erlaubt = \"0123456789\" & Chr$(8)
aa = Chr$(KeyAscii)
If InStr(1, Erlaubt, aa) = 0 Then _
KeyAscii = 0
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim Erlaubt$, aa$
Erlaubt = \"0123456789\" & Chr$(8)
aa = Chr$(KeyAscii)
If InStr(1, Erlaubt, aa) = 0 Then _
KeyAscii = 0
End Sub