Tutorial Shared Data

Read More

Laporan hasil Pratikum Shared Data

Laporan Hasil Pratikum

Nama	Polikarpus Aditya
Nim	14240007
Mata Kuliah	Pratikum Utility
Kelas	MI 1
Prodi	Manajemen Informatika
Modul ke	7
Judul Percobaan
“Share Data”
Hasil Percobaan
Setelah saya melakukan percobaan pada Share Data data hasilnyapun berhasil
Analisis Percobaan
Syarat Share data / dokumen 1.      Komputer harus terhubung Dengan menggunkan : a.       Link data à port Lpt 1 to Lpt 1 (printer) b.      Jaringan kabel à Rj 45 to Rj 45 c.       Jaringan wireless à point to point d.      Jaringan bluetooth à bluetooth to bluetooth e.       Jaringan infrared à infrared to infrared f.       Jaringan radio link à Mobil g.      USB to USB à universal 1.      Printer 2.      Data Flash
Kesimpulan Percobaan
Dengan adanya Share dapat mempermudah komunikasi ( data dokumen / master softwere ) namun jika dokumen yang rahasia / merupakan privasi user jika ikut tershare dapat terbongkar trahasianya / dapat diketahui orang lain.

Read More

Laporan Pratikum Recovery Data

Laporan Hasil Pratikum

Nama	Polokarpus Aditya
Nim	14240007
Mata Kuliah	Pratikum Utility
Kelas	MI 1
Prodi	Manajemen Informatika
Modul ke	6
Judul Percobaan
“Rocovery Data”
Hasil Percobaan
Setelah saya melakukan percobaan pada recovery data hasilnyapun berhasil dan data – data yang terfomat bisa kembali walaupun tidak seratus persen
Analisis Percobaan
Langka recovery data à  download aplikasi recovery dataà di instal di komputeràjalan kan aplikasi è  pilih drive recovery è Kemudian pilih hardisk mana yang akan di recovery datanya è Pilih advence recovery  (tunggu sampai proses selesai ) è Setelah selesai pilih semua data yang akan di recovery (tapi data tidak langsung di recovery ke disk yang sama harus ke disk yang lain, kemudian kita copy ke disk yang kita recovery) è Pilih recovery à register à masukan username dan serial key è Pilih tempat untuk menyimpan hasil recovery è Klik ok tunggu sampai proses selesai è Buka tempat penyimpanan data yang kita recovery kemudian kita copy ke disk yang terformat tadi.
Kesimpulan Percobaan
Dengan adanya recovery data kita dapat  mengembalikan data yang terformat atau terhapus di sebuah disk.

Read More

Contoh Program Array Menggunakan Turbo Pascal

program SIM;
uses wincrt;
var  i ,a, k :integer;
lagi : char;
    bysim, pot,jbyr :real;
    nama, alm,tlp,u,jsim : array[1..50] of string[20];

begin
clrscr;
 writeln(' PROGRAM POIN DAN INSENTIF KARYAWAN ');
 writeln(' PT. MAJU MAKMUR BERSAMA   ');
 writeln('=========================================');
  begin
  k:=0;
   lagi := 'Y';
   while upcase(lagi)='Y' do
    begin
     i:=i+1;
     write('Nama               : '); readln(nama[i]);
     write('Alamat             : '); readln(alm[i]);
     write('Telepone           : '); readln(tlp[i]);
     write('Umur               : '); readln(u[i]);
    write('Jenis SIM          : '); readln(jsim[i]);
    writeln;
 
    if jsim[i] = 'A' then
     bysim := 800000
     else
     if jsim[i] = 'B' then
     bysim := 500000 else
     bysim := 300000;

    if u[i] > '55' then
    pot := 0.20 * bysim else
    pot := 0;

   jbyr:= bysim - pot;
writeln('Biaya SIM            : ',bysim:8:2);
writeln('Potongan             : ',pot:8:2);
writeln('Jumlah Bayar         : ',jbyr:8:2);
  
