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