Top Post

Top Post

Terbaru

Tampilkan postingan dengan label Materi Kuliah. Tampilkan semua postingan


MAKALAH

ARTI DAN MAKNA PANCASILA SILA KE -5

 


Kelompok:
1.      Efdi Susilo                               (11111100079)
2.      Agung Prasetyo Wibowo          (11111100080)
3.      Sapto Pandugo                         (11111100091)


PROGRAM STUDI TEKNIK INFORMATIKA
FAKULTAS TEKNIK
UNIVERSITAS PGRI YOGYAKARTA
2013


 KATA PENGANTAR


            Puji syukur ke hadirat Allah SWT, karena atas rahmat serta hidayah-Nya maka Makalah ini dapat terselesaikan. Makalah ini disusun guna melengkapi nilai kompetensi akhir semester.
            Dalam kesempatan ini, perkenanankan penulis menyampaikan terima kasih kepada :
Bpk. Sigit Handoko, M.Hum selaku Pembimbing yang telah memberikan arahan dan seluruh pihak yang telah berperan serta dalam penyusunan Makalah ini
Dalam penyusunan makalah ini tentu masih terdapat banyak kekurangan dan kekeliruan baik dari segi teknik penulisan maupun isi Makalah. Oleh sebab itu kritik dan saran yang positif serta konstruktif sebagai penyempurnaan makalah ini. Terlepas dari semua kekurangan yang ada penulis berharap semoga makalah ini dapat berguna bagi Penulis pribadi maupun para pembaca sekalian.


Yogyakarta, 7 desember 2013
  
    Penulis

Arti dan Makna Sila Kelima Pancasila

Jumat, 06 Desember 2013
Author : dexter Comments : 0
Tag : ,,

unit bakso;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    edt5: TEdit;
    lbl8: TLabel;
    lbl9: TLabel;
    edt6: TEdit;
    edt7: TEdit;
    edt8: TEdit;
    edt9: TEdit;
    edt10: TEdit;
    edt11: TEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    ud1: TUpDown;
    ud2: TUpDown;
    ud3: TUpDown;
    ud4: TUpDown;
    ud5: TUpDown;
    Label1: TLabel;
    Button1: TButton;
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure ud1Click(Sender: TObject; Button: TUDBtnType);
    procedure ud2Click(Sender: TObject; Button: TUDBtnType);
    procedure ud3Click(Sender: TObject; Button: TUDBtnType);
    procedure ud4Click(Sender: TObject; Button: TUDBtnType);
    procedure ud5Click(Sender: TObject; Button: TUDBtnType);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn3Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  k_bakso,k_mi,k_teh,k_jeruk,k_krupuk,
  s_bakso,s_mi,s_teh,s_jeruk,s_krupuk,total:Real;
begin
  k_bakso:=StrToFloat(edt1.Text);
  k_mi:=StrToFloat(edt2.Text);
  k_teh:=StrToFloat(edt3.Text);
  k_jeruk:=StrToFloat(edt4.Text);
  k_krupuk:=StrToFloat(edt5.Text);
  s_bakso:=10000*k_bakso;
  s_mi:=6000*k_mi;
  s_teh:=2000*k_teh;
  s_jeruk:=3000*k_jeruk;
  s_krupuk:=500*k_krupuk;
  total:=s_bakso + s_mi + s_teh + s_jeruk + s_krupuk;

  edt6.Text:=FloatToStr(s_bakso);
  edt7.Text:=FloatToStr(s_mi);
  edt8.Text:=FloatToStr(s_teh);
  edt9.Text:=FloatToStr(s_jeruk);
  edt10.Text:=FloatToStr(s_krupuk);
  edt11.Text:=FloatToStr(total);
end;

procedure TForm1.ud1Click(Sender: TObject; Button: TUDBtnType);
begin
  edt1.Text:=IntToStr(ud1.position);
end;

procedure TForm1.ud2Click(Sender: TObject; Button: TUDBtnType);
begin
  edt2.Text:=IntToStr(ud2.position);
end;

procedure TForm1.ud3Click(Sender: TObject; Button: TUDBtnType);
begin
  edt3.Text:=IntToStr(ud3.position);
end;

procedure TForm1.ud4Click(Sender: TObject; Button: TUDBtnType);
begin
  edt4.Text:=IntToStr(ud4.position);
end;

procedure TForm1.ud5Click(Sender: TObject; Button: TUDBtnType);
begin
  edt5.Text:=IntToStr(ud5.position);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  edt1.Text:='';
  edt2.Text:='';
  edt3.Text:='';
  edt4.Text:='';
  edt5.Text:='';
  edt6.Text:='';
  edt7.Text:='';
  edt8.Text:='';
  edt9.Text:='';
  edt10.Text:='';
  edt11.Text:='';
end;

end.

Membuat Program Kasir Sederhana - Delphi

Minggu, 01 Desember 2013
Author : Efdi Comments : 2
Tag : ,,,,


unit u_nilai;

 interface

 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

 type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 var
  Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Button2Click(Sender: TObject);
begin
  close
end;

 procedure TForm1.Button3Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
