Microsoft Visual Basic er et programmeringssprog baseret på BASIC sprog , oprindeligt udviklet til at gøre programmeringen lettere at lære . Visual Basic tager de velkendte kommandoer BASIC og tilføjer objektorienterede værktøjer og grænseflader til at designe WYSIWYG -lignende Windows-programmer og web kontroller , blandt mange andre forbedringer . Et relativt simpelt learning projekt for Visual Basic er oprettelsen af ​​en Windows lommeregner. Ting du skal
Microsoft Visual Basic 6
Vis Flere Instruktioner
1

Open Visual Basic 6 , og vælg " Standard EXE " fra det nye projekt menu. Du vil se en tom formular vises på skærmen.
2

Omdøb dit projekt og din formular ved at klikke på " Project1 " i højre side af skærmen , i projektet notering , og indtaste et nye navn i " Name" linje i boksen Egenskaber , som skal vises under projektet notering som standard. Tryk på " Enter " for at acceptere det nye navn. Gør det samme for din form ( en foreslået formular navn er " CalculatorUI " ) , og sørg for at indtaste et lignende navn i " Caption " ejendom så godt, som vil ændre teksten i den øverste bjælke af formularen. Gem projektet i en ny mappe på din computer .
3

Tilføj knapper og en tekstboks til formularen. Først , tilføje en tekstboks , som vil være hvor tallene indtastet i lommeregneren vises, samt resultaterne af beregningerne. Gør dette ved at vælge TextBox knappen fra værktøjslinjen i venstre side af skærmen, og derefter trække med musen størrelse og placering , du ønsker for TextBox . Når du har placeret TextBox du kan ændre størrelsen og placeringen ved at trække det til et andet sted i formularen eller ved at trække i håndtagene ( de små firkanter ) langs grænsen til TextBox . Vær sikker på at ændre følgende linjer i vinduet Egenskaber , med TextBox valgt: " (Navn) " = tbResult , " Justering " = 1 - Right Begrund , "Data Format " = (klik på " ... " knappen for at vælg ) Antal , " Locked " = Sand og "Tekst" = 0 .
4

Vælg KommandoKnap ikon på værktøjslinjen og skabe den første knap på samme måde, du oprettede TextBox at tilføje knapper. For reference , skal du bruge Windows lommeregner Standard visning ( Programmer > Tilbehør> Regnemaskine ) som grundlag for din lommeregner layout, forlader de " MC ", " MR" , "MS " og "M +" knapperne. På hver knap , de følgende egenskaber (ved hjælp af knappen "+" som et eksempel ) ændres : " (Navn) " = btnPlus , " Caption " = + . Gør det samme for resten af lommeregneren knapper, og derefter gemme dit arbejde . Din formular skal nu ligne det viste eksempel .
5.

Tilføj koden . Bemærk, at hvis dine knapper og tekstboks ikke er navngivet det samme som den kode, der er anført her forventer , bliver du nødt til at ændre navnene til at matche dine knapper og tekstboks , eller ændre dine knapper og tekstfelt til at matche denne kode. Først skal vi nødt til at skabe et par variabler til forarbejdning lommeregner input :

Dim sLeft As String , sRight As String , sOperator Som StringDim iLeft som dobbelt , iRight Som Dobbelt, iResultat Som DoubleDim bLeft Som Boolean
< p > Hver beregning består af fire dele : En række til venstre for operatøren ( sLeft , iLeft ) , en operatør ( sOperator ) , et tal til højre for føreren ( sRight , iRight ) og et resultat ( iResultat ) . For at spore , om brugeren er på vej ind på den venstre eller højre tal , er vi nødt til at skabe en boolesk variabel , bLeft . Hvis bLeft er sandt, er den venstre side af beregningen , der indtastes , hvis bLeft er falsk, er i højre side , der indtastes
6

Initialiser bLeft variabel. . Det gør vi ved at skabe en Form_Load subrutine , som du enten kan skrive som angivet her , eller automatisk oprette ved at dobbeltklikke på nogen del af formularen ikke er dækket af en knap eller tekstboks . Inde i funktionen , er vi nødt til at indstille bLeft til True , fordi det første nummer indtastes vil være den venstre del : Hej

Private Sub Form_Load () bLeft = TrueEnd Sub
7

