tugas minggu kedua

Program Rangkaian Bias Transistor Common Emiter dengan Pascal

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 3 pilihan rangkaian bias yaitu rangkaian bias tetap, bias umpan balik tegangan, dan bias pembagi tegangan. Cara kerja program ini adalah dengan mengolah input nilai beta (b), tahanan emiter (Re), tahanan basis (Rb), tahanan collector (Rc) dan Vcc. Output yang dihasilkan sesuai dengan pilihan rangkaian bias.

FLOW CHART :

SOURCE CODE :
program rangkaian_bias_transistor_common_emiter;
uses crt;

var
b, rc, rb, re, r1, r2, rp, vbb, vcc, vce, ie, ic, ib : real;
pilihan, pilihan2, pilihan3 : string;

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);

write(‘apakah anda ingin menghitung rangkaian bias tetap ? (y atau t)’);
readln(pilihan);

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

ib := (vcc – 0.7) / (rb + ((b + 1) * re));
ie := (b + 1) * ib;
ic := b * ib;
vce := vcc – (ic * (rc + re));

writeln(‘nilai ib = ‘, ib:2:6, ‘ a’);
writeln(‘nilai ie = ‘, ie:2:6, ‘ a’);
writeln(‘nilai ic = ‘, ic:2:6, ‘ a’);
writeln(‘nilai vce = ‘, vce:2:6, ‘ v’);
end
else if (pilihan = ‘t’) then
begin
write(‘apakah anda ingin menghitung rangkaian bias umpan balik tegangan ? (y atau t)’);
readln(pilihan2);

if (pilihan2 = ‘y’) then
begin
write(‘masukkan nilai Rb : ‘);
readln(rb);

ib := (vcc – 0.7) / ((b * (rc + re)) + rb);
ie := (b + 1) * ib;
ic := b * ib;
vce := vcc – (ic * (rc + re));

writeln(‘nilai ib = ‘, ib:2:6, ‘ a’);
writeln(‘nilai ie = ‘, ie:2:6, ‘ a’);
writeln(‘nilai ic = ‘, ic:2:6, ‘ a’);
writeln(‘nilai vce = ‘, vce:2:6, ‘ v’);
end
else if (pilihan2 = ‘t’) then
begin
write(‘apakah anda ingin menghitung rangkaian bias pembagi tegangan ? (y atau t)’);
readln(pilihan3);

if (pilihan3 = ‘y’) then
begin
write(‘masukkan nilai R1 : ‘);
readln(r1);
write(‘masukkan nilai R2 : ‘);
readln(r2);

rb := (r1 * r2) / (r1 + r2);
vbb := (r2 * vcc) / (r1 + r2);
ib := (vbb – 0.7) / (rb + ((b + 1) * re));
ie := (b + 1) * ib;
ic := b * ib;
vce := vcc – (ic * (rc + ((1 + (1/b)) * re)));

writeln(‘nilai ib = ‘, ib:2:6, ‘ a’);
writeln(‘nilai ie = ‘, ie:2:6, ‘ a’);
writeln(‘nilai ic = ‘, ic:2:6, ‘ a’);
writeln(‘nilai vce = ‘, vce:2:6, ‘ v’);
end
else if (pilihan3 = ‘t’) then
begin
writeln(‘tidak dapat menghitung’);
end
else
begin
writeln(‘salah input’);
end;
end
else
begin
writeln(‘salah input’);
end;
end
else
begin
writeln(‘salah input’);
end;

readln;
end.
sumber :

About Herdiaman Saragih

I Am a Global Product

Posted on 14 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: