Visual Basic 6 er et programmeringsspråk miljø publisert av Microsoft Corporation . Det formål er å gi ikke-programmerere med et miljø der de kan raskt og med relativ letthet , bygge 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 typen problem Visual Basic er best egnet for . Instruksjoner
en
Lag 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 editor.
2
Legg en etikett og endre teksten eiendommen til " delsum . " Etiketter kan legges til ved å finne etiketten oppføring i komponentene listen på venstre side av skjermen og dra den inn i skjemaet redaktør, i en posisjon der du vil at etiketten skal plasseres i programmet. Det er tekst eiendommen kan endres ved å venstre - klikke på etiketten en eneste gang og finne "Text " oppføring i eiendommen listen nederst til høyre side av skjermen .
3
Legg til en tekstboks ved siden av delsum etiketten ved å dra tekstboksen oppføring fra komponentene listen. Denne gangen , i stedet for teksten eiendom, endre navn egenskapen til " subtotalBox . "
4
Legg til en annen merkelapp under den første og endre teksten eiendommen til " Skatt ".
5
Legg en tekstboks ved siden av skatt etiketten og endre navn egenskapen til " taxBox . "
6
Legg enda en etikett og endre teksten eiendommen til "Total ".
7
Legg en tekstboks ved siden av at 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 deg til et annet vindu - kildekoden redaktør
Sett denne koden inn i den hendelsen : .
REM Definerer en omsetningsavgift rate på 8,25% Konst skattesats = 1,0825
REM Erklærer en del av minnet for å holde subtotalDim delsum As Double
REM Hvis brukeren setter i dollar signere , fjerne it.Dim subtotalString = Erstatt ( subtotalBox.Text , "$ ", "" )
REM Konverter delsum fra brukeren fra en rekke tegn til en numbersubtotal = CDbl ( Val ( subtotalString ) )
REM Figur ut og skatt med total.taxBox.Text = ( delsum * ( skattesats - 1 ) ) totalWithTaxBox.Text = ( delsum * skattesats )
REM linjene indikerer kommentarer eller bemerker at jeg har satt inn for å forklare koden . Disse blir ignorert av kompilatoren .