end;

 procedure TForm1.Button1Click(Sender: TObject);
var nilai:integer;
    hasil:string;
begin
    nilai:=strtoint(edit1.text);
    if
      nilai<60 then
      hasil:='Tidak Lulus'
    else
      hasil:='Lulus';
    edit2.Text:=hasil;

 end;

 end.

Contoh If Then Else - Delphi

Author : Efdi Comments : 0
Tag : ,,,,

unit kalkulator;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Button7Click(Sender: TObject);
begin
  close
end;

 procedure TForm1.Button6Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit1.SetFocus;
end;

 procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:real;
begin
  a:=StrToFloat(edit1.text);
  b:=StrToFloat(edit2.text);
  c:=a+b;
  edit3.Text:=FloatToStr (c);
end;

 procedure TForm1.Button2Click(Sender: TObject);
var
  a,b,c:real;
begin
  a:=StrToFloat(edit1.text);
  b:=StrToFloat(edit2.text);
  c:=a-b;
  edit3.Text:=FloatToStr (c);
end;

 procedure TForm1.Button3Click(Sender: TObject);
var
  a,b,c:real;
begin
  a:=StrToFloat(edit1.text);
  b:=StrToFloat(edit2.text);
  c:=a*b;
  edit3.Text:=FloatToStr (c);
end;

 procedure TForm1.Button4Click(Sender: TObject);
var
  a,b,c:real;
begin
  a:=StrToFloat(edit1.text);
  b:=StrToFloat(edit2.text);
  c:=a/b;
  edit3.Text:=FloatToStr (c);
end;

 procedure TForm1.Button5Click(Sender: TObject);
var
  a,b,c:integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  c:= a mod b;
  Edit3.Text := IntToStr(c);
end;

 end.

Kalkulator Sederhana - Delphi

Author : Efdi Comments : 0
Tag : ,,,,

unit Ukerucut;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 var
  Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Button1Click(Sender: TObject);
var T,R,S,L,V:real;
begin
  //input
  T:=strtofloat(edit1.text);
  R:=strtofloat(edit2.text);
  S:=strtofloat(edit3.text);
  //proses
  V:=1/3*3.14*2*r*t;
  L:=3.14*R*(R+S);
  //output
  edit4.Text:=floattostr(V);
  edit5.Text:=floattostr(L);
end;

 procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';
end;

 procedure TForm1.Button3Click(Sender: TObject);
begin
 close;
end;

 end.

Menghitung Volume dan Luas Selimut Kerucut - Delphi

Author : Efdi Comments : 0
Tag : ,,,,

unit menghitung_luas_volume_tabung;

 interface

 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

 type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label5: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 var
  Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

 procedure TForm1.Button1Click(Sender: TObject);
var T,R,L,V:real;
begin
  //input
  T:=strtofloat(edit1.text);
  R:=strtofloat(edit2.text);
  //proses
  V:=0.25*3.14*2*r*t;
  L:=2*3.14*R*(R+T);
  //output
  edit3.Text:=floattostr(V);
  edit4.Text:=floattostr(L);
end;

 procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
end;

 end.

Menghitung Luas dan Volume Tabung - Delphi

Author : Efdi Comments : 0
Tag : ,,,

