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.