INDEKS MODULASI DAN BANDWITCH
Indeks Modulasi
Pada
modulasi frekuensi sinyal pembawa diubah-ubah sehingga besarnya
sebanding dengan besarnya amplitudo sinyal pemodulasi. Semakin besar
amplitudo sinyal pemodulasi, maka semakin besar pula frekuensi sinyal
termodulasi FM. Besar selisih antara frekuensi sinyal termodulasi FM
pada suatu saat dengan frekuensi sinyal pembawa disebut dengan deviasi.
Deviasi frekuensi maksimum dedefi isikan sebagai selisih antara
frekuensi sinyal termodulasi tertinggi dengan terendahnya.
Indeks modulasi FM (mf) merupakan perbandingan antara deviasi frekuensi dengan frekuensi sinyal pemodulasi
mf = δ / fm
keterangan :
δ : deviasi frekuensi maksimum
fm : frekuensi maksimum sinyal pemodulasi
mf : indeks modulasi FM
E. Lebar-bidang Untuk FM
Lebar-bidang yang dibutuhkan untuk mentransmisikan sinyal FM adalah :
BW = 2 ( n +1) FM
keterangan :
BW : Bandwitch
n : nilai tertinggi komponen
FM : frekuensi maksimum sinyal pemodulasi
LISTING PROGRAM
Program menu_pilihan;
Uses crt;
Var
Pil:integer;
Jawab:char;
Label
P1,p2,p3;
Procedure mf;
var
nama:string[32];
dev,fm:real;
begin
writeln(‘Program
Hitung Indeks Modulasi’);
writeln(‘-------------------------------------------‘);
writeln;
writeln(‘masukan
nilai devisiasi = ‘); readln(dev);
writeln(‘masukan
nilai frekuensi pemodulasi =’); readln(fm);
writeln;
writeln(‘indeks
modulasi adalah : ‘,dev/fm);
end;
procedure BW;
var
n,fm:integer;
begin
writeln(‘program menghitung bandwitch’);
writeln(‘-------------------------------------------‘);
writeln;
writeln(‘masukan nilai tertinggi komponen =’); readln(n)
writeln(‘masukan
nilai frekuensi pemodulasi =’); readln(fm);
writeln;
writeln(Bandwitch
adalah : ‘,2*(n+1)*FM);
end;
begin
clrscr ;
p1:
writeln(‘MENU
PILIHAN’);
writeln(‘--------------------‘);
writeln(‘1. Menghitung Indeks Pemodulasi ‘);
writeln(‘2. Menghitung Bandwitch’);
writeln(‘3. Keluar’);
write(‘Masukan Pilihan anda [1/2/3] : ‘ ); readln(pil);
if (pil=1) then
begin
CLRSCR;
P2:
Mf;
Write(‘masih mau ? [y/n] : ‘); readln(jawab);
If (jawab=’Y) or (jawab=’y’) then
Begin
Goto p2;
End
Else
Begin
Goto p1;
End;
End
Else if (pil=2) then
Begin
Clrscr;
P3:
BW;
Write(‘masih mau ? [y/n] : ‘); readln(jawab);
If (jawab=’Y') or (jawab=’y’) then
Begin
Goto p3;
End
Else
Begin
Goto p1;
End;
End
Else
Begin
Exit;
End;
Readln;
End.
Flowchart
jalankan progrnam pilih menu pilihan
apabila sudah memilih pilihan kita input data yang akan di input
setelah itu tekan Y untuk mengulangi perhitungan baru, tekan N untuk kembali kemenu pilihan
Output
0 Comments:
Post a Comment
Subscribe to Post Comments [Atom]
<< Home