Senin, 15 Juni 2015

RESUME JURNAL JARINIK

ANALISIS QUALITY OF SERVICE (QOS) PADA JARINGAN INTERNET (STUDI KASUS : FAKULTAS KEDOKTERAN UNIVERSITAS TANJUNGPURA)

1Wahyu Patrya Sasmita, 2Novi Safriadi,ST.,MT., 3M.Azhar Irwansyah,ST.,MT.
1,2,3Prodi Teknik Informatika Fakultas Teknik Universitas Tanjungpura, Pontianak

1wahyu.mv@gmail.com, 2bangnops@gmail.com, 3irwansyah.azhar@gmail.com

Purpose

1. To analyze and determine the quality of the Internet network, particularly on traffic measurement analysis QM ETE Business Critical or Internet network at the Faculty of Medicine, University of Tanjungpura.

2. To determine the factors that affect the quality of the Internet network services, so as to provide recommendations to the network service with the improvement and development of systems and network infrastructure.



Research result

Packet loss parameter is tested based on the average results of observations using the command prompt. Parameter Delay, Jitter and Throughput tested based on the average results of observations using wireshark application. MOS parameters tested based on the average results of observations using google chrome browser application that refers to the site www.pingtest.net.
Table 6.Rata average Hotspot_FK SSID QoS QoS Parameter No. Average Category
Packet loss 1 3 Good
2 Delay 4 S.Bagus
3 Jitter 1.67 Ugly
4 Throughput 1 Ugly
5 MOS 2 Medium
An average of 2:33 Average

Speed ​​Upload and Download Speed ​​is tested based on the average results of observations using google chrome browser application that refers to the site speedtest.biznetworks.com
Table 8.Rata average download and upload No SSID Dwnld
(Kbps) Upld
(Kbps)
1 Hotspot_FK 252.53 99.19
2 Hotspot_FK2 871.71 372.55

bandwidth obtained is a remnant of the previous user usage amount. No wonder the internet network traffic when the user solid regular user prompted to reload the page browser, even up to failed login.


Conclusion

1. Measurement of QoS parameters that have been done on the SSID Hotspot_FK obtained values ​​of 2.33 with category Enough, and SSID Hotspot_FK2 2:53 with the value obtained in the standard category Enough TIPHON, thus it can be concluded that the internet network Tanjungpura University School of Medicine belong to the standard that was not satisfactory based on the standard of TIPHON (Jurnak Fatoni, Joesman 2008) with a rating of <95%.
2. Some things that affect the QoS at the Faculty of Medicine, University of Tanjungpura attenuation, distortion and noise such as a lack of bandwidth and bandwidth allocation management, transmission medium that does not fit with the infrastructure and weather factors are of course inevitable



Minggu, 15 Desember 2013

MANFAAT TURBO PASCAL


kali ini saya akan sedikit memeberikan gambaran dari Manfaat Belajar Turbo Pascal .dalam pembelajaran kita seringkali tidak menyadari Manfaat dari belajar turbo pascal ,kita hanya memakai Turbo Pascalnya saja . sebelum ke manfaat belajar turbo pascal kita bahas dulu sedikit tentang turbo pascal itu sendiri .
Bahasa Pascal berorientasi data, programmer diberi kemampuan untuk mendefenisikan tipe data sendiri. Dengan kebebasan ini pengecekan tipe data dilakukan secara ketat, yang menjamin bahwa tipe data yang didefenisikan tidak membingungkan. Pascal ditujukan sebagai bahasa pembelajaran, dan telah diterima secara luas.



contohnya 

program latihan;
uses wincrt;
begin
writeln(‘Hai anda’);
end;


nah sekaran kita ke manfaat belajar Turbo Pascal dalam bentuk gambaran dari manfaat Turbo Pascal :

1. Kecepatan (speed)
Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)

2. Tipe data yang kuat
Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.

3. Ukuran
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.

4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.

4. Produktivitas
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.
Dan satu hal yang jelas bahasa turbo pascal for windows atau visual delphi adalah turunan dari turbo pascal. Dan bila struktur dari program pascal sudah kita pahami, maka untuk memahami pascal for windows ataup visual Delphi tidaklah sulit lagi. Orang bijak bilang ‘belajar dari dasar merupakan modal yang paling besar’. Untuk itulah Pascal hadir bagi kita.angannya mudah dipahami.

