Visual Basic 6 är en programmeringsmiljö publiceras av Microsoft Corporation . Dess syfte är att tillhandahålla icke- programmerare med en miljö där de kan snabbt och relativt enkelt bygga enkla Windows-program , utan att behöva tvista med komplexiteten av några av de mer kraftfulla språk, såsom C + + och Java . Ett enkelt program som man utformat för att beräkna moms för en kassörska är precis den typ av problem Visual Basic är bäst lämpad för . Instruktioner
1
Skapa ett projekt och namnge det " TaxCalculator , " eller något annat lämpligt namn . Låt alla andra alternativ som de är och fortsätter igenom anvisningarna tills du presenteras med formuläreditorn .
2
Lägg en etikett och ändra dess text-egenskap till " delsumma . " Etiketter kan läggas genom att märket posten i listan Komponenter på vänster sida av skärmen och dra den till formen redaktör , i den position där du vill att etiketten ska placeras i din ansökan . Det text-egenskap kan ändras genom att vänsterklicka etiketten en enda gång och hitta den " Text " in i fastigheten listan , på den nedre högra sidan av skärmen .
3
Lägg till en textruta bredvid delsumma etiketten genom att dra posten textrutan från komponenterna listan . Den här gången , istället för egenskapen text , ändra dess namn egenskapen till " subtotalBox . "
4
Lägg annan etikett under den första och ändra dess text-egenskap till " Skatt ".
5
Lägg en textruta bredvid skatten etikett och ändra dess namn egenskapen till " taxBox . "
6
Lägg ännu en etikett och ändra dess text-egenskap till " Total . "
7
Lägg en textruta bredvid den etiketten och ändra dess namn egenskapen till " totalWithTaxBox . "
Vi har slutfört användargränssnittet .
8
Dubbelklicka på " delsumma " textrutan . Detta gör två saker : Den skapar en händelse som inträffar varje gång texten i denna textruta ändras , och flyttar du till ett annat fönster - källkoden Redaktör
Sätt denna kod i sådana fall .
REM Definierar en försäljning skattesats på 8,25 % Const TAXRATE = 1,0825
REM Deklarera en del av minnet för att hålla subtotalDim delsumma som Double
REM Om användaren sätter i dollarn underteckna , ta bort it.Dim subtotalString = Ersätt ( subtotalBox.Text , " $ " , " " ) katalog
REM Konvertera delsumma från användaren från en sträng med tecken till ett numbersubtotal = CDbl ( Val ( subtotalString ) )
REM Räkna ut skatt och skatt med total.taxBox.Text = ( delsummor * ( TAXRATE - 1 ) ) totalWithTaxBox.Text = ( delsummor * TAXRATE ) katalog
REM linjerna indikerar kommentarer eller anmärkningar som jag har lagt ned för att förklara koden . Dessa ignoreras av kompilatorn .
