Menghitung Waktu Pengisian dan Pengosongan Kapasitor Menggunakan Free Pascal (procedure)

Posting kali ini penulis akan menjabarkan output program menghitung waktu pengisian dan pengosongan kapasitor menggunakan Free Pascal, beserta source code nya. Program ini menggunakan function dan menu pada pascal.

Flowchart 

Tampilan output dari program

Tampilan menu pada program

; program waktukapasitor; uses crt; var pil:string; R,C,pengisian_res,pengosongan_res:real; procedure pengisian(R,C:real; var result:real); begin result:=(5*R*C); end; procedure pengosongan(R,C:real; var result:real); begin result:=(R*C*5); end; begin clrscr; writeln('Gunakan e untuk x10, jika melebihi satuan Ohm/Farad'); writeln; write('Masukkan Nilai R: '); readln(R); write('Masukkan Nilai C: '); readln(C); writeln; write('Hitung Waktu Pada: '); writeln('A. Pengisian'); writeln(' B. Pengosongan'); writeln; write('A/B? '); readln(pil); writeln; if pil='a' then begin clrscr; write('Waktu Pengisian Kapasitor adalah ',pengisian_res:3:4); write(' detik'); readln; end else if pil='b' then begin clrscr; write('Waktu Pengosongan Kapasitor adalah ',pengosongan_res:3:4); write(' detik'); readln; end else begin clrscr; writeln('Mohon Pilih Sesuai Pilihan'); readln; end end. .

Menghitung Waktu Pengisian dan Pengosongan Kapasitor Menggunakan Free Pascal

Pada posting kali ini penulis akan memperlihatkan output program menghitung waktu pengisian dan pengosongan kapasitor menggunakan Free Pascal, beserta source code nya. Program ini menggunakan function dan menu pada pascal.

Flowchart Program

Tampilan dari program

Source Code Program

program waktukapasitor; uses crt; function pengisian(R,C:real):real; begin pengisian:=(5*R*C); end; function pengosongan(R,C:real):real; begin pengosongan:=(R*C*5); end; var pil:string; R,C:real; begin clrscr; writeln('Gunakan e untuk x10, jika melebihi satuan Ohm/Farad'); writeln; write('Masukkan Nilai R: '); readln(R); write('Masukkan Nilai C: '); readln(C); writeln; write('Hitung Waktu Pada: '); writeln('A. Pengisian'); writeln(' B. Pengosongan'); writeln; write('A/B? '); readln(pil); writeln; if pil='a' then begin clrscr; write('Waktu Pengisian Kapasitor adalah ',pengisian(R,C):3:4); write(' detik'); readln; end else if pil='b' then begin clrscr; write('Waktu Pengosongan Kapasitor adalah ',pengosongan(R,C):3:4); write(' detik'); readln; end else begin clrscr; writeln('Mohon Pilih Sesuai Pilihan'); readln; end end.

Menghitung Voltase Kapasitor Pada Waktu T Saat Pengisian/Pengosongan Pada Rangkaian RC

       Pada post ini penulis akan menjabarkan source code dan tampilan dari program "Menghitung Voltase Kapasitor Pada Waktu T saat Pengisian/Pengosongan Pada Rangkaian RC". Program ini dibuat dengan menggunakan Free Pascal 3.0.0.

Tampilan dari program:

Layar Awal

Menghitung Waktu Pengisian dan Pengosongan Kapasitor Pada Suatu Rangkaian RC dengan Visual Basic

          

       Pada kesempatan kali ini penulis akan menjabarkan source code dan tampilan dari program "Menghitung Waktu Pengisian dan Pengosongan Kapasitor Pada Suatu Rangkaian RC". Program ini dibuat dengan menggunakan Visual Basic 6.0 Enterprise Edition.

Proposal Bisnis

Nama Perusahaan        : PT. Sol Licin

Alamat                           : Jl. Jampang no.96 Jelambar, Jakarta Utara

Telepon                          : (021) 755-215

Ringkasan Eksekutif

Perusahaan kami adalah perusahaan rintisan yang bergerak dalam pembuatan dan penjualan sendal tertutup dan jepit kreasi. Target kami 3 tahun ke depan adalah membuat sendal dengan se-kreatif mungkin dan se-unik mungkin, dan mengekspornya ke luar negeri.

Polar, Unipolar dan Bipolar Encoding

Polar Line Coding

Kode ini menggunakan dua buah level tegangan untuk non-zero guna merepresentasikan kedua level data, yaitu satu positip dan satu negatip. Permasalahan yang muncul adalah adanya tegangan DC pada jalur komunikasi, untuk pengkodean polar terdapat 4 macam jenis kode polar seperti ditunjukan pada gambar berikut:

Quadrature Amplitude Modulation

Modulasi digital Quadrature Amplitude Modulation (QAM)) adalah kombinasi dari modulasi digital ASK dengan PSK sehingga perbedaan antara bit, dibit, tri bit sangat nampak dengan jelas karena bit data biner dinyatakan dengan perbedaan amplitudo dan fase secara sekaligus. Modulasi QAM untuk menyatakan n-bit data biner ke dalam sebuah sinyal QAM maka bit rate yang diperoleh adalah n kali baud ratenya, dan baud ratenya adalah 2^n.