Grafikausgabe auf Formular

Grafikausgabe auf Formular: Sinus, Cosinus, Tangens, PSet
Private Sub Form_Paint()
Const Pi = 3.14159
Dim i#, X%, Y%, Z%
Line (ScaleLeft, 0)-((ScaleLeft + ScaleWidth), 0) Zeichnet eine waagerechte Linie.
Mit der PSet-Methode zeichnet man einen Punkt an der aktuellen Koodinate:
For i = Pi / 2 To 3.5 * Pi Step 0.001 X mal Pi: zeichnet d. Tangens ober- und unterhalb der Mitte.
PSet (i, Sin(i * 2)), QBColor(12) Sinus zeichnen.
PSet (i, Cos(i * 3)), QBColor(13) Cosinus zeichnen.
PSet (i, Tan(i * 4)), QBColor(2) Tangens zeichnen.
Next i
Circle (2, 0), 2, QBColor(14) Kreis: Abstand linker Rand, Abstand top, Radius.
For i = 0.0001 To (2 * Pi) Step 0.04 Zeichnet farbige Kreise.
Randomize
X = Int(250 * Rnd + 1) Farben per Zufall berechnen.
Y = Int(250 * Rnd + 1)
Z = Int(250 * Rnd + 1)
Circle (Sin(i) * 5.5, Cos(i) * 1.5), 0.5, RGB(X, Y, Z)
Next i
End Sub
Private Sub Form_Resize()
Scale (0, 2)-(10, -2)
Refresh
End Sub
Private Sub Form_Load()
Refresh
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt