Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come scrivere un codice di Equal per la calcolatrice standard in VB6

Scrivere un programma calcolatrice standard in Visual Basic è un buon esercizio per i principianti programmatori Visual Basic . Un calcolatore di base contiene le cifre " 0 " a "9 ", un pulsante segno, un pulsante punto decimale , un pulsante chiaro , un pulsante e pulsanti uguali 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 pulsante per il programma. I risultati sono visualizzati in un controllo TextBox nella parte superiore del modulo . Istruzioni
1

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

dichiarare una variabile di tipo "Double" per contenere il primo valore immesso e il secondo valore immesso , se non già dichiarato . Fai la variabile " privata " per la forma . Anche essere sicuro che ci sono variabili booleane dichiarate di sapere che cosa è in esecuzione tipo di operazione . Un valore booleano che è true o false .

Dim DFirst privato come Double

Dim dSecond privato come Double

Dim bAdd come booleano

Dim bSubtract come booleano
3

Conservare la cifra cliccato su nella variabile " DFirst " nell'evento click del operatore matematico . Anche catturare la quale è stato selezionato il pulsante di funzionamento e impostare il valore booleano di conseguenza. Ad esempio , se il pulsante " Oltre " è stato cliccato , impostare badd su "true ". Se i pulsanti di funzionamento sono state definite in un array , il codice sarà simile:

Select caso indice

Caso 0

bDivision = True

Caso 1

bMultiply = True

caso 2

bSubtract = True

caso 3

bAdd = True

End selezionare
4

Conservare il secondo valore è entrata in " bSecond " e poi scrivere una " istruzione if " per eseguire l'operazione sui due cifre e visualizzare il risultato nella " Uguale " clic sul pulsante codice evento . L '" istruzione if " è scritto come " Se bAdd Poi txtResult.text = DFirst + dSecond

End If " dove " txtResult " è il controllo TextBox in alto del modulo .


 

Programmazione © www.354353.com