Bagaimana cara membuat forum ... ???

Bagaimana cara membuat forum ... ??? gampang banget caranya tapi sebelum membuat kita harus tau dulu apa itu forum. Forum adalah tempat perkumpulan suatu komunitas secara online, yang biasanya membahas suatu topik atau masalah yang berkaitan dengan forum tersebut. Truz gimana caranya buat forum ... ??? Nanti dulu dengar penjelasan saya bro, forum bersifat bebas terserah kamu mau buat forum tentang Komputer, Design Animation, Design Photoshop, Web, Dll. Eitzz tp inget ya jangan buat forum yang merusak citra bangsa Indonesia ya, misalnya forum yang berbau pornografi karena bagi saya itu forum yang tidak sehat, tapi anehnya dengan berbau pornografi sebuah website dapat mengundang ramainya pengunjung, hmmm ... menurut saya tidak ada gunanya walaupun ramai pengunjung tapi tidak bermanfaat betul ga .. ?? ya betul lah. huh ... kayaknya dari tadi banyak omong kapan mulainya, hehehehe habis enak sih becandaan, ok langsung ja kamu menuju ke situs berikut :

http://www.forumotion.com/ lalu ikuti langkah - langkahnya, mudah koq kayak bikin blog cuma disuruh isi persyaratan truz kita pilih template buat tampilan forumnya truz klik next - next jadi deh. Selain kamu punya web forum, kamu juga dapat belajar banyak mengenai sebuah forum baik menjadi admin, moderator, dll. Rasanya cukup deh informasi yang saya berikan.

Sampai Jumpa!

Setting Kecepatan Browser Mozilla

Pernah gak BRO2 ngerasain pas lagi warnet yang walaupun sepi user tapi buat browsing ttp LEMOT ABIS, download juga pelan bgt... itu karena tiap bilik/room udah di batasi bitrate n bandwithnya... nah sekarang masalah itu mungkin bisa teratasi dengan cara ini, cara na ....
1). Buka Browser Mozilla Firefox
2). Pada Address Bar Ketik : about:CONFIG
3). Cari string di bawah ini : ( pastikan semua srting dibawah "TRUE")
contoh menggantingnya :
NETWORK.HTTP.PIPELINING FALSE ==> klik kanan dan pilih "Toggle"
NETWORK.HTTP.PIPELINING TRUE
NETWORK.HTTP.PIPELINING.MAXREQUESTS 64
NETWORK.HTTP.PROXY.PIPELINING TRUE
NETWORK.PROXY.SHARE_PROXY_SETTINGS FALSE <=== ini harus False 4). buat srting baru caranya : Klik Kiri 1X Dimana Saja, Klik Kanan [/b]NEW>>INTEGER[/b]
5). Ketik : NGLAYOUT.INITIALPAINT.DELAY Beri Nilai 0
6). Kemudian REFRESH atau Tekan F5
7). Pada Address Bar Ketik : about:BLANK
Klik Menu:
Untuk OS Windows XP TOOLS>>OPTIONS>>WEB FEATURES
Untuk OS Linux ( Vector ) EDIT >> PREFERENCES
Untuk Setting yang berbeda di beberapa OS EDIT >>ADVANCED
9). Pada Option :
ALLOW WEB SITES TO INSTALL SOFTWARE Beri Tanda Check Box Untuk mengaktifkan
10).Kemudian Tekan OK Lalu REFRESH ( F5 )
11).Masuk Ke Link Ini :

https://addons.mozilla.org/extension...firefox&id=125
atau :
https://addons.mozilla.org/extension...ltered=firefox
12).Download Software SwitchProxy Tool Versi 1.3.4
13).Setelah Selesai Jangan Tekan Tombol UPDATE
14).Klik Tanda X (tutup)Yang Ada Di Pojok Kanan Atas Dari POP UP Window Yang Muncul
15).Tutup Semua Browser Mozilla FireFox,
16).Kemudian Buka Lagi Untuk Mengaktifkan Software SwitchProxy Tool Versi 1.3.4 Yang sudah di Install Tadi
17).Kalo Instalasi Sukses, Akan Muncul Toolbar tambahan Di Bawah Toolbar Navigasi & Address Bar.
Sekarang Browser Mozilla Siap Untuk Digunakan…….
:: Message ::
-- Software SwitchProxy Tool Versi 1.3.4 Ini selain untuk Mengganti Proxy Secara Otomatis Di Browser Mozilla FireFox, Engine-nya Juga Berpengaruh terhadap Kecepatan Koneksi Internet
-- Cara Ini Sangat Efektif Bila Digunakan Di Warnet Yang Padat Pengunjung untuk Menyedot Bandwidth ( Mayoritas kecepatan akses Internet ) Ke Komputer Yang Sedang Anda Pakai
-- Perubahan Yang Signifikan Terjadi Pada koneksi Internet Dengan BROADBAND / VSAT

