Rangkaian Bias Transistor dengan Pascal (Function)

Aplikasi yang saya buat ini bertujuan untuk menghitung nilai arus basis (ib), arus emiter (ie), arus collector (ic), dan tegangan collector-emiter (vce) pada rangkaian bias transistor common emiter. Terdapat 2 menu pilihan yaitu rangkaian bias tetap & rangkaian bias umpan balik tegangan. Input pada program ini yaitu nilai beta (b), tahanan emiter (Re), tahanan basis (Rb), tahanan collector (Rc) dan Vcc. Input akan diolah dengan function, terdapat tiga function yaitu ib, ic, ie & vce yang menghasilkan output masing-masing. Output akan ditampilkan dilayar.

FlOWCHART : 

 



LISTING PROGRAM :

program rangkaian_bias_transistor_common_emiter;
uses crt;

function f_ib(f_vcc, f_b, f_rb, f_rc, f_re, pil: real): real;
var result: real;
begin
if (pil = 1) then
begin
result := (f_vcc – 0.7) / (f_rb + ((f_b + 1) * f_re));
end
else
begin
result := (f_vcc – 0.7) / ((f_b * (f_rc + f_re)) + f_rb);
end;
f_ib := result;
end;

function f_ic(f_b, f_ib, pil: real): real;
var result: real;
begin
result := f_b * f_ib;

f_ic := result;
end;

function f_ie(f_b, f_ib, pil: real): real;
var result: real;
begin
result := (f_b + 1) * f_ib;

f_ie := result;
end;

function f_vce(f_vcc, f_ic, f_rc, f_re, pil: real): real;
var result: real;
begin
result := f_vcc – (f_ic * (f_rc + f_re));

f_vce := result;
end;

var
b, rc, rb, re, vcc, vce, ie, ic, ib, pilihan : real;

begin
clrscr;
writeln(‘ PROGRAM RANGKAIAN BIAS TRANSISTOR COMMON EMITER ‘);
writeln(‘ ‘);
writeln(‘ ‘);
write(‘masukkan nilai b (beta) : ‘);
readln(b);
write(‘masukkan nilai vcc : ‘);
readln(vcc);
write(‘masukkan nilai Rc : ‘);
readln(rc);
write(‘masukkan nilai Re : ‘);
readln(re);
writeln;
writeln(‘————————————————–‘);
writeln(‘———————–MENU———————–‘);
writeln(‘[1] Menghitung rangkaian bias tetap’);
writeln(‘[2] Menghitung rangkaian bias umpan balik tegangan’);
write(‘masukkan pilihan : ‘);
readln(pilihan);
writeln(‘————————————————–‘);

if (pilihan = 1) then
begin
write(‘masukkan nilai Rb : ‘);
readln(rb);

ib := f_ib(vcc, b, rb, rc, re, pilihan);
ie := f_ie(b, ib, pilihan);
ic := f_ic(b, ib, pilihan);
vce := f_vce(vcc, ic, rc, re, pilihan);

writeln(‘nilai ib = ‘, ib:2:3, ‘ a’);
writeln(‘nilai ie = ‘, ie:2:3, ‘ a’);
writeln(‘nilai ic = ‘, ic:2:3, ‘ a’);
writeln(‘nilai vce = ‘, vce:2:3, ‘ v’);
end
else if (pilihan = 2) then
begin
write(‘masukkan nilai Rb : ‘);
readln(rb);

ib := f_ib(vcc, b, rb, rc, re, pilihan);
ie := f_ie(b, ib, pilihan);
ic := f_ic(b, ib, pilihan);
vce := f_vce(vcc, ic, rc, re, pilihan);

writeln(‘nilai ib = ‘, ib:2:3, ‘ a’);
writeln(‘nilai ie = ‘, ie:2:3, ‘ a’);
writeln(‘nilai ic = ‘, ic:2:3, ‘ a’);
writeln(‘nilai vce = ‘, vce:2:3, ‘ v’);
end
else
begin
writeln(‘salah input’);
end;

readln;
end.

TAMPILAN ANTARMUKA PROGRAM :

 

 

sumber :

http://kelasonline.net/bias-transistor/

http://dokumen.tips/documents/6-rangkaian-bias-transistor.html

 

About Herdiaman Saragih

I Am a Global Product

Posted on 30 Mei 2016, in Uncategorized. Bookmark the permalink. Tinggalkan komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: