pemrogramman convert ASCII ke huruf/angka

Thanks…bro…

Udah menunggu postinganku lagi,,,,kita akan belajar ASCII

kode Standar Amerika untuk Pertukaran Informasi atau ASCII (American Standard Code for Information Interchange) merupakan suatu standar internasional dalam kodehuruf 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 7 bit. Namun, ASCII disimpan sebagai sandi 8 bit dengan menambakan satu angka 0 sebagai bit significant paling tinggi. Bit tambahan ini sering digunakan untuk uji prioritas. Karakter control pada ASCII dibedakan menjadi 5 kelompok sesuai dengan penggunaan yaitu berturut-turut meliputi logical communication, Device control, Information separator, Code extention, dan physical communication. Code ASCII ini banyak dijumpai pada papan ketik (keyboard) computer atau instrument-instrument digital.

Jumlah kode ASCII adalah 255 kode. Kode ASCII 0..127 merupakan kode ASCII untuk manipulasi teks; sedangkan kode ASCII 128..255 merupakan kode ASCII untuk manipulasi grafik. Kode ASCII sendiri dapat dikelompokkan lagi kedalam beberapa bagian:

·         Kode yang tidak terlihat simbolnya seperti Kode 10(Line Feed), 13(Carriage Return), 8(Tab), 32(Space)

·         Kode yang terlihat simbolnya seperti abjad (A..Z), numerik (0..9), karakter khusus (~!@#$%^&*()_+?:”{})

·         Kode yang tidak ada di keyboard namun dapat ditampilkan. Kode ini umumnya untuk kode-kode grafik.

Dan kita akan membuat program convert  Bahasa ASCII ke angka/huruf

Cekidot…monggo di sedot…

.Desain form

Desain properties

object	caption	name
Label1	Ketikkan angka dari kode ASCII	Label1
Label2	Karakter dari kode ASCII tersebut adalah	Label2
Edit1	-
Edit2	-
Button1	ok	bok
Groupbox1	Konversi dari kode ASCII tersebut adalah	Groupbox1

Listing program

procedure TForm1.bokClick(Sender: TObject);

var

angka:integer;

begin

angka:=strtoint(eangka.Text);

ehuruf.Text:=chr(angka);

end;

end.

Hasil screenshot program dijalankan