Dim x As Single, x1 As Integer, y As Single, y1 As Integer
Dim l As Integer, a As Integer
Private Sub Form_Load()
Call traccia
End Sub
Sub traccia()
Form1.ScaleHeight = 10
Form1.ScaleWidth = 10
a = Form1.ScaleHeight
l = Form1.ScaleWidth
x1 = l / 2
y1 = a / 2
Line (0, y1)-(l, y1)
Line (x1, 0)-(x1, a)
End Sub
Sub cancneper()
For i = -600 To 600
x = i / 100
y = 2.71 ^ x
PSet (x1 + x, y1 - y), Form1.BackColor
Next i
End Sub
Sub cancctg()
For i = 3600 To -3600 Step -1
x = i / 100
If x <> 0 Then
y = 1 / Tan(x)
PSet (x1 + x, y1 - y), Form1.BackColor
End If
Next i
End Sub
Sub canctg()
For i = 3600 To -3600 Step -1
x = i / 100
y = Tan(x)
PSet (x1 + x, y1 - y), Form1.BackColor
Next i
End Sub
Sub canccoseno()
For i = 3600 To -3600 Step -1
x = i / 100
y = Cos(x)
PSet (x1 + x, y1 - y), Form1.BackColor
Next i
End Sub
Sub cancseno()
For i = 3600 To -3600 Step -1
x = i / 100
y = Sin(x)
PSet (x1 + x, y1 - y), Form1.BackColor
Next i
End Sub
Sub cancip()
For i = -300 To 300
If i <> 0 Then
x = i / 100
y = 1 / x
PSet (x1 - x, y1 - y), Form1.BackColor
End If
Next i
End Sub
Sub cancradquad()
For i = 0 To 600
x = i / 100
y = x ^ (1 / 2)
PSet (x1 + x, y1 - y), Form1.BackColor
Next i
End Sub
Sub cancradquart()
For i = 0 To 600
x = i / 100
y = x ^ (1 / 4)
PSet (x1 + x, y1 - y), Form1.BackColor
Next i
End Sub
Sub canclog()
For i = 0 To 600
x = i / 100
If x > 0 Then
y = Log(x)
PSet (x1 + x, y1 - y), Form1.BackColor
End If
Next i
End Sub
Sub cancbis()
For i = -600 To 600
x = i / 100
y = x
PSet (x1 - x, y1 + y), Form1.BackColor
Next i
End Sub
Sub cancbismin()
For i = -600 To 600
x = i / 100
y = -x
PSet (x1 + x, y1 - y), Form1.BackColor
Next i
End Sub
Sub cancpar()
For i = -300 To 300
x = i / 100
y = x * x
PSet (x1 - x, y1 - y), Form1.BackColor
Next i
End Sub
Sub cancpar3()
For i = -300 To 300
x = i / 100
y = x * x * x
PSet (x1 - x, y1 - y), Form1.BackColor
Next i
End Sub
Sub cotangente()
For i = 1800 To -1800 Step -1
x = i / 100
If x <> 0 Then
y = 1 / Tan(x)
PSet (x1 + x, y1 - y), &HC0C0&
End If
Next i
End Sub
Sub tangente()
For i = 1800 To -1800 Step -1
x = i / 100
y = Tan(x)
PSet (x1 + x, y1 - y), vbGreen
Next i
End Sub
Sub coseno()
For i = 3600 To -3600 Step -1
x = i / 100
y = Cos(x)
PSet (x1 + x, y1 - y), vbGreen
Next i
End Sub
Sub seno()
For i = 3600 To -3600 Step -1
x = i / 100
y = Sin(x)
PSet (x1 + x, y1 - y), vbRed
Next i
End Sub
Sub iperbole()
For i = -300 To 300
If i <> 0 Then
x = i / 100
y = 1 / x
PSet (x1 - x, y1 - y), &H4040&
End If
Next i
End Sub
Sub parabola()
For i = -300 To 300
x = i / 100
y = x * x
PSet (x1 - x, y1 - y), vbRed
Next i
End Sub
Sub parabola3()
For i = -700 To 700
x = i / 100
y = x * x * x
PSet (x1 - x, y1 - y), &H808000
Next i
End Sub
Sub bisettrice()
For i = -600 To 600
x = i / 100
y = x
PSet (x1 - x, y1 + y), vbGreen
Next i
End Sub
Sub bisettricemin()
For i = -600 To 600
x = i / 100
y = -x
PSet (x1 + x, y1 - y), &HFF00FF
Next i
End Sub
Sub logaritmo()
For i = 0 To 600
x = i / 100
If x > 0 Then
y = Log(x)
PSet (x1 + x, y1 - y), vbBlue
End If
Next i
End Sub
Sub radquad()
For i = 0 To 600
x = i / 100
y = x ^ (1 / 2)
PSet (x1 + x, y1 - y), &HFF8080
Next i
End Sub
Sub radquart()
For i = 0 To 1000
x = i / 100
y = x ^ (1 / 4)
PSet (x1 + x, y1 - y), &H80&
Next i
End Sub
Sub nepero()
For i = -600 To 600
x = i / 100
y = 2.71 ^ x
PSet (x1 + x, y1 - y), &H40C0&
Next i
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "Programma realizzato da Albertking82", vbInformation, "Sviluppatore"
End Sub
Private Sub Form_Resize()
Call traccia
End Sub
Private Sub mnub_Click()
If mnub.Checked = True Then
mnub.Checked = False
Call cancbismin
Call traccia
Else
mnub.Checked = True
Call bisettricemin
End If
End Sub
Private Sub mnubis_Click()
If mnubis.Checked = True Then
mnubis.Checked = False
Call cancbis
Call traccia
Else
mnubis.Checked = True
Call bisettrice
End If
End Sub
Private Sub mnucanc_Click()
Form1.Cls
Call traccia
mnupar.Checked = False
mnupar3.Checked = False
mnuip.Checked = False
mnucot.Checked = False
mnutg.Checked = False
mnusen.Checked = False
mnucos.Checked = False
mnuradquad.Checked = False
mnuradquart.Checked = False
mnuneper.Checked = False
mnulog.Checked = False
mnubis.Checked = False
mnub.Checked = False
End Sub
Private Sub mnucos_Click()
If mnucos.Checked = True Then
mnucos.Checked = False
Call canccoseno
Call traccia
Else
mnucos.Checked = True
Call coseno
End If
End Sub
Private Sub mnucot_Click()
If mnucot.Checked = True Then
mnucot.Checked = False
Call cancctg
Call traccia
Else
mnucot.Checked = True
Call cotangente
End If
End Sub
Private Sub mnuelisse_Click()
Call elisse
End Sub
Private Sub mnuesci_Click()
MsgBox "Programma realizzato da Albertking82", vbInformation, "Sviluppatore"
Unload Me
End Sub
Private Sub mnuip_Click()
If mnuip.Checked = True Then
mnuip.Checked = False
Call cancip
Call traccia
Else
mnuip.Checked = True
Call iperbole
End If
End Sub
Private Sub mnulog_Click()
If mnulog.Checked = True Then
mnulog.Checked = False
Call canclog
Call traccia
Else
mnulog.Checked = True
Call logaritmo
End If
End Sub
Private Sub mnuneper_Click()
If mnuneper.Checked = True Then
mnuneper.Checked = False
Call cancneper
Call traccia
Else
mnuneper.Checked = True
Call nepero
End If
End Sub
Private Sub mnupar_Click()
If mnupar.Checked = True Then
mnupar.Checked = False
Call cancpar
Call traccia
Else
mnupar.Checked = True
Call parabola
End If
End Sub
Private Sub mnupar3_Click()
If mnupar3.Checked = True Then
mnupar3.Checked = False
Call cancpar3
Call traccia
Else
mnupar3.Checked = True
Call parabola3
End If
End Sub
Private Sub mnuradquad_Click()
If mnuradquad.Checked = True Then
mnuradquad.Checked = False
Call cancradquad
Call traccia
Else
mnuradquad.Checked = True
Call radquad
End If
End Sub
Private Sub mnuradquart_Click()
If mnuradquart.Checked = True Then
mnuradquart.Checked = False
Call cancradquart
Call traccia
Else
mnuradquart.Checked = True
Call radquart
End If
End Sub
Private Sub mnusen_Click()
If mnusen.Checked = True Then
mnusen.Checked = False
Call cancseno
Call traccia
Else
mnusen.Checked = True
Call seno
End If
End Sub
Private Sub mnutg_Click()
If mnutg.Checked = True Then
mnutg.Checked = False
Call canctg
Call traccia
Else
mnutg.Checked = True
Call tangente
End If
End Sub