Ako napísať Rovné kód pre štandardné kalkulačka vo VB6

Písanie štandardnú kalkulačku program v jazyku Visual Basic je dobré cvičenie pre začínajúcich programátorov jazyka . Základné kalkulačka obsahuje číslica " 0 " až " 9 " , tlačidlo znamenie , tlačidlo desatinné bodky , jasný tlačidlá , na tlačidlo rovná a tlačidiel vykonávať sčítanie , odčítanie , násobenie a delenie . Ovládacie prvky CommandButton sú umiestnené na formulári a minimálna kód je napísaný pre každú tlačidlo udalosť click pre program . Výsledky sú zobrazené v ovládacom prvku TextBox v hornej časti formulára . Pokyny dovolená 1

Otvorte kalkulačku projektu jazyka Visual Basic . Projekt by mal obsahovať ovládacie prvky CommandButton na číslice " 0 " až " 9 " , tlačidlo pre znamenia číslo je , tlačidlá desatinné , jasný tlačidlá , rovná tlačidlá a tlačidlá na vykonanie zadanej matematické operácie .
2

deklarovať premennú typu " Double " držať prvú zadanú hodnotu a druhá zadaná hodnota , ak už nie je deklarovaný . Uistite sa premenná " súkromný " do formulára . Tiež sa uistite , že sú booleovské premenné deklarované vedieť , aký typ operácie sa vykonávajú . Boolean hodnota je true alebo false .

Dim Private DFirst ako Double

Dim Súkromná dSecond ako Double

Dim baddy As Boolean

Dim bSubtract ako Boolean
3

skladujte číslice kliknutí na do " DFirst " premenné v udalosti Click matematického operátora . Tiež zachytiť ktorý bol vybraný tlačidlo prevádzky a podľa toho nastaviť logickú hodnotu . Napríklad , ak používateľ klikol na tlačidlo " doplnok " , nastavte baddy na " true " . Ak sa ovládacie tlačidlá boli definované v poli , kód bude vyzerať takto :

Vyberte indexom pred klipart

case 0

bDivision = TRUE

Case 1

bMultiply = TRUE

Prípad 2

bSubtract = TRUE

Case 3

baddy = TRUE

End vyberte
4

Uložte druhú hodnotu zadanú do " bSecond " a potom napísať " if " na vykonanie operácie na dvoch číslic a zobrazí výsledok v " rovná sa " Kliknite na tlačidlo kódu udalosti . "Ak je vyhlásenie " je písaný ako " Ak baddy Potom txtResult.text = DFirst + dSecond

End If " , kde " txtResult " je ovládací prvok TextBox v hornej časti formulára .

• Predchádzajúca strana: Ako odobrať DataBindings Z textové pole 
• Ďalšia strana: Ako používať formuláre v jazyku VBA