Visual Basic er et kraftig programmeringsspråk opprettet til Microsoft for å gjøre det enklere for brukere uten programmering trening for å utvikle programvare for Windows-maskiner . Opprette en vitenskapelig kalkulator gir en oversikt over hvordan man kan utvikle programvare for Visual Basic. Du trenger
Visual Basic 2008 Express eller senere
Vis mer Instruksjoner
Sette opp prosjektet
en

Lag 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 den fra verktøykassen på venstre side. Du vil bruke to typer komponenter: en tekstboks til å 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 Toolbox . I egenskaper boksen , 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-tasten 11 ganger for å skape 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 programmeringen
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 : en

Private Sub Button19_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button19.ClickTextBox1.Text = Math.Sin ( TextBox1.Text ) End Sub

5

Dobbeltklikk på " cos "-knappen . Igjen , dette vil flytte deg til kildekoden og lage et arrangement metode. Lim inn følgende i den : en

Private Sub Button20_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button20.ClickTextBox1.Text = Math.Cos ( TextBox1.Text ) End Sub

6

Dobbeltklikk på "tan "-knappen og lim inn følgende , som i de forrige trinnene : en

Private Sub Button21_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button21.ClickTextBox1.Text = Math.Tan ( TextBox1.Text ) End Sub
7

Dobbeltklikk på " pi" -knappen og lim inn følgende :

Private Sub Button22_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button22.ClickTextBox1.Text = Math.PIEnd Sub
8

Dobbeltklikk på "C "-knappen og lim :

Private Sub Button23_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button23.ClickTextBox1.Text = " " minne = 0End Sub
Programming Fortsatt

9

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

Dim minne som DoubleDim drift As String
p Dette vil holde tallene som trengs i binær . operasjoner og drift som skal utføres, for eksempel divisjon eller multiplikasjon
10

Dobbeltklikk hver av de binære knappene ( +, - , X, /, og exp ) etter tur og lime inn følgende kode :

minne = TextBox1.Textoperation = "+ "

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

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

Private Sub Button1_Click_1 ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.ClickIf operation.Equals ( " + ") ThenTextBox1.Text = minne + TextBox1.TextElseIf operation.Equals ( "-" ) ThenTextBox1.Text = minne - TextBox1.TextElseIf operation.Equals ( "X") ThenTextBox1.Text = minne * TextBox1.TextElseIf operation.Equals ( "/" ) ThenTextBox1.Text = minne /TextBox1 . TextElseIf operation.Equals ( " exp ") ThenTextBox1.Text = Math.pow (minne , TextBox1.Text ) End If

End Sub
12

Dobbeltklikk på " ; log " -knappen og lim : en

Private Sub Button24_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button24.ClickTextBox1.Text = Math.Log ( TextBox1.Text ) End Sub

13

Dobbeltklikk på " sqrt "-knappen og lim : en

Private Sub Button18_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button18.ClickTextBox1.Text = Math.sqrt ( TextBox1.Text ) End Sub