Tips 2 . Menciptakan Aktivitas Matematika Memakai Delphi

Hey gan, ketemu lagi nich hehe. Nah, kali ini kita akan membahas ihwal menciptakan aplikasi perhitungan dengan memakai operator matematika. Sebelum kita mulai, penulis ingin mengingatkan teman2 dulu nich bahwa menciptakan tutorial kali ini ialah tutorial terpenting dari tutorial delphi yang pernah penulis post sebelumnya hehe., mengapa penulis katakan begitu.? Ya, alasannya ialah kita tau bahwa input yang kita gunakan ialah Angka bukan huruf, dan kita juga tau bahwa setiap input yang kita masukkan memakai komponen EditText , sedangkan komponen EditText hanya bisa mendapatkan input data berupa String (huruf). Nah, kemudian bagaimana caranya semoga kita bisa menginputkan data berupa Angka dengan memakai EditText..?

Jawabannya, kita harus mengkonversi type data yang dinputkan dari String ke type data angka dan kita tampung dalam sebuah variabel, kemudian 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 semoga kesannya bisa ditampilkan.

Nah, dari penjabarang diatas sanggup 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, kini kita mulai aja supaya lebih mengerti maksud dari pernyataan diatas:

1 . Buka Delphi anda dan buat project gres dan desain Formnya ibarat gambar berikut:

Apa aja komponen yang dipakai bro..? nah, penulis tidak akan menjelaskan itu lagi gan alasannya ialah penulis yakin teman2 bisa mendesain formnya ibarat gambar diatas alasannya ialah komponen yang dipakai masih standard.

2 . klik double pada tombol kali (X) dan ketikan coding ibarat 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 mengambarkan variabel, sedangkan real merupakan type data angka dan dari coding diatas kita mempunyai 3 variabel penampung yaitu bilA, bilB dan hasil dengan type data real. Variabel bilA dipakai untuk menampung apa yang kita inputkan di Edit1 dan  Variabel bilB dipakai untuk menampung apa yang kita inputkan di Edit2, sedangkan variabel hasil kita gunakan untuk menampung hasil proses dari variabel bilA dan bilB.

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

Nah, kini 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 ibarat 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 ibarat 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 ibarat 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 kesannya ibarat gambar berikut:

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

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