Il programma della calcolatrice è una delle tipiche attività di programmazione. Tale applicazione può essere implementata in quasi tutti i linguaggi di programmazione. Uno dei linguaggi di programmazione più popolari è Delphi, che può essere utilizzato per scrivere codice di calcolatrice semplice ed efficiente.
Necessario
Ambiente di programmazione Delphi
Istruzioni
Passo 1
Avvia l'ambiente di programmazione Delphi che stai utilizzando. Pianifica l'interfaccia per la tua applicazione. Ci saranno 26 pulsanti sul modulo, 10 dei quali sono responsabili dei numeri e il resto è per le funzioni. Inoltre, ci sarà un componente TPanel su cui verrà visualizzato il risultato dell'azione.
Passo 2
Aggiungere al codice 4 variabili che memorizzeranno i numeri inseriti dall'utente e determineranno la modalità. Per esempio:
varia
a, b, c: reale; // numeri che l'utente inserisce
d: intero; // azione calcolatrice
Passaggio 3
Le variabili create possono essere aggiunte sia a protected che a private. Ora gestisci l'evento OnClick per ogni pulsante numerico. Per tutte le cifre, il codice sarà identico:
procedura TForm1. Button1Click (Mittente: TObject);
inizio
Pannello1. Didascalia: = Pannello1. Didascalia + 'numero'
fine;
Sostituisci "numero" con il nome del pulsante (se è il numero 0, quindi Panel1. Caption + '0').
Passaggio 4
La variabile d è in formato intero e conterrà il corrispondente valore numerico di qualsiasi azione. Se verrà eseguita la moltiplicazione, è possibile impostare l'azione sul valore 1, se divisione - valore 2, se addizione - valore 3, ecc. Per l'azione di moltiplicazione, il codice sarà simile a:
procedura TForm1. ButtonMultiplyClick (Mittente: TObject); // moltiplica l'azione
inizio
a: = StrToFloat (Panel1. Caption); // dopo aver premuto il pulsante, il valore della variabile a viene salvato
d: = 1; // la variabile di azione è impostata sul valore corrispondente
Pannello1. Didascalia: = '';
fine;
Passaggio 5
Esegui operazioni simili per la divisione (ButtonDivClick), l'addizione (ButtonPlusClick), la sottrazione (ButtonMinusClick) e l'elevamento a potenza (ButtonPowerClick).
Passaggio 6
Per elaborare il valore `` = '', è necessario creare una condizione case e considerare ciascuna azione a turno:
procedura TForm1. ButtonClick (Mittente: TObject);
inizio
caso d di
1: inizia // se d = 1, ovvero viene premuto il pulsante di moltiplicazione, si verifica l'azione corrispondente
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
fine;
2: iniziare
a: = StrToFloat (Panel1. Caption);
c: = a/b;
Panel1. Caption: = FloatToStr (c);
Passaggio 7
Gestire l'addizione, la sottrazione e l'elevamento a potenza allo stesso modo. La calcolatrice è pronta.
