I wrote this simple program that will ask the user to give a number in decimal and then our program will convert the number to its binary equivalent using Delphi as my programming language.
Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
dec.pas
unit dec;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Label3: TLabel;
Button2: TButton;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function DecToBinStr(N: Integer): string;
end;
var
Form1: TForm1;
Negative: Boolean;
implementation
{$R *.dfm}
function TForm1.DecToBinStr(N: Integer): string;
var
S: string;
i: Integer;
begin
if N<0 then
Negative:=True;
N:=Abs(N);
for i:=1 to SizeOf(N)*8 do
begin
if N<0 then
S:=S+'1'
else
S:=S+'0';
N:=N shl 1;
end;
Delete(S, 1, Pos('1', S)-1);
if Negative then
S:='-'+S;
Result:=S;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label3.Caption:= 'The equivalent value of ' + Edit1.Text
+ ' to Binary is ' + DecToBinStr(StrToInt(Edit1.Text))+'.';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.text :='';
Label3.Caption := '';
Edit1.SetFocus
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Hint := 'Click here to convert decimal number into its binary equivalent.';
button1.ShowHint := true;
end;
end.
