Program kalkulatora jest jednym z typowych zadań programistycznych. Taką aplikację można zaimplementować w niemal każdym języku programowania. Jednym z najpopularniejszych języków programowania jest Delphi, za pomocą którego można pisać prosty i wydajny kod kalkulatora.
Niezbędny
Środowisko programistyczne Delphi
Instrukcje
Krok 1
Uruchom środowisko programistyczne Delphi, którego używasz. Zaplanuj interfejs dla swojej aplikacji. Na formularzu znajdzie się 26 przycisków, z których 10 odpowiada za liczby, a pozostałe za funkcje. Dodatkowo pojawi się komponent TPanel, na którym będzie wyświetlany wynik akcji.
Krok 2
Dodaj 4 zmienne do kodu, które będą przechowywać wprowadzone przez użytkownika liczby i określą tryb. Na przykład:
var
a, b, c: prawdziwe; // liczby wprowadzane przez użytkownika
d: liczba całkowita; // działanie kalkulatora
Krok 3
Utworzone zmienne można dodawać zarówno do chronionych, jak i prywatnych. Teraz obsłuż zdarzenie OnClick dla każdego przycisku numerycznego. Dla wszystkich cyfr kod będzie identyczny:
procedura TForm1. Button1Click (Sender: TObject);
zaczynać
Panel1. Caption: = Panel1. Caption + „liczba”
koniec;
Zamień „number” na nazwę przycisku (jeśli jest to liczba 0, to Panel1. Caption + '0').
Krok 4
Zmienna d ma format liczby całkowitej i będzie zawierać odpowiednią wartość liczbową dowolnej akcji. Jeżeli będzie wykonywane mnożenie, to można ustawić akcję na wartość 1, jeżeli dzielenie - wartość 2, jeżeli dodawanie - wartość 3 itd. Dla akcji mnożenia kod będzie wyglądał następująco:
procedura TForm1. ButtonMultiplyClick (Sender: TObject); // pomnóż działanie
zaczynać
a: = StrToFloat (Panel1. Caption); // po naciśnięciu przycisku wartość zmiennej a jest zapisywana
d: = 1; // zmienna akcji jest ustawiona na odpowiednią wartość
Panel1. Podpis: = '';
koniec;
Krok 5
Wykonaj podobne operacje dla dzielenia (ButtonDivClick), dodawania (ButtonPlusClick), odejmowania (ButtonMinusClick) i potęgowania (ButtonPowerClick).
Krok 6
Aby przetworzyć wartość `` = '', musisz stworzyć warunek przypadku i rozważyć każdą akcję po kolei:
procedura TForm1. ButtonClick (Sender: TObject);
zaczynać
przypadek d z
1: Rozpocznij // jeśli d = 1, czyli przycisk mnożenia jest wciśnięty, to następuje odpowiednia akcja
b: = StrToFloat (Panel1. Podpis);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
koniec;
2: początek
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Krok 7
W ten sam sposób obsłuż dodawanie, odejmowanie i potęgowanie. Kalkulator jest gotowy.