Opret en subrutine , der vil håndtere klikke nogen af ​​talknapperne. Vi skaber dette som en subrutine , fordi vi bruger samme kode til hver knap , og bruge en subrutine betyder ikke at skulle gentage den samme kode ti gange. Indtast følgende under Form_Load subroutine s End Sub linie : Hej

Private Sub AddNumber ( sNumber As String ) Hvis bLeft ThensLeft = sLeft + sNumbertbResult.Text = sLeftElsesRight = sRight + sNumbertbResult.Text = sRightEnd IfEnd Sub
< p> som du kan se , denne funktion tager en streng parameter , sNumber , som vil indeholde nummeret brugeren har klikket på. Hvis bLeft er sand , er dette tal knyttet til strengen , der repræsenterer det nummer, der indtastes, sLeft og tekstfeltet , tbResult , opdateres til at vise det nye nummer. Hvis bLeft er falsk, er den samme operation udføres ved hjælp sRight i stedet.

Sidst oprette en Click begivenhed funktion for hvert nummer , der kalder vores AddNumber underprogram. Du kan gøre dette nemt ved at dobbeltklikke på hvert nummer knap, som vil skabe et underprogram struktur for dig. Tilsæt derefter opkaldet til AddNumber , erstatter tallet i anførselstegn med antallet forbundet med knappen. For nul -knappen, vil din kode se sådan ud : Hej

Private Sub btn0_Click () AddNumber ("0" ) End Sub

Ligeledes for en knap , vil din kode se sådan ud : Hej

Private Sub btn1_Click () AddNumber ( "1" ) End Sub
8

Håndter operatørerne : plus , minus , gange og dividere . Vi vil gøre dette som sidste trin , hvilket skaber en subrutine , der kaldes i klik arrangementer for operatøren knapper. Underrutinen vil se ud som følgende : Hej

Private Sub AddOperator ( sNewOperator As String ) Hvis bLeft ThensOperator = sNewOperatorbLeft = FalseElsebtnEquals_ClicksOperator = sNewOperatorsRight = "" bLeft = FalseEnd IfEnd Sub
p Hvis bLeft er sandt, hvilket betyder, at brugeren har netop indgået den venstre del af beregningen , dette subrutine sætter sOperator variable , vi oprettede i trin 5 for at være lig med det indtastede operatør , som er gået til AddOperator som strengen sNewOperator . Det andet skridt er at sætte bLeft til False , fordi indførelsen af ​​en operatør betyder, at brugeren er færdig med at indtaste den venstre side af ligningen. For at kunne håndtere poster, string flere operatører sammen , såsom 9 * 3 * 2 * 6 , skal vi også kontrollere, om bLeft er falsk, hvilket betyder, at brugeren har indtastet en operatør , hvor vi forventer et lighedstegn . Først vi kalder Click begivenhed for lig knappen (beskrevet i næste trin ), som gør beregningen og sætter tbResult til resultatet af hvad der allerede er indtastet. Så kan vi rydde sRight så brugeren kan indtaste det næste nummer , og sæt bLeft til False , så programmet ved, at vi er på vej ind i højre side af beregningen næste .

Sidst tilsættes et AddOperator opkald til klikhændelsen af hver enkelt erhvervsdrivende knap . ved hjælp af samme metode som vi brugte i trin 7 for at skabe Klik begivenheder for de taltasterne Din kode til plus -knappen vil se sådan ud : Hej

Private Sub btnPlus_Click () AddOperator ( "+" ) End Sub

Ligeledes vil kode for minus knappen se sådan ud: < br >

Private Sub btnMinus_Click () AddOperator ("-" ) End Sub
9

Opret Click begivenhed for lig knap, som er den mest komplekse koden i dette program. Opret subrutine struktur som du gjorde for de andre knapper , ved at dobbeltklikke på lig knappen på din formular. Din subroutine vil se sådan ud , når du har indtastet koden : Hej

Private Sub btnEquals_Click () Hvis sLeft < > "" Og sRight = "" Og sOperator < > "" ThensRight = sLeftEnd Hvis

Hvis sLeft < > "" Og sRight < > "" Og sOperator < > "" TheniLeft = sLeftiRight = sRight

Select Case sOperatorCase "+" iResultat = iLeft + iRightCase "-" iResultat = iLeft - iRightCase "/" iResultat = iLeft /iRightCase "*" iResultat = iLeft * iRightEnd Select