unit luas_persegi_panjang;

 interface

 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

 type
  TForm1 = class(TForm)
    edtLebar: TEdit;
    lbPanjang: TLabel;
    lbLebar: TLabel;
    edtPanjang: TEdit;
    lbLuas: TLabel;
    lbLKeliling: TLabel;
    edtLuas: TEdit;
    edtKeliling: TEdit;
    btnHitung: TButton;
    btnReset: TButton;
    btnClose: TButton;
    Label1: TLabel;
    procedure btnCloseClick(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
    procedure btnHitungClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 var
  Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.btnCloseClick(Sender: TObject);
begin
  close;
end;

 procedure TForm1.btnResetClick(Sender: TObject);
begin
  edtPanjang.Text:='';
  btnReset.Caption:='reset';
  edtLebar.Text:='';
  btnReset.Caption:='reset';
  edtLuas.Text:='';
  btnReset.Caption:='reset';
  edtKeliling.Text:='';
  btnReset.Caption:='reset';
end;

 procedure TForm1.btnHitungClick(Sender: TObject);
Var
  nPanjang : Integer;
  nLebar : Integer;
  nLuas : Integer ;
  nKeliling : Integer ;
begin
  nPanjang := StrToInt(edtPanjang.text);
  nLebar := StrToInt(edtLebar.Text);
  nLuas := nPanjang * nLebar;
  nKeliling := (nPanjang + nLebar) *2;
  edtLuas.text := IntToStr(nLuas);
  edtKeliling.text := IntToStr(nKeliling);
end;

 end.

Menghitung Luas Persegi Panjang - Delphi

Author : Efdi Comments : 0
Tag : ,,,
Pengantarmukaan peripheral komputer merupakan suatu istilah secara harfiah, berarti penghubung antar komputer baik dengan komputer atau dengan perangkat lain. Selanjutnya istilah pengantarmukaan peripheral komputer lebih kita kenal dengan istilah interface  komputer atau lebih di kenal dengan interfacing. Interfacing tidak lain adalah perangkat yang diimplementasikan dari rangkaian elektronika. 

Oleh karena itu, interfacing melibatkan banyak teknologi yang diliputi oleh disiplin teknik elektrik dan komputer rancang-bangun. Karena teknologi ini pada umumnya dipisahkan ke dalam subdisciplines dengan area penekanan mereka sendiri, pengintegrasian ke dalam suatu yang ringkas dan perawatan yang dipersatukan diinginkan.

Istilah secara ringkas:
Interfacing atau interface komputer 
Berarti penghubung komputer, baik dengan komputer lain atau dengan perangkat lainnya. 

Interfacing (antarmuka)
Adalah bagian dari disiplin ilmu komputer yang mempelajari teknik - teknik menghubungkan komputer dengan peralatan elektronika lainnya. 

Interfacing bukanlah disiplin ilmu yang berdiri sendiri tetapi berkaitan erat dengan disiplin ilmu komputer lainnya. Disiplin ilmu yang berkaitan dengan Interfacing Elektronika Analog dan Digital, Mikroprosesor, Organisasi dan Arsitektur Komputer, Komunikasi Data serta pendukung Bahasa Pemrograman, baik berbasis Teks seperti Bahasa Rakitan/Assembly, C, Basic, Pascal maupun berbasis Grafis seperti Visual Basic,Visual C, Delphi bahkan berbasis Web seperti Java.

Materi Interfacing:

  • Pertemuan 1 - Kontrak Belajar - (download)
  • Pertemuan 2 - Prinsip Dasar Interfacing.ppt - (download) 
  • Pertemuan 2 - Prinsip Dasar Interfacing 1 - (download)
  • Pertemuan 2 - Prinsip Dasar Interfacing 2 - (download)
  • Pertemuan 3 - Bus Interfacing - (download)
  • Pertemuan 4 - Komunikasi Data Serial - (download)
  • Pertemuan 5 - UART (Universal Asynchronous Receiver Trasmitter) - (download)

Interfacing

Selasa, 02 April 2013
Author : Unknown Comments : 0
Tag : ,,
Bagi teman-teman seperjuangan yang sedang mencari buku acuan bahasa inggris untuk teknik informatika, mudah-mudahan ini bisa sedikit membantu, judul bukunya "Infotech English for Computer Users - Student's Book 4th Edition".
________________________________________________________________________________

Bahasa Inggris Teknik Informatika

Author : Unknown Comments : 0
Tag : ,,
Ini adalah tugas teman-teman yang terbaik menurut seleksi Dosen. Semoga menjadi motivasi untuk berkarya yang lebih baik. Selamat berkarya !

Nama: Anna Wahyu Dasanti
NPM: 11111100105

Nama: Luthfi Catur Pamungkas
NPM: 11111100090

Nama: Sri Wijiyanti
NPM: 11111100099

Nama: Sapto Pandugo
NPM: 11111100091

Membuat Pamflet Secara Manual

Minggu, 11 November 2012
Author : Unknown Comments : 0
Tag : ,,,
Setiap program umumnya memerlukan data dari luar seperti input dari keyboard, mouse dan sebagainya. Jika kita menggunakan bahasa tinggkat tinggi, kita bisa menentukan tipe data yang akan kita terima dari inputan. Misalnya kita masukan angka 10, dengan program Pascal atau C++ inputan tersebut bisa langsung kita jadikan tipe bilangan ataupun string. Dalam bahasa assembly inputan dari keyboard hanya memiliki dua macam input yaitu : input satu karakter dan input string (untaian karakter). Jika kita ingin membuat program untuk menghitung penjumlahan dua buah nilai, maka kita harus melakukan manipulasi register yang cukup rumit karena kita harus melakukan konversi karakter ASCII menjadi angka secara manual (register by register). Untuk melakukan operasi input satu karakter kita menggunakan service 01h, 07h, 08h, 06h dan untuk input string kita gunakan service 0Ah. Berikut contoh operasi input satu karakter :


Penjelasan Program :
Pada saat interupsi 21h dengan service 01 di jalankan, maka program akan menahan layar sampai pengguna menekan sembarang tombol. Nilai ASCII tombol yang ditekan akan dimasukan ke dalam register AL. Setelah itu kita simpan dulu isi dari register AL ke memory karena kita akan memakai register AH untuk mencetak string. Mengapa harus disimpan? Karena register AH dan AL satu badan, jika ada perubahan register AH maka akan mempengaruhi register AL. setelah string di cetak baru kita ambil lagi nilai yang ada di memory dan kita masukan ke dalam register DL. Jika nilai sudah masuk ke register DL, baru kita bisa menggunakan interupsi 21h dengan service 02h untuk mencetak karakter yang ada dalam register DL tadi. Untuk mencoba service lainnya (06h, 07h, 08h) silakan anda ganti isi register AH.
Output:

Sumber terkait: http://fds077.wordpress.com/

Input Karakter Dan Input String

Jumat, 19 Oktober 2012
Author : Unknown Comments : 0
Tag : ,,

KORUPSI INDONESIA DALAM SEJARAH


Korupsi di Indonesia sudah ‘membudaya’ sejak dulu, sebelum dan sesudah kemerdekaan, di era Orde Lama, Orde Baru, berlanjut hingga era Reformasi. Berbagai upaya telah dilakukan untuk memberantas korupsi, namun hasilnya masih jauh panggang dari api. Periodisasi korupsi di Indonesia secara umum dapat dibagi dua, yaitu periode pra kemerdekaan dan pasca kemerdekaan (Amin Rahayu).

PRA KEMERDEKAAN
a. Masa Pemerintahan Kerajaan
  • “Budaya-tradisi korupsi” yang tiada henti karena didorong oleh motif kekuasaan, kekayaan dan wanita.
  • Perebutan kekusaan di Kerajaan Singosari (sampai tujuh keturunan saling membalas dendam berebut kekusaan: Anusopati, Tohjoyo, Ranggawuni, Mahesa, Wongateleng, dan seterusnya).
  • Majapahit (pemberontakan Kuti, Narnbi, Suro dan lain-lain).
  • Demak (Joko Tingkir dengan Haryo Penangsang).
  • Banten (Sultan Haji merebut tahta dari ayahnya, Sultan Ageng Tirtoyoso).
  • Perlawanan rakyat terhadap Belanda dan seterusnya sampai terjadinya beberapa kali peralihan kekuasaan di Nusantara telah mewarnai Sejarah Korupsi dan Kekuasaan di Indonesia.
  • Kehancuran kerajaan-kerajaan besar (Sriwijaya, Majapahit dan Mataram) adalah karena perilaku korup dari sebagian besar para bangsawannya.
  1. Sriwijaya diketahui berakhir karena tidak adanya pengganti atau penerus kerajaan sepeninggal Balaputra Dewa.
  2. Majapahit diketahui hancur karena adanya perang saudara (perang paregreg) sepeninggal Maha Patih Gajah Mada.
  3. Mataram lemah dan semakin tidak punya gigi karena dipecah belah dan dipreteli gigi taringnya oleh Belanda.
b. Masa Kolonial Belanda
  • Pada tahun 1755 dengan Perjanjian Giyanti, VOC memecah Mataram menjadi dua kekuasaan yaitu Kesultanan Yogyakarta dan Kasunanan Surakarta.
  • Tahun 1757/1758 VOC memecah Kasunanan Surakarta menjadi dua daerah kekuasaan yaitu Kasunanan Surakarta dan Mangkunegaran.
  • Kesultanan Yogyakarta juga dibagi dua menjadi Kasultanan Yogyakarta dan Pakualaman.
  • Dalam buku History of Java karya Thomas Stamford Raffles (Gubernur Jenderal Inggris yang memerintah Pulau Jawa tahun 1811-1816), Hal menarik dalam buku itu adalah pembahasan seputar karakter penduduk Jawa. Penduduk Jawa digambarkan sangat “nrimo” atau pasrah terhadap keadaan. Namun, di pihak lain, mempunyai keinginan untuk lebih dihargai oleh orang lain. Tidak terus terang, suka menyembunyikan persoalan, dan termasuk mengambil sesuatu keuntungan atau kesempatan di kala orang lain tidak mengetahui. Hal menarik lainnya adalah adanya bangsawan yang gemar menumpuk harta, memelihara sanak (abdi dalem) yang pada umumnya abdi dalem lebih suka mendapat atau mencari perhatian majikannya. Akibatnya, abdi dalem lebih suka mencari muka atau berperilaku oportunis.
  • Dalam kalangan elit kerajaan, raja lebih suka disanjung, dihormati, dihargai dan tidak suka menerima kritik dan saran.
  • Dalam aspek ekonomi, raja dan lingkaran kaum bangsawan mendominasi sumber-sumber ekonomi di masyarakat. Rakyat umumnya “dibiarkan” miskin, tertindas, tunduk dan harus menuruti apa kata, kemauan atau kehendak “penguasa”.
  • Budaya yang sangat tertutup dan penuh “keculasan” itu turut menyuburkan “budaya korupsi” di Nusantara. Tidak jarang abdi dalem juga melakukan “korup” dalam mengambil “upeti” (pajak) dari rakyat yang akan diserahkan kepada Demang (Lurah) selanjutnya oleh Demang akan diserahkan kepada Tumenggung. Abdi dalem di Katemenggungan setingkat kabupaten atau propinsi juga mengkorup harta yang akan diserahkan kepada Raja atau Sultan.
  • Kebiasaan mengambil “upeti” dari rakyat kecil yang dilakukan oleh Raja Jawa ditiru oleh Belanda ketika menguasai Nusantara (1800 - 1942) minus Zaman Inggris (1811 - 1816), Akibat kebijakan itulah banyak terjadi perlawanan-perlawanan rakyat terhadap Belanda. Sebut saja misalnya perlawanan Diponegoro (1825-1830), Imam Bonjol (1821-1837), Aceh (1873-1904) dan lain-lain. 
  • Lebih menyedihkan lagi yaitu penindasan atas penduduk pribumi (rakyat Indonesia yang terjajah) juga dilakukan oleh bangsa Indonesia sendiri. Sebut saja misalnya kasus penyelewengan pada pelaksanaan Sistem “Cultuur Stelsel (CS)” yang secara harfiah berarti Sistem Pembudayaan. Walaupun tujuan utama sistem itu adalah membudayakan tanaman produktif di masyarakat agar hasilnya mampu untuk meningkatkan kesejahteraan rakyat dan memberi kontribusi ke kas Belanda, namun kenyataannya justru sangat memprihatinkan. 
PASCA KEMERDEKAAN
a. Orde Lama
  • Dibentuk Badan Pemberantasan Korupsi, Panitia Retooling Aparatur Negara (PARAN) dibentuk berdasarkan UU Keadaan Bahaya, dipimpin oleh A.H. Nasution dan dibantu oleh dua orang anggota yakni Prof M Yamin dan Roeslan Abdulgani. Namun ternyata pemerintah pada waktu itu setengah hati menjalankannya.
  • Pejabat pemerintah diharuskan mengisi formulir yang disediakan, istilah sekarang : daftar kekayaan pejabat negara (DKPN). Dalam perkembangannya kemudian ternyata kewajiban pengisian formulir tersebut mendapat reaksi keras dari para pejabat. Mereka berdalih agar formulir itu tidak diserahkan kepada Paran tetapi langsung kepada Presiden.
  • Tahun 1963 melalui Keputusan Presiden No 275 Tahun 1963, upaya pemberantasan korupsi kembali digalakkan. A.H. Nasution yang saat itu menjabat sebagai Menkohankam/Kasab dibantu oleh Wiryono Prodjodikusumo. Tugasnya yaitu meneruskan kasus-kasus korupsi ke meja pengadilan. Lembaga ini di kemudian hari dikenal dengan istilah “Operasi Budhi”. Sasarannya adalah perusahaan-perusahaan negara serta lembaga-lembaga negara lainnya yang dianggap rawan praktik korupsi dan kolusi. Operasi Budhi ternyata juga mengalami hambatan.
  • Soebandrio mengumumkan pembubaran Paran/Operasi Budhi yang kemudian diganti namanya menjadi Kotrar (Komando Tertinggi Retooling Aparat Revolusi) di mana Presiden Sukarno menjadi ketuanya serta dibantu oleh Soebandrio dan Letjen Ahmad Yani. Sejarah kemudian mencatat pemberantasan korupsi pada masa itu akhirnya mengalami stagnasi.
  • Dalam kurun waktu 3 bulan sejak Operasi Budhi dijalankan, keuangan negara dapat diselamatkan sebesar kurang lebih Rp 11 miliar, jumlah yang cukup signifikan untuk kurun waktu itu. Karena dianggap mengganggu prestise Presiden, akhirnya Operasi Budhi dihentikan.
b. Orde Baru
  • Dibentuk Tim Pemberantasan Korupsi (TPK) yang diketuai Jaksa Agung.
  • Tahun 1970, terdorong oleh ketidakseriusan TPK dalam memberantas korupsi seperti komitmen Soeharto, mahasiswa dan pelajar melakukan unjuk rasa memprotes keberadaan TPK.
  • Perusahaan-perusahaan negara seperti Bulog, Pertamina, Departemen Kehutanan banyak disorot masyarakat karena dianggap sebagai sarang korupsi. Maraknya gelombang protes dan unjuk rasa yang dilakukan mahasiswa, akhirnya ditanggapi Soeharto.
  • Dibentuk Komite Empat beranggotakan tokoh-tokoh tua yang dianggap bersih dan berwibawa seperti Prof Johannes, I.J Kasimo, Mr Wilopo dan A Tjokroaminoto. Tugasnya yang utama adalah membersihkan antara lain Departemen Agama, Bulog, CV Waringin, PT Mantrust, Telkom, dan Pertamina. Namun kornite ini hanya “macan ompong” karena hasil temuannya tentang dugaan korupsi di Pertamina tak direspon pemerintah.
  • Ketika Laksamana Sudomo diangkat sebagai Pangkopkamtib, dibentuklah Opstib (Operasi Tertib) dengan tugas antara lain juga memberantas korupsi. Kebijakan ini hanya melahirkan sinisme di masyarakat. Tak lama setelah Opstib terbentuk, suatu ketika timbul perbedaan pendapat yang cukup tajam antara Sudomo dengan Nasution. Hal itu menyangkut pemilihan metode atau cara pemberantasan korupsi, Nasution berpendapat apabila ingin berhasil dalam memberantas korupsi, harus dimulai dari atas. Nasution juga menyarankan kepada Laksamana Sudomo agar memulai dari dirinya. Seiring dengan berjalannya waktu, Opstib pun hilang tanpa bekas sama sekali.
c. Reformasi
  • Pada Era Reformasi hampir seluruh elemen penyelenggara negara sudah terjangkit “Virus Korupsi” yang sangat ganas.
  • Presiden BJ Habibie mengeluarkan UU Nomor 28 Tahun 1999 tentang Penyelenggaraan Negara yang bersih dan bebas dari KKN berikut pembentukan berbagai komisi atau badan baru seperti KPKPN, KPPU atau lembaga Ombudsman.
  • Presiden Abdurrahman Wahid membentuk Tim Gabungan Pemberantasan Tindak Pidana Korupsi (TGPTPK) dengan Peraturan Pemerintah Nomor 19 Tahun 2000 Namun di tengah semangat menggebu-gebu untuk memberantas korupsi dari anggota tim, melalui suatu judicial review Mahkamah Agung, TGPTPK akhirnya dibubarkan. Sejak itu, Indonesia mengalami kemunduran dalam upaya pemberantasan KKN.
  • Di samping membubarkan TGPTPK, Presiden Gus Dur juga dianggap tidak bisa menunjukkan kepemimpinan yang dapat mendukung upaya pemberantasan korupsi.
  • Proses pemeriksaan kasus dugaan korupsi yang melibatkan konglomerat Sofyan Wanandi dihentikan dengan Surat Perintah Penghentian Penyidikan (SP3) dari Jaksa Agung Marzuki Darusman. Akhirnya, Gus Dur didera kasus Buloggate.
  • Di masa pemerintahan Megawati, wibawa hukum semakin merosot, di mana yang menonjol adalah otoritas kekuasaan.
  • Konglomerat bermasalah bisa mengecoh aparat hukum dengan alasan berobat ke luar negeri. Pemberian SP3 untuk Prajogo Pangestu, Marimutu Sinivasan, Sjamsul Nursalim, The Nien King, lolosnya Samadikun Hartono dari jeratan eksekusi putusan MA, pemberian fasilitas MSAA kepada konglomerat yang utangnya macet, menjadi bukti kuat bahwa elit pemerintahan tidak serius dalam upaya memberantas korupsi. Masyarakat menilai bahwa pemerintah masih memberi perlindungan kepada para pengusaha besar yang notabene memberi andil bagi kebangkrutan perekonomian nasional. Pemerintah semakin lama semakin kehilangan wibawa. Belakangan kasus-kasus korupsi merebak pula di sejumlah DPRD era Reformasi.
  • Komisi Pemberantasan Korupsi, atau disingkat menjadi KPK, adalah komisi yang dibentuk pada tahun 2003 untuk mengatasi, menanggulangi dan memberantas korupsi di Indonesia. Komisi ini didirikan berdasarkan Undang-Undang Republik Indonesia Nomor 30 Tahun 2002 mengenai Komisi Pemberantasan Tindak Pidana Korupsi.
  • Pada tanggal 16 Desember 2003, Taufiequrachman Ruki, dilantik menjadi Ketua KPK. KPK hendak memposisikan dirinya sebagai katalisator (pemicu)
    bagi aparat dan institusi lain untuk terciptanya jalannya sebuah “good and clean governance” (pemerintahan baik dan bersih) di Republik Indonesia. Taufiequrachman walaupun konsisten mendapat kritik dari berbagai pihak tentang dugaan tebang pilih pemberantasan korupsi.
Hasil survei Transparency International mengenai “Barometer Korupsi Global”, menempatkan partai politik di Indonesia sebagai institusi terkorup dengan nilai 4,2 (dengan rentang penilaian 1-5, 5 untuk yang terkorup). Masih berangkat dari data tersebut, di Asia, Indonesia menduduki prestasi sebagai negara terkorup dengan skor 9.25 (terkorup 10) di atas India (8,9), Vietnam (8,67), Filipina (8,33) dan Thailand (7,33).( Adnan Topan Husodo :2008)
Sumber: 
Buku Pendidikan Anti Korupsi Untuk Perguruan Tinggi. Penerbit: Kementrian Pendidikan dan Kebudayaan RI Direktorat Jenderal Pendidikan Tinggi

Budaya Korupsi di Indonesia Merupakan Warisan Sejarah

Selasa, 12 Juni 2012
Author : Unknown Comments : 1
Tag : ,,
MATA KULIAH ANTI KORUPSI

Permasalahan korupsi di Indonesia sudah sampai pada taraf menimbulkan skeptisime semua kalangan, termasuk mahasiswa. Maka dari itu mendesain mata kuliah baru Anti-korupsi agar menjadi sebuah pembelajaran yang menarik, tidak monoton dan efektif bukan hal mudah. Materi tentu penting untuk memperkuat aspek kognitif, namun pemilihan metode pembelajaran yang kreatif merupakan kunci bagi keberhasilan mengoptimalkan intelektual, sifat kritis dan etika integritas mahasiswa. Dosen sendiri harus menjadi komunikator, fasilitator dan motivator yang baik bagi mahasiswa. Peran pimpinan perguruan tinggi juga diperlukan untuk menciptakan kampus sebagai land of integrity yang mendukung efektifitas pendidikan Anti-korupsi itu sendiri. 

Korupsi merupakan perbuatan yang bertentangan dengan kaidah-kaidah umum yang berlaku di masyarakat. Korupsi di Indonesia telah dianggap sebagai kejahatan luar biasa. Melihat realita tersebut timbul public judgement bahwa korupsi adalah manisfestasi budaya bangsa. Telah banyak usaha yang dilakukan untuk memberantas korupsi. Namun sampai saat ini hasilnya masih tetap belum sesuai dengan harapan masyarakat.

Korupsi sebagai “masalah keserakahan elite” telah Mencoreng citra bangsa di mata internasional. Sangatlah wajar apabila kampanye anti keserakahan dijadikan sebagai salah satu upaya memberantas Korupsi. Banyak faktor penyebab terjadinya korupsi, namun faktor tersebut berpusat pada satu hal yakni “toleransi terhadap korupsi”. Kita lebih banyak wicara dan upacara ketimbang aksi. Mencermati faktor penyebab korupsi sangat tepat sebagai langkah awal bergerak menuju pemberantasan korupsi yang riil.

Meluasnya praktik korupsi di suatu negara akan memperburuk kondisi ekonomi bangsa, misalnya harga barang menjadi mahal dengan kualitas yang buruk, akses rakyat terhadap pendidikan dan kesehatan menjadi sulit, keamanan suatu negara terancam, kerusakan lingkungan hidup, dan citra pemerintahan yang buruk di mata internasional sehingga menggoyahkan sendi-sendi kepercayaan pemilik modal asing, krisis ekonomi yang berkepanjangan, dan negara pun menjadi semakin terperosok dalam kemiskinan.

Pada dasarnya korupsi terjadi karena adanya faktor internal (niat) dan faktor eksternal (kesempatan). Niat lebih terkait dengan faktor individu yang meliputi perilaku dan nilai-nilai yang dianut, sedangkan kesempatan terkait dengan sistem yang berlaku. Upaya pencegahan korupsi dapat dimulai dengan menanamkan nilai-nilai anti korupsi pada semua individu. Setidaknya ada 9 (sembilan) nilai anti korupsi yang penting untuk ditanamkan pada semua individu, yaitu Kejujuran, Kepedulian, Kemandirian, Kedisiplinan, Tanggung jawab, Kerja keras, Sederhana, Keberanian, dan Keadilan.

Banyak sekali hambatan dalam pemberantasan korupsi. Terlebih bila korupsi sudah secara sistemik mengakar dalam segala aspek kehidupan masyarakat di sebuah negara. Beragam cara dicoba, namun praktek korupsi tetap subur dan berkembang baik dari segi kuantitas maupun kualitasnya. Kegagalan pemberantasan korupsi di masa lalu tidak boleh menyurutkan keinginan semua pihak untuk memberantas korupsi. Perlu dipahami bahwa tidak ada satu konsep tunggal yang dapat menjawab bagaimana korupsi harus dicegah dan diberantas. Semua cara, strategi dan upaya harus dilakukan dalam rangka memberantas korupsi. 

Tindak Pidana korupsi bukanlah tindak pidana baru di dalam peraturan perundang-undangan di Indonesia. Istilah tindak pidana korupsi itu sendiri telah digunakan sejak diberlakukannya Peraturan Pemberantasan Korupsi Penguasa Perang Pusat Nomor Prt/Peperpu/013/1950. Namun perbuatan korupsi yang diatur di dalam peraturan perundang-undangan Indonesia pada hakikatnya telah dikenal dan diatur di dalam Kitab Undang-undang Hukum Pidana (KUHP). Hal ini terbukti dengan diadopsinya beberapa ketentuan hukum pidana dalam KUHP menjadi delik korupsi.

Dalam sejarah tercatat bahwa mahasiswa mempunyai peran penting dalam menentukan perjalanan bangsa Indonesia. Dengan idealisme, semangat muda, dan kemampuan intelektual tinggi yang dimilikinya mahasiswa mampu berperan sebagai  agen perubahan (agent of change). Peran mahasiswa tersebut terlihat menonjol dalam peristiwa-peristiwa besar seperti Kebangkitan Nasional tahun 1908, Sumpah Pemuda tahun 1928, Proklamasi Kemerdekaan tahun 1945, lahirnya Orde Baru tahun 1966, dan Reformasi tahun 1998. Maka tidaklah berlebihan jika mahasiswa diharapkan juga dapat menjadi motor penggerak utama gerakan anti korupsi di Indonesia. 

Sumber: 
Buku Pendidikan Anti Korupsi Untuk Perguruan Tinggi. Penerbit: Kementrian Pendidikan dan Kebudayaan RI Direktorat Jenderal Pendidikan Tinggi

Mata Kuliah Anti Korupsi

Kamis, 07 Juni 2012
Author : Unknown Comments : 0
Tag : ,,
BARIS PROGRAM UNTUK MENENTUKAN NILAI POSITIF ATAU NEGATIF

Di sini kami mencoba sharing ilmu tentang pemrograman, yaitu membuat program untuk menentukan nilai positif maupun negatif. Kami menggunakan Pascal (TPW 1.5) dan berikut screen shootnya:


Dan berikut adalah outputnya:

Baris Program Menentukan Nilai Positif atau Negatif

Senin, 28 Mei 2012
Author : Unknown Comments : 0
Tag : ,,,
BARIS PROGRAM MENGHITUNG LUAS PERSEGI PANJANG

Disini kami menggunakan program pascal 1.5 (tpw 1.5), jika menggunakan pascal 7.0 tidak perlu menggunakan "uses wincrt" cukup dengan "uses crt" tanpa tanda kutip. Berikut baris programnya:
Dan berikut output dari baris program di atas:

Baris Program Menghitung Luas Persegi Panjang

Minggu, 13 Mei 2012
Author : Unknown Comments : 0
Tag : ,,,
STRUKTUR KOMPUTER
Adalah sebuah sistem yang berinteraksi dengan cara tertentu dengan dunia luar. Interaksi dengan dunia luar dilakukan melalui perangkat peripheral dan saluran komunikasi. 

Terdapat empat struktur utama/dasar komputer: 
  1. Central Processing Unit (CPU) atau sering disebut juga Prosesor, berfungsi sebagai pengontrol operasi komputer dan pusat pengolahan fungsi–fungsi komputer.
  2. Memori Utama, berfungsi sebagai penyimpan data.
  3. I/O, berfungsi memindahkan data ke lingkungan luar atau perangkat lainnya.
  4. System Interconnection, merupakan sistem yang menghubungkan CPU, memori utama dan I/O. 
Komponen yang paling menarik namun paling kompleks adalah CPU. Struktur CPU terlihat pada gambar berikut:  
Gb. Struktur dasar CPU
  1. Control Unit, berfungsi untuk mengontrol operasi CPU dan mengontrol komputer secara keseluruhan.
  2. Arithmetic And Logic Unit (ALU), berfungsi untuk membentuk fungsi–fungsi pengolahan data komputer.
  3. Register, berfungsi sebagai penyimpan internal bagi CPU.
  4. CPU Interconnection, berfungsi menghubungkan seluruh bagian dari CPU. 
FUNGSI KOMPUTER
Fungsi dasar sistem komputer adalah sederhana seperti terlihat pada gambar. Pada prinsipnya terdapat empat buah fungsi operasi, yaitu :  
  1. Fungsi Operasi Pengolahan Data
  2. Fungsi Operasi Penyimpanan Data
  3. Fungsi Operasi Pemindahan Data
  4. Fungsi Operasi Kontrol .

Komputer harus dapat memproses data. Representasi data di sini bermacam–macam, akan tetapi nantinya data harus disesuaikan dengan mesin pemrosesnya. Dalam pengolahan data, komputer memerlukan unit penyimpanan sehingga diperlukan suatu mekanisme penyimpanan data. Walaupun hasil komputer digunakan saat itu, setidaknya komputer memerlukan media penyimpanan untuk data prosesnya. Dalam interaksi dengan dunia luar sebagai fungsi pemindahan data diperlukan antarmuka (interface), proses ini dilakukan oleh unit Input/Output (I/O) dan perangkatnya disebut peripheral. Saat interaksi dengan perpindahan data yang jauh atau dari remote device, komputer melakukan proses komunikasi data. 
Gb. Operasi pemindahan data
Gb. Operasi penyimpanan data

Gb. Operasi pengolahan data

Struktur dan Fungsi Utama Komputer

Minggu, 06 Mei 2012
Author : Unknown Comments : 0
Tag : ,,
ORGANISASI KOMPUTER

Organisasi Komputer adalah bagian yang terkait erat dengan unit–unit operasional dan interkoneksi antar komponen penyusun sistem komputer dalam merealisasikan aspek arsitekturalnya. Contoh aspek organisasional adalah teknologi hardware, perangkat antarmuka, teknologi memori, sistem memori, dan sinyal–sinyal kontrol.

Arsitektur Komputer lebih cenderung pada kajian atribut–atribut sistem komputer yang terkait dengan seorang programmer. Contohnya, set instruksi, aritmetika yang digunakan, teknik pengalamatan, mekanisme I/O.

Sebagai contoh apakah suatu komputer perlu memiliki instruksi pengalamatan pada memori merupakan masalah rancangan arsitektural. Apakah instruksi pengalamatan tersebut akan diimplementasikan secara langsung ataukah melalui mekanisme cache adalah kajian organisasional.

Perbedaan Utama

Organisasi Komputer 
Bagian yang terkait erat dengan unit–unit operasional.
Contoh: teknologi hardware, perangkat antarmuka, teknologi memori, sistem memori, dan sinyal–sinyal kontrol.

Arsitektur Komputer 
Atribut–atribut sistem komputer yang terkait dengan seorang programmer.
Contoh: set instruksi, aritmetika yang digunakan, teknik pengalamatan, mekanisme I/O. 

Organisasi Komputer

Jumat, 04 Mei 2012
Author : Unknown Comments : 0
Tag : ,,
Navigation

Perkuliahan

AOK (4) Aplikasi Komputer (5) Bhs Inggris (1) Delphi (6) Etika Profesi (2) Interfacing (1) Materi Kuliah (21) PBO (6) Pancasila (1) Pemrograman Tersetruktur (2) Sistem Operasi (1)

|| Copyright © 2014 Fakti UPY || Powered by Blogger || Designed by Mbah Jass ||