Rabu, 04 Desember 2013

MAKALAH PROGRAM DATA PEGAWAI DENGAN MENGGUNAKAN TURBO PASCAL (KELOMPOK 3)

Program PegawaiMemakai Procedure
Program DataPegawai;
Uses Wincrt;
Var
nama :array[1..100]of string;
kerja:array [1..100]of char;
nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;
a,n,gaji:longint;  
ulang,kembali:char;
proceduregaris;
begin
writeln('================================================================================');
end;
procedurenamapegawai;
begin
If (nip[n]) = 1 then
begin
nama[n] := 'YosepDwiAnjani';
Writeln('Nama        : ', (nama[n]));
end
else if (nip[n]) = 2 then
begin
nama[n] := 'RisalAgustian';
Writeln('Nama        : ', (nama[n]));
end
else if (nip[n]) = 3 then
begin
nama[n] := 'IdhamHanif N';
Writeln('Nama        : ', (nama[n]));
end
else
begin
write('Nama        : ');readln(nama[n]);
end;
end;
proceduregolongan;
begin
  If (gol[n]) = 1 then
Gapok[n]:= 1000000
else if (gol[n]) = 2 then
Gapok[n]:=1500000
else if (gol[n]) = 3 then
Gapok[n]:=2000000
     Else
begin
Gapok[n]:=0;
writeln('golongan yang andamasukantidakada');
readkey;
donewincrt;
end;
end;
procedurelembur;
begin
ifupcase(kerja[n]) ='Y' then
begin
Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);
if (jam[n]) >20 then
Insentif[n]:=(jam[n])*20000
else
if (jam[n])>=10 then
insentif[n] :=(jam[n])*10000
else
Insentif[n]:=(jam[n])*5000;   
Writeln('Insentif    : Rp. ',(insentif[n]));
Gaber[n]:=Gapok[n]+Insentif[n] ;
end
else
begin
gaber[n]:=Gapok[n];
jam[n]:=0;
insentif[n]:=0;
end;
end;
procedurelaporan;
begin
clrscr;
writeln('Laporan Data PegawaidanGajiPegawai ');
garis;
writeln('|    |     |                |   |          |          |         |           | ');
writeln('| No | NIP |  NamaPegawai  |Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');
writeln('|    |     |                |   |          |          |         |           | ');
garis;
writeln;
for a:=1 to n do
begin
gotoxy(1,a+7);write('|');
gotoxy(3,a+7);write(a);
gotoxy(6,a+7);write('|');
gotoxy(8,a+7);write(nip[a]);
gotoxy(12,a+7);write('|');
gotoxy(13,a+7);write(nama[a]);
gotoxy(29,a+7);write('|');
gotoxy(31,a+7);write(gol[a]);
gotoxy(33,a+7);write('|');
gotoxy(34,a+7);write(gapok[a]);
gotoxy(44,a+7);write('|');
gotoxy(45,a+7);write(jam[a]);
gotoxy(55,a+7);write('|');
gotoxy(56,a+7);write(insentif[a]);
gotoxy(65,a+7);write('|');
gotoxy(68,a+7);write(gaber[a]);
gotoxy(77,a+7);write('|');
gaji:=gaji+(gaber[a]);
end;
writeln;
writeln;
writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);
readln;
end;
procedureutama;
begin
n:=0;
repeat
n:=n+1;
Clrscr;
gotoxy(28,2);Writeln('SelamatDatang');
gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');
garis;
Writeln;
Write('NIP : ');Readln(nip[n]);
namapegawai;
Write('Golongan  (1,2,3): ');Readln(gol[n]);
golongan;
writeln('GajiPokok  : Rp. ', Gapok[n]);
write('Ada KerjaTambahan  y/t?  ');readln(kerja[n]);
lembur;
Writeln('GajiBersih : Rp. ', (Gaber[n]));
write('Tambah data Pegawai (y/t): ');readln(ulang);
untilupcase(Ulang) <> 'Y';
end;
begin
kembali:='Y'  ;
whileupcase(kembali) = 'Y' do
begin
gaji:=0;
utama;
laporan;
write('inginulangiAplikasi(y/t) ? ');readln(kembali);
ifupcase(kembali)='T' then
donewincrt;
end;
end.
Program PegawaiMemakaiIf
Program DataPegawai;
Uses Wincrt;
Var
nama :array[1..100]of string;
kerja:array [1..100]of char;
nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;
a,n,gaji:longint;  
ulang,kembali:char;
proceduregaris;
begin
writeln('================================================================================');
end;
begin
kembali:='Y'  ;
whileupcase(kembali) = 'Y' do
begin
gaji:=0;
n:=0;
repeat
n:=n+1;
Clrscr;
gotoxy(28,2);Writeln('SelamatDatang');
gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');
garis;
Writeln;
Write('NIP : ');Readln(nip[n]);
           If (nip[n]) = 1 then
