Memahami Fungsi Val di Delphi Studi kasus Menghitung Transaksi Barang

Fungsi val digunakan untuk mengubah data bersifat string menjadi bersifat numerik, bentuk umumnya val(a,b,c) a adalah nilai atau variabel bertipe string dan b adalah variabel penampung data tersebut yang bertipe numerik (integer, real atau lainnya) dan c adalah variabel penampung nilai berhasil atau tidaknya proses konversi, variabel tersebut bernilai 0 jika proses konversi berhasil dan 1 jika proses konversi gagal, variabel pada bagian c harus bertipe integer. Untuk lebih jelasnya berikut contoh aplikasi yang dibuat.

1.       Desain Form Seperti berikut

2.       Selanjutnya Buat Coding Seperti berikut

Object	Button Click
Coding	procedure TForm1.bt_hitungClick(Sender: TObject); var   sjumlah : string[30];   harga,banyak,jumlah : single;   kode : integer; begin   val(ed_hs.Text,harga,kode);   val(ed_banyak.Text,banyak,kode);   jumlah := harga * banyak ;   Str(jumlah:20:0,sJumlah);   ed_jumlah.Text := sjumlah end;
Keterangan	Baris Program diatas menunjukan bahwa jika user mengklik button Hitung maka program akan menghitung jumlah transaksi dan menampilkannya di dalam obyek edit jumlah. Perhatikan bahwa fungsi val() dipakai untuk mendapatkan nilai string supaya dapat ditampilkan dalam obyek edit.

Hasilnya

 Selamat Mencoba

 PADEPOKAN IT COURSES
 IT Tutorial, Training Center & IT Solution
 www.padepokanit.com

Share

Artikel Lainnya :