Konversi Secara Manual
Dengan cara manual kita dapat mengkonversi bilangan decimal ke biner dengan cara sebagai berikut :
Misal kita ingin mengkonversi angka 67 dari bilangan decimal ke biner, maka caranya dengan membagi bilangan tersebut dengan 2 kemudian tuliskan sisaya di sebelah kanan sedangkan hasil pembaginya tuliskan dibawahnya sampai pada akhirnya berakhir di angka 1 . Kemudian tuliskan sisa dari pembagian yang ada di sebelah kanan dari bawah keatas.
67 : 2 > 1
33 : 2 > 1
16 : 2 > 0
8 : 2 > 0
4 : 2 > 0
2 : 2 > 0
1
Maka Hasilnya adalah 1000011
Konversi Menggunakan Delphi 7
Buatlah sebuah projec pada delphi File > New > Application
Letakkan 2 buah komponen edit dan 1 komponen button pada form
Kemudian tuliskan koding berikut pada button1:
procedure TForm3.Button1Click(Sender: TObject);Maka hasilnya seperti berikut :
Var Des : Integer;
Bin : String;
begin
if edit1.Text='' then ShowMessage('decimal harus di isi') else
begin
Des:=StrToInt(edit1.Text);
repeat
Begin
{Menghitung Biner Dari Sisa Hasil Bagi}
If Des mod 2 = 0 Then Bin := '0' + Bin
Else Bin := '1' + Bin;
{Membagi Bulat Bil Desimal}
Des := Des div 2;
End;
Until Des = 0;
edit2.Text:=bin;
end;
end;
0 komentar:
Posting Komentar