Come fare una calcolatrice scientifica in Visual Basic

June 25

Visual Basic è un potente linguaggio di programmazione creato da Microsoft per rendere più facile per gli utenti senza addestramento programmazione di computer per sviluppare software per i computer Windows. Creazione di una calcolatrice scientifica fornisce una panoramica di come sviluppare software per Visual Basic.

istruzione

Impostazione del progetto

1 Creare un nuovo progetto facendo clic su "File" e "Nuovo progetto". Quando richiesto, dare il nome di "calcolatrice scientifica."

Un modulo di interfaccia utente vuoto apparirà per la calcolatrice, aggiungere l'interfaccia utente grafica (GUI) di componenti ad esso dalla casella degli strumenti sulla sinistra. Si utilizzerà due tipi di componenti: una casella di testo per visualizzare i risultati e un mazzo di tasti.

2 Trascinare una casella di testo alla parte superiore della calcolatrice dalla casella degli strumenti a sinistra. Questo sarà dove i numeri appaiono e dove l'utente si digitare i numeri per il calcolo in seguito.

3 Trascinare un pulsante nel form dalla Casella degli strumenti. Nella finestra delle proprietà, trovare il "testo" di proprietà e cambiarla in "peccato". Trova la proprietà nome e cambiarlo in "sinButton." Fare clic sul pulsante "peccato" il modulo e premere "Ctrl-C" per fare una copia del pulsante nella tastiera. Premere il tasto Ctrl-V 11 volte per creare i 11 nuovi pulsanti per il modulo. Per ogni pulsante, modificare il testo del pulsante per i seguenti: cos, tan, pi, exp, sqrt, log, C, +, -, X, = e /, e dargli un nome che lo descrive. Ad esempio, per il tasto "/", modificare la proprietà nome in "divideButton."

Fare la programmazione

4 Fare doppio clic sul pulsante "peccato". Questo si sposterà al codice sorgente e creare un metodo di evento per la gestione di eventi peccato e posizionare il cursore all'interno di esso. Incollare il seguente ci:

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
TextBox1.Text = Math.Sin(TextBox1.Text)
End Sub

5 Fare doppio clic sul pulsante "cos". Ancora una volta, questo si sposterà al codice sorgente e creare un metodo di evento. Incollare il seguente in esso:

Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
TextBox1.Text = Math.Cos(TextBox1.Text)
End Sub

6 Fare doppio clic sul pulsante "tan" e incollare il seguente, come nelle fasi precedenti:

Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
TextBox1.Text = Math.Tan(TextBox1.Text)
End Sub

7 Fare doppio clic sul pulsante "pi" e incollare il seguente:

Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
TextBox1.Text = Math.PI
End Sub

8 Fare doppio clic sul pulsante "C" e incolla:

Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
TextBox1.Text = ""
memory = 0
End Sub

Programmazione Continua

9 Incollare il seguente al vertice del editor di codice sorgente:

Dim memory As Double
Dim operation As String

Ciò contenere numeri che sono necessarie operazioni binarie e l'operazione da eseguire, come la divisione o moltiplicazione.

10 Fare doppio clic su ciascuno dei pulsanti di funzionamento binari (+, -, x, /, e exp), a sua volta e incollare il seguente codice:

memory = TextBox1.Text
operation = "+"

Sostituire il testo operazione con il funzionamento. Ad esempio, per il pulsante "X", sostituire "+" con "X"

11 Fare doppio clic sul pulsante "=" e incollare il seguente:

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If operation.Equals("+") Then
TextBox1.Text = memory + TextBox1.Text
ElseIf operation.Equals("-") Then
TextBox1.Text = memory - TextBox1.Text
ElseIf operation.Equals("X") Then
TextBox1.Text = memory * TextBox1.Text
ElseIf operation.Equals("/") Then
TextBox1.Text = memory / TextBox1.Text
ElseIf operation.Equals("exp") Then
TextBox1.Text = Math.Pow(memory, TextBox1.Text)
End If

End Sub

12 Fare doppio clic sul pulsante "log" e incolla:

Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
TextBox1.Text = Math.Log(TextBox1.Text)
End Sub

13 Fare doppio clic sul pulsante "sqrt" e incolla:

Private Sub Button18_Click (ByVal sender As System.Object, ByVal e come System.EventArgs) tratta Button18.Click

TextBox1.Text = Math.Sqrt(TextBox1.Text)
End Sub