Dede Kurniadi Rotating Header Image
viewporntube indobokep classicrentcar borneowebhosting informasiku pontitravel pontiarmada classicborneorentcar

Program Baca Kode ASCII dan Hexadecimal pada tombol Keyboard dengan Pascal

Ada kalanya ketika kita ingin mengetahui kode ASCII atau kode Hexadecimal dari tombol papan keyborad yang kita tekan,  ASCII (American Standard Code for Information Interchange) merupakan suatu standar internasional dalam kode huruf dan simbol seperti Hex dan Unicode tetapi ASCII lebih bersifat universal, contohnya 124 adalah untuk karakter “|”,  Ia selalu digunakan oleh komputer dan alat komunikasi lain untuk menunjukkan teks. Kode ASCII sebenarnya memiliki komposisi bilangan biner sebanyak 8 bit. Dimulai dari 00000000 hingga 11111111. Total kombinasi yang dihasilkan sebanyak 256, dimulai dari kode 0 hingga 255 dalam sistem bilangan Desimal. sebetulnya banyak referensi untuk mengetahui kode dari tombol keyboard yang kita tekan, namun pada latihan kita kali ini saya akan coba berbagi bagamana membuat program baca kode ASCII dan Hexadecimal dengan menggunakan bahasa pemrograman Pascal, berikut ini kode lengkapnya :

Program BacaASCII;
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.
Copyright © Dede Kurniadi

Selesai silahkan anda coba dan praktekan dalam komputer anda masing-masing.

Related Search :

6 Comments

  1. Fredy says:

    Sy mau tny hp sy sonyericson W960i,sy mau pakai WIFInya tp WEP KEYnya minta ASCII atau HHEX,sy Ъќ>:/ tau brp kodenya?Tlg ϑί bantu?Thx

Leave a Reply

Your email address will not be published. Required fields are marked *