tbResult.Text = iResultat

sLeft = iResultsRight = "" bLeft = TrueEnd IfEnd Sub

de tre første linjer kode at se om begge sider af beregningen er indgået sammen med en operatør. Hvis kun den venstre side, og en operatør er indtastet, er værdien af ​​den venstre side kopieret til højre, så vi kan efterligne standard lommeregner adfærd for at behandle en post som 9 * = , som ganger 9 af sig selv for at få et resultat af 81 . Resten af ​​koden vil kun køre , hvis venstre, højre, og operatør er indtastet, og starter ved at kopiere strengene af tal i vores iLeft og iRight Dobbelt maskinskrevne variabler, som kan gøre det egentlige beregninger. Select Case erklæring tillader os at køre anden kode , afhængigt af hvilken operatør blev indtastet , og udfører den egentlige beregning placere resultatet i iResultat . Endelig vi opdaterer tekstfeltet med resultatet, kopiere resultatet i sLeft , nulstille sRight og indstille bLeft = Sand . Disse sidste linier tillade os at tage resultatet af beregningen og bruge det til at udføre en ny beregning
10

Håndter de sidste tre betjeningsknapper : . Sqrt , % og 1 /x . For klikhændelsen af kvadratroden knappen, vil din kode se sådan ud : Hej

Private Sub btnSqrt_Click () Hvis sLeft < > "" TheniLeft = sLeftElseiLeft = 0End Hvis
p Hvis sRight < > "" TheniRight = sRightElseiRight = 0End Hvis
p Hvis bLeft TheniLeft = Math.Sqr ( iLeft ) tbResult.Text = iLeftElseiRight = Math.Sqr ( iLeft ) tbResult.Text = iRightEnd Hvis
< p> Hvis iLeft < > 0 ThensLeft = iLeftElsesLeft = "" End If
p Hvis iRight < > 0 ThensRight = iRightElsesRight = "" End IfEnd Sub

De første 11 linjer af kode sørg for, at hvis vi ikke har en værdi indtastet for hver side af ligningen, vi erstatter nul i stedet for at forsøge at kopiere en tom streng i iLeft eller iRight , som vil generere en fejl. De midterste linjer udfører kvadratroden funktionen på den aktuelle del af beregningen , enten til venstre eller højre. Endelig vi vende checks , vi gjorde i starten , således at en nul kopieres som en tom streng tilbage i sLeft og sRight

procent knappen , koden er den samme , med en undtagelse: . Procent operation kan kun udføres , hvis både venstre og højre side er indtastet.

Private Sub btnPercent_Click () Hvis ikke bLeft ThenIf sRight < > "" TheniRight = sRightElseiRight = 0End Hvis

iRight = iRight * ( iLeft /100) tbResult.Text = iRight
p Hvis iRight < > 0 ThensRight = iRightElsesRight = "" End IfEnd IfEnd Sub

Endelig 1 /x eller påbegyndt , Klik på begivenheden , som er meget lig den ovenstående kode : Hej

Private Sub btnFraction_Click () Hvis sLeft < > "" TheniLeft = sLeftElseiLeft = 0End Hvis
p Hvis sRight < > " " TheniRight = sRightElseiRight = 0End Hvis
p Hvis bLeft TheniLeft = 1 /iLefttbResult.Text = iLeftElseiRight = 1 /iRighttbResult.Text = iRightEnd Hvis
p Hvis iLeft < > 0 ThensLeft = iLeftElsesLeft = "" End If
p Hvis iRight < > 0 ThensRight = iRightElsesRight = "" End IfEnd Sub
11

Tilføj kode til at håndtere C og CE -knapperne. C rydder alle input til regnemaskinen , mens CE rydder kun det antal øjeblikket indtastes.

Private Sub btnC_Click () sLeft = "" sRight = "" sOperator = "" tbResult.Text = "0" bLeft = TrueEnd Sub

Private Sub btnCE_Click () Hvis bLeft ThensLeft = "" ElsesRight = "" End IftbResult.Text = "0" End Sub
12

Run din lommeregner program og gør et beregning , du ønsker . Denne lommeregner kan nemt udvides til at håndtere flere operationer , mere komplekse beregninger eller endog at være en videnskabelig regnemaskine med lidt ekstra arbejde.