|
|
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 | | | |
|
zurück