Cara Membuat Kalkulator 3 in 1 Penghitung Tegangan, Arus, & Hambatan Listrik dengan Delphi 7

Posted on Juli 4th, 2022

Penggunaan rumus dalam menjawab soal pada mata pelajaran fisika tentang materi Arus Listrik dapat diterapkan kedalam bahasa pemrograman. Dengan Delphi 7, kita bisa membuat kalkulator sederhana untuk menghitung secara tepat berapa hasil tegangan, arus dan hambatan listrik secara bersamaan. Teknik yang digunakan adalah memanfaatkan rumus yang telah ada kemudian dimasukkan kedalam bahasa pemrograman lewat bantuan Delphi 7. Lantas bagaimana langkah pembuatan nya? Mari simak tutorial berikut ini.

Membuat Kalkulator 3 in 1 Penghitung Tegangan, Arus, dan Hambatan Listrik dengan Delphi 7

1. Silahkan buka Borland Delphi 7 teman-teman sekalian, jika belum mempunyai software nya maka disarankan download terlebih dahulu lewat berbagai situs pencarian secara gratis.

2. Setelah itu teman-teman membuat komposisi yang ada pada menu standard, komposisi terdiri dari ;

3 Panel sebagai wadah masing-masing kalkulator penghitung tegangan, arus, dan hambatan listrik.
6 Edit yang bisa di input angka untuk mencari penghitungan yang diinginkan pengguna.
3 Button di setiap panel untuk menghitung sekaligus memasukkan script code berupa rumus masing-masing kalkulator.
Tambahan Label untuk memberikan penjelasan dari tampilan kalkulator serta dan 2 Button terakhir pada bagian bawah untuk reset hasil dan keluar dari aplikasi.

3. Langkah selanjutnya yaitu cara kita memasukkan rumus dasar dari tegangan, arus, dan hambatan listrik ke dalam bahasa pemrograman Delphi 7. Script codenya adalah seperti berikut ;

Script Code berikut untuk menghitung Tegangan Listrik dengan cara perkalian, simbol yang digunakan yaitu perkalian (*). Script dimasukkan pada panel 1 di button 1 dengan label “hitung”.

procedure TForm1.Button1Click(Sender: TObject);
var I,V,R:real;
begin
try
I:=strtofloat(edit1.text);
R:=strtofloat(edit2.text);
V:=I*R;
Label26.Caption:=formatfloat('0.##',V);
except
end;

Script Code berikut untuk menghitung Arus Listrik dengan cara pembagian, simbol yang digunakan yaitu tanda bagi (/). Script dimasukkan pada panel 2 di button 2 dengan label “hitung”.

procedure TForm1.Button3Click(Sender: TObject);
var V,R,I:real;
begin
try
V:=strtofloat(edit4.text);
R:=strtofloat(edit5.Text);
I:= V/R;
Label27.caption:=formatfloat('0.##',I);
except
end;
end;

Script Code berikut untuk menghitung Hambatan Listrik dengan cara pembagian, simbol yang digunakan yaitu tanda bagi (/). Script dimasukkan pada panel 3 di button 3 dengan label “hitung”.

procedure TForm1.Button5Click(Sender: TObject);
var R,V,I:real;
begin
try
V:=strtofloat(edit7.Text);
I:=strtofloat(edit8.text);
R:=V/I;
label28.caption:=formatfloat('0.##',R);
except
end;
end;

Script code yang digunakan untuk reset dan keluar dari aplikasi yang dimasukkan pada button dengan label yang sama adalah sebagai berikut.

procedure TForm1.Button7Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
label26.caption:='   ';
edit4.clear;
edit5.clear;
label27.caption:='   ';
edit7.clear;
edit8.clear;
label28.Caption:='   ';
end;
end.

Bagaimana? Teman-teman khususnya pelajar bisa membuat aplikasi kalkulator dengan cara yang sangat sederhana. Aplikasi tersebut juga bisa teman-teman manfaatkan ketika belajar mata pelajaran fisika yang terdapat materi menghitung tegangan, arus, dan hambatan listrik. Tentunya ada rasa kebanggaan tersendiri ketika teman-teman berhasil membuat suatu alat yang dimana dapat memudahkan kalian ketika belajar dirumah. Semoga bermanfaat ya selamat mempraktikkan.