Hvordan beregne skatt & totalt ved hjelp av Visual Basic 6.0

September 26

Visual Basic 6 er et programmeringsmiljø som er utgitt av Microsoft Corporation. IT formål er å gi ikke-programmerere et miljø der de kan raskt og, ganske enkelt bygge enkle Windows-programmer, uten å måtte krangle med kompleksiteten i noen av de kraftigere språkene som C++ og Java.

Et enkelt program som utformet for å beregne merverdiavgift for en kasserer er akkurat typen problem Visual Basic er best egnet for.

Instruksjoner

1 Opprette et prosjekt og navnet den "TaxCalculator", eller et annet passende navn. La alle andre alternativer som de er og fortsette gjennom spørsmålene før du presentert med redigeringsprogrammet for skjema.

2 Legge til en etikett og endre tekstegenskapen til "Delsum." Etiketter kan legges ved å finne oppføringen etiketten i komponenter-listen på venstre side av skjermen og dra den til redigeringsprogrammet for skjema, i posisjonen der du vil at skal plasseres i programmet. Det er text-egenskapen kan endres ved å venstreklikke etiketten en eneste gang og finne oppføringen "Tekst" i egenskap-listen nederst høyre side av skjermen.

3 Legge til en tekstboks ved delsum etiketten ved å dra tekst for oppføringen fra komponentlisten over. Denne gangen, i stedet for egenskapen text endre egenskapen navnet til "subtotalBox."

4 Legge til en annen etikett under første og endre tekstegenskapen til "Skatt."

5 Legge til en tekstboks ved skatt etiketten og endre dens navnet "taxBox."

6 Legge til en etikett og endre tekstegenskapen til "Total."

7 Legge til en tekstboks ved at etiketten og endre dens navnet "totalWithTaxBox."

Vi har fullført brukergrensesnittet.

8 Dobbeltklikk tekstboksen med "del". Dette betyr to ting: den skaper en hendelse som oppstår hver gang teksten i tekstboksen endres, og du flyttes til et annet vindu - redigeringsprogrammet for kildekode.

Putte denne koden i hendelsen:

REM Defines a sales tax rate of 8.25% Const TAXRATE = 1.0825

REM Declare a section of memory to hold the subtotal Dim subtotal As Double

REM If the user put in the dollar sign, remove it. Dim subtotalString = Replace(subtotalBox.Text,"$", "")

REM Convert the subtotal from the user from a string of characters into a number subtotal = CDbl(Val(subtotalString))

REM Figure out the tax and tax with total. taxBox.Text = (subtotal * (TAXRATE - 1)) totalWithTaxBox.Text = (subtotal * TAXRATE)

REM linjene angir kommentarer eller merknader som jeg har satt i å forklare koden. Disse blir oversett av kompilatoren.

Tips og advarsler

  • Sørg for at du holde ther navn og tekst atskilt! Siden etikettene ikke brukes i våre programmeringskode, vi trenger ikke å endre navn på dem, men vi trenger trenger å endre teksten de viser til brukeren. Omvendt gjelder for våre tekstbokser: siden vi tilgang til dem i våre programmeringskode, vi ønsker å sikre de har en lett å huske og forstå navn, men vi ønsker ikke å inneholde tekst. Vi lar brukeren ta vare på å sette inn tekst i dem.

© 2020 pcdriverupdate.com | Kontakt oss: webmaster# pcdriverupdate.com