This is default featured post 1 title

ukhuwah

This is default featured post 2 title

pray and hope to Allah

This is default featured post 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured post 4 title

:)

This is default featured post 5 title

Allah

Tampilkan postingan dengan label kuliah. Tampilkan semua postingan
Tampilkan postingan dengan label kuliah. Tampilkan semua postingan

Rabu, 05 Desember 2012

Perbedaan Proses ERP dan EDI





ERP
ERP (Enterprise Resource Planning) adalah system terpadu berbasis computer yang digunakan untuk mengelola sumber daya internal dan eksternal perusahaan. ERP mampu menghitung berbagai permintaan sumber daya yang diperlukan, menjadwal produksi, mengelola perubahan yang terjadi pada konfigurasi produk, memungkinkan perubahan produk yang terencana untuk masa mendatang, dan memantau proses di lantai produksi. Selain itu ERP juga menyediakan interface untuk entry order, penerimaan uang, pengadaan barang, dan fungsi pengeluaran uang yang disertai dengan kemampuan pelaporan majerial dan keuangan.
Tujuan system ERP adalah untuk mengkoordinasikan bisnis organisasi secara keseluruhan. ERP merupakan software yang ada dalam organisasi/perusahaan untuk:
·         Otomatisasi dan integrasi banyak proses bisnis
·         Membagi database yang umum dan praktek bisnis melalui enterprise
·         Menghasilkan informasi yang real-time
·         Memungkinkan perpaduan proses transaksi dan kegiatan perencanaan
KELEBIHAN ERP
ü  Integrasi antara area fungsional yang berbeda untuk meyakinkan komunikasi, produktifitas dan efisiensi yang tepat.
ü  Rancangan Perekayasaan
ü  Pelacakan pemesanan dari penerimaan sampai fulfillment
ü  Mengatur saling ketergantungan dari proses penagihan material yang kompleks
ü  Pelacakan 3 cara yang bersesuaian antara pemesanan pembelian, penerimaan inventori, dan pembiayaan
ü  Akuntasi untuk keseluruhan tugas: melacak pemasukan, biaya dan keuntungan pada level inti
KELEMAHAN ERP
ü  Terbatasnya kustomisasi dari perangkat lunak ERP
ü  Sistem ERP sangat mahal
ü  Perekayasaan kembali proses bisnis untuk menyesuaikan dengan standar industri yang telah dideskripsikan oleh sistem ERP dapat menyebabkan hilangnya keuntungan kompetitif
ü  ERP sering terlihat terlalu sulit untuk beradaptasi dengan alur kerja dan proses bisnis tertentu dalam beberapa organisasi
ü  Sistem dapat terlalu kompleks jika dibandingkan dengan kebutuhan dari pelanggan
ü  Data dalam sistem ERP berada dalam satu tempat, contohnya : pelanggan, data keuangan. Hal ini  dapat meningkatkan resiko kehilangan informasi sensitif, jika terdapat pembobolan sistem keamanan
Beberapa perusahaan Indonesia yang memakai sistem ERP:
§  PAL Indonesia
§  Petrokimia Gresik
§  Astra Internasional Tbk.
§  Semen Gresik Tbk.
§  Pertamina


Jumat, 28 September 2012

kelebihan dan kekurangan model Sistem Informasi




Sistem Informasi (SI) – atau lanskap aplikasi - adalah kombinasi dari teknologi informasi  dan aktivitas orang yang menggunakan teknologi itu untuk mendukung operasi dan manajemen. Dalam arti yang sangat luas, istilah sistem informasi yang sering digunakan merujuk kepada interaksi antara orang, proses algoritmik, data, dan teknologi. Dalam pengertian ini, istilah ini digunakan untuk merujuk tidak hanya pada penggunaan organisasi teknologi informasi dan komunikasi  (TIK), tetapi juga untuk cara di mana orang berinteraksi dengan teknologi ini dalam mendukung proses bisnis.

