Konversi Text ke ASCII, HEXA, BINER, OCTAL

Malming dari pada galau mending nge-share ilmu yang bermanfaat aja.. hehe..  :D

oke.. kali ini saya akan membuat program sederhana yang berfungsi mengkonversi TEXT ke ASCII, HEXA, BINER, dan OCTAL dengan menggunakan Delphi, dari pada posting satu-satu ntar lupa mending sekalian saya jadikan dalam satu program hehehe.... Oh iya pada program ini saya juga menambahkan satu fungsi lagi yaitu untuk mengkonversi BINER ke DECIMAL. Langsung saja ke TKP.

Tambahkan fungsi - fungsi berikut pada bagian implementation :

function Asc2Bin(b:Byte):string;<br />var<br />i: Integer;<br />begin<br />Result:='';<br />for i:=0 to 7 do<br />if (b and (1 shl i))=0 then<br />Result:='0'+Result<br />else<br />Result:='1'+Result;<br />end;<br /><br />function TxtToOct(i:Byte):string;<br />var<br />sisa: Byte;<br />begin<br />Result:='';<br />while (i<>0) do<br />begin<br />sisa:=i mod 8;<br />i:=i div 8;<br />Result:=IntToStr(sisa)+Result;<br />end;<br />while Length(Result)<3 do<br />Result:='0'+Result;<br />end;<br /><br />function BinerToDec(s:string):Integer;<br />var<br />i: Integer;<br />begin<br />Result:=0;<br />for i:=Length(s) downto 1 do<br />if s[i]='1' then<br />Result:=Result+(1 shl (Length(s)-i)); end;

Berikut ini potongan source code pada tombol Convert :

procedure TForm1.ConvertClick(Sender: TObject);<br /> var i:Integer;<br /> begin<br /> // convert Text To ASCII ==================================<br /> s1:=InputText.Text;<br /> s2:='';<br /> for i:=1 to Length(s1) do<br /> s2:=s2+Format('%.3d ',[Ord(s1[i])]);<br /> outputASCII.Text:=s2; <br /> // convert Text To HEX ====================================<br /> s1:=InputText.Text;<br /> s2:='';<br /> for i:=1 to Length(s1) do<br /> s2:=s2+Format('%.2x ',[Ord(s1[i])]);<br /> outputHEX.Text:=s2; <br /> // convert Text To BINER ==================================<br /> s1:=InputText.Text;<br /> s2:='';<br /> for i:=1 to Length(s1) do<br /> s2:=s2+Asc2Bin(Ord(s1[i]))+' ';<br /> outputBINER.Text:=s2; <br /> // convert Text To OCTAL ==================================<br /> s1:=InputText.Text;<br /> s2:='';<br /> for i:=1 to Length(s1) do<br /> s2:=s2+TxtToOct(ord(s1[i]))+' ';<br /> outputOCTAL.Text:=s2; <br /> // convert BINER To Dec ===================================<br /> outputDEC.Text := IntToStr(BinerToDec(InputBiner.Text));<br /> end;

Source Code Lengkap :

