Thursday 28 February 2013

Kerja Lembur, Persiapan Selekprov ASAD

SULTENG - Palu (01/03/2013), persiapan SELEKPROV yang diadakan oleh Pengprov Persinas ASAD Sulteng sisa menghitung jam, yang insyaALLAH Pembukaan akan di buka pada hari jum'at malam pada pukul 20.00 WITA.
 
 Anggota Kesekretariatan

Tampak pada gambar tersebut, para anggota seksi kesekretariatan sedang mengerjakan beberapa file yang akan dibutuhkan pada saat pertandingan, tentunya yang paling penting adalah Buku panduan untuk para peserta.

Saturday 23 February 2013

Dari layar hitam, suka linux

Palu - Sulteng (24 - 02 - 2013), karena saking sukanya sama layar hitam, akhirya linux menjadi sesuatu yang menantang untuk saya. Tidak tahu kenapa kalau bekerja di layar hitam itu enak banget, seperti tidak ada yang bisa menggangunya, kita bisa melakukan apa saja.

Linux memang membawa banyak perubahan pada saya, saya tahu mana yang bagus dan tidak bagus. Memang masing-masing SO memiliki banyak kelemahan dan kekurangan, tapi kalau linux memiliki banyak sekali keuntungan. Kalau menurut saya, linux hanya memiliki satu kelemahan, kalau mau nginstall harus connect to internet, tapi itu bukanlah suatu masalah bagi saya. Karena saya jarang melakukan penginstallan melalui internet, saya lebih suka download dahulu aplikasinya kemudian install lewat terminal.

Nah, kalau berbicara terminal, itu adalah kesukaan saya. Saya pertama kali diperkenalkan dengan linux oleh teman saya, Yaitu Laode. Dialah yang memperkenalkan saya dengan linux, terminal, dan lainnya. Yang pertama kali saya lakukan diterminal adalah mengubah suatu Grub. Disitulah saya merasa bahwa terminal sama saja dengan CMD, tapi terminal memiliki banyak sekali keunggulan daripada CMD. Untuk perintah, ada beberapa yang sama, tapi kalau perbedaannya mungkin agak sedikit banyak.

Kenapa saya suka bekerja di depan layar hitam ?, karena saya pertama kali melakukan peretasan pada saat saya kelas 2 SMP, sewaktu itu saya pergi ke warnet dengan temanku, yaitu fajar prakoso, pada saat itu yang harus saya bayar adalah senilai Rp. 6000,-. Tapi tidak tahu kenapa pada saat saya mau bayar, saya hanya bayar Rp. 1000,- saja, nah disitulah muncul rasa penasaran saya. Cara itu saya lakukan berulang-ulang, sampai akhirnya saya tahu kenapa bisa seperti itu. Tapi, akhirnya si operatornya tahu, tapi ia butuh waktu sekitar 2 jam untuk bisa mengetahuinya.

itulah sekilas tentang ketertarikan bekerja di belakang layar hitam....

Wednesday 20 February 2013

Cuaca hujan, asyiknya blogging

Palu - Sulteng (21 Februari 2013), di pagi hari yang cuacanya mendung, membuat saya untuk ngeblog lagi. Saya ingin menjadi seorang yang bisa menyampaikan apa yang saya punya walau hanya sedikit.

Dari sebuah buku, akhirnya blogging kembali

Palu - SULTENG, memang ajaib ini buku. Buku ini adalah sebuah buku yang menginspirasi saya untuk melakukan blogging kembali. Didalam buku terdapat 13 cara untuk mengasah otak kanan kita, agar seimbang dengan otak kiri (otak yang selalau digunakan ketika mengerjakan soal atau menjawab sebuah pertanyaan ilmiah).