Ada yang membuat perbedaan yang jelas antara sistem informasi, dan komputer sistem TIK, dan proses bisnis. Sistem informasi yang berbeda dari teknologi informasi dalam sistem informasi biasanya terlihat seperti memiliki komponen TIK. Hal ini terutama berkaitan dengan tujuan pemanfaatan teknologi informasi. Sistem informasi juga berbeda dari proses bisnis. Sistem informasi membantu untuk mengontrol kinerja proses bisnis.
TERSENTRALISASI (TERPUSAT)

Salah satu di mana catatan untuk beberapa orang atau unit yang terletak di salah satu lokasi pusat dan umumnya, di bawah kendali orang staf catatan atau dalam kasus besar sistem pengarsipan terpusat, beberapa orang:


KELEBIHAN
KEKURANGAN
-Pendekatan organisasi untuk pengolahan data harus konsisten dengan pendekatan operasional keseluruhan.
-Tidak ada perubahan harus diperkenalkan kecuali manfaat diproyeksikan transisi keduanya besar dan beton.
-Tidak ada struktur organisasi atau   kebijakan akan bekerja kecuali diterima oleh mayoritas orang yang terkena sebagai logis,  memuaskan dan bisa diterapkan.
-Tanggung jawab dengan mudah ditempatkan
-Efektif penggunaan peralatan, perlengkapan dan ruang.
-Semua data terkait disimpan bersama-sama.
-Mengurangi duplikasi.
-Uniform layanan yang diberikan kepada semua pengguna.
-Peningkatan keamanan...

-Kebingungan juga dimana informasi dapat ditemukan, terutama jika anggota staf tidak hadir.
-Dapat menghasilkan dokumentasi "terpecah" - informasi yang berkaitan dengan topik yang sama atau subjek diajukan di banyak tempat.
-Anggota staf individu mungkin tidak tahu bagaimana untuk benar mempertahankan file mereka.
-Kurangnya keseragaman atau konsistensi.
-Rekaman mungkin terlalu jauh dari staf untuk layanan yang memadai.
-Dapat mengakibatkan peningkatan sistem pengarsipan pribadi.
-Membutuhkan penuh-waktu staf.
-Mungkin memerlukan investasi dalam peralatan pengajuan lebih efisien dan / atau otomatisasi.



DESENTRALISASI (TERSEBAR)

Salah satu di mana file berada di seluruh kantor, umumnya pada stasiun kerja individu, dan biasanya dikendalikan oleh orang yang menciptakan dan / atau menerima mereka.

KELEBIHAN
KEKURANGAN
-Catatan terletak dekat staf menciptakan dan menggunakan mereka.

-Tidak memerlukan "extra" ruang yang diperlukan untuk file terpusat.

-Tidak memerlukan penuh-waktu staf.

-Staf merasa lebih nyaman mengetahui bahwa mereka berada dalam kendali pengajuan mereka sendiri dan mengambil..

-Kebingungan juga dimana informasi dapat ditemukan, terutama jika anggota staf tidak hadir.

-Dapat menghasilkan dokumentasi "terpecah" - informasi yang berkaitan dengan topik yang sama atau subjek diajukan di banyak tempat.

-Anggota staf individu mungkin tidak tahu bagaimana untuk benar   mempertahankan file mereka.

-Kurangnya keseragaman atau konsistensi.




Jumat, 13 Juli 2012

Context Free Grammer-BAPK


Context Free Grammer (CFG)/Bahasa Bebas Konteks adalah sebuah tata bahasa dimana tidak terdapat pembatasan pada hasil produksinya,contoh pada aturan produksi: Î± β

Pada program ini menggunakan teknik parsing yang mana berguna untuk menggambarkan simbol-simbol variabel menjadi simbol-simbol terminal setiap simbol variabel akan diturunkan menjadi terminal sampai tidak ada yang belum tergantikan.

Tujuan dari program ini yakni mencari untaian dengan asumsi "Diterima" atau "Tidak diterima".

