Operasi Hitung (Cara Lain)
kali ini aku akan memberikan sedikit info mengenai bagaimana membuat program penjumlahan dan pengurangan (untuk perkalian dan pembagian bisa di utak-atik sendiri yach..!?!? yang penting tau dasarnya dulu hehehe) di visual delphi menggunakan komponen Edit dan RadioButton (bisa ditambah label ), Komponen RadioButton kerap kali digunakan untuk menuntun pengguna aplikasi program dalam menentukan salah satu pilihan dari beberapa pilihan yang diberikan, misalnya pilihan jenis kelamin (L atau P). Pengguna hanya dapat memilih salah satu dan tidak dapat memilih keduanya.
Langsung aja ikuti langkah sebagai berikut :
1. Atur masing – masing komponen Edit, RadioButton pada komponen Form1, seperti berikut ini :
2. Nah disini bedanya, karena program kita ini menggunakan operasi hitung, maka dibutuhkan variabel2 baru (tidak bawaan dari program delphi), maka kita tambahkan sendiri di bagian atas :
var
bil1, bil2,hasil,kode :integer;
SHsl :string;
3. Sekarang kita masukkan perintah di radiobutton1 (penjumlahan), dengan script ini :
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
val(Edit1.text,bil1,kode);
val(Edit2.text,bil2,kode);
hasil:=bil1+bil2;
Str(hasil,SHsl);
Edit3.Text:=SHsl;
end;
4. Untuk radiobutton2 (pengurangan) masukan perintah script ini :
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
val(Edit1.text,bil1,kode);
val(Edit2.text,bil2,kode);
hasil:=bil1-bil2;
Str(hasil,SHsl);
Edit3.Text:=SHsl;
end;
5. Jalankan program kamu (tekan F9), nah gampang kan?!?!?!
Sedikit Penjelasan !!!
Perintah val(Edit1.text,bil1,kode); berarti mengambil data dari edit1 kemudian dimasukan ke variabel bil1 dan menkonversikan ke Integer (var kode = integer).
Perintah Str(hasil,SHsl); berarti mengubah variabel hasil dan shsl ke string.
gimana temen2 gampang kan????
by Kang Abee
