16進数電卓 16進数電卓
コンピュータの世界では16進数がよく使われます。そんなわけで16進数電卓はけっこう便利です（Windowsアクセサリの電卓も関数電卓にすれば16進数が使えます）。
ただ、プログラムを作るとなるとけっこう複雑になってしまいました。実際には、単純なのですがキーがたくさんあるので複雑に見えます。
ソース（青色部分が記述したところです）
{
16進数電卓
==========
}
unit HexCalc;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls;
const
OpPlus = '+';
OpMinus = '-';
OpAnd = '&';
OpOr = '|';
OpXor = '^';
OpNot = '!';
OpNull = '0';
type
TForm1 = class(TForm)
Bevel1: TBevel;
btnC: TSpeedButton;
btn8: TSpeedButton;
btnD: TSpeedButton;
btn0: TSpeedButton;
btn4: TSpeedButton;
btn9: TSpeedButton;
btnB: TSpeedButton;
btnF: TSpeedButton;
btnE: TSpeedButton;
btn2: TSpeedButton;
btn1: TSpeedButton;
btn6: TSpeedButton;
btn5: TSpeedButton;
btnA: TSpeedButton;
btn7: TSpeedButton;
btn3: TSpeedButton;
btnAnd: TSpeedButton;
btnXor: TSpeedButton;
btnSubt: TSpeedButton;
btnAdd: TSpeedButton;
btnOr: TSpeedButton;
btnNot: TSpeedButton;
btnExec: TSpeedButton;
chkDecimal: TCheckBox;
txtDisplay: TEdit;
btnAC: TSpeedButton;
procedure btn0Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure btn7Click(Sender: TObject);
procedure btn8Click(Sender: TObject);
procedure btn9Click(Sender: TObject);
procedure btnAClick(Sender: TObject);
procedure btnBClick(Sender: TObject);
procedure btnCClick(Sender: TObject);
procedure btnDClick(Sender: TObject);
procedure btnEClick(Sender: TObject);
procedure btnFClick(Sender: TObject);
procedure btnACClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure chkDecimalClick(Sender: TObject);
procedure btnAddClick(Sender: TObject);
procedure btnExecClick(Sender: TObject);
procedure btnSubtClick(Sender: TObject);
procedure btnAndClick(Sender: TObject);
procedure btnOrClick(Sender: TObject);
procedure btnXorClick(Sender: TObject);
procedure btnNotClick(Sender: TObject);
private
{ Private 宣言 }
FOperator: Char;
FOperand1: Cardinal;
FOperand2: Cardinal;
FOK: Boolean;
procedure AddCharToDisp(A: Char);
procedure Clear;
function GetValue: Cardinal;
public
{ Public 宣言 }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// 初期化
procedure TForm1.FormCreate(Sender: TObject);
begin
Clear;
end;
// クリア
procedure TForm1.Clear;
begin
FOperator := OpNull;
FOperand1 := 0;
FOperand2 := 0;
txtDisplay.Text := '0';
FOK := True;
end;
// 表示器に数字を追加
procedure TForm1.AddCharToDisp(A: Char);
begin
if FOK = True then
begin
txtDisplay.Text := A;
FOK := False;
end
else if Length(txtDisplay.Text) < 8 then
txtDisplay.Text := txtDisplay.Text + A;
end;
// 表示器の値を変換する
function TForm1.GetValue: Cardinal;
begin
// 10進かどうか
if chkDecimal.Checked = False then
begin
// 16進数
Result := StrToInt('$' + txtDisplay.Text);
end
else
begin
// 10進数
Result := StrToInt(txtDisplay.Text);
end;
end;
// '0'をクリック
procedure TForm1.btn0Click(Sender: TObject);
begin
AddCharToDisp('0');
end;
// '1'をクリック
procedure TForm1.btn1Click(Sender: TObject);
begin
AddCharToDisp('1');
end;
// '2'をクリック
procedure TForm1.btn2Click(Sender: TObject);
begin
AddCharToDisp('2');
end;
// '3'をクリック
procedure TForm1.btn3Click(Sender: TObject);
begin
AddCharToDisp('3');
end;
// '4'をクリック
procedure TForm1.btn4Click(Sender: TObject);
begin
AddCharToDisp('4');
end;
// '5'をクリック
procedure TForm1.btn5Click(Sender: TObject);
begin
AddCharToDisp('5');
end;
// '6'をクリック
procedure TForm1.btn6Click(Sender: TObject);
begin
AddCharToDisp('6');
end;
// '7'をクリック
procedure TForm1.btn7Click(Sender: TObject);
begin
AddCharToDisp('7');
end;
// '8'をクリック
procedure TForm1.btn8Click(Sender: TObject);
begin
AddCharToDisp('8');
end;
// '9'をクリック
procedure TForm1.btn9Click(Sender: TObject);
begin
AddCharToDisp('9');
end;
// 'A'をクリック
procedure TForm1.btnAClick(Sender: TObject);
begin
AddCharToDisp('A');
end;
// 'B'をクリック
procedure TForm1.btnBClick(Sender: TObject);
begin
AddCharToDisp('B');
end;
// 'C'をクリック
procedure TForm1.btnCClick(Sender: TObject);
begin
AddCharToDisp('C');
end;
// 'D'をクリック
procedure TForm1.btnDClick(Sender: TObject);
begin
AddCharToDisp('D');
end;
// 'E'をクリック
procedure TForm1.btnEClick(Sender: TObject);
begin
AddCharToDisp('E');
end;
// 'F'をクリック
procedure TForm1.btnFClick(Sender: TObject);
begin
AddCharToDisp('F');
end;
// ACボタンをクリック
procedure TForm1.btnACClick(Sender: TObject);
begin
Clear;
end;
// DECボタンをクリック
procedure TForm1.chkDecimalClick(Sender: TObject);
var
N: Cardinal;
begin
if chkDecimal.Checked = True then
begin
btnA.Enabled := False;
btnB.Enabled := False;
btnC.Enabled := False;
btnD.Enabled := False;
btnE.Enabled := False;
btnF.Enabled := False;
N := StrToInt('$' + txtDisplay.Text);
txtDisplay.Text := IntToStr(N);
end
else
begin
btnA.Enabled := True;
btnB.Enabled := True;
btnC.Enabled := True;
btnD.Enabled := True;
btnE.Enabled := True;
btnF.Enabled := True;
N := StrToInt(txtDisplay.Text);
txtDisplay.Text := IntToHex(N, 8);
end;
end;
// '+'ボタンが押されたとき
procedure TForm1.btnAddClick(Sender: TObject);
begin
FOperator := OpPlus;
FOperand1 := GetValue;
txtDisplay.Text := '0';
FOK := True;
end;
// '-'ボタンが押されたとき
procedure TForm1.btnSubtClick(Sender: TObject);
begin
FOperator := OpMinus;
FOperand1 := GetValue;
FOK := True;
end;
// 'AND'ボタンが押されたとき
procedure TForm1.btnAndClick(Sender: TObject);
begin
FOperator := OpAnd;
FOperand1 := GetValue;
FOK := True;
end;
// 'OR'ボタンが押されたとき
procedure TForm1.btnOrClick(Sender: TObject);
begin
FOperator := OpOr;
FOperand1 := GetValue;
FOK := True;
end;
// 'XOR'ボタンが押されたとき
procedure TForm1.btnXorClick(Sender: TObject);
begin
FOperator := OpXor;
FOperand1 := GetValue;
FOK := True;
end;
// 'NOT'ボタンが押されたとき
procedure TForm1.btnNotClick(Sender: TObject);
begin
FOperator := OpNot;
FOperand1 := GetValue;
FOK := True;
end;
// '='ボタンが押された
procedure TForm1.btnExecClick(Sender: TObject);
var
Y: Cardinal;
begin
FOperand2 := GetValue;
case FOperator of
OpPlus:
begin
Y := FOperand1 + FOperand2;
end;
OpMinus:
begin
Y := FOperand1 - FOperand2;
end;
OpAnd:
begin
Y := FOperand1 and FOperand2;
end;
OpOr:
begin
Y := FOperand1 or FOperand2;
end;
OpXor:
begin
Y := FOperand1 xor FOperand2;
end;
OpNot:
begin
Y := not FOperand1;
end;
else
begin
Y := 0;
end;
end;
if chkDecimal.Checked = True then
begin
txtDisplay.Text := IntToStr(Y);
end
else
begin
txtDisplay.Text := IntToHex(Y, 8);
end;
FOK := True;
end;
end.