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

Istruzioni

Impostazione del progetto

1

Creare un nuovo progetto facendo clic su "File" e "Nuovo progetto". Quando richiesto, assegnargli il nome "Calcolatrice scientifica".

Apparirà un modulo di interfaccia utente vuoto per il vostro calcolatore, aggiungere componenti di interfaccia (GUI) di grafica utente ad esso dalla casella degli strumenti sulla sinistra. Si utilizzeranno due tipi di componenti: un controllo textbox per visualizzare risultati e un gruppo di pulsanti.

2

Trascinare un controllo textbox alla parte superiore del vostro calcolatore dalla casella degli strumenti sulla sinistra. Questo sarà dove i numeri vengono visualizzati e dove l'utente digiterà numeri per il calcolo successivo.

3

Dalla casella degli strumenti, trascinare un pulsante nel form. Nella finestra Proprietà, individuare la proprietà "text" e modificarlo per "peccare". Individuare la proprietà nome e cambiarlo in "sinButton." Fare clic sul pulsante "peccato" nel modulo e premere "Ctrl-C" per fare una copia del pulsante nella vostra tastiera. Premere il tasto Ctrl-V 11 volte per creare i nuovi 11 pulsanti per il modulo. Per ogni pulsante, modificare il testo del pulsante al seguente: cos, tan, pi, exp, sqrt, log, C, +, -, X, = e e assegnargli un nome che lo descrive. Ad esempio, per il pulsante "/", modificare la proprietà name per "divideButton."

Facendo la programmazione

4

Fare doppio clic sul pulsante di "peccato". Questo sposterà è all'origine di codice e creare un metodo di eventi per gestire gli eventi di 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 Sub5

Fare doppio clic sul pulsante "cos". Ancora una volta, questo si sposta verso il codice sorgente e creare un metodo di evento. Incollare il seguente:

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

Fare doppio clic sul pulsante "tan" e incollare il seguente, come i passaggi 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 Sub7

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 Sub8

Fare doppio clic sul pulsante "C" e incollare:

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

Programmazione ha continuato

9

Incollare il seguente in cima di editor del codice sorgente:

Dim memory As Double
Dim operation As String

Questo conterrà i numeri che sono necessari nelle operazioni binarie e l'operazione da eseguire, come divisione o moltiplicazione.

10

Fare doppio clic su ognuno dei pulsanti di operazione binaria (+,-, X, / ed exp) a sua volta e incollare il codice seguente:

memory = TextBox1.Text
operation = "+"

Sostituire il testo di funzionamento con l'operazione. Per 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 Sub12

Fare doppio clic sul pulsante "log" e incollare:

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

Fare doppio clic sul pulsante "sqrt" e incollare:

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

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