Buku ini berisi tentang bagaimana kita mengasah otak kanan kita, sehingga bisa menjadi orang yang lebih sukes lagi. Hal ini tentunya tidak dimuat oleh buku-buku lainnya. Mungkin kita sering membeli buku pelajaran, yang didalamnya berisi tentang ilmu pengetahuan, otak kiri kita disuruh untuk terus mengingat , memahami dan belajar. Banyak orang berpikir bahwa dengan kita menjadi seorang yang pintar, maka kita bisa menjadi orang yang sukses. Padahal tidak seperti itu, orang yang otak kirinya tidak terlalu baik, ia bisa memanfaatkan otak kanannya, yang mungkin otak kanannya lebih daripada otak kirinya. Saya punya suatu gambara, "Ketika ada seorang yang terjebak didalam suatu kamar, yang pada saat itu kunci Pintu kamar tidak ada, tidak ada suatu alat apapun yang bisa membuka pintu tersebut, akhirnya ia diam sejenak untuk berpikir, bagaimana caranya saya bisa keluar dari kamar ini, padahal saya punya satu tugas yang harus saya kerjakan ????, ia terus berpikir dan berpikir, akhirnya ia ingat, bahwa ia belum melihat jendela, apakah terbuka atau tidak, ia pun bergegas melihat ke jendela, ternyata jendela dikamar itu terbuka, maka ia keluar lewat jendela tersebut". Nah seperti itulah gambaran orang yang ketika mengerjakan suatu perkerjaan, baik itu soal matematika, membuat suatu program aplikasi, membuat skripsi, dll. Ketika ia buntu, tidak menemukan cara untuk menyelesaikan tugasnya, tapi jangan cepat putus asa, pasti ada jalan keluarnya, kalau dalam Novel Negeri 5 Menara, "Man Jadda Wa Jada, Siapa yang bersungguh-sungguh, pasti akan berhasil", jadi kalau kita yakin, kita bersungguh-sungguh, pasti kita bisa. "rememeber that!"

Mungkin sedikit cerita saya ini bisa mengubah pandangan teman-teman. Terima Kasih........

AC MIlan (2) vs Barcelona (0)


Palu, dini hari 21-02-2013, AC Milan vs Barcelona, kedua tim raksasa eropa ini akan bertanding di Sansiro Stadium, Italia. Kedua tim telah mempersiapkan masing-masing strategi yang akan dipakai nanti pada saat telah bertanding.

Dalam pertandingan kali ini, Barcelona lebih di unggulkan, melihat pertemuan kedua tim, barcelona lebih banyak menang. Memang rekor ini bisa menjadi suatu tumpuan untuk barcelona dalam menghadapi milan, tapi milan tentunya sudah punya strategi khusus dalam menghadapi barca nantinya.

Akhirnya, dini hari tadi, AC Milan berhasil memenangkan pertandingan dengan skor 2-0. Gol pertama di cetak oleh Prince dan Gol kedua di cetak Muntari. Ini sungguh kemenangan yang sangat luar biasa. Ternyata Milan masih kuat dalam menghadapi barca.

Pengenalan PPM Kepada Generasi Muda DPD LDII Kota Palu



Pengenalan PPM kepada Generasi Muda DPD LDII Kota Palu – Palu, senin (28/01/2013) Biro Organisasi Kepemudaan dan Kaderisasi DPD LDII Kota Palu mengadakan presentasi pengenalan Pondok Pesantren Mahasiswa (PPM) LDII yang berada di pusat – pusat pendidikan yang ada di Indonesia.

Oleh karena semakin dekatnya ujian kelulusan terutama tingkat SLTA dan beberapa generasi penerus Lembaga Dakwah Islam Indonesia Kota Palu berkeinginan melanjutkan pendidikannya  di Perguruan Tinggi di luar Kota Palu, maka kegiatan ini dilaksanakan untuk menambah informasi sebagai alternatif tujuan melanjutkan pendidikan dimaksud.
Presentasi Pengenalan Pondok Pesantren Mahasiswa - LDII SULTENG
Acara yang diadakan di Majelis Taklim Shirotol Mustaqim Palu ini dibawakan oleh Fraga Luzmi Fahmi. Dalam pemaparannya Fraga yang saat ini sedang menempuh studinya di Universitas Gajah Mada Yogyakarta Jurusan Ilmu Geologi itu menjelaskan pentingya Pondok Pesantren Mahasiswa(PPM) bagi para mahasiswa.

“Mahasiswa – mahasiswa bisa belajar ‘lebih’, bukan hanya ilmu dunianya, tapi juga memahamkan ilmu keagamaan,”Ungkapnya. Dikutip dari LDII Sulteng

Lebih lanjut Pemenang Geoscience Student Competition, Paper Contest  ini menekankan dengan adanya PPM, kita tidak hanya sekedar ngekos akan tetapi juga diberikan program – program yang bisa melahirkan mubaligh – mubalighot yang bergelar sarjana. Sehingga akan menghasilkan generasi yang “Faham Agama, Berakhlak Baik, dan Mandiri”.

Fraga Luzmi Fahmi - LDII SulTeng
Di penghujung pertemuan Fraga mengungkapkan kesyukurannya bisa berada di PPM selama menjalani masa belajarnya. Tidak hanya kuliah tapi bisa mondok. 

“harapannya, bisa menjadi generasi yang unggul, memiliki nilai plus yaitu memiliki keutamaan dunia sebagai seorang sarjana dan memiliki keutamaan di akhirat sebagai seorang ulama' atau mubaligh”katanya.

PENGERTIAN JAVA

Java adalah bahasa pemrograman yang dapat dijalankan di berbagai computer termasuk telepon genggam. Bahasa  ini awalnya dibuat oleh James Gosling yang pada saat itu masih bergabung dengan Sun Microsystem, tapi saat ini telah menjadi bagian dari Oracle dan dirilis pada tahun 1995. Bahasa ini banyak mengadopsi sintaks yang ada pada bahasa C dan C++ namun dengan sintaks model objek yang lebih sederhana serta dukungan rutin-rutin aras bawah yang minimal. Aplikasi java pada umumnya dikompilasi ke dalam p-code (bytecode) dan dapat dijalankan pada berbagai Mesin Virtual Java (JVM). Java merupakan bahasa pemgrograman yang bersifat umum/nonspesifik (general purpose), dan secara khusus didesign untuk memanfaatkan dependensi implementasi seminimal mungkin. Karena fungsionalitasnya yang memungkinkan aplikasi java dapat berjalan pada semua system operasi yang berbeda, java dikenal dengan slogannya “tulis sekali, jalankan di manapun”. Saat ini java adalah bahasa pemrograman yang paling popular, selain dapat digunakan untuk membuat perangkat lunak aplikasi atau berbasis web.
  1.  J2ME (Java 2 Platform Micro Edtion), Java 2 Platform Microp Edition adalah salah satu jenis java yang digunakan untuk membuat aplikasi HP dan PDA, atau yang berbasis micro (kecil).
  2.  J2SE (Java 2 Platform Standard Edition), Java Standard Editoin banyak digunakan sebagai platform untuk pemrograman dalam bahasa java.
  3. J2EE (Java 2 Platform Enterprise Edition), Java Enterprises Edition banyak digunakan dalam pembuatan aplikasi skala besar/enterprise.

Pascal


Contoh-contoh Source Code Bahasa Pemrograman Pascal

A.       Array
uses wincrt; (untuk windows version and for dos “uses crt;”)
var
   nama:array [1..5] of string;
   x:integer;
begin
     clrscr;
     for x := 1 to 5 do
     begin
          write('Nama ',x,' = '); readln(nama[x]);
     end;

     for x := 1 to 5 do
     begin
          writeln(nama[x]);
     end;
readln;
end.

uses crt;
var
   nama:array [1..5] of string;
   x:integer;
begin
     clrscr;
     nama[1]:='aco';
     nama[2]:='oco';
     nama[3]:='aci';
     nama[4]:='ece';

     for x := 1 to 4 do
     begin
         writeln(nama[x]);
     end;
readln;
end.

uses wincrt;
var
   angka: array [1..5] of integer;
   x,y:integer;
begin
     clrscr;
     for x := 1 to 5 do
     begin
          write('Angka ',x,' = ');readln(angka[x]);
     end;

     for x := 1 to 5 do
     begin
          writeln(angka[x]);
          y:=y+angka[x];
     end;
     writeln;
     writeln('------------');
     writeln('Jumlah Angka = ', y);
readln;
end.

uses wincrt;
var
   no,bbarang,hbarang,bayar,rata2 : array [1..3] of integer;
   npembeli,nbarang: array [1..3] of string;
   x,a,y,z : integer;
