Deny Blog's

konversi bahasa ASCII;

Uses Crt;

Var
Bil    : Byte;
rhex   : array [1..5] of integer;
Ch,Ch1 : Char;
x,c    : integer;
hex    : string;

Procedure Hexa(bhex : integer);
Begin
x := 1;
Repeat
if bhex >= 16 then
Begin
rhex[x] := bhex mod 16;
bhex    := bhex div 16;
end
else rhex[x] := bhex;
inc(x);
until bhex <= 16;
end;

Begin
Repeat
Clrscr;
Writeln(‘Tekan Suatu Tombol !’);
Ch  := Readkey;
Bil := Ord(Ch);
hexa(bil);
Writeln(‘Karakter   : ‘,Ch);
Writeln(‘Kode ASCII : ‘,Bil);
Write  (‘Kode Hexa  : ‘);
For c := 1 to x-1 do
Write(Rhex[x],’ ‘);
Writeln;
Writeln(‘Mau Lagi ? Y/T ‘);
Repeat
Ch1 := Readkey;
Ch1 := Upcase(Ch1);
Until Ch1 in ['Y','T'];
Until Ch1 = ‘T’;
end.

tinggalin coment ya...

Artikel Terkait :

Ilmu Komputer

• Setting Gammu di Windows
• KALKULATOR SEDERHANA (VB6)
• TUTORIAL SQL INJECTION
• BELAJAR DFD
• Konfirmasi Keluar Program
• Karateristik Wifi,Wireless,Nirkabel
• Aneka Kreasi Animasi Dengan Adobe Flash CS3
• Design Grafis Menggunakan Macromedia Freehand 9
• Pengantar Multimedia #1
• Belajar Corel Draw X3
• Menguak Rahasia Corel Draw 12
• Special Windows XP
• CONTOH SKRIPSI
• Copy Protect 1.5 Full Version
• PDF Suite Professional 2011 v9.0.90.1542
• Microsoft Mathematics 4.0
• Partition Wizard 5.0 Portable | 7.52 MB
• Angry Birds Seasons HD v1.5.1 Portable
• Adobe Photosop CS5 Extended
• Penanganan Error (Error Handling) dengan Visual Basic 6.0
• Membuat kabel UTP,Set IP,Sharing File
• NETWORK MASK
• Alamat IP dan SUBNETTING
• software untuk resize foto dlm 1 folder or by one
• 44 Themes for Windows XP