Private Sub darstellen_Click()
'koordinatensystem
pic1.Cls    'altes koordsystem wegmachen
x1 = x1txt.Text
x2 = x2txt.Text
y1 = y1txt.Text
y2 = y2txt.Text
pic1.AutoRedraw = True
pic1.DrawWidth = 2
pic1.Scale (x1, y1)-(x2, y2)
pic1.Line (x1, 0)-(x2, 0) 'x-achse
pic1.Line (0, y1)-(0, y2) 'y-achse
pic1.DrawWidth = 1
For i = x2 To x1 Step 1
pic1.Line (i, y1)-(i, y2) 'senkrechten
Next i
For i = y2 To y1 Step 1
pic1.Line (x1, i)-(x2, i) 'waagrechten
Next i
'koordinatensystem
End Sub
 
Private Sub Picture1_Click()
 
End Sub
 
 
Private Sub darstellen2_Click()
x1 = x1txt.Text
x2 = x2txt.Text
y1 = y1txt.Text
y2 = y2txt.Text
'funktion
If Check1.Value = 1 Then 'abfrage ob funk dazuzeichnen oder alte weg und dann 
' neue zeichnen
For x = x2 To x1 Step 0.01
scriptcontrol1.AddCode "x=" + Replace(CStr(x), ",", ".")
y = scriptcontrol1.Eval(funktiontxt.Text)
DrawWidth = 2
pic1.PSet (x, y), &HFF&
Next x
Else: pic1.Cls
'koordinatensystem
pic1.AutoRedraw = True
pic1.DrawWidth = 2
pic1.Scale (x1, y1)-(x2, y2)
pic1.Line (x1, 0)-(x2, 0) 'x-achse
pic1.Line (0, y1)-(0, y2) 'y-achse
pic1.DrawWidth = 1
For i = x2 To x1 Step 1
pic1.Line (i, y1)-(i, y2) 'senkrechten
Next i
For i = y2 To y1 Step 1
pic1.Line (x1, i)-(x2, i) 'waagrechten
Next i
'koordinatensystem
For x = x2 To x1 Step 0.01
scriptcontrol1.AddCode "x=" + Replace(CStr(x), ",", ".")
y = scriptcontrol1.Eval(funktiontxt.Text)
DrawWidth = 2
pic1.PSet (x, y), &HFF&
Next x
End If
'funktion
End Sub
 
Private Sub Form_Load()
Dim x1 As Double
Dim x2 As Double
Dim y1 As Double
Dim y2 As Double
Dim x As Double
End Sub