SOURCE CODE PROGRAM (Delphi)

   unit Unit1;
   interface
   uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons, Grids;
      Label2: TLabel;
      Label3: TLabel;
      Label4: TLabel;
      GroupBox2: TGroupBox;
      Label5: TLabel;
      Edit1: TEdit;
      BitBtn1: TBitBtn;
      GroupBox3: TGroupBox;
      GroupBox4: TGroupBox;
      StringGrid1: TStringGrid;
      BitBtn2: TBitBtn;
      Edit2: TEdit;
      GroupBox5: TGroupBox;
      Label6: TLabel;
      Label7: TLabel;
      Label8: TLabel;
      Label9: TLabel;
      Label11: TLabel;
      Label12: TLabel;
      Label10: TLabel;
      procedure FormCreate(Sender: TObject);
      procedure BitBtn1Click(Sender: TObject);
      procedure BitBtn2Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
   var
    Form1: TForm1;
   implementation
    {$R *.dfm}
      procedure TForm1.FormCreate(Sender: TObject);
          begin
     listbox1.Visible:=false;
     listbox2.Visible:=false;
     edit2.Visible :=false;
     end;
     procedure TForm1.BitBtn1Click(Sender: TObject);
     var untai,isi,temp1,temp2,hasil:string;
     a,b,x,y,n,i,j,k,jml,jawab:integer;
     untai1,untai2:string;
     temp:array [1..100]of string;
     begin
     edit2.Visible :=true;
     untai:=edit1.Text;
     n:=length(untai);
      stringgrid1.ColCount:=n+1;
      stringgrid1.RowCount:=n+1;
      stringgrid1.FixedCols:=1;
      stringgrid1.FixedRows:=1;
         for i:=1 to n do
      begin
      stringgrid1.Cells[i,0]:=untai[i];
         for y"MsoNormal">          for i:=1 to (n-j+1) do
      begin
          for k:=1 to (j-1) do
      begin
      untai1:=StringGrid1.Cells[i,k];
      untai2:=Stringgrid1.cells[i+k,j-k];
      jml:=0;
          for a:=1 to length(untai1) do
          for b:=1 to length(untai2) do
      begin
          inc(jml);
          temp[jml]:=untai1[a]+untai2[b];
      end;
          for a:=1 to jml do
          for b:=0 to listbox2.Count-1 do
       if (temp[a]=listbox2.Items[b]) then
       begin
        if (StringGrid1.Cells[i,j]='') then
            StringGrid1.Cells[i,j]:=listbox1.Items[b]
            else
            begin
            isi:=StringGrid1.Cells[i,j];
            for x:=1 to length(isi) do
            if (listbox1.Items[b]=isi[x]) then
                   temp2:=listbox1.Items[b]
           else
                   temp1:=listbox1.Items[b];
           if temp1<>temp2 then
           StringGrid1.Cells[i,j]:=StringGrid1.Cells[i,j]+temp1;
            end;
          end;
    end;
    if stringgrid1.Cells[i,j]='' then
      begin
        stringgrid1.Cells[i,j]:='@';
      end;
    end;
      end;
     end;
         }
    end;
          hasil:=stringgrid1.Cells[1,n];
    end;
        //until i=n;
    { if ((jawab=0) and (edit2.Text='')) then
    begin
       edit2.Text:=' Tidak Diterima ';
    end;   }
    end;
        procedure TForm1.BitBtn2Click(Sender: TObject);
    begin
       application.Terminate;
  p;    label6.Caption:=' Diterima ';
      end
      else
      begin
        label6.Visible:=true;
        label6.Caption:=' Tidak Diterima ';
      end;
     end;
         }
    end;
          hasil:=stringgrid1.Cells[1,n];
     i:=1;
     for i:=0 to length(hasil) do
    begin
     if (hasil[i]=listbox1.Items[1]) then
    begin
      edit2.Text:=' Diterima ';
    end;   }
    end;
        procedure TForm1.BitBtn2Click(Sender: TObject);
    begin
       application.Terminate;
  sp;    //inc(i);
    end;
        //until i=n;
    { if ((jawab=0) and (edit2.Text='')) then
    begin
       edit2.Text:=' Tidak Diterima ';
    end;   }
    end;
        procedure TForm1.BitBtn2Click(Sender: TObject);
    begin
       application.Terminate;
    end;
    end.

Twitter Delicious Facebook Digg Stumbleupon Favorites More