Attribute VB_Name = "funzioni"
Option Explicit
Public i As Integer
Public flag As Boolean
Public flag2 As Boolean
Public risultato As Double
Public fvirgola As Boolean
Public operazione As String
Public contpiu As Integer
Public contmeno As Integer
Public contper As Integer
Public contdiv As Integer
Public contpiumeno As Integer
Public Sub init()
contpiu = 0
contpiumeno = 0
contper = 0
contmeno = 0
contdiv = 0
flag = False
flag2 = False
risultato = 0
Frmcalc.Txtcalc.Text = ""
operazione = "+"
Frmcalc.cmdlog.Enabled = True
Frmcalc.Txtcalc.TabIndex = 1
For i = 0 To 9
Frmcalc.Cmdnum(i).Caption = i
Frmcalc.Cmdnum(i).TabIndex = i + 2
Next i
Frmcalc.Txtcalc.Text = ""
End Sub
Public Sub calcola()
Select Case operazione
Case "+"
risultato = risultato + CDbl(Frmcalc.Txtcalc.Text)
Case "-"
risultato = risultato - CDbl(Frmcalc.Txtcalc.Text)
Case "*"
risultato = risultato * CDbl(Frmcalc.Txtcalc.Text)
Case "/"
risultato = risultato / CDbl(Frmcalc.Txtcalc.Text)
End Select
'If risultato > 9999999999# Then
'MsgBox "Max 11 caratteri", vbExclamation, "Over range"
'Call init
'End If
End Sub
Public Sub about()
If MsgBox("Vuoi uscire dal programma?", vbQuestion + vbYesNoCancel, _
"Esci") = vbYes Then
MsgBox "Programma realizzato da Albert King (11\05\2006)" & _
vbCrLf & "Calcolatrice version 1.0 MS_Visual Basic", vbInformation, _
"Creatore"
End
End If
End Sub
Public Function q(num As Double) As Double
q = num * num
End Function
Public Function r(n As Double) As Double
On Error GoTo errore
r = Sqr(n)
errore:
Frmcalc.Txtcalc.Text = "valore non valido"
End Function
Public Function ln(nume As Double) As Double
ln = Abs(Log(nume))
End Function
Public Function cubo(nu As Double) As Double
cubo = nu * nu * nu
End Function
Public Function seno(s As Double) As Double
Select Case s
Case 0
seno = 0
Case 90
seno = 1
Case 180
seno = 0
Case 270
seno = -1
Case 360
seno = 0
Case Else
seno = Round(Sin(s), 4)
End Select
End Function
Public Function coseno(c As Double) As Double
Select Case c
Case 0
coseno = 1
Case 90
coseno = 0
Case 180
coseno = -1
Case 270
coseno = 0
Case 360
coseno = 1
Case Else
coseno = Round(Cos(c), 4)
End Select
End Function