unit Unit1;<br /> <br /> interface<br /> <br /> uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls, ExtCtrls, jpeg, XPMan, Buttons;<br /> <br /> type<br /> TForm1 = class(TForm)<br /> InputText: TEdit;<br /> Label1: TLabel;<br /> GroupBox1: TGroupBox;<br /> Label2: TLabel;<br /> outputBINER: TMemo;<br /> Label6: TLabel;<br /> outputASCII: TMemo;<br /> Label4: TLabel;<br /> outputHEX: TMemo;<br /> Label3: TLabel;<br /> Timer1: TTimer;<br /> XPManifest1: TXPManifest;<br /> Convert: TBitBtn;<br /> Refresh: TBitBtn;<br /> Exit: TBitBtn;<br /> outputOCTAL: TMemo;<br /> Label5: TLabel;<br /> GroupBox2: TGroupBox;<br /> outputDEC: TMemo;<br /> Label7: TLabel;<br /> InputBiner: TEdit;<br /> procedure FormCreate(Sender: TObject);<br /> procedure ConvertClick(Sender: TObject);<br /> procedure Timer1Timer(Sender: TObject);<br /> procedure RefreshClick(Sender: TObject);<br /> procedure FormClose(Sender: TObject; var Action: TCloseAction);<br /> procedure ExitClick(Sender: TObject);<br /> procedure InputBinerKeyPress(Sender: TObject; var Key: Char);<br /> private<br /> { Private declarations }<br /> public<br /> { Public declarations }<br /> end;<br /> <br /> var<br /> Form1: TForm1;<br /> s1,s2: string;<br /> r,i:Integer;<br /> <br /> implementation<br /> <br /> {$R *.dfm}<br /> <br /> function Asc2Bin(b:Byte):string;<br /> var<br /> i: Integer;<br /> begin<br /> Result:='';<br /> for i:=0 to 7 do<br /> if (b and (1 shl i))=0 then<br /> Result:='0'+Result<br /> else<br /> Result:='1'+Result;<br /> end;<br /> <br /> function TxtToOct(i:Byte):string;<br /> var<br /> sisa: Byte;<br /> begin<br /> Result:='';<br /> while (i<>0) do<br /> begin<br /> sisa:=i mod 8;<br /> i:=i div 8;<br /> Result:=IntToStr(sisa)+Result;<br /> end;<br /> while Length(Result)<3 do<br /> Result:='0'+Result;<br /> end;<br /> <br /> function BinerToDec(s:string):Integer;<br /> var<br /> i: Integer;<br /> begin<br /> Result:=0;<br /> for i:=Length(s) downto 1 do<br /> if s[i]='1' then<br /> Result:=Result+(1 shl (Length(s)-i));<br /> end;<br /> <br /> procedure TForm1.FormCreate(Sender: TObject);<br /> begin<br /> InputText.Clear;<br /> InputBiner.Clear;<br /> outputASCII.Clear;<br /> outputHEX.Clear;<br /> outputBINER.Clear;<br /> outputDEC.Clear;<br /> outputOCTAL.Clear;<br /> end;<br /> <br /> procedure TForm1.ConvertClick(Sender: TObject);<br /> var i:Integer;<br /> begin <br /> // convert Text To ASCII ==================================<br /> s1:=InputText.Text;<br /> s2:='';<br /> for i:=1 to Length(s1) do<br /> s2:=s2+Format('%.3d ',[Ord(s1[i])]);<br /> outputASCII.Text:=s2; <br /> // convert Text To HEX ====================================<br /> s1:=InputText.Text;<br /> s2:='';<br /> for i:=1 to Length(s1) do<br /> s2:=s2+Format('%.2x ',[Ord(s1[i])]);<br /> outputHEX.Text:=s2; <br /> // convert Text To BINER ==================================<br /> s1:=InputText.Text;<br /> s2:='';<br /> for i:=1 to Length(s1) do<br /> s2:=s2+Asc2Bin(Ord(s1[i]))+' ';<br /> outputBINER.Text:=s2; <br /> // convert Text To OCTAL ==================================<br /> s1:=InputText.Text;<br /> s2:='';<br /> for i:=1 to Length(s1) do<br /> s2:=s2+TxtToOct(ord(s1[i]))+' ';<br /> outputOCTAL.Text:=s2; <br /> // convert BINER To Dec ===================================<br /> outputDEC.Text := IntToStr(BinerToDec(InputBiner.Text));<br /> <br /> end; <br /> procedure TForm1.Timer1Timer(Sender: TObject);<br /> begin <br /> // Blink Label ============================================<br /> If Label3.Visible = True Then<br /> Label3.Visible := False<br /> else<br /> begin<br /> Label3.Visible := True<br /> end; <br /> // Random Label Color =====================================<br /> r:=random(6);<br /> if r=1 then<br /> Label3.Font.Color:=clRed<br /> else if r=2 then<br /> Label3.Font.Color:=clMaroon<br /> else if r=3 then<br /> Label3.Font.Color:=clBlue<br /> else if r=4 then<br /> Label3.Font.Color:=clNavy<br /> else if r=5 then<br /> Label3.Font.Color:=clTeal<br /> else<br /> Label3.Font.Color:=clPurple;<br /> end; <br /> procedure TForm1.RefreshClick(Sender: TObject);<br /> begin<br /> FormCreate(Sender);<br /> InputText.SetFocus;<br /> end; <br /> procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br /> begin<br /> if MessageDlg('Do You wanna really exit now ?',<br /> mtConfirmation, [mbYes, mbNo], 0) = mrYes then<br /> Application.Terminate else Action:=caNone;<br /> end; <br /> procedure TForm1.ExitClick(Sender: TObject);<br /> begin<br /> close;<br /> end; <br /> procedure TForm1.InputBinerKeyPress(Sender: TObject; var Key: Char);<br /> begin<br /> if not ((Key = #48) or (Key = #49)) then<br /> begin<br /> // Tahan karakter agar tidak dimunculkan<br /> Key := #0;<br /> end;<br /> end; <br /> end.  

Hasil Screenshot Program :

Program + Source Code dapat di download di SINI

Semoga bermanfaat.. :)