Arsip: Aplikasi konversi Biner desimal
more 13 years ago
ilhuna
Halo halooo..
ada yang tau gak, membuat aplikasi konversi dari decimal ke binary atau sebaliknya dari binary(biner) ke decimal dengan menggunakan program delphi????????
more 13 years ago
aday-gate
nambahin
http://fajardelphiscript.blogspot.com/2009/07/konversi-bilangan-dengan-delphi.html
nih yang paling bagus
more 13 years ago
reev
procedure TForm5.Button1Click(Sender: TObject);
var
bin: String;
intg: Integer;
begin
intg:=StrToInt(Edit1.Text);
//convert to bin
bin:='';
repeat
if (intg and 1) = 1 then
bin:='1'+bin
else
bin:='0'+bin;
intg:= intg shr 1;
until intg = 0;
Edit2.Text:=bin;
//convert back
intg:=0;
repeat
intg:=intg shl 1;
if bin[1]='0' then
Intg:=intg or 0
else
Intg:=intg or 1;
delete(bin,1,1);
until bin = '';
//result
Edit3.Text:=IntToStr(intg);
end;
more 13 years ago
reev
Payah geshi, tanda + kok hilang. Nih, yang biasa aja:
procedure TForm5.Button1Click(Sender: TObject);
var
bin: String;
intg: Integer;
begin
intg:=StrToInt(Edit1.Text);
//convert to bin
bin:='';
repeat
if (intg and 1) = 1 then
bin:='1'+bin
else
bin:='0'+bin;
intg:= intg shr 1;
until intg = 0;
Edit2.Text:=bin;
//convert back
intg:=0;
repeat
intg:=intg shl 1;
if bin[1]='0' then
Intg:=intg or 0
else
Intg:=intg or 1;
delete(bin,1,1);
until bin = '';
//result
Edit3.Text:=IntToStr(intg);
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Proses....
by indira_srg in Hal umum tentang Pascal Indonesia more 17 years ago - Program setting dial-up menggunakan delphi
by em052007 in Bedah Kasus more 16 years ago - buat spy didelphi mohon bantuannya
by yufan in Hal umum tentang Pascal Indonesia more 12 years ago - bikin folder baru
by lela in Tip n Trik Pemrograman more 17 years ago - user permision dan hak akses table di access
by dinox in MsSQL more 18 years ago - Apakah MySQL Gratis ?
by hendrang in MySQL more 16 years ago - Mikrokontroller + Delphi program
by Byanto in Enginering more 16 years ago - GO TO
by ichall in Enginering more 17 years ago - Error Myql 5.0
by imunk in MySQL more 18 years ago - Cara Perhitungan Saldo Seperti Dalam Buku Bank(MySQL),Sukses
by faridx in MsSQL more 16 years ago