Mohon tunggu...
Agung Budi Santoso
Agung Budi Santoso Mohon Tunggu... Konsultan - Konsultan teknik dan penulis lepas tinggal di Kabupaten Kendal, Jawa Tengah

Engineering consultant, content creator, and traveler.

Selanjutnya

Tutup

Nature

Menghitung Nilai Resistansi Penghantar Dengan Delphi 7

9 Mei 2015   10:32 Diperbarui: 17 Juni 2015   07:13 526
+
Laporkan Konten
Laporkan Akun
Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas.

Mengapa kita perlu menghitung nilai resistansi suatu penghantar ? Jika Anda serimg berhubungan dengan pekerjaan jaringan listrik tentu hal ini sangat dibutuhkan. Nilai resistansi penghantar erat kaitannya dengan permasalahan drop tegangan. Di mana sesuai dengan Hukum Ohm bahwa tegangan dipengaruhi oleh nilai resistansi dan arus listrik yang mengalir di dalam penghantar tersebut. Sebenarnya secara praktis kita dapat mengetahui besarnya drop tegangan dengan mengukur tegangan sisi kirim dan tegangan sisi terima. Lalu nilai drop tegangan diperoleh dengan cara mengurangi tegangan sisi kirim dengan tegangan sisi terima.

Namun di sini kita akan berusaha menghitung nilai drop tegangan dengan menghitung nilai resistansi penghantar. Di mana nilai resistansi penghantar dapat diperoleh dengan rumus R = (rho x panjang penghantar) / luas penampang penghantar.

Dengan rumus di atas penulis berusaha membuat program sederhana dengan Delphi 7 untuk menghitung nilai resistansi berbagai jenis bahan penghantar. Secara umum dibidang kelistrikan bahan untuk penghantar terbuat dari bahan alumunium atau tembaga.

Sebagai contoh kawat AAAC, AAACS, kabel LVTC, kabel NYM, kabel NYY dan lain sebagainya.

Berikut tampilan form dari program yang sudah penulis buat.


Untuk kode sumbernya dapat Anda pelajari seperti di bawah ini :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

ComboBox1: TComboBox;

Edit1: TEdit;

Edit2: TEdit;

GroupBox1: TGroupBox;

Edit3: TEdit;

GroupBox2: TGroupBox;

Edit4: TEdit;

Button1: TButton;

Edit5: TEdit;

Edit6: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Button2: TButton;

Label9: TLabel;

Memo1: TMemo;

Label5: TLabel;

procedure ComboBox1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

var

hambatjenis : real;

namabahan : string;

jenis : integer;

begin

jenis := ComboBox1.ItemIndex;

case jenis of

0: begin

hambatjenis := 0.0262;

namabahan := 'Alumunium';

end;

1: begin

hambatjenis := 0.1;

namabahan := 'Besi';

end;

2: begin

hambatjenis := 0.022;

namabahan := 'Emas';

end;

3: begin

hambatjenis := 0.0163;

namabahan := 'Perak';

end;

4: begin

hambatjenis := 0.0174;

namabahan := 'Tembaga';

end;

end;

Edit6.Text:=FloatToStr(hambatjenis);

Edit5.Text:=namabahan;

Edit1.Text:=floattostr(hambatjenis);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

rho,r,l,a : real;

begin

rho :=strtofloat(edit1.Text);

l:=strtofloat(edit2.Text);

a:=strtofloat(edit3.Text);

r:=(rho*l)/a;

Edit4.Text:=floattostr(r);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Setelah Anda mengkompilasi dengan bahasa pemrograman Delphi 7 maka hasil eksekusi program dapat Anda lihat seperti di bawah ini.

1431142170273608146
1431142170273608146


Untuk bahan dari tembaga dapat terlihat seperti di bawah ini.

1431142252793816095
1431142252793816095


Bagaimana ? Anda tertarik untuk membuatnya ? Silakan pelajari saja kode sumbernya, siapa tahu program ini bisa bermanfaat bagi Anda. Ok, sampai di sini dulu ya ? Salam Kompasiana.




Mohon tunggu...

Lihat Konten Nature Selengkapnya
Lihat Nature Selengkapnya
Beri Komentar
Berkomentarlah secara bijaksana dan bertanggung jawab. Komentar sepenuhnya menjadi tanggung jawab komentator seperti diatur dalam UU ITE

Belum ada komentar. Jadilah yang pertama untuk memberikan komentar!
LAPORKAN KONTEN
Alasan
Laporkan Konten
Laporkan Akun