COBIT

Informasi dan teknologi merupakan faktor pendukung yang paling berharga dalam sebuah dunia bisnis. Namun tidak sedikit dari beberapa orang dapat memahaminya. Informasi dan teknologi merupakan aset yang berharga bagi sebuah perusahaan.

Banyak perusahaan yan sukses mengakui bahwa keunggulan teknologi dan informasi dapat mendorong nilai stakeholder mereka. Beberapa perusahaan juga memahami dan dapat mengelola hal - hal yang terkait dengan teknologi dan informasi, seperti meningkatkan kepatuhan terhadap peraturan dan ketergantungan kritis bisnis terhadap proses teknologi informasi (IT).

Kebutuhan terhadap jaminan tentang nilai IT, manajemen resiko yang berkaitan dengan IT dan meningkatnya kebutuhan untuk kontrol atas informasi, dipahami sebagai elemen kunci dati pengelolaan perusahaan. Nilai, resiko, dan pengendalian merupakan inti dari pengelolaan IT.

IT menjadi penopang dan memperluas strategi serta tujuan suatu organisasi. IT diintegrasikan untuk memastikan bahwa IT benar - benar mendukung tujuan suatu organisasi. Pengelolaan IT memungkinkan untuk mengambil keuntungan penuh dari informasi yang didapat, sehingga memaksimalkan manfaat, memanfaatkan peluang dan mendapatkan keunggulan kompetitif.

Untuk mencapai hasil yang maksimal, memerlukan kontrol atas IT yang sesuai dan pendukung yang sesuai, yang  secara luas, kontrol dapat diterima untuk pengelolaan suatu organisasi atau perusahaan.

COBIT (Control Objectives for Information and Technology) memberikan praktik yang baik di seluruh domain dan proses framework serta menyajikan kegiatan dalam struktur yang dikelola dan logis. COBIT akan membantu mengoptimalkan investasi IT, memastikan pengiriman layanan dan memberikan ukuran terhadap sesuatu yang salah.

Untuk mencapai kesuksesan IT dalam memberikan pelayanan terhadap kebutuhan bisnis, manajemen harus menempatkan sistem pengendalian internal atau kerangka. Kerangka kontrol COBIT memberikan konstribusi untuk memenuhi kebutuhan tersebut dengan cara :
1. Membuat link dengan kebutuhan bisnis.
2. Kegiatan penyelenggara IT menjadi model proses yang berlaku umum.
3. Mengidentifikasi sumber utama IT untuk dimanfaatkan.
4. Mendefinisikan tujuan pengendalian manajemen untuk dipertimbangkan.

Orientasi bisnis COBIT terdiri dari penghubung tujuan bisnis dengan tujuan IT, menyediakan netrik dan model kedewasaan untuk mengukur prestasi dan mengidentifikasi tanggungjawab terkait bisnis, dan proses IT.

Proses fokus COBIT digambarkan oleh model proses yang membagi IT menjadi 4 doamin dan 34 proses sejalan dengan tanggungjawab, merencanakan, membangun, menjalankan dan memantau, memberikan end-to-end pandangan IT.

Konsep arsitektur enterprise membantu mengidentifikasi sumber daya penting bagi keberhasilan proses, yaitu, aplikasi, informasi, infrastruktur, dan sumber daya manusia.

Sumber Bacaan :
1. https://www.isaca.org/Knowledge-Center/cobit/Documents/COBIT4.pdf

Read More

Program Gaji Karyawan (Struct Array)

Oleh :

Arif Zainurrohman

 

 

 

 

 

Ibu Kota, 5 Juni 2015

akhukumfillah arifzainurrohman

 

Read More

Kebijakan Fiskal dan Kebijakan Moneter

oleh :

arif zainurrohman

Nama        : Arif Zainurrohman
NPM        : 11113342
Mata Kuliah      : Teori Organisasi Umum 2

1. Kebijakan Fiskal dan Kebijakan Moneter apa saja yang telah dilakukan oleh Pemerintah dari tahun 2010 s/d sekarang?

    Perkembangan ekonomi Indonesia tidak terlepas dari kondisi perekonomian dunia. Beberapa kejadian yang kita alami sejak 2010 sampai dengan 2013 antara lain adalah: ketidakpastian dan memburuknya perekonomian global sebagai lanjutan krisis utang pemerintah di kawasan Eropa yang dimulai sejak akhir 2011, mulai menurunnya kemampuan negara-negara Asia untuk menjadi penopang perekonomian dunia, menurunnya harga komoditas dunia yang cukup tajam, isu tapering off di Amerika Serikat sejak pertengahan 2013, tekanan terhadap rupiah yang disebabkan ketidakseimbangan eksternal, serta inflasi yang tinggi paska kenaikan BBM bersubsidi, serta menurunnya kredit perbankan akibat pengetatan kebijakan moneter. Dalam kurun waktu tersebut, momentum pertumbuhan ekonomi pada tahun 2010 sampai dengan tahun 2013 tetap terjaga. Perekonomian
    Pemerintah melakukan beberapa langkah stretegis untuk meningkatkan kualitas pengeluaran negara. Pertama, meningkatkan belanja modal untuk mendukung pembangunan infrastruktur nasional dan konektivitas antardaerah serta peningkatan ketahanan energi dan pangan. Belanja modal, yang sebagian besar digunakan untuk membiayai pembangunan infrastruktur dianggarkan sebesar Rp216,1 triliun pada 2013, meningkat sebesar 28,1% terhadap belanja modal pada 2012.
    Kedua, penurunan anggaran subsidi khususnya subsidi listrik untuk mengurangi beban subsidi listrik. Anggaran subsidi yang ditargetkan dalam APBN 2013 akan dikurangi menjadi 27,5% dari total belanja pemerintah dibandingkan dengan anggaran subsidi pada 2007 sebesar 29,8% dari total belanja pemerintah.
    Ketiga, meningkatnya PPN diperkirakan akan mempengaruhi industri produk makanan dan perusahaan manufaktur produk konsumen lainnya. Pada 2013, target PPN mencapai Rp423,7 triliun atau meningkat sebesar 26% dari target APBN-P 2012. Saat ini, tingkat PPN yang diberlakukan oleh pemerintah adalah sebesar 10% pada produk domestik dan impor.
    Keempat, peningkatan pajak ekspor dapat mempengaruhi perekonomian khususnya pada perdagangan internasional. Bea ekspor pada  2013 diperkirakan akan meningkat sebesar 36,6% dari penerimaan pajak ekspor pada 2012. Potensi kenaikan pajak ekspor ini berdampak pada beberapa pelaku usaha biji mineral karena pemerintah telah menerapkan tingkat pajak baru sebesar 20% pada 2012 dan berencana akan menaikkan kembali pada 2013.
    Kebijakan fiskal tahun 2013 juga tetap diarahkan untuk tetap menjaga kesinambungan fiskal yang ditempuh melalui 4 (empat) hal pokok yaitu
