The Power of Online Community

Jaman sekarang, teknologi berkembang dengan pesat. Khususnya teknologi informasi dan komunikasi. Tidak dapat dipungkiri bahwa komunitas online yang berkembang di dunia maya menjadi suatu fenomena tersendiri yang menarik untuk dibahas.

 

Untuk membangun komunitas online di dunia maya, tentunya tidak mudah. Ada beberapa prinsip dasar yang diperlukan untuk membangun komunitas di Internet:

      1.       Sharing (Saling Berbagi dan tidak ada yang dirugikan)

      2.       Bermanfaat bagi user(pengguna)

      3.       Kesalingtergantungan

      4.       Dari ‘mulut ke mulut’

Kemudian hal yang penting pula adalah trik teknis dan trik non-teknis dalam membangun komunitas di dunia maya. Trik Teknis dalam membangun komunitas adalah pengembangan horizontal, di mana ketika user makin bertambah banyak dan kapasitas perangkat keras sudah tidak memadai, kita tinggal menambahkan server ataupun sesuatu yang kurang tanpa harus merombak ataupun mengkoding ulang seluruh sistem sehingga tidak ada yang namanya server down ataupun harus maintenance ulang. Trik non-teknis dalam membangun komunitas adalah kumpulkan user sebanyak mungkin, agar koumnitas dapat berjalan dengan sendirinya tanpa harus dikelola secara langsung oleh admin.

Untuk memudahkan pengelolaan suatu forum/komunitas di Internet, akan lebih baik jika sistem pengelolaannya dibagi menjadi 3 tingkatan : Admin, Super Moderator, dan Moderator

Berikut ini beberapa tips dalam mengembangkan komunitas/forum online :

      1.       Konsisten berbagi

      2.       Komunitas harus dapat menerima

      3.       Komunitas terus berkontribusi

      4.       Kembangkan jaringan komunitas

      5.       Terus berinovasi dan kembangkan kreativitas

Yang terakhir dari tulisan singkat ini. Pesan sponsor : Milikilah ‘Jiwa Kepemilikan’. Maksudnya jika kita telah berhasil membangun sebuah komunitas online, teruslah kembangkan komunitas tersebut dan perbanyak user seolah-olah kita merasa tidak memiliki apapun.

Sumber : Seminar “The Power of Online Community” tanggal 24 September 2011 oleh DKA – Comlabs USDI ITB

Algoritma Permainan Tebak Kartu

Sudah lama saya tidak menulis di blog, maka saya mencoba untuk menulis kembali di blog setelah sekian lama. Berikut ini adalah Algoritma Permainan Tebak Kartu yang diimplementasikan pada program pascal.

program tebak_kartu;
uses crt;

(* Kamus *)
var
 x : byte;
 jumlah : byte;
 ch : char;
 cc : char;

label ku;
label ul;
label ba;

(* Subprogram *)

procedure displayheader;
begin
    clrscr;
    textbackground(lightblue);
    textcolor(white);
    writeln;
    writeln('###############################################################################');
    writeln('########################## Program Tebak Angka ################################');
    writeln('###############################################################################');
    writeln('########################### Created by : Azka #################################');
    writeln('################### Copyright (C) 2011 All Rights Reserved ####################');
    writeln;
end;

procedure TampilkanKartu (kartu:byte);
var
 y : byte;
begin
 for y:=1 to 255 do
  begin
   if (y and (1 shl (kartu-1)) <> 0) then
    write(y:4,' ');
  end;
end;

(* Algoritma *)
begin
ul:
clrscr;
 displayheader;
 writeln('Selamat datang di program tebak angka ');
 writeln('Untuk bermain, silahkan ikuti petunjuk di bawah');
 writeln;
 writeln('Pikirkan suatu bilangan antara 1 sampai 255');
 writeln('Jika sudah, silahkan tekan sembarang tombol');
 ch:=readkey;
 jumlah :=0;
 for x:=1 to 8 do
  begin
   clrscr;
   displayheader;
   TampilkanKartu(x);
   ku:
   writeln;
   write('Apakah bilangan yang Anda pikirkan ada di atas (Y/T) ? ');
   readln(ch);
   if upcase(ch) = 'Y' then
    inc(jumlah, 1 shl (x-1))
   else
   if upcase(ch) = 'T' then
   else
    begin
     writeln('Masukan Huruf Salah');
     goto ku;
    end;
  end;
 clrscr;
 displayheader;
 writeln('Bilangan yang Anda pikirkan adalah ', jumlah);
 writeln;
 ba:
 write('Apakah Anda ingin kembali bermain (Y/T) ? ');
 readln(cc);
   if upcase(cc) = 'Y' then
    goto ul
   else
   if upcase(cc) = 'T' then
    exit
   else
    begin
     writeln('Masukan Huruf Salah');
     goto ba;
    end;
 end.