Bagi Ilmu

Tutorial Membuat Wordpress Ofline

Hay semua thx ya sudah mampir ke blog ane, ane mau bagi ilmu lagi nih buat kalian yang mau belajar buat website pake wordpress secara ofline gak perlu lama - lama langsung aja ya yuk hehehehe. . . . .

Langkah Pertama membuat folder penyimpanan

Selesai membuat folder kemudian Download wordpress di id.wordpress.org

Coba ke drive C:/appserv/www copy folder PhpMyAdmin letakan di folder kita di driver D:, Hasil Download wordpress di copykan ke folder kita kemudian di extract lalu ubah nama tempat penyimpanan seperti gambar dibawah.

Langkah selanjutnya cari dan buka apache edit di windows

Cari documentroot enter 2 kali, ubah document root dengan alamat penyimpanan folder kita seperti gambar dibawah.

Langkah selanjutnya cari directory enter sebanyak 5 kali ubah kembali nama alamat folder penyimpanan seperti yang sebelumnya.

Jangan lupa cari apache restart

Langkah berikutnya pindahkan Folder kita tadi yang telah berisi wordpress dan PhpMyAdmin ke drive c:/appserv/www (di dalam folder www ada file index dan Phpinfo hapus kedua file tersebut). Masuk ke localhost seperti gambar dibawah.

Buka folder phpMyAdmin untuk masuk isi user name : root dan password : 12345

Jika sukses masuk kedalam localhost phpMyAdmin buat nama database lalu ciptakan seperti gambar berikut.

Buka tab baru, localhost kemudian buka wordpress

Setelah masuk wordpress langkah selanjutnya pemilihan bahasa.

Isi data jangan lupa di catat site title nama website yang akan dibuat username dan password untuk masuk ke wordpress

Setelah masuk maka akan tampil halaman Dashboard tempat penyetingan website yang kita buat di wrodpress

Untuk melihat website.

Tampilan website kita.

Sukses terimakasih telah melihat tutorial cara membuat website menggunakan wordpress secara offline, Selamat mencoba dan Semoga Bermanfaat ^_^

SIMPLE DELPHI 7

Buat agan - agan yang baru belajar delphi pasti di buat pening sama code - code nya, hahahaha sama aja gan saya juga gitu. Nah karena disini kita sama - sama belajar mimin yang kece ini mau bagi sedikit pengetahuan yang ane dapet dari Dosen Favorit ane hehehe, gak pake lama - lama kita langsung aja yuk.
Pertama bukan Aplikasi Delphi 7.

Gambar: Tampilan Form Delphi

masukan Label dengan icon A kedalam Form, ganti caption Label dengan "Angka" gunanya sebagai nama untuk label yang ada pada Form.

masukan Edit untuk menginput data, dengan icon abc.

masukan kembali label dengan caption "terbilang" dan masukan memo untuk menampilkan "terbilang"

masukan "button" dengan caption "Proses" gunanya sebagai tombol untuk memproses nilai yang telah dimasukan pada edit.

klik 2 kali pada "button proses" untuk memasukan coding

--------------------------------------------------------------------------------------------------------------

var

varangka:array[1..9] of string=('satu','dua','tiga','empat','lima','enam',

'tujuh','delpan','sembilan');

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if length(edit1.Text)= 3 then

if Edit1.Text='110' then Memo1.Text:='seratus sepuluh' else

if Edit1.Text='111' then Memo1.Text:='seratus sebelas' else

if Edit1.Text='120' then Memo1.Text:='seratus dua puluh' else

if Edit1.Text='121' then Memo1.Text:='seratus dua puluh satu ' else

if Copy(Edit1.Text,1,1)= '1' then

memo1.Text:='seratus '+ varangka[strtoint(copy(edit1.Text,3,1))] + ' belas '

else

if Copy(Edit1.Text,1,1)= '1' then

memo1.Text:='seratus '+ varangka[strtoint(copy(edit1.Text,3,1))] + ' puluh '

+ varangka[strtoint(copy(edit1.Text,3,1))]

else

memo1.Text:=varangka[strtoint(copy(edit1.Text,1,1))] + ' ratus ' +

varangka[strtoint(copy(edit1.Text,2,1))] + ' puluh ' +

varangka[strtoint(copy(edit1.Text,3,1))]

else

if length(edit1.Text)= 2 then

if Edit1.Text='10' then Memo1.Text:='sepuluh' else

if Edit1.Text='11' then Memo1.Text:='sebelas' else

if Copy(Edit1.Text,1,1)= '1' then

memo1.Text:=varangka[strtoint(copy(edit1.Text,2,1))] + ' belas '

else

memo1.Text:=varangka[strtoint(copy(edit1.Text,1,1))] + ' puluh ' +

varangka[strtoint(copy(edit1.Text,2,1))]

else

memo1.Text:=varangka[strtoint(copy(edit1.Text,1,1))] + ' ribu '+

varangka[strtoint(copy(edit1.Text,2,1))] + ' ratus '+

varangka[strtoint(copy(edit1.Text,3,1))] + ' puluh ' +

varangka[strtoint(copy(edit1.Text,4,1))];

end;

end.

---------------------------------------------------------------------------------------------------------------

Sekian dulu ya gan, Selamat mencoba dan Semoga bermanfaat ^_^

Bagi Ilmu

Kamis, 03 Maret 2016

Selasa, 01 Maret 2016

Bagi Ilmu