sperimentare

calcolatrice creata con visual basic e convertita
in video.AVI (molto scadente, non so ancora come
mantenere stabile la visualizzazione sullo schermo...)

codice visualbasic per esempio di semplice calcolatrice scientifica
inserire valore numerico e poi cliccare su funzione da calcolare
cliccare su altre funzioni, oppure scrivere altro numero

video su google





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