Program Procedure Pada Gain Atau Perolehan Arus Yang Dihasilkan Transistor

Gain atau perolehan arus yang dihasilkan oleh transistor, biasanya disebut sebagai gain arus sinyal kecil, sedangkan besaran gain ditulis dengan simbol hfe. Gain ini telah ditentukan nilainya pada saat transistor dibuat, dan dengan kisaran yang sangat beragam. Misalnya transistor NPN tipe BC548 memiliki kisaran antara 110 hingga 800.

Dalam kondisi saturasi, gain merupakan perbandingan arus kolektor terhadap arus basis, atau dengan persamaan

hfe = I_C / I_B

Contoh soal:
Hitung besarnya gain pada rangkaian transistor dibawah ini:

Penyelesaian:
Diketahui nilai I_C = 60 mA, arus I_B diperoleh dengan hukum Ohm
I_B = V_BB – V_BE / R_B
I_B = (6 – 0,7) V / 10 kΩ
I_B = 5,3 V / 10 kΩ
I_B = 0,00053 A
I_B = 0,53 mA
Maka besarnya gain atau hfe = I_C / I_B = 60 mA / 0,53 mA = 113

Flowchart:

Hasil Program:
Jika Pilih 1,

 

 Jika Pilih 2,

Source Code:

uses crt;

var
b,c,d:real;
IB:real;
Var
f,g: real;
HFE:real;
pilihan1: string;

Procedure procIB(VBB:real; VBE:real; RB: real; var IB:real);
begin
VBB := 6; VBE := 0.7; RB := 10000;
IB := (VBB - VBE) / RB;
end;

Procedure procHFE(IC:real; IB: real;
var
HFE: real);
begin
IC := 60; IB := 0.53;
HFE := IC / IB;
end;

begin
writeln('----Program Procedure Rumus Perolehan Arus Yang Dihasilkan Transistor----');
writeln('[1] menghitung Nilai IB pada Transistor');
writeln('[2] menghitung Nilai HFE pada Transistor');
writeln('-------------------------------');
writeln('Pilih 1/2 : '); readln(pilihan1);
writeln;

if (pilihan1 = '1') then
begin
writeln('Diketahui NIlai VBB : 6,VBE : 0.7,RB : 10000');
writeln;
writeln('masukan nilai VBB : 6');
writeln('masukan nilai VBE : 0.7');
writeln('masukan nilai RB  : 10000');
  procIB(b,c,d,IB);
write('Maka Nilai IB Pada Transistor ialah: = ',IB,' mA');
readln;
end
else if (pilihan1 = '2') then
begin
writeln('Diketahui Nilai IC : 60, IB : 0.53');
writeln;
writeln('masukan nilai IC : 60');
writeln('masukan nilai IB : 0.53');
  procHFE(f,g,HFE);
write('Maka Nilai HFE Pada Transistor Ialah: = ',HFE,' Ampere');

readln;
end
else
begin
writeln('salah input');
end;

readln;

end.