Klik 2x di settingan dan masukin angka-angka ini - untuk true / false booleans – mereka bakal ganti otomatis begitu klik 2x
kode:
browser.tabs.showSingleWindowModePrefs – true
network.http.max-connections – 64
network.http.max-connections-per-server – 20
network.http.max-persistent-connections-per-proxy – 10
network.http.max-persistent-connections-per-server – 4
network.http.pipelining – true
network.http.pipelining.maxrequests – 100
network.http.proxy.pipelining – true
network.http.request.timeout – 300
network.http.request.max-start-delay = 0
nglayout.initialpaint.delay = 0
If nglayout.initialpaint.delay doesnt exist, Right click, new integer.

Optional:

kode:
network.http.max-persistent-connections-per-proxy = 10
network.http.proxy.pipelining = true
network.http.proxy.version = 1.0

Tutup mozilla trus jalanin lagi.
Sekarang Mozilla lo mengGILAA KUENCEENGNYA!!.

WARNING:
Settingan ini bikin lo ngedonDot (ngedownload maksudnya hee)situs dengan amat KESURUPAN, BUT bikin Overload luar biasa ke situs yang lo tuju!
Ga bermaksud apa-apa selain kompi lain yang dapat share internet bakal lemod ABEZZZ gara-gara lo sedot benwidnya!

Next tip:
Disable IPv6 di Firefox buat bikin sejuk kecepatan load page lo!!........ soalnya hamper semua site dah ga make IPv4...........

Buka Firefox.........ketik “about:config” (enter)
cari :Network.dns.disableIPv6

Klik 2x buat ngerubah jadi 'true' trus restart Firefox.
Lo bakal mempercepat akses browsing.........page per page.
Sekarang Firefox bener-bener dah KUENCEEENGG buat lo!...
nglayout.initialpaint.delay bisa dirubah yg mana aja...bisa 0 bisa 300 ada juga yg set 30...tergantung kebutuhan.....coba 0 dulu...baru nanti kl ga ada perubahan naikan ke 300 atau nilai yg dirasa memuaskan

For ADSL:
kode:
1. Type: about:config
2. Set:
network.http.max-connections : 64
network.http.max-connections-per-server : 21
network.http.max-persistent-connections-per-server : 8
network.http.pipelining : true
network.http.pipelining.maxrequests : 100
network.http.proxy.pipelining : true

3. Lastly right-click anywhere and select New-> Integer. Name it "nglayout.initialpaint.delay" and set its value to "0". This value is the amount of time the browser waits before it acts on information it recieves. (Copy from TvM)[/code]

For Dial_ip:
kode:
browser.cache.disk_cache_ssl : true
browser.xul.error_pages.enabled : true
content.interrupt.parsing : true
content.max.tokenizing.time : 3000000
content.maxtextrun : 8191
content.notify.backoffcount : 5
content.notify.interval : 750000
content.notify.ontimer : true
content.switch.threshold : 750000
network.http.max-connections : 32
network.http.max-connections-per-server : 8
network.http.max-persistent-connections-per-proxy : 8
network.http.max-persistent-connections-per-server : 4
network.http.pipelining : true
network.http.pipelining.maxrequests : 8
network.http.proxy.pipelining : true
nglayout.initialpaint.delay : 750
plugin.expose_full_path : true
signed.applets.codebase_principal_support : true

nih gw tambahin jadi tinggal pilih aja sesuai dengan kompie loe dan koneksi loe (bagi yang bingung ma tip di atas)

1. di address bar ketik about:config

Pake settingan ini (konfigurasi normal atawa general):
kode:
network.http.pipelining, true
network.http.proxy.pipelining, true
network.http.pipelining.maxrequests, 8
content.notify.backoffcount, 5
plugin.expose_full_path, true
ui.submenuDelay, 0

Kalo kompie loe termasuk kompie yang cepat..dan koneksi internet loe termasuk koneksi yang cepat pake settingan dibawah ini
kode:
content.interrupt.parsing, true
content.max.tokenizing.time, 2250000
content.notify.interval, 750000
content.notify.ontimer, true
content.switch.threshold, 750000
nglayout.initialpaint.delay, 0
network.http.max-connections, 48
network.http.max-connections-per-server, 16
network.http.max-persistent-connections-per-proxy, 16
network.http.max-persistent-connections-per-server, 8
browser.cache.memory.capacity, 65536

