Creare un progetto e il nome " TaxCalculator , " o qualche altro nome appropriato . Lasciare tutte le altre opzioni così come sono e continuano con le istruzioni finché sono presentati con l'editor di forma .
2
aggiungere un'etichetta e modificare la proprietà Text su " subtotale. " Le etichette possono essere aggiunte trovando la voce label nella lista dei componenti sul lato sinistro dello schermo e trascinandolo nell'editor forma , nella posizione in cui si desidera che l' etichetta per essere collocata nella vostra applicazione . E ' di proprietà di testo può essere modificato facendo clic sull'etichetta una sola volta e di trovare la voce "Testo" nell'elenco delle proprietà , nella parte in basso a destra dello schermo.
3
Aggiungere una casella di testo accanto all'etichetta subtotale trascinando l'entrata casella di testo dalla lista componenti . Questa volta , invece che la proprietà di testo , cambiare il nome in " subtotalBox . "
4
Aggiungi un'altra etichetta sotto il primo e modificare la proprietà Text su " Tax ".
5
Aggiungere una casella di testo accanto all'etichetta fiscale e cambiare il nome in " taxBox . "
6
Aggiungi ancora un'altra etichetta e modificare la proprietà Text su " Total ".
Pagina 7
Aggiungere una casella di testo accanto a quella etichetta e cambiare il nome in " totalWithTaxBox ".
Abbiamo completato l'interfaccia utente .
8
Fare doppio clic sulla casella di testo " subtotale " . Questo fa due cose : Si crea un evento che si verifica ogni volta che il testo all'interno di tale casella di testo viene modificato , e si sposta in un'altra finestra - l'editor di codice sorgente
inserire questo codice in tal caso: . < Br
REM > Definisce un sales tax rate del 8,25 % Const TaxRate = 1,0825
REM dichiarare una sezione di memoria per contenere il subtotalDim subtotale As Double
REM Se l'utente ha messo nel dollaro firmare , rimuovere it.Dim subtotalString = Replace ( subtotalBox.Text , " $ " , " " ) per
REM Convertire il totale parziale da parte dell'utente di una stringa di caratteri in un numbersubtotal = CDbl ( Val ( subtotalString ) )
REM Capire la tassa e imposta con total.taxBox.Text = (totale parziale * ( TaxRate - 1) ) = ( totalWithTaxBox.Text subtotali * TaxRate ) per
le linee REM indicano commenti o osservazioni che ho messo per spiegare il codice . Questi vengono ignorati dal compilatore .
Programmazione © www.354353.com