Ako si vyrobiť kalkulačka s Visual Basic

Microsoft Visual Basic je programovací jazyk založený na jazyku BASIC , pôvodne vyvinutý tak , aby programovanie jednoduchšie naučiť . Visual Basic má známe príkazy BASICu a dodáva objektovo orientovaných nástrojov a rozhranie pre navrhovanie WYSIWYG - ako aplikácie Windows a webové ovládacie prvky , medzi mnoho ďalších vylepšení . Jedným z relatívne jednoduché učenia projekt pre Visual Basic je vytvorenie kalkulačky systému Windows . Veci , ktoré budete potrebovať v Microsoft Visual Basic 6
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte Visual Basic 6 , a vyberte možnosť " Štandardné EXE " z novej ponuky projektu . Uvidíte prázdny formulár sa zobrazí na obrazovke .
2

Premenovať projektu a formulár kliknutím na " Project1 " na pravej strane obrazovky , v zozname projektov , a zadaním nový názov " Meno " riadku okna Vlastnosti , ktoré by mali objaviť pod výpisu projektu v predvolenom nastavení . Stlačte tlačidlo " Enter " na potvrdenie nového názvu . To isté urobte pre formuláre (navrhnutý názov forma je " CalculatorUI " ) , uistite sa , zadajte podobný názov v " Titulok " majetok rovnako, čo sa zmení text v hornej lište formulára . Uložte projekt do novej zložky na vašom počítači .
3

pridať tlačidlá a textové pole do formulára . Po prvé , pridajte textové pole , ktoré bude, ak sa objavia čísla zadané v kalkulačke , ako aj výsledky výpočtov . Urob to pomocou tlačidla TextBox z panela nástrojov na ľavej strane obrazovky , a potom ťahaním myšou veľkosť a umiestnenie budete chcieť pre TextBox . Potom, čo ste umiestnili TextBox môžete zmeniť veľkosť a umiestnenie jeho pretiahnutím na iné miesto formulára , alebo pretiahnutím úchytov ( malé štvorčeky ) pozdĺž hranice TextBox . Uistite sa , že zmeňte nasledujúce riadky v okne Vlastnosti , s TextBox vybrané : " ( Meno ) " = tbResult , " Zarovnanie " = 1 - Zarovnať vpravo , " Data Format " = ( kliknite na tlačidlo " ... " pre vyberte ) číslo , " Locked " = TRUE , a " Text " = 0.
4

Vyberte ikonu CommandButton na paneli nástrojov a vytvorte na prvé tlačidlo rovnakým spôsobom , ktorý ste vytvorili textové pole pre pridanie tlačidla . Pre porovnanie , použite kalkulačku Windows v štandardnom zobrazení ( programy > Príslušenstvo > Kalkulačka ) , ako základ pre rozvrhnutie kalkulačky , takže sa na " MC " , " MR " , " MS " a tlačidla " M + " . Na každom tlačidle , zmeniť nasledujúce vlastnosti ( pomocou tlačidla " + " ako príklad ) : " ( názov ) " = btnPlus , " Caption " = + . To isté urobte pre zvyšok tlačidiel kalkulačky , a uložte svoju prácu . Formulár by mal teraz vyzerať napríklad tu .
5

Pridajte kód . Všimnite si , že ak vaše tlačidiel a textového poľa nie sú rovnaké mená ako kód tu uvedené očakáva , budete musieť zmeniť názov , aby zodpovedali vašim tlačidiel a textového poľa , alebo zmeniť svoje tlačidiel a textového poľa , aby zodpovedali tento kód . Najprv je potrebné vytvoriť niekoľko premenných pre spracovanie kalkulačky vstup :

Dim sLeft As String , sRight As String , sOperator Ako StringDim iLeft As Double , iRight As Double , iResult Ako DoubleDim bLeft As Boolean

Každý výpočet sa skladá zo štyroch častí : číslo na ľavej strane prevádzkovateľa ( sLeft , iLeft ) , prevádzkovateľa ( sOperator ) , číslo na pravej strane prevádzkovateľa ( sRight , iRight ) , a v dôsledku ( iResult ) . Aby bolo možné sledovať , či užívateľ vstupuje na ľavej alebo pravej číslo , musíme vytvoriť logickú premennú , bLeft . Ak bLeft je pravda , ľavá strana výpočtu je zadaný , ak bLeft je false , pravá strana je zadaný
6

