2 . Membuat Program matematika menggunakan delphi

Hey gan, ketemu lagi nich hehe. Nah, kali ini kita akan membahas tentang membuat aplikasi perhitungan dengan menggunakan operator matematika. Sebelum kita mulai, penulis ingin mengingatkan teman2 dulu nich bahwa membuat tutorial kali ini adalah tutorial terpenting dari tutorial delphi yang pernah penulis post sebelumnya hehe., mengapa penulis katakan begitu.? Ya, karena kita tau bahwa input yang kita gunakan adalah Angka bukan huruf, dan kita juga tau bahwa setiap input yang kita masukkan menggunakan komponen EditText , sedangkan komponen EditText hanya mampu menerima input data berupa String (huruf). Nah, lalu bagaimana caranya agar kita bisa menginputkan data berupa Angka dengan menggunakan EditText..?

Jawabannya, kita harus mengkonversi type data yang dinputkan dari String ke type data angka dan kita tampung dalam sebuah variabel, lalu kita proses dengan operator matematika yang kita gunakan dan hasil prosesnya kita tampung lagi dalam sebuah variabel, langkah terakhir kita konversikan lagi hasil dari proses yang sudah kita tampung dalam sebuah variabel dari type data angka ke String agar hasilnya bisa ditampilkan.

Nah, dari penjabarang diatas dapat kita simpulkan bahwa ada 3 step yang dilalui:

1 . String -> Type data angka.

2 . Proses.

3 . Type data angka -> String.

Lumayan membingungkan bukan..? hehe..

Ok, sekarang kita mulai aja supaya lebih mengerti maksud dari pernyataan diatas:

1 . Buka Delphi anda dan buat project baru dan desain Formnya seperti gambar berikut:

Apa aja komponen yang digunakan bro..? nah, penulis tidak akan menjelaskan itu lagi gan karena penulis yakin teman2 mampu mendesain formnya seperti gambar diatas karena komponen yang digunakan masih standard.

2 . klik double pada tombol kali (X) dan ketikan coding seperti berikut:

procedure TForm1.Button1Click(Sender: TObject);

var bilA,bilB,hasil :real;

begin

  bilA:=StrToFloat(Edit1.Text);

  bilB:=StrToFloat(Edit2.Text);

  hasil:=bilA * bilB;

  Label4.Caption:=FloatToStr(hasil);

end;

Penjelasan : var itu menandakan variabel, sedangkan real merupakan type data angka dan dari coding diatas kita memiliki 3 variabel penampung yaitu bilA, bilB dan hasil dengan type data real. Variabel bilA digunakan untuk menampung apa yang kita inputkan di Edit1 dan  Variabel bilB digunakan untuk menampung apa yang kita inputkan di Edit2, sedangkan variabel hasil kita gunakan untuk menampung hasil proses dari variabel bilA dan bilB.

StrToFloat itu menandakan bahwa kita mengkonversi type data dari String menjadi Float (angka) agar input bisa diproses sesuai dengan operator matematika yang digunakan, sedangkan FloatToStr menandakan bahwa kita mengkonversi type data dari Float (angka) menjadi String agar hasilnya bisa ditampilkan.

Nah, sekarang mulai mengerti kan maksud saya..?

Untuk tombol berikutnya, anda tidak perlu mengetik ulang dan cukup anda copy-paste aja coding diatas dan ganti operatornya simple kan..?

3 . klik double pada tombol bagi (/) dan ketikan coding seperti berikut:

procedure TForm1.Button2Click(Sender: TObject);

var bilA,bilB,hasil :real;

begin

 bilA:=StrToFloat(Edit1.Text);

 bilB:=StrToFloat(Edit2.Text);

 hasil:=bilA / bilB;

 Label4.Caption:=FloatToStr(hasil);

end;

4 . klik double pada tombol tambah (+) dan ketikan coding seperti berikut:

procedure TForm1.Button3Click(Sender: TObject);

var bilA,bilB,hasil :real;

begin

 bilA:=StrToFloat(Edit1.Text);

 bilB:=StrToFloat(Edit2.Text);

 hasil:=bilA + bilB;

 Label4.Caption:=FloatToStr(hasil);

end;

5 . klik double pada tombol kurang (-) dan ketikan coding seperti berikut:

procedure TForm1.Button4Click(Sender: TObject);

var bilA,bilB,hasil :real;

begin

 bilA:=StrToFloat(Edit1.Text);

 bilB:=StrToFloat(Edit2.Text);

 hasil:=bilA - bilB;

 Label4.Caption:=FloatToStr(hasil);

end;

6 . Sekarang silahkan Run programnya maka akan terlihat hasilnya seperti gambar berikut:

6 . Inputkan angka pada Bilangan A dan Bilangan B dan klik salah satu tombol operator, maka akan terlihat hasilnya seperti gambar berikut:

Ok cukup sekian dulu tutorial kali ini gan, jika masih belum mengerti silahkan tinggalkan komentar.! Selamat mencoba dan semoga sukses. Terima kasih telah mampir dan wassallam..