calcolatrice

codice visualbasic per esempio di semplice calcolatrice scientifica

Private Sub CommandButton1_Click()
risposta.Caption = Int(numero.Text)
End Sub

Private Sub CommandButton10_Click()
If numero.Text > 0 Then
risposta.Caption = Log(numero.Text) / Log(10)
Else
risposta.Caption = "valore non accettabile"
End If
End Sub

Private Sub CommandButton11_Click()
risposta.Caption = Exp(numero.Text)
End Sub

Private Sub CommandButton12_Click()
risposta.Caption = numero.Text * 180 / 3.14
End Sub

Private Sub CommandButton13_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Sin(radianti)
End Sub

Private Sub CommandButton14_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Cos(radianti)
End Sub

Private Sub CommandButton15_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Tan(radianti)
End Sub

Private Sub CommandButton16_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Sin(radianti) / Cos(radianti)
End Sub

Private Sub CommandButton17_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Atn(radianti)
End Sub

Private Sub CommandButton18_Click()
risposta.Caption = numero.Text * 3.14 / 180
End Sub

Private Sub CommandButton2_Click()
risposta.Caption = Abs(numero.Text)
End Sub

Private Sub CommandButton3_Click()
risposta.Caption = Sgn(numero.Text)
End Sub

Private Sub CommandButton4_Click()
risposta.Caption = Rnd(numero.Text)
End Sub

Private Sub CommandButton5_Click()
If numero.Text >= 0 Then
risposta.Caption = Sqr(numero.Text)
Else
risposta.Caption = "valore non accettabile"
End If

End Sub

Private Sub CommandButton6_Click()
risposta.Caption = numero.Text ^ 2
End Sub

Private Sub CommandButton7_Click()
risposta.Caption = numero.Text ^ 3
End Sub

Private Sub CommandButton8_Click()
risposta.Caption = numero.Text ^ 4
End Sub

Private Sub CommandButton9_Click()
If numero.Text > 0 Then
risposta.Caption = Log(numero.Text)
Else
risposta.Caption = "valore non accettabile"
End If
End Sub

inizio