(i) Optimalisasi pendapatan negara dengan tetap menjaga iklim investasi dan keberlanjutan dunia usaha;
(ii) Meningkatkan kualitas belanja negara melalui efisiensi belanja yang kurang produktif dan meningkatkan belanja modal untuk memacu pertumbuhan dan peningkatan daya saing;
(iii) menjaga defisit anggaran pada batas aman (<3% PDB);
(iv) Menurunkan rasio utang terhadap PDB dalam batas yang manageable.

    Bank Indonesia mengeluarkan kebijakan bidang moneter dan perbankan untuk memperkuat stabilitas moneter dan sistem keuangan guna mendukung pertumbuhan ekonomi berkelanjutan serta memperkuat ketahanan menghadapi kemungkinan gejolak perekonomian.
    Kebijakan penguatan stabilitas moneter meliputi dua kebijakan yaitu penerapan kembali batasan posisi saldo harian pinjaman luar negeri bank berjangka pendek mulai akhir Januari 2011 dan pencabutan ketentuan penyediaan pasokan valuta asing bagi perusahaan domestik mulai Januari 2011.
    Kebijakan mendorong peran intermediasi perbankan meliputi penerapan standar operasi administrasi sekuritas kredit pemilikan rumah, pemberlakuan kewajiban mengumumkan suku bunga dasar kredit secara luas ke masyarakat mulai 31 Maret 2011, perhitungan aset tertimbang menurut resiko (ATMR) bagi bank umum yang lebih rendah untuk kredit ritel usaha mikro dan usaha kecil mulai Januari 2012.
    Selain itu perizinan pengaturan dan pengawasan biro kredit swasta mulai semester I 2011, program Bank Pembangunan Daerah sebagai motor pertumbuhan ekonomi daerah (sudah diluncurkan 21 Desember 2010), dan program perluasan akses kepada lembaga keuangan (financial inclusion).
    Sementara kebijakan meningkatkan ketahanan perbankan meliputi penyempurnaan ketentuan uji kemampuan dan kepatutan (fit and proper test) mulai awal 2011, peningkatan kepatuhan bank umum mulai September 2011, perhitungan ATMR bank umum untuk risiko kredit menggunakan pendekatan standar mulai Januari 2012, penerapan manajemen risiko pada bank yang berkerja sama pemasaran dengan perusahaan asuransi berlaku sejak Desember 2010.
    Pengaturan penilaian kualitas aktiva bagi bank umum syariah dan unit usaha syariah serta kualitas aktiva bagi bank pembiayaan rakyat syariah (BPRS), penyempurnaan pengaturan resktrukturisasi pembiayaan pada bank umum syariah dan unit usaha syariah, dan penyempurnaan batas maksimum pembiayaan dana (BMPD) BPRS.
    Kemudian perubahan izin usaha bank umum menjadi izin usaha bank prekreditan rakyat (BPR) mulai awal 2011, dan upaya mendorong terwujudnya BPR yang berdaya saing tinggi dan menerapkan tata kelola yang baik.
    Sementara kebijakan terkait penguatan makroprudensial meliputi penyempurnaan ketentuan dan penggunaan informasi rencana bisnis bank (berlaku sejak Oktober 2010.
    Menaikkan rasio giro wajib minimum (GWM) valas dari satu persen menjadi lima persen mulai 1 Maret 2011 dan dari lima persen menjadi delapan persen mulai 1 Juni 2011, dan mengembalikan peraturan fasilitas pendanaan jangka pendek (FPJP) kepada kondisi normal setelah krisis pada 2008.
    Kebijakan penguatan fungsi pengawasan meliputi penyempurnaan sistem pengawasan bank berdasarkan risiko, penetapan status dan tindak lanjut pengawasan bank (exit policy) mulai 2011, dan penyempurnaan tingkat kesehatan bank berdasarkan risiko.


2. Apakah masih ada lembaga keuangan yang bukan Bank yang tidak formal yang masih terjadi di masyarakat? Apa saja? Seberapa banyak di Indonesia? ( Dengan data-data jika ada)

    1. Perum Pegadaian
    Pegadaian berasal dari kata gadai, artinya barang yang dijaminkan saat  meminjam uang pada lembaga atau seseorang. Apabila pinjaman tidak dapat  dikembalikan maka barang yang digadaikan akan menjadi hak milik tempat  pegadaian. Kegiatan pokok lembaga pegadaian adalah memberikan dana  pinjaman kepada masyarakat dengan jaminan suatu barang bergerak atau tidak  bergerak. Jenis barang bergerak contohnya adalah alat-alat elektronik,  kendaraan, dan perhiasan. Sedangkan jaminan barang tidak bergerak adalah  rumah dan tanah.
    2. Perusahaan Asuransi
    Asuransi berasal dari kata insurance yang artinya pertanggungan. Asuransi hak dan kewajiban kedua belah pihak tertuang dalam sebuah polis asuransi. memuaskan semua kebutuhan kita.  Contoh asuransi adalah asuransi jiwa, kecelakaan, kehilangan, dan kebakaran.   
    3. Perusahaan Penjaminan
    Bidang usaha lembaga penjaminan adalah memberikan jasa pinjaman untuk  menanggung pembayaran kewajiban keuangan apabila terjamin tidak dapat  memenuhi kewajibannya kepada penerima jaminan. Kewajiban pembayaran  yang dijamin berasal dari transaksi kredit, sewa guna usaha, pembiayaan  dengan sistem bagi hasil, dan pembelian barang secara angsuran.
    4. Dana Pensiun
    Dana pensiun merupakan lembaga keuangan yang mengelola danmenjalankan  program manfaat pensiun. Dana pensiun diperoleh melalui pemotongan gaji  pegawai setiap bulan selama seseorang masih aktif bekerja. Uang yang  terkumpul tersebut dibayarkan kembali pada pegawai yang bersangkutan pada  saat ia telah pensiun.




(sumber :
Economist BNI Securities.
http://www.fiskal.depkeu.go.id
http://www.antaranews.com/berita/239846/bi-keluarkan-23-kebijakan-moneter-dan-perbankan-2011
http://www.selangkahlagi.com/2015/02/macam-macam-lembaga-keuangan-bukan-bank.html
Buku BSE Ekonomi Kelas X SMA/MA Nurhayatiningtyas 2009.
 buku II RKP 2015)

Ibu Kota, 19 Mei 2015

akhukumfillah arifzainurrohman

Read More

Toko (C++)

oleh :

arif zainurrohman

 

 

#include<iostream>

using namespace std;

int main(){
int kaos,a,kemeja,b,blouse,c,kaos1,d,total,diskon,total_diskon;
kaos =30000;
kemeja =75000;
blouse =60000;
kaos1 =50000;
cout << "                  Toko " << endl;
cout << "----------------------------------------" << endl;
cout << " Jenis Barang              Harga Barang" << endl;
cout << " 1. Kaos Polos                 @ 30.000    " << endl;
cout << " 2. Kemeja Pria                @ 75.000    " << endl;
cout << " 3. Blouse                     @ 60.000    " << endl;
cout << " 4. Kaos Pendek                @ 50.000    " << endl; 
cout<<"Barang yang dibeli "<<endl;
cout<<"Jumlah Kaos polos : ";cin>>a;
cout<<"Jumlah kemeja pria : ";cin>>b;
cout<<"Jumlah blouse : ";cin>>c;
cout<<"Jumlah Kaos pendek : ";cin>>d;
total=(a*kaos)+(b*kemeja)+(c*blouse)+(d*kaos1);
cout<<"Jumlah pembelian : "<<total<<endl;
if(total>=100000&&total<200000){
    diskon=0.05*total;}
if(total>=200000&&total<500000){
    diskon=0.1*total;}
else{
    diskon=0.2*total;}
cout<<"harga diskon : "<<diskon<<endl;
total_diskon=total-diskon;
cout<<"Bayar : "<<total_diskon<<endl;
}
 

 

 

 

Ibu Kota, 1 Mei 2015

akhukumfillah arifzainurrohman

 

Read More

Deret Bilangan (C++)

oleh :

arif zainurrohman

 

 #include <iostream>
#include <stdio.h>
using namespace std;

int main () {
int i,j;
char k,m;
     for (i=1;i<=5;i++) {
     k ='b';
     m ='d';
     for (j=1;j<=i;j++)
     if (i==2)
     cout << k << " ";
     else if (i==4)
     cout << m << " ";
     else
     cout << j << " ";
     cout << endl ;}
    return 0;
   }

Ibu Kota, 1 Mei 2015

akhukumfillah arifzainurrohman

Read More

Rata - rata (C++)

oleh :

arif zainurrohman

 

 #include <iostream>
#include <stdio.h>

using namespace std;

int main() {
    int n,x,jumlah;
    float rata;
    rata=0;
    jumlah=1;
    x=1;
    n=0;
    while (x != 0) {
        cout << "Masukkan nilai (0 untuk berhenti)  : "; cin >> x;
        jumlah+=x;
        n++;
    }
    jumlah=jumlah-1;
    n=n-1;
    rata = jumlah/n;
    cout << "Banyak data     = " << n << endl;
    cout << "Jumlah data     = " << jumlah << endl;
    cout << "Rata rata data  = " << rata<< endl;
}

Ibu Kota, 30 April 2015

akhukumfillah arifzainurrohman

Read More

Matriks Ordo 3 (Pascal)

oleh :

arif zainurrohman

uses crt;
type t = object
                m1,m2 : array [1..3,1..3] of integer;
                lok:array[1..9]of integer;
                procedure input;
                procedure tampil;
                procedure tambah;
                procedure kurang;
                procedure deter;
                procedure transpos;
end;

var    m:t;
    i,j,k,pil,det1,det2:integer;

procedure t.input;
begin
    clrscr;
    writeln('Input Matrik I');
    for i := 1 to 3 do
    begin
        for j := 1 to 3 do
        begin
        write('Elemen Matrik [',i,',',j,'] : ');
        readln(m1[i,j]);
        end;
    end;
    gotoxy(35,1);
    writeln('Input Matrik II');k:=2;
    for i := 1 to 3 do
    begin
        for j := 1 to 3 do
        begin
        gotoxy(35,k);inc(k);
        write('Elemen Matrik [',i,',',j,'] : ');
        readln(m2[i,j]);
        end;
    end;
end;

procedure t.tampil;
begin
    writeln;
    writeln(' Matrik I ');
    writeln('              ');
    writeln(m1[1,1]:5,m1[1,2]:5,m1[1,3]:5);
    writeln(m1[2,1]:5,m1[2,2]:5,m1[2,3]:5);
    writeln(m1[3,1]:5,m1[3,2]:5,m1[3,3]:5);
    gotoxy(35,12);writeln(' Matrik II ');
    gotoxy(35,14);writeln(m2[1,1]:5,m2[1,2]:5,m2[1,3]:5);
    gotoxy(35,15);writeln(m2[2,1]:5,m2[2,2]:5,m2[2,3]:5);
    gotoxy(35,16);writeln(m2[3,1]:5,m2[3,2]:5,m2[3,3]:5);
    readln;
end;

procedure t.deter;
begin
    writeln;
    writeln(' Matrik I ');
    writeln('              ');
    writeln(m1[1,1]:5,m1[1,2]:5,m1[1,3]:5 , '|' , m1[1,1]:5,m1[1,2]:5);
    writeln(m1[2,1]:5,m1[2,2]:5,m1[2,3]:5 , '|' , m1[2,1]:5,m1[2,2]:5);
    writeln(m1[3,1]:5,m1[3,2]:5,m1[3,3]:5 , '|' , m1[3,1]:5,m1[3,2]:5);
    gotoxy(35,2);writeln(' Matrik II ');
    gotoxy(35,4);writeln(m2[1,1]:5,m2[1,2]:5,m2[1,3]:5 , '|' , m2[1,1]:5,m2[1,2]:5);
    gotoxy(35,5);writeln(m2[2,1]:5,m2[2,2]:5,m2[2,3]:5 , '|' , m2[2,1]:5,m2[2,2]:5);
    gotoxy(35,6);writeln(m2[3,1]:5,m2[3,2]:5,m2[3,3]:5 , '|' , m2[3,1]:5,m2[3,2]:5);
    writeln;
    det1:=(m1[1,1]*m1[2,2]*m1[3,3])+(m1[1,2]*m1[2,3]*m1[3,1])+(m1[1,3]*m1[2,1]*m1[3,2])-(m1[3,1]*m1[2,2]*m1[1,3])-(m1[3,2]*m1[2,3]*m1[1,1])-(m1[3,1]*m1[2,1]*m1[1,2]);
    det2:=(m2[1,1]*m2[2,2]*m2[3,3])+(m2[1,2]*m2[2,3]*m2[3,1])+(m2[1,3]*m2[2,1]*m2[3,2])-(m2[3,1]*m2[2,2]*m2[1,3])-(m2[3,2]*m2[2,3]*m2[1,1])-(m2[3,1]*m2[2,1]*m2[1,2]);
    writeln;
    writeln('Determinan Matrik I  : ',det1);
    writeln('Determinan Matrik II : ',det2);
    readln;
end;

procedure t.tambah;
begin
    writeln;
    writeln(' Penjumlahan Matrik ');
    writeln('---------------------------------------');
    lok[1]:=(m1[1,1]+m2[1,1]);
    lok[2]:=(m1[1,2]+m2[1,2]);
    lok[3]:=(m1[1,3]+m2[1,3]);
    lok[4]:=(m1[2,1]+m2[2,1]);
    lok[5]:=(m1[2,2]+m2[2,2]);
    lok[6]:=(m1[2,3]+m2[2,3]);
    lok[7]:=(m1[3,1]+m2[3,1]);
    lok[8]:=(m1[3,2]+m2[3,2]);
    lok[9]:=(m1[3,3]+m2[3,3]);
    writeln;
    writeln(lok[1]:5,lok[2]:5,lok[3]:5);
    writeln(lok[4]:5,lok[5]:5,lok[6]:5);
    writeln(lok[7]:5,lok[8]:5,lok[9]:5);
    readln;
end;

procedure t.kurang;
begin
    writeln;
    writeln(' Pengurangan Matrik  ');
    writeln('---------------------------------------');
    lok[1]:=(m1[1,1]-m2[1,1]);
    lok[2]:=(m1[1,2]-m2[1,2]);
    lok[3]:=(m1[1,3]-m2[1,3]);
    lok[4]:=(m1[2,1]-m2[2,1]);
    lok[5]:=(m1[2,2]-m2[2,2]);
    lok[6]:=(m1[2,3]-m2[2,3]);
    lok[7]:=(m1[3,1]-m2[3,1]);
    lok[8]:=(m1[3,2]-m2[3,2]);
    lok[9]:=(m1[3,3]-m2[3,3]);
    writeln;
    writeln(lok[1]:5,lok[2]:5,lok[3]:5);
    writeln(lok[4]:5,lok[5]:5,lok[6]:5);
    writeln(lok[7]:5,lok[8]:5,lok[9]:5);
    readln;
end;

procedure t.transpos;
begin
    writeln;
    writeln(' Transpose Matrik I ');
    writeln(m1[1,1]:5,m1[2,1]:5,m1[3,1]:5);
    writeln(m1[1,2]:5,m1[2,2]:5,m1[3,2]:5);
    writeln(m1[1,3]:5,m1[2,3]:5,m1[3,3]:5);
    gotoxy(35,2);writeln(' Transpose Matrik II ');
    gotoxy(35,3);writeln(m2[1,1]:5,m2[2,1]:5,m2[3,1]:5);
    gotoxy(35,4);writeln(m2[1,2]:5,m2[2,2]:5,m2[3,2]:5);
    gotoxy(35,5);writeln(m2[1,3]:5,m2[2,3]:5,m2[3,3]:5);
    readln;
end;

begin
    repeat;
    clrscr;
    gotoxy(25,1);writeln('  *** Menu Matrik *** ');
    gotoxy(25,2);writeln('  1. Input Matrik  ');
    gotoxy(25,3);writeln('  2. Transpose Matrik  ');
    gotoxy(25,4);writeln('  3. Determinan Matrik  ');
    gotoxy(25,5);writeln('  4. Penjumlahan Matrik  ');
    gotoxy(25,6);writeln('  5. Pengurangan Matrik  ');
    gotoxy(25,7);writeln('  6. Keluar  ');
    gotoxy(25,8);write('  Pilihan [1..6] : ');
    readln(pil);
    case pil of
    1: begin
       m.input;
       m.tampil;
       end;
    2: begin
       clrscr;
       m.transpos;
       end;
    3: begin
       clrscr;
       m.deter;
       end;
    4: begin
       clrscr;
       m.tambah;
       end;
    5: begin
       clrscr;
       m.kurang;
       end;
    end;
    until (pil = 6);
   
end.

Ibu Kota, 23 April 2015

akhukumfillah arifzainurrohman

Read More

Deret (Fungsi For )

oleh :

arif zainurrohman

#include <iostream>
#include <stdio.h>
using namespace std;

int main () {
int pil,i,j,m;
char k;
char l='A';
menu :
cout << " xxx {MENU} xxx\n";
cout << " 1. Deret 1    \n";
cout << " 2. Deret 2    \n";
cout << " 3. Exit       \n";
cout << "---------------\n";
cout << "Pilihan Anda :  "; cin >> pil;
switch (pil) {
case 1:
     for (i=5;i>=1;i-=1){
     k= 'A';
     cout << "\n";
     for (j=1;j<=i;j+=1)
     if (i%2!=0)
     cout << k++ << " ";
     else
     cout <<  j << " " ;
     }
     cout << endl ;
     break;
case 2:
     m=11;
     for (i=1;i<=4;i++) {
     cout << "\n";
     for (j=1;j<=i;j++)
     if (i>=4)
     cout << l++ << " ";
     else
     cout << m++ << " "; }
     cout << endl ;
     break;
case 3:
     break;
default:
    cout << "Pilihan hanya 1 atau 2 \n";
    goto menu;
    }
    return 0;
   }

Ibu Kota, 23 April 2015

akhukumfillah arifzainurrohman

Read More

Tabel (Latex)

oleh :

arif zainurrohman

Ibu Kota, 26 juni 2014

akhukumfillah arifzainurrohman

Read More

Daftar isi (Latex)

oleh :

arif zainurrohman

Ibu Kota, 26 juni 2014

akhukumfillah arifzainurrohman

Read More

segitiga

oleh :

arif zainurrohman

uses crt;

var

baris,kolom:integer;

begin

clrscr;

for baris:= 1 to 5 do

begin

for kolom:= 5 downto baris  do

write(kolom);

writeln;

end;

readln;

end.

uses crt;

var

        Bahasa:string[20];

        urutan,posisi:integer;

begin

        clrscr;

        bahasa:='54321';

        for urutan:= 1 to 5 do

        begin

        posisi := 7-urutan;

        delete(Bahasa,posisi,1);

        writeln(Bahasa);

end;

readln;

end.

Ibu Kota, 26 juni 2014

akhukumfillah arifzainurrohman

Read More

Bilangan Prima Delphi (Console Aplication)

oleh :

kelompok 12

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a,b,c,x : integer;

BEGIN
      write('Masukan Bilangan Prima sampai : '); readln(x);
      for a:= 1 to x do
      Begin;
      c:=0;
      for b:=1 to a do
      Begin;
      if a mod b=0 then
      c:=c+1;
      end;

      if c=2 then
      begin;
      write(a,' ');
      write('');
      end;
      end;

      readln;
END.


Ibu Kota, 26 juni 2014

akhukumfillah arifzainurrohman

Read More

Program Kepolisian

oleh :

arif zainurrohman

def menu():
os.system('cls')
print "\t\t\tSelamat Datang di Program Polisi"
print "\t\t-----------------------------------------------"
print "\t\t     Aplikasi Pengarsipan Laporan Kepolisian"
print
print "\t\t\t1. Laporan Polisi"
print "\t\t\t2. Laporan Kehilangan"
print "\t\t\t3. Admin"
print "\t\t\t4. Keluar"
salahdua()
             
def menuadmin():
os.system('cls')
print "\t\t\tMenu Admin"
print
print "\t\t\t1. Pelapor"
print "\t\t\t2. Laporan Visum"
print "\t\t\t3. SKCK"
print "\t\t\t4. Keluar"
salahtiga()
               
def masuk ():
os.system ('cls')
username = ""
print
print
while not username:
username = raw_input("\t\t\tNama: ")

password = ""
while not password:
password = raw_input("\t\t\tPassword: ")

if username == "a" and password == "a":
os.system('cls')
print("Selamat Datang")
security = 5
menuadmin()
else:
menu()

def laporanpolisi () :
os.system('cls')
print "\t\t\t\tDATA LAPORAN"
laptgl = raw_input("\tTanggal Lapor : ")
lapnolaporan = raw_input("\tNo. Laporan : ")
lapidpelapor = raw_input("\tId Pelapor : ")
lapidterlapor = raw_input("\tId Terlapor : ")
lapidkorban = raw_input("\tId Korban : ")
lapnamasaksi = raw_input("\tNama Saksi : ")
lapalmtsaksi = raw_input("\tAlamat Saksi : ")
lapwktterjadi = raw_input("\tWaktu Terjadi : ")
laptkp = raw_input("\tTempat Terjadi : ")
lapkejadian = raw_input("\tApa yang Terjadi : ")
lapbrgbukti = raw_input("\tBarang bukti : ")
lapkronologi = raw_input("\tKronologi : ")
               
os.system('cls')
               
print ("\t\tKepolisian Negara")
print
print ("\t\t-------------------------------------------------------")
print
print ("\t\tTanggal Lapor : "), laptgl
print ("\t\tNO POL : "), lapnolaporan
print ("\t\t-------------------------------------------------------")
print
print ("\t\tNama Saksi : "), lapnamasaksi
print ("\t\tALamat Saksi : "), lapalmtsaksi
print ("\t\tWaktu Terjadi : "), lapwktterjadi
print ("\t\tTempat Terjadi : "), laptkp
print ("\t\tApa yang Terjadi : "), lapbrgbukti
print ("\t\tBarang Bukti : "), lapkronologi
print
print
print
salahsatu()

def laporhilang () :
os.system('cls')

print "\t\t\t\tDATA LAPORAN"
laphilnama = raw_input("\tNama : ")
laphilnolapor = raw_input("\tNo. Lapor : ")
laphiljeniskelamin = raw_input("\tJenis Kelamin : ")
laphilttl = raw_input("\tTempat Tanggal Lahir : ")
laphilsubang = raw_input("\tSuku/Bangsa : ")
laphilagama = raw_input("\tAgama : ")
laphilpekerjaan = raw_input("\tPekerjaan : ")
laphilalmt = raw_input("\tAlamat : ")
laphilhari = raw_input("\tHari Terjadi : ")
laphilwktterjadi = raw_input("\tWaktu Terjadi : ")
laphiltanggal = raw_input("\tTanggal Terjadi : ")
laphiltkp = raw_input("\tTempat Terjadi : ")
laphilkejadian = raw_input("\tApa yang Terjadi : ")

os.system('cls')
             
print ("\t\t\tSURAT TANDA BUKTI LAPOR KEHILANGAN")
print ("\t\t-------------------------------------------------------")
print ("\t\tNO POL : "), laphilnolapor
print
print ("\t\tPada hari, "), laphilhari ,("Tanggal, "),laphiltanggal,("pukul "),laphilwktterjadi,("WIB ")
print ("\t\tTelah datang ke kantor kepolisian , Seseorang yang mengaku :")
print
print ("\t\tNama : "), laphilnama
print ("\t\tJenis Kelamin : "), laphiljeniskelamin
print ("\t\tTempat Tanggal Lahir : "), laphilttl
print ("\t\tSuku/Bangsa : "), laphilsubang
print ("\t\tAgama : "), laphilagama
print ("\t\tPekerjaan : "), laphilpekerjaan
print ("\t\tAlamat : "), laphilalmt
print
print
print
salahsatu()
       
def laporanvisum () :
os.system('cls')
print "\t\t\t\tDATA LAPORAN"
tgllap = raw_input("\tTanggal Lapor : ")
novisum = raw_input("\tNo. Visum : ")
nama = raw_input("\tNama : ")
umur = raw_input("\tUmur : ")
jeniskelamin = raw_input("\tJenis Kelamin : ")
alamat = raw_input("\tAlamat : ")
agama = raw_input("\tAgama : ")
kebangsaan = raw_input("\tKebangsaan : ")
pekerjaan = raw_input("\tPekerjaan : ")
haritgl = raw_input("\tHari, Tanggal : ")
tkp = raw_input("\tTempat Kejadian : ")
               
os.system('cls')
                               
print ("\t\tTanggal Lapor : "), tgllap
print ("\t\tNo. Visum : "), novisum
print ("\t\tNama : "), nama
print ("\t\tUmur : "), umur
print ("\t\tJenis Kelamin : "), jeniskelamin
print ("\t\tAlamat : "), alamat
print ("\t\tAgama : "), agama
print ("\t\tKebangsaan : "), kebangsaan
print ("\t\tPekerjaan : "), pekerjaan
print ("\t\tHari, Tanggal : "), haritgl
print ("\t\tTempat Kejadian : "), tkp
print
salahempat()
               
               
def pelapor () :
os.system('cls')
print "\t\t\t\tDATA PELAPOR"
tglpelapor = raw_input("\t\tTanggal Lapor : ")
idpelapor = raw_input("\t\tID Pelapor : ")
namapelapor = raw_input("\t\tNama : ")
pekerjaanpelapor = raw_input("\t\tUmur : ")
jenisklmpelapor = raw_input("\t\tJenis Kelamin : ")
alamatpelapor = raw_input("\t\tAlamat : ")
agamapelapor = raw_input("\t\tAgama : ")
kebangsaanpelapor = raw_input("\t\tKebangsaan : ")
               
os.system('cls')
print ("\t\t\t\tDATA PELAPOR")
print              
print ("\t\tTanggal Lapor : "), tglpelapor
print ("\t\tNama : "), namapelapor
print ("\t\tPekerjaan : "), pekerjaanpelapor
print ("\t\tJenis Kelamin : "), jenisklmpelapor
print ("\t\tAlamat : "), alamatpelapor
print ("\t\tAgama : "), agamapelapor
print ("\t\tKebangsaan : "), kebangsaanpelapor
salahempat()
                             
def skck () :
os.system('cls')
print "\t\t\t\tDATA LAPORAN"
skcktglpelapor = raw_input("\t\tTanggal : ")
skcknolapor = raw_input("\t\tNo. POL : ")
skckidpelapor = raw_input("\t\tID Pelapor : ")
skcknoktp = raw_input("\t\tNo. KTP : ")
skcknamapelapor = raw_input("\t\tNama : ")
skckkelahiran = raw_input("\t\tTempat tgl lahir : ")
skckpekerjaanpelapor = raw_input("\t\tPekerjaan : ")
skckjenisklmpelapor = raw_input("\t\tJenis Kelamin : ")
skckalamatpelapor = raw_input("\t\tAlamat : ")
skckagamapelapor = raw_input("\t\tAgama : ")
skckkebangsaanpelapor = raw_input("\t\tKebangsaan : ")
skckkeperluan = raw_input("\t\tKeperluan : ");
               
os.system('cls')
print ("\t\tSurat Keterangan Catatan Kepolisian")
print ("\t-------------------------------------------------")            
print ("\t\tNO .POL : "), skcknolapor
print
print ("\t1. Kepala Kepolisian dengan ini menerangkan bahwa : ")
print ("\t\tNama : "), skcknamapelapor
print ("\t\tTempat tanggal lahir : "), skckkelahiran
print ("\t\tKebangsaan : "), skckkebangsaanpelapor
print ("\t\tAgama : "), skckagamapelapor
print ("\t\tPekerjaan : "), skckpekerjaanpelapor
print ("\t\tAlamat : "), skckalamatpelapor
print ("\t\tNo. KTP : "), skcknoktp
print ("\t   Setelah diadakan penelitian hingga saat dikeluarkan surat keterangan ")
print ("\t   ini yang didasarkan kepada : ")
print ("\t\ta. Catatan kriminal yang ada ")
print ("\t\tb. Surat Keterangan dari aarat Desa/Lurah ")
print ("\t\tc. Daftar pelaku/anggota organisasi dan atau gerakan terlarang ")
print ("\t   Maka dinyatakan sebagai berikut : ")
print ("\t   Yang bersangkutan tidak tercatat, terlibat dalam perkara pidana ")
print ("\t   maupun pelanggaran Hukum lainnya ")
print ("\t2. Surat Keterangan ini dibuat untuk keperluan : "), skckkeperluan
print ("\t3. Berlaku dari tanggal : "), skcktglpelapor
print ("\t   Sampai tanggal : "), skcktglpelapor
print ("\t4. Demikian Surat Keterangan ini dibuat dengan sebenarnya untuk ")
print ("\t   digunakan seperlunya")
print
print
salahempat()
def salah() :
os.system('cls')
ulang = 'y'
ulang = raw_input("\t\t\tInput Ulang [Y/N] : ")
if ulang == 'y':
menu()
else:
print
def salahempat () :

ulang = 'y'
ulang = raw_input("\t\t\tInput Ulang [Y/N] : ")
if ulang == 'y':
print
else:
menuadmin()

def salahlima () :
ulang = 'y'
ulang = raw_input("\t\t\tInput Ulang [Y/N] : ")
if ulang == 'y':
menuadmin()
else:
menu()
def salahsatu() :

ulang = 'y'
ulang = raw_input("\t\t\tInput Ulang [Y/N] : ")
if ulang == 'y':
print
else:
menu()
def salahdua () :
pilihan = raw_input("\t\t\tpilihan : ")
while True:
if pilihan == "1":
laporanpolisi()
elif pilihan == "2":
laporhilang()
elif pilihan == "3":
masuk()
else:
salah()
def salahtiga () :
pilihan = raw_input("\t\t\tpilihan : ")
while True:
if pilihan == "1":
pelapor()
elif pilihan == "2":
laporanvisum()
elif pilihan == "3":
skck()
elif pilihan == "4":
salahlima()
else:
salahlima()

 #Program Utama
import os
menu()

Ibu Kota, 26 juni 2014

akhukumfillah arifzainurrohman

Read More

Ubiquitous computing

ubiquitous = dimana - mana

computing = mengoperasikan komputer

     Jadi ubiquitous computing itu sendiri adalah interaksi dengan computer dimana saja, kapan saja. esensi dari komputer itu sendiri adalah alat elektronik yang memiliki processor .( input-proses-output sudah tidak relevan lagi karena kalukulator tidak memiliki processor - kata dosen ana)

     Tidak semua alat yang memiliki processor itu juga bisa disebut ubiquitos computing. Ubiquitos computing itu sendiri adalah sesuatu yang tampak mustahil dalam fikiran manusia tapi bisa diwujudkan dalam dunia nyata. Dan ubiquitous computing itu sendiri adalah fungsi tambahan dan bukan fungsi utama dan tidak menghilangkan fungsi utama. Yang terpenting adalah ubiquitous computing itu tidak nampak seperti wujud komputer seperti yang beredar sekarang ini.

     contoh satu : Helm 360 derajat. Helm ini memiliki kemampuan untuk memungkinkan penggunanya dapat melihat dalam radius arah 360 derajat, jadi ketika pengguna ingin memundurkan kendaraan atau ingin berbelok, pengguna tidak perlu lagi menolehkan kepala, cukup melihat pada kaca yang terdapat pada helm. Dan juga syarat dari ubiquitous ini harus mampu mengidentifikasi empunya atau pemiliknya agar tidak sembarang orang dapat menggunakannya. 

     contoh dua : e-learning, e-learning adalah sistem belajar jarak jauh, dan tentunya ada perangkat yang digunakan semacam komputer.

     Nah dari kedua contoh diatas sudah dapat dibedakan mana ubiquitos dan mana yang bukan, dari contoh pertama adalah ubiquitous, karena wujud dari komputernya tidak nampak dan tidak menghilangkan fungsi utamanya berfungsi sebagai helm, tetapi memiliki fungsi tambahan kemampuan melihat 360 derajat, dan akan sangat nampak berbeda dengan contoh dua, dimana wujud dari komputernya nampak jelas, dan yang dioperasikan adalah komputer. 

Kuliah KSI
Ibukota , 8 juni 2014

akhukumfillah arifzainurrohman

Suk

Read More

Caraku mencintai tanah ini, Indonesia

     Apa itu cinta ? bagaimana mencinta ? mengapa mencinta ? tidak sedikit orang yang tidak tahu dan bahkan salah mengartikan kata cinta itu sendiri. kata orang cinta adalah sebuah rasa atau emosi yang timbul karena suatu ketertarikan atau rasa simpati pada sesuatu. Cinta membuat orang untuk rela melakukan banyak hal untuk sesuatu yang dicintainya.

     Pada tulisan kali ini arti kata cinta akan penulis persempit dengan kalimat "Aku cinta indonesia". Jadi cinta yang akan dibahas disini adalah cinta pada indonesia. Dan pastinya Cinta yang menimbulkan sikap positif. apa sih cinta indonesia itu ? Menurut dosen penulis, cinta indonesia itu adalah salah satu dari bentuk pengamalan nilai - nilai pancasila dalam kehidupan sehari - hari. Ada pula yang berpendapat bahwa cinta indonesia berarti rela berkorban sepenuh hati untuk indonesia. Ya, itu tadi adalah pendapat dari beberapa orang, mungkin akan masih ada banyak lagi mengingat ada banyak manusia di indonesia ini.

     Lalu setelah ita tahu apa itu cinta, maka akan timbul pertanyaan "mengapa kita cinta ?" "untuk apa kita cinta". Pernah suatu ketika penulis tanyakan pada sesorang, antum bilang antum cinta indonesia,  kenapa sih antum cinta indonesia ? orang itu mengatakan karena indonesia itu memiliki bermacam  macam bahasa, karena ia lahir di indonesia, minum airnya, dll. Tidak sedikit pula orang - orang yang cinta indonesia karena pemandangan alamnya dan wisata - wisata, ada pula yang cinta indonesia karena keragaman budayanya, keragaman makanannya, dan yang paling penting orang indonesia itu ramah - ramah (sopan - sopan). Lalu bagaimana dengan penulis sendiri ? apa yang membuat penulis cinta dengan indonesia ? Tentu ada banyak hal yang membuat penulis cinta dengan indonesia ini, yang paling berkesan tentulah keberagaman makanan khas daerah dan budayanya.

     Lalu bagaimana cara mencintai indonesia ? Sebetulnya ada banyak cara dan banyak kesempatan serta bentuk upaya untuk mencintai indonesia ini. Ada beberapa teman dari penulis yang mengatakan bahwa belajar dengan rajin dan jujur itu sudah termasuk bentuk dari mencintai indonesia, lalu penulis pun merasa penasara, kenapa hal seperti itu bisa dikatakan upaya untuk cinta indonesia ? teman penulis menjawab bahwa pada zaman dahulu dan dari pengamatannya pada orang - orang jawa, ia katakan bahwa mereka adalah orang yang ramah - ramah dan selalu menjaga kepercayaan dan amanah yang telah diberikan pada mereka. Dengan meneladani mereka dan menjadi pribadi yang baik itu sudah cukup untuk mencintai indonesia karena perilaku dari penduduk suatu negara akan menjadi cermin bagi negara itu.

     Ada pula yang mencintai indonesia dengan ikut serta berbagi ilmu dan informasi, menjaga kebersihan, mencoba membuat kreativitas, melestarikan budaya dan permainan masa kanak kanak dahulu, mainan yang sudah sangat dilupakan, mungkin permainan seperti ingkling, congklak, bentik, kelereng dan lainnya sudah sangat jarang dimainkan oleh anak anak masa sekarang ini, seperti kehilangan identitas saja.

      Lalu bagaimana cara penulis mencintai indonesia ? Menurut penulis cinta itu bukan hanya sekedar rasa tapi juga butuh tindakan yang konkret melalu blog dan tulisan ini penulis mencoba untuk berbagi informasi dan ilmu yang telah penulis dapat selama perjalanan hidup penulis. berbagi ilmu,berbagi informasi,berbagi semangat melalui tulisan, inilah cara yang baru dapat penulis lakukan untuk saat ini. Semoga di waktu - waktu mendatang ada semacam karya nyata yang dapat penulis persembahkan sebagai rasa cinta terhadap tanah air ini, Indonesia.

 

 

 

Ibu Kota, 6 juni 2014

akhukumfillah arifzainurrohman

Read More

Kebudayaan, Wayang dan Jatilan dalam ingatan penulis

    Kota DIY merupakan salah satu kota yang menyandang nama istimewa selain DIA,  pemberian nama istimewa ini memiliki beberapa alasan yang kuat, salah satunya  adalah kebudayaan yang telah melekat. Beberapa kebudayaan yang masih penulis ingat serta pernah saksikan diantaranya adalah wayang dan jatilan.

    Hanya sedikit yang dapat penulis saksikan dan rasakan dari kebudayaan di Yogyakarta dikarenakan usia penulis yang masih belia ketika itu dan keterbatasan kesempatan untung mengeksplor kota Yogyakarta. Beberapa budaya yang pernah penulis saksikan adalah wayang dan jatilan.

    Budaya wayang seperti sebuah teater atau drama yang diperankan oleh wayang dan digerakkan oleh seseorang yang disebut dalang. Cerita yang diekspresikan dengan wayang ini ada beberapa macam diantaranya adalah cerita mahabarata dan ramayana wayang yang pernah penulis saksikan adalah wayang kulit, mengenai cerita yang dilakonkan penulis tidak memperhatikan dengan benar dikarenakan usia penulis yang masih sangat muda. peristiwa itupun terjadi sudah sangat lama dan hanya satu kali saja penulis melihat wayang itu. ( afwan ). Acara wayang yang penulis saksikan waktu itu , acara yang diadakan untuk menyambut hari kemerdekaan RI, acaranya malam sekali, dan hanya sebentar saja penulis menyaksikan dan

lebih memilih pulang.

     Wayang kulit yang menjadi budaya di Yogyakarta adalah wayang Gragag atau wayang kulit gaya Yogyakarta. Dalam acara wayang tidak hanya menampilkan wayang dan suara dari dalangnya saja. Akan tetapi diiringi juga dengan musik gamelan. Wayang menjadi budaya yang sangat populer. Bahkan sampai sekarangpun penulis rasa acara wayang ini masih sering diadakan. Ternyata bukan hanya wayangnya saja yang populer, dalangnya pun turut populer.

     Kebudayaan yang pernah penulis saksikan selanjutnya adalah jatilan. Jatilan berbeda dengan wayang, penulis cukup sering dan sangat suka dengan kebudayaan yang satu ini. Peminat Jatilan dari apa yang penulis lihat (masa kecil dulu) juga banyak. Penonton Jatilan selalu banyak memenuhi tempat, bahkan ada dari beberapa acara, penulis lihat ada beberapa penonton yang melihat dari atas pohon, ada yang datang dari desa lain, dan masih banyak peristiwa - peristiwa menarik lainnya (Di Kabupaten kulon progo terdapat banyak desa yang dipisahkan oleh sawah, jalan, dan sungai).

     Jatilan adalah kebudayaan yang dimainkan dengan berbagai alat, seperti pakaian atau costume sesuai perannya seperti peran anoman atau monyet dan peran - peran lainnya, kuda - kudaan yang terbuat dari anyaman bambu dihiasi sehingga menyerupai kuda sungguhan, tidak lupa pula cambuk untuk kudanya (^_^). Nama kuda - kudaan ini sering disebut jaran kepang, kalau penulis tidak lupa ada juga lagu yang judulnya jaran kepang (^_^).

     Jatilan ini biasanya dimulai dengan tarian - tarian dari para pemeran. Seolah - olah seperti sedang memperkenalkan para pemeran dan peran yang akan dipertunjukkan. Jatilan ini tidak kalah dari wayang, alunan musik gamelan juga mengiringi jalannya pementesan. Musik yang dialunkan bermula dengan alunan yang pelan namun tetap indah menciptakan harmoni yang selaras dengan jalannya acara.  Kemudian semakin lama alunan musiknya menjadi semakin cepat. Dari pengalaman penulis lagu  yang dimainkan ada beberapa lagu. Bahkan adapula penonton yang meminta tambah lagunya (mungkin mereka kurang puas (^_^) ).

     Ada suatu momen yang membuat penulis agak tidak suka, tetapi ada beberapa dari penonton yang sangat menunggu momen itu. Ya, momen itu momen disaat ada dari beberapa pemeran atau penari yang kerasukan roh (menurut pendapat beberapa orang). Apa yang membuat penulis merasa agak tidak suka ? momen dimana penari mulai kerasukan roh, tindakannya menjadi tidak menentu dan tidak sesuai dengan irama musiknya lagu dan tidak sesuai dengan perannya lagi. Tindakan penari yang kerasukan itu cukup merepotkan. Pernah suatu ketika seorang penari yang kerasukan menabrakkan dirinya di depan pagar tepat

didepan tempat penulis berdiri. Dan apa yang terjadi ? yang terjadi adalah berhamburannya penonton yang berdiri ditempat itu. Mereka berhamburan enyingkir tapi tidak tampak wajah panik melainkan wajah bahagia (=,=), Sesuatu ekspresi yang bertolak belakang dengan peristiwa yang terjadi. Mungkin mereka berfikir itu menyenangkan tapi entah bagaimana dengan keadaan sang pemeran atau penari.

    Namun Tidak perlu ada yang dikhawatirkan (sepertinya) karena dalam setiap acara jatilan selalu ada seseorang yang (menurut pendapat orang - orang) disebut pawang roh. Dari apa yang penulis saksikan, pawang roh ini keluar ketika penari atau pemeran itu kerasukan. Ada beberapa penari yang langsung bisa normal kembali dan ada beberapa yang cukup sulit untuk normal kembali. Momen ketika pawang roh menormalkan penari ini cukup menarik juga, terlebih lagi ketika ada penari yang sudah normal namun kembali lagi kerasukan.

    Sebenarnya budaya yang ada di kota DIY cukup banyak, namun penulis hanya menuliskan berdasarkan pengalaman pribadi penulis.

Ibu kota , 17 mei 2014

akhukum fillah arif zaiurrohman

Read More