inicializovať premennú bLeft .. Robíme to tým , že vytvorí podprogram Form_Load , ktoré môžete buď typu , ako tu , alebo automaticky vytvoriť uvedené dvojklikom na ľubovoľnej časti formulára nevzťahuje tlačidlo alebo textové pole . Vnútri funkcie , musíme nastaviť bLeft na hodnotu True , pretože prvé zadané číslo bude ľavá časť :

Private Sub Form_Load ( ) bLeft = TrueEnd Sub
7

Vytvoriť podprogram , ktorý sa postará o klikanie na niektorú z číselných tlačidiel . Vytvárame to ako podprogram , pretože používame identický kód pre každé tlačidlo , a pomocou podprogram znamená , že nebudete musieť opakovať rovnaký kód desaťkrát . Zadajte nižšie Form_Load podprogramu Koniec Sub riadku nasledujúce :

Private Sub AddNumber ( sNumber As String ) Ak bLeft ThensLeft = sLeft + sNumbertbResult.Text = sLeftElsesRight = sRight + sNumbertbResult.Text = sRightEnd IfEnd Sub

Ako vidíte , táto funkcia trvá reťazcový parameter , sNumber , ktorá bude obsahovať číslo užívateľ klikol na . Ak bLeft je pravda , toto číslo je pripojená k reťazcu , ktorý predstavuje zadávané číslo , sLeft , a textbox , tbResult , sa aktualizuje a zobrazí nové číslo . Ak bLeft je false , rovnaká operácia sa vykonáva pomocou sRight miesto .

Nakoniec , vytvoriť funkciu Click udalosť pre každé číslo , ktoré volá naše AddNumber podprogram . Môžete to urobiť jednoducho dvojitým kliknutím na jednotlivé tlačidlá číslo , ktoré vytvoria štruktúru podprogramu pre vás . Potom pridajte volanie AddNumber , nahradí číslo v úvodzovkách s číslom spojenú s tlačidlom . Pre tlačidlá nula , bude váš kód vyzerať takto :

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

Podobne , pre tlačidlo raz , váš kód bude vyzerať takto :

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

Rukoväť operátormi : plus , mínus , krát a delenie . Budeme to robiť , ako posledný krok , vytvoriť podprogram , ktorý sa nazýva v udalosti Click pre tlačidla operátora . Podprogram bude vyzerať takto :

Private Sub AddOperator ( sNewOperator As String ) Ak bLeft ThensOperator = sNewOperatorbLeft = FalseElsebtnEquals_ClicksOperator = sNewOperatorsRight = " " bLeft = FalseEnd IfEnd Sub

bLeft je pravda , čo znamená , že používateľ práve vstúpil do ľavej časti výpočtu , tento podprogram nastaví sOperator premennú sme vytvorili v kroku 5 sa rovná operátor zadanú , ktorý je odovzdaný AddOperator ako reťazec sNewOperator . Druhým krokom je nastavenie bLeft na False , pretože vstup operátora znamená , že používateľ sa vykonáva zadaním ľavú stranu rovnice . Aby bolo možné zvládnuť položky , ktoré reťazec viac operátormi dohromady , ako napríklad 9 * 3 * 2 * 6 , musíme tiež skontrolovať , či bLeft je false , čo znamená , že používateľ zadal operátora , kde sme očakávali rovná . Prvý nazývame udalosti Click pre rovná tlačidlo ( popísané v ďalšom kroku ) , čo robí výpočet a nastaví tbResult na výsledok toho , čo už bol zadaný . Potom sme jasne sRight , takže užívateľ môže zadať ďalšie číslo , a nastaviť bLeft na False , takže program vie , že vstupujeme po pravej strane výpočtu ďalšie.

Nakoniec pridajte AddOperator volanie udalosti Click každého tlačidla operátora , pomocou rovnakej metódy ako sme použili v kroku 7 vytvorenia udalosti Click pre číselných tlačidiel . Váš kód pre tlačidlo a navyše bude vyzerať takto :

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

Rovnako tak , bude kód pre tlačidlo mínus vyzerať takto :

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

Vytvorte udalosti Click pre tlačidlo , ktoré je najzložitejšie kód v tomto programe sa rovná . Vytvorenie štruktúry podprogramu ako si to urobil pre ostatné tlačidlá , poklepaním na tlačidlo equals na formulári . Váš podprogram bude vyzerať , keď ste zadali kód :

Private Sub btnEquals_Click ( ) Ak sLeft < > " " A sRight = " " A sOperator < > " " ThensRight = sLeftEnd Ak

Ak sLeft < > " " A sRight < > " " A sOperator < > " " TheniLeft = sLeftiRight = sRight

