Hvordan lage en vitenskapelig kalkulator i Visual Basic

Visual Basic er et kraftig programmeringsspråk laget til Microsoft for å gjøre det enklere for brukere uten programmering opplæring for å utvikle programvare for Windows-maskiner. Opprette en vitenskapelig kalkulator gir en oversikt over hvordan å utvikle programvare for Visual Basic.

Bruksanvisning

Sette opp prosjektet

1 Opprett et nytt prosjekt ved å klikke på "File" og "New Project". Når du blir bedt, gi den navnet "Scientific Calculator".

En tom brukergrensesnitt skjemaet vil vises for kalkulatoren, legger grafisk brukergrensesnitt (GUI) komponenter til det fra verktøykassen på venstre side. Du vil bruke to typer komponenter: en tekstboks for å vise resultater og en haug med knapper.

2 Dra en tekstboks til toppen av kalkulatoren fra verktøykassen til venstre. Dette vil være der tallene vises og hvor brukeren skal skrive inn tall for senere beregning.

3 Dra en knapp i skjemaet fra verktøykassen. I egenskapsboksen, finner "teksten" eiendom og endre den til "synd". Finn navnet eiendom og endre den til "sinButton." Klikk på "synd" -knappen i skjemaet og trykk "Ctrl-C" for å lage en kopi av knappen i tastaturet. Trykk Ctrl-V nøkkel 11 ganger for å lage de 11 nye knapper for skjemaet. For hver knapp, endre knappen teksten til følgende: cos, tan, pi, exp, sqrt, logg, C, +, -, X, = og /, og gi den et navn som beskriver det. For eksempel, for "/" -knappen, endre navn egenskapen til "divideButton."

Gjør Programming

4 Dobbeltklikk på "synd" -knappen. Dette vil flytte deg til kildekoden og lage et arrangement metode for håndtering synd hendelser og plassere markøren i den. Lim inn følgende der:

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 Dobbeltklikk på "cos" -knappen. Igjen, dette vil bevege deg til kildekoden og lage et arrangement metode. Lim inn følgende i den:

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 Dobbeltklikk på "tan" knappen og lim følgende, som i de forrige trinnene:

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 Dobbeltklikk på "pi" knappen og lim inn følgende:

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

8 Dobbeltklikk på "C" knappen og lim:

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

programmering Fortsatt

9 Lim inn følgende på toppen av kildekoden redaktør:

Dim memory As Double
Dim operation As String

Dette vil holde tallene som er nødvendig i binær operasjon og operasjonen som skal utføres, for eksempel divisjon eller multiplikasjon.

10 Dobbeltklikk hver av de binære funksjonsknappene (+, -, X, / og exp) i sving og lim inn følgende kode:

memory = TextBox1.Text
operation = "+"

Bytt operasjonen tekst med driften. For eksempel, for "X" -knappen, erstatte "+" med "X"

11 Dobbeltklikk på "=" knappen og lim inn følgende:

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 Dobbeltklikk på "log" knappen og lim:

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

1. 3 Dobbeltklikk på "sqrt" knappen og lim:

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

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