Pake settingan ini kalo kompie loe termasuk kompie yang cepat, tetapi akses internetnya lemot
kode:
content.max.tokenizing.time, 2250000
content.notify.interval, 750000
content.notify.ontimer, true
content.switch.threshold, 750000
network.http.max-connections, 48
network.http.max-connections-per-server, 16
network.http.max-persistent-connections-per-proxy, 16
network.http.max-persistent-connections-per-server, 8
nglayout.initialpaint.delay, 0
browser.cache.memory.capacity, 65536

Pake settingan ini kalo kompie loe kompi yang cepat..tapi akses internetnya lemot (sama kayak di atas pilih aja salah satu)
kode:
browser.xul.error_pages.enabled, true
content.interrupt.parsing, true
content.max.tokenizing.time, 3000000
content.maxtextrun, 8191
content.notify.interval, 750000
content.notify.ontimer, true
content.switch.threshold, 750000
network.http.max-connections, 32
network.http.max-connections-per-server, 8
network.http.max-persistent-connections-per-proxy, 8
network.http.max-persistent-connections-per-server, 4
nglayout.initialpaint.delay, 0
browser.cache.memory.capacity, 65536

Pake settingan ini kalo kompie loe yang lemot,tapi akses internet loe cepat
kode:
content.max.tokenizing.time, 3000000
content.notify.backoffcount, 5
content.notify.interval, 1000000
content.notify.ontimer, true
content.switch.threshold, 1000000
content.maxtextrun, 4095
nglayout.initialpaint.delay, 1000
network.http.max-connections, 48
network.http.max-connections-per-server, 16
network.http.max-persistent-connections-per-proxy, 16
network.http.max-persistent-connections-per-server, 8
dom.disable_window_status_change, true

Pake setingan ini kalo kompie loe lemot..dan akses internetnya juga lemot
kode:
content.max.tokenizing.time, 2250000
content.notify.interval, 750000
content.notify.ontimer, true
content.switch.threshold, 750000
nglayout.initialpaint.delay, 750
network.http.max-connections, 32
network.http.max-connections-per-server, 8
network.http.max-persistent-connections-per-proxy, 4
dom.disable_window_status_change, true

Warning! Perubahan yang loe lakukan ga berarti klo lu terkoneksi di daerah yg sangat kurang dengan sinyal apalagi alo lu pade pake modem ga bereaksi apa2,, tapi coba ja bro sapa tw lu beruntung ok.

Memberi Warna record aktif pada TDBGrid

Bagi anda yang ingin memberikan warna berbeda pada record aktif TBDGrid anda dapat menambahkannya dengan beberapa baris syntax pada even DBGrid.OnDrawColumnCell :

type
TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

semoga bermanfaat

Referensi http://www.klik-kanan.com

Disable Menu dan Tombol Close

Sebuah form biasanya mempunyai tiga tombol yang terletak pada bagian title bar, yaitu tombol maximize, minimize, close.

Untuk Dengan tips di bawah ini Anda dapat mendisable tombol/menu close.

procedure TForm1.FormCreate(Sender: TObject);

var

hMenuHandle : HMENU;

begin

hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);

if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle,

SC_CLOSE, MF_BYCOMMAND);

end;

Langkah pertama adalah mencari handle dari window menu (atau System menu atau Control menu), caranya yaitu dengan menggunakan fungsi GetSystemMenu.

function GetSystemMenu (hWnd : HWND, bRevert : Boolean) : HMENU;

Parameter pertama dari fungsi GetSystemMenu adalah handle dari window atau form. Dalam contoh ini nama formnya adalah Form1.
Parameter kedua adalah bRevert. Jika nilai bRevert bernilai True maka nilai balik dari fungsi GetSystemMenu adalah NULL, sebaliknya jika bRevert bernilai False maka nilai baliknya adalah handle dari copy dari window menu.

Langkah selanjutnya adalah “menghapus” item pada window menu dengan menggunakan fungsi DeleteMenu.

function DeleteMenu (hMenu : HMENU, uPosition : integer, uFlags : integer): Boolean

Parameter pertama adalah handle dari window menu (yang merupakan hasil pencarian dengan fungsi GetSystemMenu).
Parameter kedua merupakan posisi atau pengenal menu. Jika Anda mengisi parameter ketiga dengan MF_BYCOMMAND maka parameter kedua dapat bernilai SC_CLOSE, SC_MOVE, dan SC_SIZE. Sebaliknya jika Anda mengisi parameter ketiga dengan MF_BYPOSITION maka Anda dapat mengisi parameter kedua dengan suatu nilai integer yang merepresentasikan menu Close.

