Scrivere un programma calcolatrice standard in Visual Basic è un buon esercizio per principianti programmatori Visual Basic. Un calcolatore di base contiene cifre "0" a "9", un pulsante di segno, un pulsante di punto decimale, un pulsante chiaro, un pulsante e pulsanti è uguale per eseguire addizioni, sottrazioni, moltiplicazioni e divisioni. I controlli CommandButton sono posti su una forma e quantità minima di codice è scritto per ogni evento click del pulsante per il programma. I risultati sono visualizzati in un controllo TextBox nella parte superiore del modulo.

istruzione

1 Aprire la calcolatrice progetto di Visual Basic. Il progetto dovrebbe contenere controlli CommandButton per le cifre "0" a "9", un pulsante per il segno del numero, un pulsante decimale, un pulsante chiaro, un pulsante e pulsanti è uguale per eseguire l'operazione matematica specificata.

2 Dichiarare una variabile di tipo "Double" per tenere il primo valore immesso e il secondo valore inserito, se non è già dichiarata. Rendere la variabile "privato" per la forma. Anche essere sicuro che ci sono variabili booleane dichiarati sapere che tipo di operazione è in corso. Un valore booleano è vero o falso.

Dim DFirst privato come doppio

Dim dSecond privato come doppio

Dim bAdd come booleano

Dim bSubtract come booleano

3 Conservare la cifra cliccato su nella variabile "DFirst" in caso click del operatore matematico. catturare anche quale pulsante è stato selezionato il funzionamento e impostare il valore booleano di conseguenza. Ad esempio, se il pulsante "Oltre" è stato cliccato, impostare bAdd a "true". Se i tasti operativi sono stati definiti in un array, il codice sarà simile:

Selezionare indice Case

caso 0

bDivision = True

Caso 1

bMultiply = True

caso 2

bSubtract = True

caso 3

bAdd = True

End Select

4 Conservare il secondo valore immesso in "bSecond" e quindi scrivere un "If" per eseguire l'operazione sui due cifre e visualizzare il risultato nella "è uguale a" codice evento clic del pulsante. Il "If" è scritto come "Se bAdd Poi txtResult.text = DFirst + dSecond

End If "dove" txtResult "è il controllo TextBox nella parte superiore del modulo.

Consigli e avvertenze

• Nella "Clear" evento tasto click, cancellare il contenuto della casella di testo risultato ed essere sicuri di ripristinare tutte le variabili booleane di nuovo su false.