Visual Basic er et kraftfuldt programmeringssprog skabt til Microsoft for at gøre det lettere for brugere uden computer programmering uddannelse til at udvikle software til Windows -computere. Oprettelse af en videnskabelig lommeregner giver et overblik over , hvordan man kan udvikle software til Visual Basic. Ting du skal
Visual Basic 2008 Express eller senere
Vis Flere Instruktioner
Opsætning af Project
1
Opret et nyt projekt ved at klikke på "File" og " Nyt projekt ". Når du bliver bedt , giv den navnet " videnskabelige lommeregner . "
En tom brugergrænseflade formular vil blive vist for din lommeregner , tilføje grafiske brugergrænseflade ( GUI) komponenter til den fra værktøjskassen på venstre hånd. Du skal bruge to typer af komponenter : et tekstfelt til at vise resultater og en masse knapper
2
Træk en tekstboks til toppen af din lommeregner fra værktøjskassen til venstre. . Dette vil være , hvor numrene vises , og hvor brugeren vil skrive tal til senere beregning.
3
Træk en knap i din form fra værktøjskassen. I egenskabsboksen finder " teksten" ejendom og ændre det til " synd ". Find navnet ejendom og ændre det til " sinButton . " Klik på " synd "-knappen i formularen og tryk på " Ctrl -C "for at lave en kopi af knap i tastaturet. Tryk Ctrl - V nøgle 11 gange til at skabe de 11 nye knapper til din formular . For hver knap knappen tekst ændres til følgende : cos , tan , pi, exp , sqrt , log , C, +, - , X, = og /, og give den et navn, der beskriver det. For eksempel, for på " /" knappen ændre sit navn ejendom til " divideButton ".
Doing programmering
4
Dobbeltklik på " , synd "-knappen. Dette vil føre dig til kildekoden , og oprette en begivenhed metode til håndtering af synden events og placere markøren i det. Indsæt følgende der : Hej
Private Sub Button19_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button19.ClickTextBox1.Text = Math.sin ( TextBox1.Text ) End Sub
< br > 5
Dobbeltklik på " cos " knappen. Igen , vil dette føre dig til kildekoden , og oprette en begivenhed metode. Indsæt følgende i det : Hej
Private Sub Button20_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button20.ClickTextBox1.Text = Math.cos ( TextBox1.Text ) End Sub
6
Dobbeltklik på " tan " knappen og indsæt følgende , som i de foregående trin : Hej
Private Sub Button21_Click ( ByVal afsender som System.Object , ByVal e som System.EventArgs ) Håndtag Button21.ClickTextBox1.Text = Math.Tan ( TextBox1.Text ) End Sub
7
Dobbeltklik på " pi " knappen og indsæt følgende :
Private Sub Button22_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button22.ClickTextBox1.Text = Math.PIEnd Sub
8
Dobbeltklik på "C" knappen og indsæt : < br >
Private Sub Button23_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button23.ClickTextBox1.Text = "" memory = 0End Sub
Programmering Fortsat < br >
9
Indsæt følgende på toppen af kildekoden editor : Hej
Dim hukommelse som DoubleDim operation As String
Dette vil holde numre, der er nødvendige i binær . operationer og operation, der skal udføres, såsom division eller formering
10
Dobbeltklik på hver af de binære betjeningsknapper ( +, - , X, /og exp ) efter tur, og indsætte følgende kode : Hej
hukommelse = TextBox1.Textoperation = "+ "
Erstat operationen tekst med operationen. For eksempel, for "X " knappen erstatte "+ " med " X"
11
Dobbeltklik på "= " knappen og indsæt følgende: < br >
Private Sub Button1_Click_1 ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button1.ClickIf operation.Equals ("+ ") ThenTextBox1.Text = hukommelse + TextBox1.TextElseIf operation.Equals ( "-") ThenTextBox1.Text = memory - TextBox1.TextElseIf operation.Equals ( "X") ThenTextBox1.Text = hukommelse * TextBox1.TextElseIf operation.Equals ( "/" ) ThenTextBox1.Text = hukommelse /TextBox1 . TextElseIf operation.Equals ( "EXP" ) ThenTextBox1.Text = Math.Pow (hukommelse , TextBox1.Text ) End If
End Sub
12
Dobbeltklik på " , log " knappen og indsæt : Hej
Private Sub Button24_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button24.ClickTextBox1.Text = Math.Log ( TextBox1.Text ) End Sub < br >
13
Dobbeltklik på " sqrt " knappen og indsæt : Hej
Private Sub Button18_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button18.ClickTextBox1.Text = Math.sqrt ( TextBox1.Text ) End Sub