Recent Posts

Thursday, 23 August 2012

2 comments

Delphi 7 : Membuat Form Konversi Angka ke Huruf

Pada postingan kali ini kita akan masuk dalam pembahasan pemrograman Delphi 7 yaitu membuat form Konversi Angka ke Huruf. Jika kalian belum mempunyai program Delphi 7 (bisa di download disini). Form Konversi Angka ke Huruf adalah tampilan aplikasi sederhana untuk mengubah suatu input angka menjadi huruf. Form ini akan menampilkan Huruf jika kita menginputkan angka pada ComboBox misalnya kita ingin menginputkan angka 5, maka pada kolom panel akan berubah menjadi LIMA. Contohnya bisa di download disini.
Ingin mencoba silahkan Ikutilah langkah-langkah berikut ini :



Masuk ke program delphi 7


Start =>All Program =>Borland Delphi 7 =>Delphi 7


Desain Form



Desain Properties

Object
Name
Caption
Label1
Label1
Masukan Nama Anda
ComboBox1
ComboBox1
-
Panel1
Panel1
Panel1
Form1
Form1
Konversi

Listing Program


Ketika form dalam keadaan aktif jika kita ingin menginputkan angka 5, maka pada kolom panel akan berubah menjadi LIMA.. Langkah-langkahnya :
1.    Klik ComboBox1
2.    Kemudian Klik Event
3.    Double Click OnChange
4.    Masukanlah kodingan program berikut ini:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
If ComboBox1.Text='0' Then
Panel1.Caption:='Nol';
If ComboBox1.Text='1' Then
Panel1.Caption:='Satu';
If ComboBox1.Text='2' Then
Panel1.Caption:='Dua';
If ComboBox1.Text='3' Then
Panel1.Caption:='Tiga';
If ComboBox1.Text='4' Then
Panel1.Caption:='Empat';
If ComboBox1.Text='5' Then
Panel1.Caption:='Lima';
If ComboBox1.Text='6' Then
Panel1.Caption:='Enam';
If ComboBox1.Text='7' Then
Panel1.Caption:='Tujuh';
If ComboBox1.Text='8' Then
Panel1.Caption:='Delapan';
If ComboBox1.Text='9' Then
Panel1.Caption:='Sembilan';
end;

Jalankan Proses Running


Run =>Run atau Tekan F9 pada keyboard anda




= = SEMOGA BERMANFAAT = =

2 comments :

Eko Budi Santoso said...

Manteb Sob artikel nya . Memang benar nih Blog ini Emang Keren!

Mampir gan ke Blog Sederhanaku . Jangan lupa tancepi Komentar :) dan FOLLOW :)

http://share4rt.blogspot.com/2012/09/award-top-comment-dari-share4rt-segera.html

none said...

kalo kita ketik angka 1000 mau muncul tulisan satu Nol Nol Nol gimana ya ?

Best viewed on firefox 5+

Jumlah Pengunjung

Popular Posts

Project E.A.R - Marabahaya

Followers

Copyright © 2013 Design by Dadang Herdiana