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