Blogger Widgets Perhitungan Dioda Ideal Dengan Free Pascal Perintah (Procedure) - FIRMANSYAH AHMAD BLOG

Perhitungan Dioda Ideal Dengan Free Pascal Perintah (Procedure)

Dalam halaman ini berisi tentang percobaan menggunakan aplikasi free Pascal, dengan materi tentang dunia elektronika yang saya berikan dalam hal ini yaitu materi dioda ideal lagi dengan sedikit tambahan materi yang merupakan perkembangan dari percobaan sebelumnya.

          Perlu diketahui bahwa dalam percobaan ini ada sedikit penjelasan untuk kejelasan program dan flowchart, sehingga kalian dapat memahaminya dengan baik. Tetapi tidak untuk secara keseluruhan melainkan hanya untuk keterangan - keterangan yg digunakan dalam baris program, baik itu persingkatan kata atau kalimat yang di inisialkan. Jika ingin mengetahui arti dari perintah - perintah yang digunakan silahkan cek http://www.academia.edu/5102860/Dasar_PASCAL

Di bawah ini adalah gambar rangkaian dari rumus dioda ideal.

Gambar 1

Baris Program procedure perhitungan dioda ideal:

uses crt;

var
vs,r1,v,ret,i,rb:real;
pilihan1:string;
var
  vakdp1,vakdp2:real;

procedure pendekatan1;
begin

  vakdp1:=(r1*i)-vs;
  write('HASIL DARI VAK:"=',vakdp1); writeln('  VOLT  ');

end;

procedure pendekatan2;

begin

  vakdp2:=(vs-rb)+(r1*i);
  write('HASIL DARI VAK:"=',vakdp2); writeln('  VOLT  ');

end;



begin
clrscr;
writeln('PROGRAM PERHITUNGAN DIODA IDEAL pendekatan 1 dan 2');
writeln('MASUKAN PILIHAN');
writeln('[1] MENGHITUNG DIODA PENDEKATAN 1');
writeln('[2] MENGHITUNG DIODA PENDEKATAN 2');
readln(pilihan1);
writeln;

if (pilihan1='1') then
begin
  writeln('PROGRAM UNTUK MENCARI NILAI TEGANGAN PADA KOMPONEN DIODA (PENDEKATAN 1)');
  writeln('MASUKAN NILAI');
  writeln;
  write('MASUKAN TEGANGAN SUMBER:');
  readln(vs);
  write('MASUKAN HAMBATAN:');
  readln(r1);
  write('MASUKAN NILAI ARUS "ARUS HARUS BERNILAI 0 (NOL)" :');
  readln(i);
  pendekatan1;

  readln;
end

else if (pilihan1 = '2') then
begin
  writeln('PROGRAM UNTUK MENCARI NILAI TEGANGAN PADA KOMPONEN DIODA (PENDEKATAN 2)');
  writeln('MASUKAN NILAI');
  writeln;
  write('MASUKAN TEGANGAN SUMBER:');
  readln(vs);
  write('MASUKAN HAMBATAN:');
  readln(r1);
  write('MASUKAN NILAI ARUS "ARUS HARUS BERNILAI 0 (NOL)" :');
  readln(i);
  write('MASUKAN NILAI HAMBATAN BULK "NILAINYA GERMANIUM = 0,3 ATAU SILIKON = 0,7 :'); readln(rb);
  pendekatan2;

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

readln;


end.

Dari program tersebut ada beberapa catatan yaitu sebagai berikut:

* var/variabel r1 adalah hambatang yang ada di dalam rangkaian, jika di dalam gambar dituliskan RL
* var/variabel vs adalah sumber tegangannya
* var/variabel Rb adalah hambatan bulk-nya
* var/variabel i adalah arus
* var/variabel vak adalah tegangan yang ada pada dioda
* vakdp1 maksudnya tegangan tegangan yang ada pada dioda pendekatan 1
* vakdp2 maksudnya tegangan tegangan yang ada pada dioda pendekatan 2

Flowchart


Gambar 2

Flowchart tersebut menjelaskan ketika program dimulai maka yang ditampilkan terlebih dahulu adalah pilihan yang harus kita isi yaitu berupa pilihan perhitungan dioda ideal, pilihan itu terdapat 2 pilihan diantaranya 1. Menghitungan dioda pendekatan pertama dan 2. Menghitung dioda pendekatan kedua, kita diperintahkan untuk menuliskan angka dari pilihan tersebut 1 atau 2, misalnya kita tekan 1 lalu enter maka proses berikutnya dari isi program yaitu input data yang kita inginkan, ketika semua data telah diinputkan maka program akan memproses data tersebut dengan rumus yang telah sicantumkan didalam isi programnya, rumusnya yaitu Vak = Vs - (R1 * I). Maka tak berselang lama muncullah hasil dari perhitungan tersebut. Begitu mudah dan simpel, terciptanya percobaan ini akan memudahkan kita untuk melakukan perhitungan secara cepat dan otomatis.

Lebih lengkapnya dan lebih jelasnya lihatlah haris dari printscreen output data berikut:

Gambar 3

Gambar 4

Sekian dan semoga bermanfaat.

Share this article :
 

Posting Komentar

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. FIRMANSYAH AHMAD BLOG - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger