Hvordan beregne moms og Total Bruke Visual Basic 6.0
Visual Basic 6 er et programmeringsmiljø publisert av Microsoft Corporation. Det formål er å gi ikke-programmerere med et miljø der de kan raskt og med relativ letthet, lage enkle Windows-programmer, uten å måtte krangle med kompleksiteten i noen av de mer kraftige språk, som C ++ og Java.
Et enkelt program som ett designet for å beregne merverdiavgift for en kasserer er akkurat den type problem Visual Basic er best egnet for.
Bruksanvisning
1 Opprett et prosjekt og gi den navnet "TaxCalculator," eller noen andre passende navn. La alle andre alternativer som de er, og fortsetter gjennom veiledningen til du blir presentert med skjemaet redaktøren.
2 Legg til en etikett og endre teksten eiendommen til "delsum." Etiketter kan legges ved å finne på etiketten oppføringen i listen komponentene på venstre side av skjermen og dra den inn i skjemaet redaktør, i den posisjonen der du vil at etiketten skal plasseres i programmet. Det er tekst eiendom kan endres ved å venstre-klikke på etiketten en eneste gang og finne "Text" oppføring i eiendommen listen nederst høyre side av skjermen.
3 Legge til en tekstboks ved siden av delsummen etiketten ved å dra tekstboksen oppføring fra listen komponenter. Denne gangen, i stedet for tekst eiendommen, endre navn egenskapen til "subtotalBox."
4 Legg til en ny etikett under første og endre teksten eiendommen til "Skatt".
5 Legge til en tekstboks ved siden av skatt etiketten og endre navn egenskapen til "taxBox."
6 Legg enda én etikett og endre teksten eiendommen til "Total".
7 Legge til en tekstboks ved siden av etiketten og endre navn egenskapen til "totalWithTaxBox."
Vi har fullført brukergrensesnittet.
8 Dobbeltklikk på "delsum" tekstboksen. Det betyr to ting: Det skaper en event som skjer hver gang teksten i at tekstboksen er endret, og flytter du til et annet vindu - kildekoden editor.
Sett inn denne koden på den hendelsen:
REM Defines a sales tax rate of 8.25%
Const TAXRATE = 1.0825
REM Erklærer en del av minnet for å holde delsum
Dim delsum As Double
REM Hvis brukeren setter i dollartegn, fjerne den.
Dim subtotalString = Skift (subtotalBox.Text, "$", "")
REM Konverter delsummen fra brukeren fra en rekke tegn i en rekke
delsum = CDbl (Val (subtotalString))
REM Figur ut skatt og avgift med total.
taxBox.Text = (delsum * (TAXRATE - 1))
totalWithTaxBox.Text = (delsum * TAXRATE)
REM linjene indikerer merknader eller kommentarer som jeg har lagt i å forklare koden. Disse blir ignorert av kompilatoren.
Hint
- Pass på at du holder ther navn og tekst egenskaper skille! Siden etikettene ikke er brukt i våre programmeringskode, trenger vi ikke å endre navn på dem, men vi må trenger å endre teksten de viser til brukeren. Det motsatte er tilfelle for våre tekstbokser: Siden vi tilgang til dem i vår programmeringskode, ønsker vi å sikre at de har en lett å huske og forstå navn, men vi ønsker ikke at de skal inneholde en hvilken som helst tekst. Vi lar brukeren ta vare på innsetting av tekst i dem.