begin
nama[n] := 'YosepDwiAnjani';
Writeln('Nama        : ', (nama[n]));
end
else if (nip[n]) = 2 then
begin
nama[n] := 'RisalAgustian';
Writeln('Nama        : ', (nama[n]));
end
else if (nip[n]) = 3 then
begin
nama[n] := 'IdhamHanif N';
Writeln('Nama        : ', (nama[n]));
end
else
begin
write('Nama        : ');readln(nama[n]);
end;
Write('Golongan  (1,2,3): ');Readln(gol[n]);
       If (gol[n]) = 1 then
Gapok[n]:= 1000000
else if (gol[n]) = 2 then
Gapok[n]:=1500000
else if (gol[n]) = 3 then
Gapok[n]:=2000000
     Else
begin
Gapok[n]:=0;
writeln('golongan yang andamasukanTidakada');
readkey;
donewincrt;
end;
writeln('GajiPokok  : Rp. ', Gapok[n]);
write('Ada KerjaTambahan  y/t?  ');readln(kerja[n]);
ifupcase(kerja[n]) ='Y' then
begin
Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);
if (jam[n]) >20 then
Insentif[n]:=(jam[n])*20000
else
if (jam[n]) >=10 then
insentif[n] :=(jam[n])*10000
else
Insentif[n]:=(jam[n])*5000;   
Writeln('Insentif    : Rp. ',(insentif[n]));
Gaber[n]:=Gapok[n]+Insentif[n] ;
end
else
begin
gaber[n]:=Gapok[n];
jam[n]:=0;
insentif[n]:=0;
end;
Writeln('GajiBersih : Rp. ', (Gaber[n]));
write('Tambah data Pegawai (y/t): ');readln(ulang);
untilupcase(Ulang) <> 'Y';
clrscr;
writeln('Laporan Data PegawaidanGajiPegawai ');
garis;
writeln('|    |     |                |   |          |          |         |           | ');
writeln('| No | NIP |  NamaPegawai  |Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');
writeln('|    |     |                |   |          |          |         |           | ');
garis;
writeln;
for a:=1 to n do
begin
gotoxy(1,a+7);write('|');
gotoxy(3,a+7);write(a);
gotoxy(6,a+7);write('|');
gotoxy(8,a+7);write(nip[a]);
gotoxy(12,a+7);write('|');
gotoxy(13,a+7);write(nama[a]);
gotoxy(29,a+7);write('|');
gotoxy(31,a+7);write(gol[a]);
gotoxy(33,a+7);write('|');
gotoxy(34,a+7);write(gapok[a]);
gotoxy(44,a+7);write('|');
gotoxy(45,a+7);write(jam[a]);
gotoxy(55,a+7);write('|');
gotoxy(56,a+7);write(insentif[a]);
gotoxy(65,a+7);write('|');
gotoxy(68,a+7);write(gaber[a]);
gotoxy(77,a+7);write('|');
gaji:=gaji+(gaber[a]);
end;
writeln;
writeln;
writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);
readln;
write('inginulangiAplikasi(y/t) ? ');readln(kembali);
ifupcase(kembali)='T' then
donewincrt;
end;
end.



Flowchart Memakai If
  




Flowchart Memakai Procedure
 








SCREEN PROGRAM