Fungsi DeleteMenu akan mengembalikan nilai True jika penghapusan menu berhasil dan mengembalikan nilai False jika gagal.
Kedua perintah di bawah ini akan mendapatkan hasil yang sama:

DeleteMenu(hMenuHandle, 6, MF_BYPOSITION);

DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND)

Referensi http://www.klik-kanan.com

Hanya Angka

Kali ini saya ingin berbagi sedikit ilmu tentang bagaimana cara menginputkan hanya angka saja pada program delphi. Untuk memulai siapkan form kosong setelah itu pilih Edit pada component standard lalu Tab Events pilih OnKeyPress klik 2x lalu ketik or copas coding berikut :

procedure TForm1.Edit1KeyPress(Sender:TObject,var Key: Char);
begin
        if not(key in['0'..'9',#8]) then key:=#0;
end;

end.

Untuk melihat hasil silahkan anda Run atau tekan F9. Selamat Mencoba


Download Source code

Membuat Form Cantik Tanpa Skin

Dalam membuat sebuah program terkadang sangat kurang menarik dilihat jika  yang ditampilkan biasa - biasa saja namun untuk membuat yang menarik tentu saja kita menggunakan component - component dari sebuah program tersebut .

Tapi menurut saya tidak perlu kita harus menggunakan componet tersebut karena dengan sedikit keahlian mendesain sebuah image kita dapat membuat sebuah program dengan tampilan yang tidak kalah menarik dengan component tersebut.

Ok, kita langsung saja mulai bagaimana cara membuat form yang menarik pertama yang harus anda lakukan adalah siapkan gambar terlebih dahulu atau anda bisa membuat sendiri menggunakan MsPaint, Photoshop, Corel ataupun yang lain setelah selesai mendesain anda buka Program Delphi

- Rubah Properties BorderStyle menjadi bsNone

- Rubah autosize menjadi true

- setelah itu tambahkan component Image pilih Additional

- Lalu anda load image melalui properties cari menu Picture

- Klik Form1 dan rubah properties color menjadi warna yang anda suka

- Rubah Transparentcolor menjadi warna yang anda pilih pada properties color

- Rubah Transparentcolor menjadi true

Untuk melihatnya silahkan anda tekan F9,, tampilan bisa anda lihat cukup menarik bukan ....???? tetapi masih ada yang kurang dari tampilan tersebut ternyata form tidak bisa di geser kemana - mana dan bagaimana agar form dapat di geser ...??? hmmm,,, pertanyaan yang bagus untuk membuat form agar dapat digeser silahkan anda klik image yang terdapat pada form setelah itu anda pilih Tab Event pilih OnMouseDown lalu anda klik 2x setelah itu anda ketikan coding berikut.

Procedure Tform1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

         ReleaseCapture;

         Perform(WM_SYSCOMMAND,$f012,0);

end;

end.

Selesai sudah untuk melihat hasilnya silahkan anda Run atau tekan F9 apa yang terjadi ternyata form dapat digeser kemana - mana.

Download Source code

 

Rounded Form

Seperti biasanya delphi akan membuat form berbentuk segi empat,, dan bagaimana cara membuat agar form berbentuk lingkaran atau elips..???
Disini saya akan memberikan contoh bagaimana cara membuatnya klik 2x pada form setelah itu ketik syntax berikut ini :

procedure TForm.1.FormCreate(Sender: TObject);
var
Region : Hrgn;
begin
Region := CreateEllipticRgn(1,1,200,200);
SetWindowRgn(Handle, region, true);
end;

Untuk merubah bentuk form silahkan anda rubah nilai yang terdapat pada baris Region:=CreateEllipticRgn(1,1,200,200);" tanpa tanda kutip. Selamat mencoba semoga bermanfaat.

Referensi http://www.klik-kanan.com

Membuat Form Gradient Pada Delphi

Nih ... catatan ku semalam waktu ga bisa tidur Qu searching om google bagaimana cara membuat form gradient pada delphi ternyata Qu menemukan jawabannya,, untuk singkatnya langsung ja copas neh syntax oceee ....

procedure TForm1.FormPaint(Sender: TObject);
var
Row, Ht: Word;
IX: Integer;
begin
iX :=200 ;
Ht:=(ClientHeight + 512) div 256;
for Row := 0 to 512 do
begin
with Canvas do begin
Brush.Color := RGB(Ix,150,row);
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
IX :=(IX-1);
end;
end;
end;

untuk mengganti menjadi warna lain ubah dibagian ini
Brush.Color := RGB(Ix,150,row);

RGB merupakan kombinasi warna Red, Green, Blue. Nilai yang bisa Anda masukkan pada RGB yaitu 0 sampai 255.


Referensi http://www.klik-kanan.com