Senin, 20 Juni 2016

RANGKAIAN ELEKTRONIKA KOMUNIKASI DITALA SERI (PROSEDUR PASCAL)

Bismillah...
Aplikasi yang saya buat kali ini yaitu masih dengan pascal dengan perhitungan rangkaian elektronika komunikasi yang ditala seri, disini saya membuat aplikasi yang mana aplikasi tersebut hanya tinggal memasukkan nilai L, nilai C dan r saja, dimana L adalah Induktansi dalam rangkaian, C adalah kapasitansi dalam rangkaian dan r adalah hambatan dalam rangkaian. Nah disini ada 2 pilihan untuk perhitungan, yang Pilihan 1 untuk menghitung nilai Frekuensi resonansi dan Pilihan 2 yaitu untuk menghitung nilai Faktor Kualitas, dan masing2 input tersebut akan diolah sebagai procedure, yang nantinya akan menghasilkan 2 Procedure output yaitu Fr = Frekuensi resonansi dan Qs = Faktor Kualitas, yang dua-duanya tertala Seri.

dibawah ini merupakan bentuk flowchart-nya :


Listing Programnya :

program Menghitung_Rangkaian_Elektronika_Komunikasi_Ditala_Seri;
uses crt;

var
Qs, L, Fr, C, r, r_Qs,r_Fr, ret: real;
pilihan1: string;

procedure funct_Fr(f_L, f_C: real; var result: real);
var
   Fr : real;
begin
   Fr := (1) / ((sqrt (f_C * f_L)) * 6.28) ;

   result := Fr;
end;

procedure funct_Qs(f_L, f_C, f_r: real; var result: real);
var
   Qs : real;
begin
   Qs := (1 / f_r) * (sqrt ( f_L / f_C));

   result := Qs;
end;

begin
clrscr;
writeln(' PROGRAM RANGKAIAN ELEKTRONIKA KOMUNIKASI DITALA SERI ');
writeln(' ');
writeln(' ');
writeln('masukkan pilihan :');
writeln('[1] Menghitung nilai Frekuensi Resonansi Fr');
writeln('[2] Menghitung nilai Faktor Kualitas Qs');
readln(pilihan1);
writeln;

if (pilihan1 = '1') then
begin
   writeln('masukan nilai induktansi dan Kapasitansi');
   writeln('Program ini untuk perhitungan mengenai Frekuensi Resonansi Pada Rangkaian Elektronika Komunikasi Ditala Seri');
   writeln;
   write('masukan nilai induktansi:');readln(L);
   write('masukan nilai Kapasitansi:');readln(C);
   funct_Fr(L, C, Fr);
   write('hasil dari Fr:''=',Fr);
   readln;
end
else if (pilihan1 = '2') then
begin
   writeln('masukan nilai Hambatan dalam, Induktansi, dan Kapasitansi');
   writeln('Program ini untuk Perhitungan Mengenai Faktor Qualitas Pada Rangkaian Elektronika Komunikasi Ditala Seri');
   writeln;
   writeln('masukan nilai Hambatan Dalam :');readln(r);
   writeln('masukan nilai Induktansi :');readln(L);
   writeln('masukan nilai Kapasitansi :');readln(C);
   funct_Qs(r, C, L, Qs);
   writeln;
   write('hasil dari Qs:''=',Qs);
   readln;
end
else
   begin
      writeln('salah input');
   end;

readln;

end.


Dan ini Contoh Program antarmuka yg sudah jadi :



Related Posts:

  • IBM PC dan Family-nyaIBM PC IBM (International Business Machines) merupakan sebuah perusahaan hardware yang mengembangkan software – software yang sudah ada seperti UNIX dan WINDOWS. Oleh karena itu IBM sendiri merupakan sebuah perusahaan bukan s… Read More
  • Arsitektur Set InstruksiSet Instruksi (bahasa Inggris: Instruction Set, atau Instruction Set Architecture (ISA)) didefinisikan sebagai suatu aspek dalam arsitektur komputer yang dapat dilihat oleh para pemrogram. Secara umum, ISA ini mencakup jenis … Read More
  • CPU (CENTRAL PROCESSING UNIT)SYSTEM BUS System bus atau bus sistem, dalam arsitektur komputer merujuk pada bus yang digunakan oleh sistem komputer untuk menghubungkan semua komponennya dalam menjalankan tugasnya. Sebuah bus adalah sebutan untuk jalur di … Read More
  • Pipelining dan RISC ( Reduced Instruction Set Computer)1. Reduced Instruction Set Computers (RISC)     RISC adalah komputasi kumpulan instruksi yang disederhanakan. RISC merupakan sebuah arsitektur komputer atau arsitektur komputasi modern dengan instruksi-instruk… Read More
  • Unit I/0 Pada KomputerUNIT INPUT/OUTPUT       I/O adalah suatu mekanisme pengiriman data secara bertahap dan terus menerus melalui suatu aliran data dari proses ke peranti (begitu pula sebaliknya). Fungsi I/O pada dasarnya ada… Read More

0 komentar:

Posting Komentar