Select Case sOperatorCase " + " iResult = iLeft + iRightCase " - " iResult = iLeft - iRightCase " /" iResult = iLeft /iRightCase " * " iResult = iLeft * iRightEnd Vybrať

tbResult.Text = iResult

sLeft = iResultsRight = " " bLeft = TrueEnd IfEnd Sub

prvých troch riadkov posudku zistiť , či boli zadané po oboch stranách výpočtu s operátorom . Ak zadáte iba na ľavej strane a operátor , je hodnota na ľavej strane je skopírovaná do pravej , takže môžeme napodobniť štandardné správanie kalkulačky pre manipuláciu položku ako 9 * = , čo násobí 9 samo o sebe , ako získať výsledok 81. Zvyšok kódu bude fungovať len v prípade , vľavo , vpravo , a prevádzkovateľom sú zapísané , a začína skopírovaním reťazca čísel do našich iLeft a iRight Dvakrát zadaných premenných , ktoré môžete urobiť skutočné výpočty . Príkaz Select Case nám umožňuje spustiť iný kód v závislosti na operátora bola zapísaná , a vykonáva skutočný výpočet , dávať výsledok v iResult . Nakoniec sme aktualizovať textové pole s výsledkom , skopírujte výsledok do sLeft , reset sRight , a nastaviť bLeft = TRUE . Tieto posledné riadky nám umožňujú sa výsledok výpočtu a používať ho vykonať ďalší výpočet
10

Rukoväť posledné tri ovládacie tlačidlá : . Sqrt , % , a 1 /x . Pre udalosti Click tlačidla odmocniny , bude váš kód vyzerať takto :

Private Sub btnSqrt_Click ( ) Ak sLeft < > " " TheniLeft = sLeftElseiLeft = 0End Ak

Ak sRight < > " " TheniRight = sRightElseiRight = 0End Ak

Ak bLeft TheniLeft = Math.Sqr ( iLeft ) tbResult.Text = iLeftElseiRight = Math.Sqr ( iLeft ) tbResult.Text = iRightEnd Ak

Ak iLeft < > 0 ThensLeft = iLeftElsesLeft = " " End If

Ak iRight < > 0 ThensRight = iRightElsesRight = " " End Sub IfEnd

prvých 11 riadkov kód uistite sa , že ak nebudeme mať hodnotu zadanú pre obe strany rovnice , dosadíme nulu , namiesto toho sa snažia kopírovať prázdny reťazec do iLeft alebo iRight , ktorý bude generovať chybu . Prostredná línie vykonávať funkcie druhej odmocniny na aktuálnu súčasť výpočtu , a to buď vľavo alebo vpravo . . Nakoniec sme sa obrátiť kontroly sme urobili na začiatku , takže nula je skopírovaný ako prázdny reťazec späť do sLeft a sRight

tlačidla percent , kód je podobný , s jednou výnimkou : Prevádzka percent možno vykonať len vtedy , ak obe ľavej a pravej strany sú zapísané .

Private Sub btnPercent_Click ( ) Ak nie je bLeft ThenIf sRight < > " " TheniRight = sRightElseiRight = 0End Ak

iRight = iRight * ( iLeft /100 ) tbResult.Text = iRight

Ak iRight < > 0 ThensRight = iRightElsesRight = " " End IfEnd IfEnd Sub

Konečne , 1 /x , alebo zlomok , kliknite na udalosť , ktorá je veľmi podobná vyššie uvedený kód :

Private Sub btnFraction_Click ( ) Ak sLeft < > " " TheniLeft = sLeftElseiLeft = 0End Ak

Ak sRight < > " " TheniRight = sRightElseiRight = 0End Ak

Ak bLeft TheniLeft = 1 /iLefttbResult.Text = iLeftElseiRight = 1 /iRighttbResult.Text = iRightEnd Ak

Ak iLeft < > 0 ThensLeft = iLeftElsesLeft = " " End If

Ak iRight < > 0 ThensRight = iRightElsesRight = " " End Sub IfEnd
11

Pridať kód pre spracovanie C a tlačidla CE . C vymaže všetky vstupy do kalkulátora , kým CE vymaže iba číslo práve zadali .

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

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

Spustiť kalkulačku program a vykonajte niektorú výpočet si budete priať . Táto kalkulačka môže byť ľahko rozšírený pre spracovanie viac operácií , zložitejšie výpočty , alebo dokonca , že je vedecký kalkulátor s trochou práce navyše .

• Predchádzajúca strana: Ako čítať Visual Basic 
• Ďalšia strana: Ako opraviť Microsoft Visual C Debug knižnica