write('------------------------------------------') ;
writeln;
write('Ada lagi data yang mau di masukan [Y/T] : ');
readln(lagi);
writeln;
end;
end;
begin
       clrscr;
       gotoxy(27,1);writeln('BIRO JASA "SAHABAT"');
       gotoxy(30,2);writeln('PT.MAJU ');
       writeln;
       writeln('==============================================================================');
       writeln('no nama  Alamat Telephone Umur  Jenis SIM  Biaya Sim  Potongan   Jml Bayar');
       writeln('==============================================================================');

       k:=0;
         while k< i do

         begin
         k:=k+1;
           a:=7+i;
           gotoxy(1,a);write(i);
            gotoxy(5,a);write(nama[i]);
             gotoxy(15,a);write(alm[i]);
             gotoxy(20,a);write(tlp[i]);
              gotoxy(33,a);write(u[i]);
             gotoxy(47,a);write(jsim[i]);
            gotoxy(60,a);write(bysim:7:0);
           gotoxy(70,a);write(jbyr:7:0);
           writeln;
         end;
        writeln('-------------------------------------------------------------------------------');
     end;
end.                                   

Read More

Contoh Program Array Menggunakan Turbo Paskal

program Poin;
uses wincrt;
var lagi         : char; a, i, y   : integer;
    bonus,inst,jterima,tot, point :array[1..5] of  real;
    nama,jtran  : array[1..5] of string[20];

begin
clrscr;
 writeln(' PROGRAM POIN DAN INSENTIF KARYAWAN ');
 writeln(' PT.MAJU MAKMUR BERSAMA   ');
 writeln('=========================================');
  begin
  a:=0;
   lagi := 'Y';
   while upcase(lagi)='Y' do
    begin
     i:=i+1;
     write('Nama karyawan    : '); readln(nama[i]);
     write('Jumlah Transaksi : '); readln(jtran[i]);
     write('Jumlah Poin      : '); readln(point[i]);


     if jtran[i] <'40' then
      bonus[i] := 200000  else
      if jtran[i] >='40' then
       bonus[i] := 300000 else
       bonus[i] := 500000;
      if jtran[i] > '50' then
       inst[i] := 5 * bonus[i]
       else
       inst[i] := 3 * bonus[i];
      jterima[i] := bonus[i] + inst[i];

      writeln('Bonus           : ',bonus[i]:8:2);
      writeln('Insentif        : ',inst[i]:8:2);
      writeln('Jumlah Terima   : ',jterima[i]:8:2);
     

write('=============================================') ;
writeln;
write('Ada lagi data yang mau di masukan [Y/T] : ');
readln(lagi);
writeln;
end;
end;
begin
       clrscr;
       gotoxy(27,1);writeln('PROGRAM POIN DAN INSENTIF KARYAWAN');
       gotoxy(30,2);writeln('PT. MAJU MAKMUR BERSAMA ');
       writeln;
       writeln('==============================================================================');
       writeln('no nama karyawan   Jml Tran   Poin     Bonus   Insentif   jumlah Terima');
       writeln('==============================================================================');

       a:=0;
         while a< i do

         begin
         a:=a+1;
           y:=7+i;
           gotoxy(1,y);write(i);
            gotoxy(5,y);write(nama[i]);
             gotoxy(20,y);write(jtran[i]);
             gotoxy(32,y);write(point[i]);
              gotoxy(39,y);write(bonus[i]:7:0);
             gotoxy(50,y);write(inst[i]:7:0);
            gotoxy(60,y);write(jterima[i]:7:0);
           writeln;
         end;
        writeln('-------------------------------------------------------------------------------');
     end;
end.                                   

Read More

Cara Mengukur Kecepatan bandwich Komputer

Langkah – langkah mengukur kecepatan bandwitch

1.      Koneksikan PC/ komputer anda ke internet

2.      Buka Mozila firefox/yang lainya

3.      Browsing ke google speedtest.cbn.net.id

4.      Pilih CBN.net bandwidthspeed test

5.      Klik begin test

6.      Tunggu sampai selesai

Read More