calcolatrice creata con visual basic e convertitain video.AVI (molto scadente, non so ancora come mantenere stabile la visualizzazione sullo schermo...)codice visualbasic per esempio di semplice calcolatrice scientificainserire valore numerico e poi cliccare su funzione da calcolarecliccare su altre funzioni, oppure scrivere altro numero video su googlePrivate Sub CommandButton1_Click()risposta.Caption = Int(numero.Text)End SubPrivate Sub CommandButton10_Click()If numero.Text > 0 Thenrisposta.Caption = Log(numero.Text) / Log(10)Elserisposta.Caption = "valore non accettabile"End IfEnd SubPrivate Sub CommandButton11_Click()risposta.Caption = Exp(numero.Text)End SubPrivate Sub CommandButton12_Click()risposta.Caption = numero.Text * 180 / 3.14End SubPrivate Sub CommandButton13_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Sin(radianti)End SubPrivate Sub CommandButton14_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Cos(radianti)End SubPrivate Sub CommandButton15_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Tan(radianti)End SubPrivate Sub CommandButton16_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Sin(radianti) / Cos(radianti)End SubPrivate Sub CommandButton17_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Atn(radianti)End SubPrivate Sub CommandButton18_Click()risposta.Caption = numero.Text * 3.14 / 180End SubPrivate Sub CommandButton2_Click()risposta.Caption = Abs(numero.Text)End SubPrivate Sub CommandButton3_Click()risposta.Caption = Sgn(numero.Text)End SubPrivate Sub CommandButton4_Click()risposta.Caption = Rnd(numero.Text)End SubPrivate Sub CommandButton5_Click()If numero.Text >= 0 Thenrisposta.Caption = Sqr(numero.Text)Elserisposta.Caption = "valore non accettabile"End IfEnd SubPrivate Sub CommandButton6_Click()risposta.Caption = numero.Text ^ 2End SubPrivate Sub CommandButton7_Click()risposta.Caption = numero.Text ^ 3End SubPrivate Sub CommandButton8_Click()risposta.Caption = numero.Text ^ 4End SubPrivate Sub CommandButton9_Click()If numero.Text > 0 Thenrisposta.Caption = Log(numero.Text)Elserisposta.Caption = "valore non accettabile"End IfEnd Sub
calcolatrice di funzioni
calcolatrice creata con visual basic e convertitain video.AVI (molto scadente, non so ancora come mantenere stabile la visualizzazione sullo schermo...)codice visualbasic per esempio di semplice calcolatrice scientificainserire valore numerico e poi cliccare su funzione da calcolarecliccare su altre funzioni, oppure scrivere altro numero video su googlePrivate Sub CommandButton1_Click()risposta.Caption = Int(numero.Text)End SubPrivate Sub CommandButton10_Click()If numero.Text > 0 Thenrisposta.Caption = Log(numero.Text) / Log(10)Elserisposta.Caption = "valore non accettabile"End IfEnd SubPrivate Sub CommandButton11_Click()risposta.Caption = Exp(numero.Text)End SubPrivate Sub CommandButton12_Click()risposta.Caption = numero.Text * 180 / 3.14End SubPrivate Sub CommandButton13_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Sin(radianti)End SubPrivate Sub CommandButton14_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Cos(radianti)End SubPrivate Sub CommandButton15_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Tan(radianti)End SubPrivate Sub CommandButton16_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Sin(radianti) / Cos(radianti)End SubPrivate Sub CommandButton17_Click()Dim radianti As Singleradianti = ((numero.Text * 3.14) / 180)risposta.Caption = Atn(radianti)End SubPrivate Sub CommandButton18_Click()risposta.Caption = numero.Text * 3.14 / 180End SubPrivate Sub CommandButton2_Click()risposta.Caption = Abs(numero.Text)End SubPrivate Sub CommandButton3_Click()risposta.Caption = Sgn(numero.Text)End SubPrivate Sub CommandButton4_Click()risposta.Caption = Rnd(numero.Text)End SubPrivate Sub CommandButton5_Click()If numero.Text >= 0 Thenrisposta.Caption = Sqr(numero.Text)Elserisposta.Caption = "valore non accettabile"End IfEnd SubPrivate Sub CommandButton6_Click()risposta.Caption = numero.Text ^ 2End SubPrivate Sub CommandButton7_Click()risposta.Caption = numero.Text ^ 3End SubPrivate Sub CommandButton8_Click()risposta.Caption = numero.Text ^ 4End SubPrivate Sub CommandButton9_Click()If numero.Text > 0 Thenrisposta.Caption = Log(numero.Text)Elserisposta.Caption = "valore non accettabile"End IfEnd Sub