Menghitung Nilai Tegangan Output ( Vout ) pada Suatu Rangkaian Penyearah dengan Menggunakan Bahasa Pemrograman Pascal

Pada postingan sebelumnya http://mfauzanazima.blogspot.co.id/2017/03/flowchart-menghitung-vout-pada.html telah dijelaskan flowchart mengenai menghitung tegangan keluaran (Vout) pada rangkaian penyearah (dioda). 

Kali ini saya akan menghitung tegangan pada dioda (Vak) apakah dioda tersebut aktif atau tidak aktif dan menghitung berapa tegangan keluaran (Vout) dengan menggunakan bahasa pemrograman Pascal. Berikut ini adalah listing programnya : 

Penjelasan Program :

·         Program Dioda;  Judul program diberi nama Program Dioda. Untuk setiap pemisah antar instruksi di akhiri tanda titik koma ( ; ).

·        Statemen uses crt;  merupakan statemen yang harus disertakan apabila ingin menambahkan perintah clrscr yang ditempatkan setelah begin.

·         Deklarasi :

Variabel Vs dan R digunakan untuk mendeklarasikan nilai integer (angka) pada keluaran/output. Variabel Vak dan Vout digunakan untuk mendeklarasikan nilai real pada keluaran/output.

·         Begin untuk memulai program.

·         Disisipkan perintah clrscr dibawah perintah begin agar saat dijalankan, program menghasilkan output yang diinputkan pada program setiap dijalankan atau menghapus layar lalu menampilkan program yang jalan saat itu.

·         Write(‘Masukkan Nilai Vs : ’); readln(vs);

Statemen Write untuk menampilkan variabel ‘Masukkan Nilai Vs’ pada layar, disertakan tanda petik ( ‘ ‘ ) khusus karakter/kalimat pada awal dan akhir nilai yang ingin ditampilkan dalam output.

Statemen Readln untuk memasukkan data perbaris. Program dideskripsikan dengan mengisi nilai vs menjadi (‘Masukkan Nilai Vs :’). Kemudian dengan statement write nilai vs dipanggil kembali agar dapat ditampilkan pada output.

·         Vak : = vs - (0*r);

Vout : = vs - 0,7;

Variabel Vak untuk mengoperasikan rumus vs – (0 x r) dan Vout untuk mengoperasikan rumus vs – 0,7.

·         Writeln(‘Nilai Vs adalah = “,vs);

Writeln dimaksudkan untuk menampilkan output berbaris. Yaitu output-an berupa hasil dari program perulangan  diatas, disertakan dengan deklarasi variabel vs yang bertipe data integer.

·         Diakhiri statemen Readln, kemudian end disertai tanda titik ( . ) untuk mengakhiri program Pascal. 

                                                                  Gambar Rangkaian Dioda

Pada gambar rangkaian dioda saya menggunakan sumber tegangan Vs = 10 Volt, R = 100 Ω dan dioda bahan silicon. Program di atas terdapat rumus untuk mencari Vak (tegangan pada anoda dan katoda) dan rumus untuk mencari tegangan output (Vout). Vak merupakan rumus untuk menghitung tegangan pada dioda jika tegangannya diatas 0,7 V maka dioda tersebut aktif. 

Sesaat setelah program di run akan muncul seperti tampilan diatas, lalu akan diminta memasukkan nilai Vs dan R setelah di enter akan muncul hasil Vak yaitu 10 Volt maka kondisi dioda ON, dan menghasilkan tegangan output (Vout) sebesar 9,3 Volt.