Basic Input Output System (BIOS)

         BIOS adalah singkatan dari Basic Input Output System. merupakan suatu software (ditulis dalam bahasa assembly) yang mengatur fungsi dasar dari perangkat keras (hardware) komputer.

Program Pascal Procedure Perhitungan IC 555

Program Pascal Procedure Perhitungan IC 555

program Perhitungan_IC_555;

uses crt;

procedure f_TP(f_R1, f_C: real; var result: real);

begin

result := 1.1 * f_R1 * f_C;

end;

procedure f_FR(f_R1, f_R2, f_C: real; var result: real);

begin

result := 1.44 / f_R1 + (2 * f_R2) * f_C;

end;

var

pil, f_R1, f_R2, f_C, rf_TP, rf_FR: real;

begin

clrscr;

writeln('==========================Program Perhitungan IC 555=========================== ');

writeln;

writeln('1. menghitung Timer 555 monostable (Time Pulse) ');

writeln('2. menghitung timer 555 astable (Frequensi) ');

write('masukan pilihan : ');

 readln(pil);

if (pil = 1) then

begin

write('R1 (Resistor1) = ');

readln(f_R1);

write('C (Capasitor) = ');

readln(f_C);

f_TP(f_R1, f_C, rf_TP);

writeln;

writeln('Time Pulse = ', rf_TP:2:2, ' s');

end

else if (pil = 2) then

begin

write('R1 (Resistor1) = ');

readln(f_R1);

write('R2 (Resistor2) = ');

readln(f_R2);

write('C (Capasitor) = ');

readln(f_C);

f_FR(f_R1, f_R2, f_C, rf_FR);

writeln;

writeln(' (Frequensi) = ', rf_FR:2:2, ' Hz');

end

else

begin

writeln('salah input');

end;

readln;

end.

Flowchart

Program pascal perhitungan kapasitor seri parallel

program seri_paralel_kapasitor;

uses crt;

var

Pilih : integer;

C1 : integer;

c2 : integer;

//Deklarasi variabel dengan semua variabel bertipe integer

Timer IC 555

Uses Crt;

Var

 R1, R2, C : Integer;

TPulse    : Real;

no           : integer;
Pada bagian ini mengidentifikasi variabel bernilai integer dan real.

Listing Program Perhitungan Energy pada Kapasitor dan Flowchart

Private Sub Command1_Click()

Label4 = "Energy" & " " & ":" & " " & 0.5 * Text1.Text * Text2.Text ^ 2 & " " & "J"

End Sub

Pada blok program ini adalah rumus perhitungan energy yang tersimpan pada capasitor.

Listing Program Penghitung Nilai Resistor 4 Gelang

Dim gelang1 As Byte, gelang2 As Byte, gelang3 As Single, gelang4 As Single

Private Sub Command1_Click()

Call Data

Call Atasi

Flowchart Penghitung nilai Resistor 4 gelang