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.

Program Baca Kode ASCII dan Hexadecimal pada tombol Keyboard dengan Pascal
Tag pada:                    

6 gagasan untuk “Program Baca Kode ASCII dan Hexadecimal pada tombol Keyboard dengan Pascal

  • 26 April 2010 pukul 11:55 pm
    Permalink

    Gan…..klo bikin tabel perkalian dgn 5 kolom dan 20 baris gmn

    1 2 3 4 5
    1 1X1=1 1X2=2 1X3=3 …. dst
    2 2X1=2 2X2=4 ….dst

    smpai 20 baris…ditunggu replynya…thanks b4

    Balas
  • 25 April 2010 pukul 5:35 am
    Permalink

    kalo tuk buat sejenis menu bagaimana kodenya? misal, membuat menu file yg ada sub-sub filenya gt…pliz help

    Balas
  • 30 November 2009 pukul 8:20 pm
    Permalink

    saya tertarik mencobanya, tapi saya tdk mengerti maksud dr perintah2 tsb
    kalau bisa tolong dijelasin maksud dr sintax tsb keemail saya ([email protected])
    thanks

    Balas

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *