Aku, Diriku dan Saya

Syukur (Alhamdulillahirabbil'alamin)

noreply@blogger.com (sailuf) — Sun, 15 Jul 2012 19:06:00 +0700

Ya Alloh semoga saya bukan termasuk orang yang tidak bersyukur atas semua nikmat yang telah Engkau berikan pada hambamu. Aku sangat bersyukur atas semua yang telah aku ada saat ini, dan aku tidak akan menolak apapun yang akan Engkau berikan selanjutnya. Berikan hambamu ini kekuatan dan keikhlasan agar bisa tetap menerima semua nikmat-Mu. Aamiin...!!

Banyak doa dan harapan yang ingin aku minta, tapi saya masih belum mampu untuk meminta, karena saya telah banyak melakukan kesalahan. "Kapan mau bangkit dari keadaan seperti ini?", saya juga tidak menginginkan situasi seperti sekarang, Engkau maha tahu tentang semua Makhluk-Mu, dan tahu apa isi hati dari hamba-Mu.

Tugas Delphi 1 (Struktur Data)

noreply@blogger.com (sailuf) — Sat, 5 May 2012 09:32:00 +0700

Untuk tugas kuliah yang akan diposting kali ini yaitu tugas menggunakan program delphi dengan menggunakan perintah perulangan : For to do, For downto Do, While Do, dan Repeat Until. Ditambahkan lagi program untuk mencetak hasil bilangan berbangkat. Listing programnya adalah seperti berikut ini :

unit
fortodo;

interface

uses

  Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    fortodo: TButton;

    fordowntodo: TButton;

    whiledo: TButton;

    repeatuntil: TButton;

    bt_pangkat: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Label7: TLabel;

    Edit3: TEdit;

    bt_keluar: TButton;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    procedure fortodoClick(Sender: TObject);

    procedure fordowntodoClick(Sender:
TObject);

    procedure whiledoClick(Sender: TObject);

    procedure repeatuntilClick(Sender:
TObject);

    procedure bt_keluarClick(Sender: TObject);

    procedure bt_pangkatClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure
TForm1.fortodoClick(Sender: TObject);

var

  i,j:integer; b:string;

begin

  b:=' '; j:=2;

  for i:=1 to 10 do

  begin

    b:=b+inttostr(j)+' ';

    j:=j+2;

  end;

  label1.Caption:=b;

end;

procedure
TForm1.fordowntodoClick(Sender: TObject);

var

  i,j:integer; b:string;

begin

  b:=' '; j:=2;

  for i:=10 downto 1 do

  begin

    b:=b+inttostr(i)+' ';

    j:=j+2;

  end;

  label2.Caption:=b;

end;

procedure
TForm1.whiledoClick(Sender: TObject);

var

  i,j:integer; b:string;

begin

  i:=1;

  b:=' ';

  while i<10 do

  begin

    b:=b+inttostr(i)+' ';

    i:=i+2;

  end;

  label3.Caption:=b;

end;

procedure
TForm1.repeatuntilClick(Sender: TObject);

var

  i,j:integer; b:string;

begin

  i:=1;

  b:=' ';

  repeat

    b:=b+inttostr(i)+' ';

    i:=i+1;

  until i>10;

  label4.Caption:=b;

end;

procedure
TForm1.bt_keluarClick(Sender: TObject);

begin

close;

end;

procedure
TForm1.bt_pangkatClick(Sender: TObject);

var

  bil,hasil,pangkat,a:integer;

begin

  bil:=strtoint(edit1.Text);

  hasil:=bil;

  pangkat:=strtoint(edit2.Text);

  if edit2.Text='0' then edit3.Text:='1' else

  if edit2.Text='1' then edit3.Text:=edit1.Text
else

  begin

    for a:=2 to pangkat do

    hasil:=hasil*bil;

  edit3.Text:=inttostr(hasil);

  end;

end;

end.

Dan jika dijalankan maka hasilnya seperti berikt ini :

Kalau mau sharing monggo berikan komentar,, (^_^)

Simulasi 2 Router (Cisco Packet Tracer)

noreply@blogger.com (sailuf) — Fri, 6 Apr 2012 18:21:00 +0700

Router

Router adalah sebuah alat yang mengirimkan paket data melalui sebuah jaringan atau internet menuju tujuannya, melalui sebuah proses yang dikenal dengan istilah routing¹.

Router banyak digunakan dalam jaringan komputer, karena alat ini berfungsi untuk menghubungkan jaringan yang berbeda segmen. Misalnya, dari jaringan dengan kelas A, dihubungkan dengan jaringan kelas B, jika ingin menghubungkan kedua jaringan tersebut kita harus menggunakan router.

Dalam tulisan saya kali ini, saya ingin menunjukkan cara menghubungkan 3 buah komputer yang memiliki network yang berbeda, dengan menggunakan 2 buah router sebagai medianya. Untuk simulasinya saya menggunakan program dari Cisco, yaitu Cisco Packet Tracer V5.3.

Langkah pertama buat sebuah topologi jaringan seperti dibawah ini:

Jaringan A : IP address = 1.1.1.2/8, Gateway = 1.1.1.1
Jaringan B : IP address = 128.1.1.2/16, Gateway = 128.1.1.1
Jaringan C : IP address = 192.1.1.2/24, Gateway = 192.1.1.1

Router0 pada gambar diatas mempunyai 3 buah ethernet, yaitu :
- 192.1.1.1 → jadi alamat Gateway komputer jaringan C
- 1.1.1.1 → jadi alamat Gateway komptter jaringan A
- 10.10.10.2 → jadi alamat yang menghubungkan dengan router1
Router1 punya 2 buah ethernet, yaitu :
- 10.10.10.1 → jadi alamat yang menghubungkan dengan router0
- 128.1.1.1 → jadi alamat gateway komputer jaringan B

Langkah berikutnya yaitu membuat routing untuk router0 dan router1, perhatikan gambar-gambar berikut :

Konfigurasi static routing pada packet tracer yang harus ditentukan adalah :
- Network = Alamat network jaringan yang akan dituju
- Mask = Subnet mask network tujuan
- Next Hop = Alamat router yang menjadi pintu masuk ke jaringa tujuan

Static routing router0 dan router1 pada jaringan ini adalah :
Router0 :
- 128.1.0.0/16, 10.10.10.1

*) Untuk dapat menuju ke jaringan yang mempunyai network IP 128.1.0.0 paket data melalui alamat IP 10.10.10.1 yaitu alamat IP router1.

Router1 :
- 192.1.1.0/24, 10.10.10.2
- 1.0.0.0/8, 10.10.10.2

*) Untuk dapat ke jaringan yang mempunyai network IP 192.1.1.0 dan 1.0.0.0 paket data melalui alamat IP 10.10.10.2 yang merupakan alamat IP router0.

Sampai sini konfigurasi jaringan menggunakan 2 router telah selesai, silakan di coba tes koneksi dari salah satu komputer. Pengujian yang saya lakukan seperti gambar berikut :

Fin..

My Playlist (1)

noreply@blogger.com (sailuf) — Tue, 3 Apr 2012 22:27:00 +0700

Mau share lagi link-linj video yang asik buat didengar,,,
Take a Look and Enjoy !! :)
1. Paramore (Monster)

2. Evanescence (My heart is Broken)

3. Adele (Someone Like You)

4. Avril Lavigne (Alice in Wonderland)

to be continued ...

Garis perjalanan distro Linux [PLoSoC]

noreply@blogger.com (sailuf) — Tue, 3 Apr 2012 00:07:00 +0700

[PLOSoC]: Garis perjalanan distro Linux: "LINUX" Sistem operasi fenomenal yang diperkenalkan pertama kali oleh pembuatnya Linuz Torvalds pada tahun 1991. Linux merupakan sistem ya...

I've been watch in ,,,

noreply@blogger.com (sailuf) — Mon, 2 Apr 2012 23:54:00 +0700

Bagi-bagi video di youtube yang menurutku bagus, dan jika pembaca berminat silakan dilihat juga ya,,,!! :)

1. Artist : Prisa adinda, Song : Comfortable

2. Artist : Morning Star ( Prisa Adinda ), Song : Vulnerable (Secondhand Serenade)

3. Artist : Morning Star ( Prisa Adinda ), Song : Broken (Secondhand Serenade)

4. Artist : Morning Star ( Prisa Adinda ), Song : God Only Knows

To be Continued ...

Struktur Data (Tugas 3)

noreply@blogger.com (sailuf) — Sat, 24 Mar 2012 23:09:00 +0700

Pascal : Program menghitung kombinasi bilangan

Pada tugas ini saya menggukan metode PROCEDURE, jika ingin menggunakan metode langsung yaitu memfaktorialkan tiap input bilangan tetap bisa digunakan, tapi akan lebih banyak menggunakan perulangan. Oleh karenanya lebih mudah menggunakan procedure, karena bisa digunakan berulang kali untuk tiap input angka yang ingin kita faktorialkan.

berikut listing programnya :

program kombinasi;
uses wincrt;

procedure fak (var f,hasil:real);
var i:integer;
begin
hasil:=1;i:=1;
while i <= f do
      begin
           hasil:=hasil*i;
           i:=i+1;
      end;
end;

var
   n,r,n_r,c,f1,f2,f3,k_hasil:real;

begin
     Write('Nilai N = ');readln(n);
     Write('Nilai R = ');readln(r);
     Writeln;
     n_r:=n-r;
     fak (n,f1);
     fak (n_r,f2);
     fak (r,f3);
     c:=f1/(f2*f3);
     Writeln(n:0:0,' Faktorial = ',f1:0:0);
     Writeln(n_r:0:0,' Faktorial = ',f2:0:0);
     Writeln(r:0:0,' Faktorial = ',f3:0:0);writeln;
     Writeln(n:0:0,' Kombinasi ',r:0:0,' = ',c:0:0);
end.

Jika dijalankan, tampilannya seperti gambar dibawah :

Good and Bad - Be Your Self

noreply@blogger.com (sailuf) — Tue, 13 Mar 2012 22:47:00 +0700

Membincangkan masalah dengan temanku siang tadi. Orang kaya, orang pintar, cantik, bagus, dan banyak istilah lainnya. kenapa ada istilah seperti itu, kaya, pintar, cantik, dsb,, menurut pendapat awamku, itu karena keadilan dari Alloh dalam menciptakan dunia ini dan isinya. semua diciptakan dengan berpasangan, ada perbedaan diantaranya. ada kata-kata kaya karena ada orang miskin didunia ini. ada kata-kata pintar, itu karena ada orang yang tidak pintar atau belum pintar. ada kata-kata cantik, itu juga karena ada orang yang tidak cantik. dan seterusnya. Subhanallah... Maha suci Alloh dengan semua penciptaanNya di dunia ini. Semoga kita selalu dalam lindungan Alloh dan diberikan petunjuk agar tidak jauh dari jalanNya. Amin!!

Bicara antara baik dan buruk, dari apa yang selama ini saya pikirkan, itu semua tergantung dari masing-masing individu yang menjalani. tidak ada orang yang dilahirkan menjadi buruk, yang merubah orang itu menjadi buruk itu adalah proses hidup. orang baik itu juga bukan karena dari proses yang baik pula, terkadang orang baik itu karena dari orang yang buruk. banyak cerita yang menceritakan perubahan seorang yang bener-bener dari jalan yang tidak baik, jadi berubah menjadi orang baik-baik dan membantu sesama untuk keluar dari jalan yang tidak baik itu. Alloh mempunyai jalan untuk tiap umatnya, manusia hanya bisa berupaya, tapi semuanya sudah ditentukan. Bersyukurlah karena apa yang kita miliki saat ini, orang yang baik itu tidak hanya pandangan orang lain, nilai yang sesungguhnya ada pada hati masing-masing orang. Semoga kita jadi orang yang baik didunia sampai nanti di dunia yang kekal abadi. AMIN!

"Sebagai manusia biasa yang tidak lepas dari salah dan dosa, ingatkan jika ada ucapan saya yang salah"

My World Is Full With You - Ten2Five

noreply@blogger.com (sailuf) — Sat, 10 Mar 2012 23:34:00 +0700

Dari judul tulisan ini saya bukan ingin menulis lirik lagunya Ten2Five, tapi tidak ada judul lain yang menurut saya tepat untuk tulisan saya kali ini. Prihatin melihat temanku yang ada masalah dengan pacarnya, dia curhat kalau dia selalu disakitin perasaannya sama pacarnya,tapi masih saja temanku ini tetap sayang sama dia, pertanyaanku "Kenapa kamu masih sayang sama dia?", dan temanku menjawab, dan ternyata jawabannya sesuai dengan keinginanku, apa jawabnya, "Karna aku udah sayang bgt sama cowokq...dan gak mungkin aq putus sama dia,,,", waww,, kata-kata temanku ini jawaban yang sederhana tapi jawaban yang dari hati. Memang rasa sayang tidak membutuhkan alasan, tidak ada alasan yang bener-bener tepat untuk mengungkapkan rasa sayang sama seseorang, karna rasa sayang itu yang membuat tidak bisa melupakan atau meninggalkan dia.

Dari cerita temanku ini saya bisa menanggapi, bahwa kalau hati sudah penuh maka tidak akan bisa diisi lagi. Hati yang penuh denga rasa kasih dan sayang, maka tidak akan bisa diisi atau digantikan dengan sayang yang lain. Ilmu alam lah ini saya pikir, ibaratkan hati itu seperti gelas dan sayang adalah airnya, jika gelas penuh sudah tidak bisa lagi diisi, kalu dipaksa pasti airnya
juga akan tumpah kemana-mana.

Mungkin ini juga bisa dijadikan pelajaran buat pembaca blog ini, kalau menyayangi sesuatu jangan terlalu berlebihan, kalau kita kehilangan pasti rasanya akan sakit sekali, dan untuk melepaskannya juga akan sangat sulit sekali.

Kata-kata saya ini mungkin juga benar, mungkin juga salah menurut sudut pandang pembaca sekalian, tergantung sikap para pelakunya masing-masing. Apa yang dialami temanku mungkin juga dialami oleh orang lain, dan masing-masing dari mereka tidak akan punya sols yang sama untuk masalah mereka, tapi satu hal yang menurut saya benar, perasaan sayang yang tulus tidak akan pernah membuat perasaan pasangannya menjadi sedih, sakit, kecewa karna apa yang telah kita lakukan.

"THE KEY IN RELATION BETWEEN COUPLE IS BELIEVE EACH OTHER"

Struktur Data (Tugas 2)

noreply@blogger.com (sailuf) — Sat, 10 Mar 2012 08:33:00 +0700

Tugas 2 :

Buat program untuk menampilkan rincian uang kembalian dari suatu pembelian!

Penyelesaian :

- Listing program pascal

Program rincian_uang_kembali;
uses wincrt;

var
uang,bayar,kembali : longint;

begin
write('Jumlah Bayar : ');readln(bayar);
write('Jumlah Uang : ');readln(uang);
kembali:=uang-bayar;
writeln('Total Kembali : ',kembali);

if kembali div 100000 > 0 then begin
    writeln(kembali div 100000, ' lembar seratus ribuan');
    kembali := kembali mod 100000;
end;

if kembali div 50000 > 0 then begin
    writeln(kembali div 50000, ' lembar lima puluh ribuan');
    kembali := kembali mod 50000;
end;

if kembali div 20000 > 0 then begin
    writeln(kembali div 20000, ' lembar dua puluh ribuan');
    kembali := kembali mod 20000;
end;

if kembali div 10000 > 0 then begin
    writeln(kembali div 10000, ' lembar sepuluh ribuan');
    kembali := kembali mod 10000;
end;

if kembali div 5000 > 0 then begin
    writeln(kembali div 5000, ' lembar lima ribuan');
    kembali := kembali mod 5000;
end;

if kembali div 1000 > 0 then begin
    writeln(kembali div 1000, ' lembar seribuan');
    kembali := kembali mod 1000;
end;

if kembali div 500 > 0 then begin
    writeln(kembali div 500, ' keping lima ratusan');
    kembali := kembali mod 500;
end;

if kembali div 100 > 0 then begin
    writeln(kembali div 100, ' keping seratusan');
    kembali := kembali mod 100;
end;

end.

- Hasil Output program

~sai~

Struktur Data (Tugas1)

noreply@blogger.com (sailuf) — Sat, 3 Mar 2012 09:53:00 +0700

Mata Kuliah : Struktur Data

Soal :

1. Buat program untuk perkalian 2 Matrix !

2. Buat Program untuk Menampilkan Matrix dibawah ini :

0 0 0 0 1

0 0 0 1 0

0 0 1 0 0

0 1 0 0 0

1 0 0 0 0

Jawaban : (Listring program dan contoh hasil output program)

1. Listing program :

program matrik;
uses wincrt;
var
   A,B,C:ARRAY[1..10,1..10] of integer;
   X,Y,KOL,BAR:INTEGER;
begin
     WRITE('Jumlah Kolom=');READLN(KOL);
     WRITE('Jumlah Baris=');READLN(BAR);
     WRITELN;
WRITELN('Masukkan Matrik A');
for X:=1 to BAR do
begin
     for Y:=1 to KOL do
     begin
          write('[',X,':',Y,']=');Readln(A[X,Y]);
     end;
end;

WRITELN('Masukkan Matrik B');
for X:=1 to BAR do
begin
     for Y:=1 to KOL do
     begin
          write('[',X,':',Y,']=');Readln(B[X,Y]);
     end;
end;

for X:=1 to BAR do
begin
     for Y:=1 to KOL do
     begin
          C[X,Y]:=A[X,Y]*B[X,Y];
     end;
end;

Writeln('Hasil Perkalian');
for X:=1 to BAR do
begin
     for Y:=1 to KOL do
     begin
          write(C[X,Y]:4);
     end;
     writeln;
end;
end.

hasil output program:

2. Listing Program :

program matrik;
uses wincrt;
var
   A,B,C:ARRAY[1..10,1..10] of integer;
   X,Y,KOL,BAR:INTEGER;
begin

for X:=1 to 5 do
begin
     for Y:=1 to 5 do
     begin
          C[X,Y]:=0;
          if x+y=6 then c[x,y]:=1;
          write(c[x,y]:4);
     end;
     WRITELN;
end;
end.

hasil output program:

Generated By TPW 1.5.1
~sai~

Butuh Inspirasi

noreply@blogger.com (sailuf) — Sun, 26 Feb 2012 09:26:00 +0700

Lama aku melihat layar monitor, mencoba untuk mencari sesuatu topik yang bisa saya gunakan untuk menulis di blog ini, tapi setelah sekian lama saya memandang tidak menemukan titik terang saya mau menulis apa. Jadi daripada gak ada kegiatan, nulis apa aja yg ada di pikiranku.

Menurut beberapa blog yang saya baca, untuk memulai menulis dalam suatu blog yang menjadi salah satu poinnya adalah tulis apapun yang ada dalam pikiranmu. Jadi saya mengikuti apa yang menjadi saran mereka, aku menulis apapun yang ada dalam pikiranku.

Memulai hari dengan segelas kopi, diminggu pagi yang cerah ini, masih ada saja beberapa kegiatan yang akan mengisi kegiatan di hari ini. Udah lah mau pulang dulu males nulis..

~sai~

Dear Friends!!

noreply@blogger.com (sailuf) — Sat, 25 Feb 2012 23:54:00 +0700

Kawan,,

Saat kalian merasa bahwa kalian diacuhkan oleh seseorang, janganlah beranggapan bahwa acuhnya mereka semua dari kesalahanmu. Coba kita berpikir ke belakang, mengapa hal itu terjadi. Terkadang kita berpikir bahwa diacuhkan oleh seseorang membuat kita merasa tidak dibutuhkan oleh mereka, dan mereka tidak suka dengan kita, padahal pada dasarnya tidak ada orang yang tidak suka/butuh dengan kita, semua orang pasti memiliki waktu untuk merasa perlu dengan kita. Kalau dipikir lagi memang tidak nyaman rasanya kalau diacuhkan, hidup terasa tidak tenang, tidak ada orang yang peduli dengan kita.
Apalagi yang hubungannya dengan orang yang kita suka/sayangi, pastinya akan sangat menyiksa sekali kalau kita tidak diperhatikan, jangankan sehari,
satu jam saja kita tidak diperhatikan pastinya pikiran kita tidak akan tenang.
Hubungan semacam itu, katakanlah kita sedang suka sama seseorang pastinya ada perasaan yang membuat kita selalu ingin dapat perhatian dari dia, ingin selalu melihat dia, ingin selalu bersama dengan dia. Tapi pada saat kita dekat dengan dia, dan dia tidak memberikan tanggapan yang menunjukkan bahwa dia "Welcome" dengan keberadaan kita, ingatlah bahwa ada waktunya sendiri buat dia untuk memberikan perhatian kepada kita. Jangan terlalu berlebihan meminta dia untuk memberikan perhatiannya kepada kita, karena itu adalah haknya dia, tapi juga jangan membiarkan dia selamanya tidak menganggap kehadiran kita.
Senang pada sesuatu hal adalah perjuangan, jangan menyerah hanya karena hal kecil seperti itu, terus kejar sampai kita mendapatkannya. Kalau tidak mendapatkannya, anggaplah kita latihan untuk mendapatkan yang lebih baik lagi.
(~_~')

~sai~

Confused again!!

noreply@blogger.com (sailuf) — Thu, 23 Feb 2012 00:53:00 +0700

What am i thingking>?

sekian lama gak pernah nulis, jadi bingung mau nulis apa, ya jadi sejalannya jari aja di keyboard lah, klo bisa dibaca ya syukur, klo gk bisa dibaca namanya juga bingung mau nulis apa, jadi maklum aja.

banyak sekali isi otak ini, mau pecah saja rasanya memikirkannya, jadi daripada gak ada pelampiasaan, mending dibuat kata2 aja di blog ini, itung2 nambah arsip di blog ini, abis lama gak pernah nulis lagi sih.

yah, untuk permulaan begini aja sudah, gak tahu mau nulis apalagi, udah buntu pikirannya. gak ada inspirasi, gak ada spirit mau nulis.

Life Free with Open Source

noreply@blogger.com (sailuf) — Sun, 20 Mar 2011 07:17:00 +0700

Menurut saya Free itu adalah bebas untuk melakukan sesuatu, tanpa ada ikatan, tanpa ada aturan yang menyusahkan. Bebas tidak hanya dalam hidup tapi juga dalam banyak hal. Salah satunya yaitu Copyright dan Copyleft. Kopi Kanan (Copyright) banyak sekali aturan yang harus diikuti agar tidak terjadi pelanggaran atau penyalahgunaan dalam pemakaiannya, kopi kiri (Copyleft) tidak banyak aturan yang mengekang penggunanya. Tapi mengapa hal yang mudah dan tidak memberatkan itu sulit untuk diterapkan.

Life Free with Open Source

Open source merupakan salah satu dari banyak harapan untuk mengatasi kopi kanan yang menurut saya dimonopoli oleh satu usaha, yang pemakainya semua dituntut untuk membeli.Jangan lagi kita mau diperdaya untuk menjadi para kopi kanan, kita bebas memakai apapun yang kita suka, baik itu Free ataupun Non Free.

Jaya Terus Open Source dan Pemuda Indonesia!