begin
     clrscr;
     gotoxy(20,1);writeln(': : : : : : : : : : : : : : : : : : : ');
     gotoxy(20,2);writeln(': : : : : : Selamat Datang : : : : : :');
     gotoxy(20,3);writeln('_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
     writeln;
     writeln;

     write('Masukan Jumlah Transaksi = ');readln(a);
     writeln;
     clrscr;
     for x := 1 to a do
     begin
          writeln('No.', x);
          write('Nama Pembeli     = ');readln(npembeli[x]);
          write('Nama Barang      = ');readln(nbarang[x]);
          write('Banyak Barang    = ');readln(bbarang[x]);
          write('Harga Barang     = ');readln(hbarang[x]);
          writeln;
          y:=bbarang[x]*hbarang[x];
          z:=y;
          writeln;
          writeln;

     end;

     writeln('No  Pembeli  Barang  Banyak  Harga  Bayar  Rata2');

     for x := 1 to a do
     begin
          writeln(x,'   ', npembeli[x],'    ', nbarang[x],'    ', bbarang[x],'     ', hbarang[x],'   ', y,'    ',z);
     end;

readln;
end.



uses wincrt;
var
        baris : array[1..3] of integer;
        kolom : array[1..3] of integer;
        gab   : array[1..3,1..3] of integer;
        x,y   : integer;

begin
        clrscr;
        baris[1] :=2;
        baris[2] :=3;
        baris[3] :=4;
        kolom[1] :=5;
        kolom[2] :=6;
        kolom[3] :=7;

        for x := 1 to 3 do
        begin
                for y:= 1 to 3 do
                begin
                        gab[x,y]:=baris[x] + kolom[y];
                end;
        end;

        for x:= 1 to 3 do
        begin
                for y:= 1 to 3 do
                begin
                        write(gab[x,y],' ');
                        end;
                writeln;
                end;
        readln;
end.

uses wincrt;
var
        baris : array[1..3] of string;
        kolom : array[1..3] of string;
        gab   : array[1..3,1..3] of string;
        x,y,t   : integer;

begin
        clrscr;


        for x:= 1 to 3 do
        begin
                write('Masukan Jumlah Baris ', x,' = ');readln(baris[x]);
        end;

        for y:= 1 to 3 do
        begin
                write('Masukan Jumlah Kolom ', y,' = ');readln(kolom[y]);
        end;

        writeln;

        for x := 1 to 3 do
        begin
                for y:= 1 to 3 do
                begin
                        gab[x,y]:=baris[x] + kolom[y];
                end;
        end;

        for x:= 1 to 3 do
        begin
                for y:= 1 to 3 do
                begin
                        write(gab[x,y],' ');
                        end;
                writeln;
                end;
        readln;
end.

uses wincrt;
type
    matriks = array[1..2,1..2] of integer;
var
        matriksA,matriksB,Hasil : matriks;
        x,y   : integer;

begin
        clrscr;
        writeln('Matriks A');
        writeln('---------');
        for x:= 1 to 2 do
        begin
             for y:= 1 to 2 do
             begin
                  write('Matriks A ke ', x,y ,' = ');readln(matriksA[x,y]);
             end;
        end;
        writeln;

        writeln('Matriks B');
        writeln('---------');
        for x:= 1 to 2 do
        begin
             for y:= 1 to 2 do
             begin
                  write('Matriks B ke ', x,y ,' = ');readln(matriksB[x,y]);
             end;
        end;
        writeln;

        writeln('Matriks A');
        writeln('---------');
        for x:= 1 to 2 do
        begin
             for y:= 1 to 2 do
             begin
                  write(matriksA[x,y]:5,' ');
             end;
        writeln;
        end;
        writeln;

        writeln('Matriks B');
        writeln('---------');
        for x:= 1 to 2 do
        begin
             for y:= 1 to 2 do
             begin
                  write(matriksB[x,y]:5,' ');
             end;
        writeln;
        end;

        writeln;
        writeln('Hasil Penjumlahan Matriks A + Matriks B');
        for x:= 1 to 2 do
        begin
             for y:= 1 to 2 do
             begin
                  hasil[x,y]:=matriksA[x,y]+matriksB[x,y];
                  write(hasil[x,y]:5,' ');
             end;
        writeln;
        end;

readln;

end.

B.       Procedure
uses wincrt;
label
     ulang;

procedure jumlah;
var a,b,c:integer;
begin
     write('Masukan Nilai Pertama :');readln(a);
     write('Masukan Nilai Kedua :');readln(b);

     c:=a+b;

     writeln('Hasil ', a, ' + ', b,' = ', c);
end;

procedure kurang;
var a,b,c:integer;
begin
     write('Masukan Nilai Pertama :');readln(a);
     write('Masukan Nilai Kedua :');readln(b);

     c:=a-b;

     writeln('Hasil ', a, ' - ', b,' = ', c);
end;

procedure kali;
var a,b,c:integer;
begin
     write('Masukan Nilai Pertama :');readln(a);
     write('Masukan Nilai Kedua :');readln(b);

     c:=a*b;

     writeln('Hasil ', a, ' * ', b,' = ', c);
end;

procedure bagi;
var a,b:integer;
    c:real;
begin
     write('Masukan Nilai Pertama :');readln(a);
     write('Masukan Nilai Kedua :');readln(b);

     c:=a/b;

     writeln('Hasil ', a, ' / ', b,' = ', c:0:2);
end;



var
   pilih,x:char;

begin
     ulang:

     clrscr;
     writeln('::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::');

     writeln(' Pilihan Anda ');
     writeln('1. Penjumlahan');
     writeln('2. Pengurangan');
     writeln('3. Perkalian');
     writeln('4. Pembagian');
     write('Masukan Pilihan Anda : ');readln(pilih);
     writeln;

     case pilih of
        '1': jumlah;
        '2': kurang;
        '3': kali;
        '4': bagi;
     else
         writeln('Maaf anda memilih nomor yang salah');
     end;

     writeln;

     write('Apakah anda ingin mengulang (y/t) : ');readln(x);
     if (x='Y') or (x = 'y') then
     begin
          goto ulang;
     end;

readln;

end.

procedure faktorial(n:word);
var
   i,hasil:integer;
begin
     hasil:=1;
     for i := n downto 1 do
     begin
          hasil:=hasil*i;
     end;
     writeln('Faktorial ', n,'! = ', hasil);
end;

procedure fibonacci(x,y:integer);
var
   z:array [1..50] of integer;
begin
     z[1]:=1; z[2]:=1;
     write(z[1],' ');
     write(z[2],' ');
     for x := 3 to y do
     begin
          z[x]:=z[x-1]+z[x-2];
          write(z[x],' ');
     end;
     writeln;
     writeln('Suku ke-',y,' = ',z[x]);

end;

var
   a,b,c:integer;
begin
     {bilangan faktorial}
     writeln('Bilangan Faktorial');
     write('Masukan Nilai Faktorial = ');readln(a);
     faktorial(a);

     writeln;

     {bilangan fibonacci}
     writeln('Bilangan Fibonacci');
     write('Suku yang akan dicari = ');readln(b);
     fibonacci(c,b);

readln;
end.

C.       Record
uses wincrt;
procedure nowith;
type
    luassegitiga=record
    alas   :integer;
    tinggi :integer;
    luas   :real;
end;

var
   ls:luassegitiga;
begin
     read(ls.alas);
     read(ls.tinggi);
     ls.luas := ls.alas*ls.tinggi/2;
     writeln('Luas Segita = ', ls.luas:4:0);
end;

procedure with1;
type
    luassegitiga=record
    alas   :integer;
    tinggi :integer;
    luas   :real;
end;

var
   ls:luassegitiga;
begin
     with ls do
     begin
     read(alas);
     read(tinggi);
     ls.luas := alas*tinggi/2;
     writeln('Luas Segita = ', luas:4:0);
     end;
end;

begin
     writeln('No With');
     nowith;
     writeln;
     writeln('With');
     with1;
end.

uses wincrt;
type
    mahasiswa=record
    nim,nama,ket :string;
    umur :integer;
end;

var
   msiswa:array[1..3] of mahasiswa;
   i,x:integer;
begin
     write('Masukan Jumlah Mahasiswa = ');readln(x);
     for i := 1 to x do
     begin
          with msiswa[i] do
          begin
               write('NIM   :');readln(nim);
               write('Nama  :');readln(nama);
               write('Umur  :');readln(umur);
          end;
          writeln;
     end;

     for i := 1 to x do
     begin
          with msiswa[i] do
          begin
               if umur <= 17 then
               begin
                    ket:='Belum cukup umur untuk menonton';
               end
               else
               begin
                    ket:='Silahkan Menonton';
               end
          end;
     end;

     writeln('------------------------------------------------------------------------------');

     for i := 1 to x do
     begin
          with msiswa[i] do
          begin
               writeln(i,'   |   ',nim:2,'   |   ',nama:2,'   |   ',umur:2,'   |   ',ket:2);
          end;
     end;
end.

D.       Function
uses wincrt;

function pangkat(a,b:integer):longint;
var z,i:integer;
begin
     z:=1;
     for i:= 1 to b do
     begin
          z:=z*a;
          pangkat:=z;
     end;
end;

function pangkat1(var a,b,z:integer):longint;
var i:integer;
begin
     z:=1;
     for i:= 1 to b do
     begin
          z:=z*a;
          pangkat1:=z;
     end;
end;

var x,y,c:integer;
begin
     readln(x);
     readln(y);
     writeln('', x ,' pangkat ', y ,' = ', pangkat(x,y));
     writeln;
     writeln('', x ,' pangkat ', y ,' = ', pangkat1(x,y,c));
end.