ARTIKEL MENCAPAI POTENSI HIDUP YANG MAKSIMAL

Setiap orang mendambakan masa depan yang lebih baik ; kesuksesan dalam karir,
rumah tangga dan hubungan sosial, namun seringkali kita terbentur oleh berbagai
kendala. Dan kendala terbesar justru ada pada diri kita sendiri.
Melalui karyanya, Joel Osteen menantang kita untuk keluar dari pola pikir yang
sempit dan mulai berpikir dengan paradigma yang baru.

Ada 7 langkah agar kita mencapai potensi hidup yang maksimal :

* Langkah pertama adalah perluas wawasan. Anda harus memandang kehidupan ini
dengan mata iman, pandanglah dirimu sedang melesat ke level yang lebih tinggi.
Anda harus memiliki gambaran mental yang jelas tentang apa yang akan Anda raih.
Gambaran ini harus menjadi bagian dari dirimu, didalam benakmu, dalam percakapanmu,
meresap ke pikiran alam bawah sadarmu, dalam perbuatanmu dan dalam setiap
aspek kehidupanmu.

* Langkah ke dua adalah mengembangkan gambar diri yang sehat. Itu artinya Anda harus
melandasi gambar dirimu diatas apa yang Tuhan katakan tentang Anda.
Keberhasilanmu meraih tujuan sangat tergantung pada bagaimana Anda memandang
dirimu sendiri dan apa yang Anda rasakan tentang dirimu. Sebab hal itu akan menentukan
tingkat kepercayaan diri Anda dalam bertindak. Fakta menyatakan bahwa Anda tidak akan
pernah melesat lebih tinggi dari apa yang Anda bayangkan mengenai dirimu sendiri

* Langkah ke tiga adalah temukan kekuatan dibalik pikiran dan perkataanmu.
Target utama serangan musuh adalah pikiranmu. Ia tahu sekiranya ia
berhasil mengendalikan dan memanipulasi apa yang Anda pikirkan, maka ia
akan berhasil mengendalikan dan memanipulasi seluruh kehidupanmu.
Pikiran menentukan prilaku, sikap dan gambar diri. Pikiran menentukan tujuan.
Alkitab memperingatkan kita untuk senantiasa menjaga pikiran.

* Langkah ke empat adalah lepaskan masa lalu, biarkanlah ia pergi...
Anda mungkin saja telah kehilangan segala yang tidak seorangpun patut mengalaminya
dalam hidup ini. Jika Anda ingin hidup berkemenangan , Anda tidak boleh memakai
trauma masa lalu sebagai dalih untuk membuat pilihan-pilihan yang buruk saat ini.
Anda harus berani tidak menjadikan masa lalu sebagai alasan atas sikap burukmu
selama ini, atau membenarkan tindakanmu untuk tidak mengampuni seseorang.

* Langkah ke lima adalah temukan kekuatan di dalam keadaan yang paling buruk sekalipun
Kita harus bersikap :" Saya boleh saja terjatuh beberapa kali dalam hidup ini, tetapi
tetapi saya tidak akan terus tinggal dibawah sana." Kita semua menghadapi
tantangan dalam hidup ini . KIta semua pasti mengalami hal-hal yang datang
menyerang kita. Kita boleh saja dijatuhkan dari luar, tetapi kunci untuk hidup
berkemenangan adalah belajar bagaimana untuk bangkit lagi dari dalam.


* Langkah ke enam adalah memberi dengan sukacita. Salah satu tantangan terbesar
yang kita hadapi adalah godaan untuk hidup mementingkan diri sendiri.
Sebab kita tahu bahwa Tuhan memang menginginkan yang terbaik buat kita,
Ia ingin kita makmur, menikmati kemurahanNya dan banyak lagi yang Ia sediakan buat kita,
namun kadang kita lupa dan terjebak dalam prilaku mementingkan diri sendiri.
Sesungguhnya kita akan mengalami lebih banyak sukacita dari yang pernah dibayangkan
apabila kita mau berbagi hidup dengan orang lain.

* Langkah ke tujuh adalah memilih untuk berbahagia hari ini. Anda tidak harus menunggu
sampai semua persoalanmu terselesaikan. Anda tidak harus menunda kebahagiaan
sampai Anda mencapai semua sasaranmu. Tuhan ingin Anda berbahagia apapun kondisimu,
sekarang juga !

Contoh-Contoh Program Sederhana Dengan Pascal

PINTAR KOMPUTER

Ilmu Komputer

Contoh-Contoh Program Sederhana Dengan Pascal

1. Program bagi pemula dengan struktur biasa
Program Contoh_Awal;
Uses CRT;
Var i,j,k : integer;
Begin
ClrScr;
Write(‘masukkan nilai i dan j : ‘);
Readln(i,j);
k:=i+j;
Writeln(‘nilai k : ‘,k);
Readln;
End.
2. Program bagi pemula dengan struktur biasa
Program ContohInteger;
Uses CRT;
Var y : Integer;
p : Real;
X : Real;
Begin
y := 5;
p := 6;
x := y + p;
Writeln(‘Nilai X adalah :’,x:4:1);
End.
3. Program untuk menginput sejumlah variabel dan menampilkannya
Program Contoh_Variabel;
Uses crt;
Var
Nama : string[15];
Jumlah,harga : Longint;
Nilai : real;
Begin
ClrScr;
{Memasukkan data}
Nama:=’Semen’;
jumlah:=10;
harga :=250000;
Nilai :=Harga * Jumlah ;
{Menampilkan Data yang Telah Diproses}
writeln(‘Nama Barang:’,Nama);
writeln(‘Jumlah:’,Jumlah);
writeln(‘Harga:’,Harga);
writeln(‘Nilai Barang:’,Nilai);
Readln;
end.

4. Program untuk mengolah variabel
(* Variable dan Konstanta *)
Program Contoh_2a;
Uses CRT;
Const phi = 3.14;
Var x : Integer;
y : Real;
Begin
ClrScr;
x := 5;
y := x * phi;
Writeln(‘Nilai y = ‘, y:5:2);
Readln;
End.
5. Program untuk mengolah variabel, konstanta dengan model lain
Program Contoh_2b;
Uses CRT;
Const phi = 3.14;
Var x : Integer;
y : Real;
Begin
ClrScr;
Write(‘Masukkan Harga x =’);
Readln(x);
y := x * phi;
Writeln(‘Nilai y = ‘, y:10:2);
Readln;
End.
6. Program untuk mengolah data dengan type
{ Deklarasi Type }
Program Contoh_3a;
Uses CRT;
Type bulat = Integer;
pecahan = Real;
var x : bulat;
y : pecahan;
Begin
clrscr;
Write(‘Harga x : ‘); Readln(x);
Write(‘Harga y : ‘); Readln(y);
Writeln(‘Nilai x : ‘,x:3);
Writeln(‘Harga y : ‘,y:3:0);
Readln;
End.
7. Program untuk mengolah data dengan type
{ Deklarasi Type }
Program Contoh_3b;
Uses CRT;
Type bulat = Integer;
pecahan = Real;
var x : bulat;
y : pecahan;
Label Ulang;
Begin
Ulang:
clrscr;
Write(‘Harga x : ‘); Readln(x);
Write(‘Harga y : ‘); Readln(y);
Writeln(‘Nilai x : ‘,x:3);
Writeln(‘Harga y : ‘,y:3:0);
readln;
Goto Ulang;
End.
8. Program membandingkan 2 variabel
Program Banding;
Uses CRT;
Var a, b : Integer;
Begin
ClrScr;
read(a);
read(b);
if (a >b) then
Writeln(‘Bilangan A terbesar’)
else
Writeln(‘Bilangan B terbesar’);
end.
9. Program membandingkan 3 variabel
Program BanVar2;
Uses CRT;
Var a, b, c : Integer;
Begin
write(‘Masukkan bilangan A :’); readln(A);
write(‘Masukkan bilangan B :’); readln(B);
write(‘Masukkan bilangan C :’); readln(C);
if (a>b) then
if (a>c) then
Writeln(‘Bilangan A terbesar’)
else
Writeln(‘Bilangan C terbesar’)
else
if (b>c) then
Writeln(‘Bilangan B terbesar’)
else
Writeln(‘Bilangan C terbesar’);
End.
10. Program membandingkan 3 variabel model lain
Program BanVar2;
Uses CRT;
Var a, b, c : Integer;
Begin
write(‘Masukkan bilangan A :’); readln(A);
write(‘Masukkan bilangan B :’); readln(B);
write(‘Masukkan bilangan C :’); readln(C);
if (a>b) then
if (a>c) then
begin
Writeln(‘Bilangan A terbesar’);
if (b>c) then
Writeln(‘Bilangan C terkecil’)
else
Writeln(‘Bilangan B terkecil’);
End
else
begin
Writeln(‘Bilangan C terbesar’);
Writeln(‘Bilangan B terkecil’);
end
else
if (b>c) then
begin
Writeln(‘Bilangan B terbesar’);
if (a>c) then
Writeln(‘Bilangan C terkecil’)
else
Writeln(‘Bilangan A terkecil’);
end
else
begin
Writeln(‘Bilangan C terbesar’);
Writeln(‘Bilangan A terkecil’);
end;
End.
11. Program membandingkan 3 variabel model lain
Program Bandingkan3Variabel;
Uses CRT;
Var a,b,c : Real;
jb : Char;
Begin
jb := ‘y’;
Repeat
ClrScr;
Write(‘A = ‘); Readln(a);
Write(‘B = ‘); Readln(b);
Write(‘C = ‘); Readln(c);
If (a > b) Then
If (a > c) Then
Begin
Writeln(‘Bil. A terbesar’);
if (b c) Then
Begin
Writeln(‘Bil. B terbesar’);
if (a <= c) Then
Writeln(‘Bil. A terkecil’)
Else
Writeln(‘C Terkecil’)
End
Else
Begin
Writeln(‘Bil. C terbesar’);
Writeln(‘Bil. A terkecil’)
End;
Write(‘Ulangi (y/t) : ‘); Readln(jb);
Until jb=’t’;
End.
12. Program untuk Tipe data Boolean
Program Boolean1;
Uses CRT;
var tokka : boolean;
lahir : String;
nama : String;
jawab : char;
Begin
Write(‘Masukkan nama : ‘);
readln (nama);
Write(‘Pernahkah melahirkan ?(Y/T) : ‘);
readln(jawab);
if (jawab =’Y’) or (jawab=’y’) then tokka := true
else tokka := false;
if (tokka= False) then
Writeln(‘Berarti anda pria’)
else
Writeln(‘Berarti anda wanita’)
End.
13. Program untuk membedakan bilangan ganjil dan genap
Program ContohGanjilGenap;
Uses CRT;
var i : Byte;
ganjil, genap : Byte;
Begin
Clrscr;
ganjil := 0;
genap := 0;
For i:= 1 to 100 do
Begin
if (i mod 2)=0 Then
Inc(genap)
Else
Inc (ganjil);
End;
Writeln(‘Jumlah bilangan genap : ‘,genap);
Writeln(‘Jumlah bilangan ganjil : ‘,ganjil);
Readln;
End.
14. Program untuk membedakan bilangan ganjil dan genap
Program gangen;
uses crt;
var
bil : integer;
jumgen, jumgan : Integer;
i : byte;
Label ulang;
begin
jumgen := 0;
jumgan := 0;
i := 1;
ulang:
write(‘Masukkan bila ke-’,i,’ : ‘); readln(bil);
if (bil mod 2 = 0) then
jumgen := jumgen+1
else
jumgan := jumgan+1;
if (i<10) then
begin
inc(i);
goto ulang;
end else
Begin
Writeln(‘Jumlah bilangan genap : ‘,jumgen);
Writeln(‘Jumlah bilangan ganjil : ‘, jumgan);
halt(1);
end;
end.
15. Program menggunakan label
{ Deklarasi Label }
Program Contoh_1;
Uses Crt;
Label A;
Begin
Clrscr;
a:
Writeln(‘Belajar Pascal’);
goto A;
End.
16. Program untuk mengkonversi waktu
Program BagiDIV;
Uses CRT;
var jam, menit, detik : Integer;
jlhdetik : integer;
Begin
ClrScr;
Write(‘Jam : ‘); Readln(jlhdetik);
jam := jlhdetik div 3600;
menit := (jlhdetik mod 3600) div 60;
detik := (jlhdetik mod 3600) mod 60;
Writeln(‘Jam : ‘, jam);
Writeln(‘Menit : ‘, menit);
Writeln(‘Detik : ‘, detik);
Readln;
End.
17. Program menggunakan perintah MOD
Program Modulus;
Uses CRT;
var i : Byte;
Begin
Clrscr;
for i:=1 to 10 do
Writeln(i,’ mod 3 = ‘, i mod 3);
Readln;
End.
18. Program Password
Uses CRT;
Label 5;
var kata: string[25];
i : integer;
Begin
Clrscr;
i := 1;
Repeat
Write(‘Anda Kuliah Dimana ? :’);
Readln(kata);
if i = 3 Then
Begin
Clrscr;
Writeln(‘Bye-bye’);
Goto 5;
End
Else
i := i+1;
Until Kata=’BD’;
Writeln(‘Pasword anda benar’);
5 :
End.
19. Program yang menggunakan sejumlah perintah dengan menu pilihan
uses crt;
var
jurusan, kelas, cc : string;
pil, kls : byte;
totharga, harga : longint;
jlh : integer;
begin
clrscr;
writeln(‘Pilih Tujuan’);
writeln(‘————–’);
writeln(’1.Jakarta’);
writeln(’2.Yogya’);
writeln(’3.Surabaya’);
writeln(‘————-’);
write(‘Pilih jurusan : ‘); readln(pil);
writeln;
Writeln(‘Pilih Kelas : ‘);
Writeln(’1. Eksekutif’);
Writeln(’2. Bisnis’);
Writeln(’3. Ekonomi’);
writeln;
Write(‘Pilihan Anda : ‘); readln(kls);
Write(‘Jumlah tiket : ‘); readln(jlh);
if (pil=1) then
begin
cc:=’Jakarta’;
case kls of
1 : begin
kelas := ‘Eksekutif’;
harga := 70000;
totharga := harga * jlh;
end;
2 : begin
kelas := ‘Bisnis’;
harga := 40000;
totharga := harga * jlh;
end;
3 : begin
kelas := ‘Ekonomi’;
harga := 10000;
totharga := harga * jlh;
end;
else begin
kelas := ‘tidak jelas’;
harga :=0;
totharga := harga * jlh;
end;
end;
end else
if (pil =2) then
begin
cc:=’Yogyakarta’;
case kls of
1 : begin
kelas := ‘Eksekutif’;
harga := 80000;
totharga := harga * jlh;
end;
2 : begin
kelas := ‘Bisnis’;
harga := 50000;
totharga := harga * jlh;
end;
3 : begin
kelas := ‘Ekonomi’;
harga := 20000;
totharga := harga * jlh;
end;
else begin
kelas := ‘tidak jelas’;
harga :=0;
totharga := harga * jlh;
end;
end
end else
if (pil =3) then
begin
cc:=’Surabaya’;
case kls of
1 : begin
kelas := ‘Eksekutif’;
harga := 90000;
totharga := harga * jlh;
end;
2 : begin
kelas := ‘Bisnis’;
harga := 60000;
totharga := harga * jlh;
end;
3 : begin
kelas := ‘Ekonomi’;
harga := 30000;
totharga := harga * jlh;
end;
else begin
kelas := ‘tidak jelas’;
harga :=0;
totharga := harga * jlh;
end;
end;
end else
begin
cc := ‘Tidak jelas’;
kelas := ‘Tidak jelas’;
harga := 0;
totharga := harga * jlh;
end;
writeln;
Writeln(‘Tujuan : ‘, cc);
Writeln(‘Kelas : ‘, kelas);
Writeln(‘Harga pertiket : Rp.’,harga);
Writeln(‘Harga Total : Rp.’,totharga);
readln;
end.
20. Program untuk membuat menu pilhan
Program Pilihan;
Uses Crt;
Var
pil, i : byte;
Bil, JumBilGjl, JumBilGnp, BilBes, BilKec : Integer;
Jen_kel, Hobby, Sifat : String;
piljen, pilhob : byte;
Label UlangGanGen, UlangKecBes, Ulang;
Begin
Ulang :
Clrscr;
Textcolor(15);
Writeln(‘Menu Pilihan : ‘);
Writeln(’1. Tampil semua bil ganjil dan genap sekaligus dari 10 kali input data’);
Writeln(’2. Tampil bil yang terbesar dan terkecil sekaligus dari 10 kali input data’);
Writeln(’3. Tampil sifat seseorang berdasarkan input data’);
Writeln(’4. Keluar’);
Writeln;
Write(‘Masukkan pilihan Anda : ‘); Readln(pil);
Case pil of
1 : Begin
(* Menampilkan semua bilangan ganjil dan genap
sekaligus dari 10 kali input data *)
JumBilGjl := 0; JumBilGnp := 0; i := 1;
UlangGanGen :
Write(‘Masukkan bilangan ke-’, i , ‘ : ‘); Readln (bil);
If (bil mod 2 = 0) then
JumBilGnp := JumBilGnp + 1
Else
JumBilGjl := JumBilGjl + 1;
If (i BilBes) then
Begin
BilBes := bil;
If (bil < BilKec) then
BilKec := bil;
End Else
If (bil<BilKec) Then
BilKec := bil;
If (ib Then
if a>c Then
besar :=a
Else besar := c
Else If b>c Then
besar := b
Else besar := c;
Writeln(‘Bilangan a,b,c : ‘, a,’, ‘,b,’, ‘,c);
Writeln(‘Bilangan terbesar : ‘, besar);
Readln;
End.
22. Program pengolahan data
Program SoalNo2;
Uses CRT;
Var i : Byte;
Begin
ClrScr;
i:=10;
while (i >= 1) Do
Begin
If i mod 2 = 1 Then
Begin
Write(i,’ ‘);
if i= 5 Then
exit
End;
Dec(i);
End;
Readln;
End.
23. Program pengolahan data
Program SoalNo3;
Uses CRT;
var NIM : String[9];
Nm : String[25];
nh : Char;
tgs, mid, fnl, tot : Real;
Begin
ClrScr;
Write(‘NIM : ‘); Readln(NIM);
Write(‘Nama : ‘); Readln(Nm);
Write(‘Tugas : ‘); Readln(tgs);
Write(‘MID : ‘); Readln(mid);
Write(‘Final : ‘); Readln(fnl);
tot := 0.2*tgs + 0.3*Mid + 0.5*fnl;
If tot >= 80 Then nh := ‘A’ Else
If tot >= 70 Then nh := ‘B’ Else
If tot >= 51 Then nh := ‘C’ Else
If tot >= 41 Then nh := ‘D’ Else
nh := ‘E’;
Clrscr;
Writeln(‘ DAFTAR NILAI MAHASISWA’);
Writeln(‘ JURUSAN INFORMATIKA’);
Writeln;
Write(‘NIM Mahasiwa : ‘,NIM);
Writeln(‘ Nama Mahasiswa : ‘,Nm);
Writeln(‘Nilai Tugas : ‘,tgs:3:2);
Writeln(‘Nilai Mid Test : ‘,mid:3:2);
Writeln(‘Nilai final Test : ‘, fnl:3:2);
Write(‘Total Nilai : ‘,tot:3:2);
Writeln(‘ Nilai Huruf : ‘,nh);
Readln;
End.
24. Program pengolahan data
Program Sore1;
Uses CRT;
Var a,b,c,d, kecil : Integer;
Begin
ClrScr;
Write(‘Harga a : ‘); Readln(a);
Write(‘Harga b : ‘); Readln(b);
Write(‘Harga c : ‘); Readln(c);
d:= c; c := b; b := a; a := d;
if a<b Then
if a<c Then
kecil :=a
Else kecil := c
Else If b<c Then
kecil := b
Else kecil := c;
Writeln(‘Bilangan a,b,c : ‘, a,’, ‘,b,’, ‘,c);
Writeln(‘Bilangan terkecil : ‘, kecil);
Readln;
End.
25. Program pengolahan data
Program Sore2;
Uses CRT;
Var i : Byte;
Begin
ClrScr;
i:=1;
while (i =3.00) then
Writeln(‘Anda berhasil lulus’)
else
Writeln(‘Anda perlu belajar lebih giat’)
Readln;
End.
31. Program untuk pergeseran BIT
Program BitWise;
Uses CRT;
Begin
ClrScr;
Writeln(4 shl 1);
Readln;
end.
32. Program untuk pergeseran BIT
Program BitWise;
Uses CRT;
Var x, y : Integer;
Begin
ClrScr;
Write(‘Harga x : ‘); Readln(x);
Write(‘Harga y : ‘); Readln(y);
Writeln(‘x shr y = ‘,x shr y);
Writeln(‘x shl y = ‘,x shl y);
Readln;
End.
33. Program yang menggunakan tipe data WORD
Program ContohWord;
Uses CRT, Dos;
Var hh,mm,ss,ns : Word;
i: byte;
Begin
ClrScr;
Settime(0,0,0,0);
for i := 1 to 10 do
Writeln(‘i = ‘,i);
gettime(hh,mm,ss,ns);
Writeln(hh:3,mm:3,ss:3,ns:3);
Readln;
End.
34. Program menggunakan Array
Program BalikArray;
Uses CRT;
Var a : array[1..25] of char;
temp : char;
i,n : byte;
Begin
Clrscr;
Writeln(‘Masukkan Nilai Array’);
for i:= 1 to 5 do
Begin
Write(‘a[',i,']= ‘); Readln(a[i]);
End;
clrscr;
for i := 1 to 5 do
Write(a[i],’ ‘);
Writeln;
i:=1; n:=5;
While (i<=n) do
Begin
temp := a[i];
a[i] := a[n];
a[n] := temp;
inc(i);
dec(n);
End;
for i:=1 to 5 do
Write(a[i],’ ‘);
Readln;
End.
Latihan Array :
35. typing and then run
Program Array_1D_0;
Uses CRT;
Var
n,i : byte;
a : array [1..500] of real;
Begin
clrscr;
write(‘Masukkan banyak elemen data : ‘); readln(n);
(* bagian ini untuk memasukkan elemen data array
melalui keyboard *)
writeln;
writeln(‘Data-data anda yang akan diinput melalui keyboard’);
for i := 1 to 50 do
write(chr(205));
writeln;
for i := 1 to n do
begin
write(‘Data yang ke-’,i, ‘ = ‘); readln(a[i]);
end;
(* bagian ini untuk mencetak data ke layar *)
writeln;
writeln(‘Data-data anda yang telah diinput sebelumnya’);
for i := 1 to 50 do
write(chr(205));
writeln;
for i := 1 to n do
writeln(‘Data yang ke-’,i, ‘ = ‘, a[i]:4:2);
readln;
End.
36. Typing and then Run
Program Array_1D_1;
Uses CRT;
Var
n,i : byte;
a,b : array [1..500] of real;
Begin
clrscr;
write(‘Masukkan banyak elemen data : ‘); readln(n);
(* bagian ini untuk memasukkan elemen data array
melalui keyboard *)
writeln;
writeln(‘Data-data anda yang akan diinput melalui keyboard’);
for i := 1 to 50 do
write(chr(205));
writeln;
for i := 1 to n do
begin
write(‘Data A[',i, '] = ‘); readln(a[i]);
write(‘Data B[',i, '] = ‘); readln(b[i]);
end;
(* bagian ini untuk mencetak data ke layar *)
writeln;
writeln(‘Data-data anda yang telah diinput sebelumnya’);
for i := 1 to 50 do
write(chr(205));
writeln;
for i := 1 to n do
begin
write(‘A[', i, '] = ‘ , a[i]:4:2, ‘ ‘);
writeln(‘B[', i, '] = ‘ , b[i]:4:2);
end;
readln;
End.
37. Typing and then Run
Program Array_1D_1_1;
Uses CRT;
Var
n,i : byte;
a,b,c : array [1..500] of real;
Begin
clrscr;
write(‘Masukkan banyak elemen data : ‘); readln(n);
(* bagian ini untuk memasukkan elemen data array
melalui keyboard *)
writeln;
writeln(‘Data-data anda yang akan diinput melalui keyboard’);
for i := 1 to 50 do
write(chr(205));
writeln;
for i := 1 to n do
begin
write(‘Data A[',i, '] = ‘); readln(a[i]);
write(‘Data B[',i, '] = ‘); readln(b[i]);
write(‘Data C[',i, '] = ‘); readln(c[i]);
end;
(* bagian ini untuk mencetak data ke layar *)
writeln;
writeln(‘Data-data anda yang telah diinput sebelumnya’);
for i := 1 to 50 do
write(chr(205));
writeln;
for i := 1 to n do
begin
write(‘A[', i, '] = ‘ , a[i]:4:2, ‘ ‘);
write(‘B[', i, '] = ‘ , b[i]:4:2, ‘ ‘);
writeln(’C[', i, '] = ‘ , c[i]:4:2);
end;
readln;
End.
38. Typing and then Run
Program Input_Array_1D;
Uses CRT;
Var
n,i : byte;
a,b : array [1..500] of real;
Begin
clrscr;
write(‘Masukkan banyak elemen data : ‘); readln(n);
(* bagian ini untuk memasukkan elemen data array
melalui keyboard *)
writeln;
writeln(‘Data-data anda yang akan diinput melalui keyboard’);
for i := 1 to 50 do
write(chr(205));
writeln;
(* membaca data dengan menentukan posisi input *)
i := 1;
while (i<=n) do
begin
gotoxy(2, 4+i); write(‘Data A[',i, '] = ‘); readln(a[i]);
gotoxy(25,4+i); write(‘Data B[',i, '] = ‘); readln(b[i]);
i := i+1;
end;
(* bagian ini untuk mencetak data ke layar *)
writeln;
writeln(‘Data-data anda yang telah diinput sebelumnya’);
for i := 1 to 50 do
write(chr(205));
writeln;
for i := 1 to n do
begin
write(‘A[', i, '] = ‘ , a[i]:4:2, ‘ ‘);
writeln(‘B[', i, '] = ‘ , b[i]:4:2);
end;
readln;
End.
39. Typing and then Run
Program Jumlah_Array_1D;
Uses CRT;
Var
n,i : byte;
a,b,c : array [1..500] of real;
Begin
clrscr;
write(‘Masukkan banyak elemen data : ‘); readln(n);
(* bagian ini untuk memasukkan elemen data array
melalui keyboard *)
writeln;
writeln(‘Data-data anda yang akan diinput melalui keyboard’);
for i := 1 to 50 do
write(chr(205));
writeln;
i := 1;
while (i<=n) do
begin
gotoxy(2, 4+i); write(‘Data A[',i, '] = ‘); readln(a[i]);
gotoxy(25,4+i); write(‘Data B[',i, '] = ‘); readln(b[i]);
i := i+1;
end;
(* bagian ini untuk melakukan penjumlahan Array A dan B
dan disimpan di C’ *)
for i := 1 to n do
c[i] := a[i] + b[i];
(* bagian ini untuk mencetak data ke layar *)
writeln;
writeln(‘Hasil penjumlahan dari data yang telah diinput sebelumnya’);
for i := 1 to 58 do
write(chr(205));
writeln;
for i := 1 to n do
begin
write(‘A[', i, '] = ‘ , a[i]:4:2, ‘ + ‘);
write(‘B[', i, '] = ‘ , b[i]:4:2, ‘ = ‘);
writeln(c[i]:5:2);
end;
readln;
End.
40. Typing and then Run
Program Kurang_Array_1D;
Uses CRT;
Var
n,i : byte;
a,b,c : array [1..500] of real;
Begin
clrscr;
write(‘Masukkan banyak elemen data : ‘); readln(n);
(* bagian ini untuk memasukkan elemen data array
melalui keyboard *)
writeln;
writeln(‘Data-data anda yang akan diinput melalui keyboard’);
for i := 1 to 50 do
write(chr(205));
writeln;
i := 1;
while (i<=n) do
begin
gotoxy(2, 4+i); write(‘Data A[',i, '] = ‘); readln(a[i]);
gotoxy(25,4+i); write(‘Data B[',i, '] = ‘); readln(b[i]);
i := i+1;
end;
(* bagian ini untuk melakukan penjumlahan Array A dan B
dan disimpan di C’ *)
for i := 1 to n do
c[i] := a[i] – b[i];
(* bagian ini untuk mencetak data ke layar *)
writeln;
writeln(‘Hasil pengurangan dari data yang telah diinput sebelumnya’);
for i := 1 to 58 do
write(chr(205));
writeln;
for i := 1 to n do
begin
write(‘A[', i, '] = ‘ , a[i]:4:2, ‘ – ‘);
write(‘B[', i, '] = ‘ , b[i]:4:2, ‘ = ‘);
writeln(c[i]:5:2);
end;
readln;
End.
41. Typing and then Run
Program Jumlah_Matriks_2D;
Uses CRT;
Var
n,i,j, posx : byte;
posa, posb, posc : byte;
a,b,c : array [1..10,1..10] of real;
Begin
clrscr;
writeln(‘Masukkan ukuran ordo matriks maksimum 2′);
write(‘Masukkan ukuran ordo : ‘); readln(n);
(* bagian ini untuk memasukkan elemen data array
melalui keyboard *)
writeln;
writeln(‘Data matriks yang akan diinput melalui keyboard’);
(* untuk membuat garis *)
for i := 1 to 50 do
write(chr(205));
writeln;
(* memasukkan Array A *)
i := 1;
while (i<=n) do
begin
posx := 2;
j := 1;
while (j<=n) do
begin
gotoxy(posx, 5+i); write(‘Data A[',i, ',' ,j, '] = ‘);
readln(a[i,j]);
posx := posx + 17;
j := j+1;
end;
i := i+1;
end;
(* memasukkan Array B *)
i := 1;
while (i<=n) do
begin
posx := 40;
j := 1;
while (j<=n) do
begin
gotoxy(posx, 5+i); write(‘Data B[',i, ',' ,j, '] = ‘);
readln(b[i,j]);
posx := posx + 17;
j := j+1;
end;
i := i+1;
end;
(* bagian ini untuk melakukan penjumlahan Array A dan B
dan disimpan di C’ *)
for i := 1 to n do
for j := 1 to n do
c[i,j] := a[i,j] + b[i,j];
(* bagian ini untuk mencetak data ke layar *)
writeln;
writeln(‘Hasil penjulahan dari data yang telah diinput sebelumnya’);
for i := 1 to 56 do
write(chr(205));
writeln;
i := 1;
while (i<=n) do
begin
posa := 2;
posb := 23;
posc := 47;
j := 1;
while (j<=n) do
begin
gotoxy(posa, 10+i); writeln(a[i,j]:5:0);
gotoxy(posb, 10+i); writeln(b[i,j]:5:0);
gotoxy(posc, 10+i); writeln(c[i,j]:5:0);
posa := posa + 6;
posb := posb + 6;
posc := posc + 8;
j := j+1;
end;
i := i+1;
end;
readln;
End.
42. Typing and then Run
Program Perkalian_Matriks_2D;
Uses CRT;
Var
n,i,j,k, posx : byte;
posa, posb, posc : byte;
a,b,c : array [1..10,1..10] of real;
Begin
clrscr;
writeln(‘Masukkan ukuran ordo matriks maksimum 2′);
write(‘Masukkan ukuran ordo : ‘); readln(n);
(* bagian ini untuk memasukkan elemen data array
melalui keyboard *)
writeln;
writeln(‘Data matriks yang akan diinputkan melalui keyboard’);
(* untuk membuat garis *)
for i := 1 to 50 do
write(chr(205));
writeln;
(* memasukkan Array A *)
i := 1;
while (i<=n) do
begin
posx := 2;
j := 1;
while (j<=n) do
begin
gotoxy(posx, 5+i); write(‘Data A[',i, ',' ,j, '] = ‘);
readln(a[i,j]);
posx := posx + 17;
j := j+1;
end;
i := i+1;
end;
(* memasukkan Array B *)
i := 1;
while (i<=n) do
begin
posx := 40;
j := 1;
while (j<=n) do
begin
gotoxy(posx, 5+i); write(‘Data B[',i, ',' ,j, '] = ‘);
readln(b[i,j]);
posx := posx + 17;
j := j+1;
end;
i := i+1;
end;
(* bagian ini untuk melakukan perkalian Array A dan B
dan disimpan di C’ *)
for i := 1 to n do
for j := 1 to n do
begin
c[i,j] := 0;
for k :=1 to n do
c[i,j] := c[i,j] + a[i,k] * b[k,j];
end;
(* bagian ini untuk mencetak data ke layar *)
writeln;
writeln(‘Hasil penjulahan dari data yang telah diinput sebelumnya’);
for i := 1 to 56 do
write(chr(205));
writeln;
i := 1;
while (i<=n) do
begin
posa := 2;
posb := 23;
posc := 47;
j := 1;
while (j<=n) do
begin
gotoxy(posa, 10+i); writeln(a[i,j]:5:0);
gotoxy(posb, 10+i); writeln(b[i,j]:5:0);
gotoxy(posc, 10+i); writeln(c[i,j]:5:0);
posa := posa + 6;
posb := posb + 6;
posc := posc + 8;
j := j+1;
end;
i := i+1;
end;
readln;
End.

Cara Menggunakan C++ dengan DEV

Cara Menggunakan C++ dengan DEV

Pertama-tama anda buka program dev C++
setelah itu akan ada tampilan seperti ini:
Sebelum mulai menulis code kita harus buat sebuah project dulu. Caranya click menu File>New->Project
kemudian akan keluar window sebagai berikut:

Lalu setelah klik console application > ok maka akan muncul :

lalu masukan nama yang akan di save, klik save
setelah itu masukkan kode:

#include
int main()
{
    printf("Hello World"); //cetak kelayar
    getchar();             //pause
    return 0;
}



Setelah kode tersebut dimasukan maka akan terlihat seperti ini:

setelah itu tekan f9 untuk compile & run, maka akan muncul tampilan sebagai berikut:

Nah program anda telah selesai...

Anda pasti bertanya-tanya apa sih maksud tulisan tsb nah saya jelaskan :

1. Baris pertama yang berwarna hijau disebut preprocessor directive dengan perintah include, maksudnya artinya kita menambahkan code lain dalam code kita. Yaitu code yang ada didalam file "stdio.h". sehingga dengan adanya ini maka sebelum code kita dicompile maka compiler akan menambahkan code yang di-include terlebih dulu sehingga code itu ikut dicompile bersama code kita. Kenapa kita menambahkan file ini. Alasanya ada pada line 4 disana ada tulisan printf yaitu fungsi untuk menuliskan sebuah string ke layar. fungsi ini didefinisikan didalam file "stdio.h". Maka jika dalam code kita ada yang menggunakan fungsi printf maka wajib kita meng-include file "stdio.h". File yang kita include kan biasanya ber extensi ".h" artinya header.
2. Tulisan yang berwarna biru tua dan dicetak miring adalah "comment" yaitu komentar atau catatan penulis code. Bagian ini tidak mempengaruhi apa-apa dalam program, bagian ini hanyalah catatan atau coret-coret sebagai informasi saja untuk programmer. Jadi walaupun "comment" ini dihapus program tidak ada yang berubah.
3. Tulisan int main() ini dinamakan fungsi main (fungsi utama) setiap program selalu ada fungsi utama yaitu posisi mulainya program kita. tulisan int didepan "main" dinamakan "return type".
4. Symbol "{". Symbol "{" dan "}" menandakan sebuah scope dalam code diatas scopenya adalah isi dari fungsi main. Jadi pada code ini, isi dari fungsi main adalah baris ke 4, ke 5 dan baris ke 6 yaitu setelah symbol "{" dan sebelum symbol "}" pada baris ke 7. 
5. Baris 4 adalah baris pertama dari isi fungsi main. yaitu ada fungsi printf. printf ini disebut fungsi sama halnya dengan fungsi main. bedanya disini kita bukan mengisi isi dari fungsi printf melainkan memanggil fungsi printf sedangkan isi dari fungsi printf terdapat pada file "stdio.h" itulah kenapa kita harus meng-include-kan file itu. Kegunaan dari fungsi printf adalah untuk menuliskan string kelayar. string ini kita yang menentukan, caranya adalah dengan memasukan string kedalam argument dari fungsi printf yang berada setelah symbol "(" setelah nama fungsi dan sampai symbol ")". string adalah sebuah kumpulan dari huruf (character) yang dikumpulkan oleh simbol ".
6. Baris ke 5 ada fungsi getchar, kegunaan fungsi ini adalah untuk menerima input sebuah character dari keyboard. Dalam code ini kita gunakan untuk logic pause . Jadi program ini setelah menulis kelayar akan menunggu input dari keyboard baru kemudian melanjutkan kebaris berikutnya yaitu return
7. Baris 6 ada return 0 artinya keluar dari fungsi main dan mengembalikan nilai 0.

=========================================================================

SARAN UNTUK MEMBUAT VARIABEL

=========================================================================

 

kalo kita menggunakan bahasa C++ pada Visual Basic 6.0 C++ maka tidak akan berlaku di DEV C++ di walaupun BETI . perbedaannya adalah saat memberikan Nilai Variabbel. Dev C++ tidak mengenal tapi dia lebih mengenal Tanpa huruf H.

Satu lagi Dev C++ tidak Bisa menggunakan Void main ()dia hanya Mampu menggunakan int main ().

 

Diposkan oleh: Fauzi Ahmad

CARA MENGINSTAL KOMPUTER DAN LAPTOP YANG BAIK DAN BENAR.

Sebagian orang pasti sudah pernah melakukan instalasi ulang komputer atau laptopnya. Namun, ketidaktahuan tentang cara instal ulang komputer yang baik dan benar akan membahayakan sekali, bisa-bisa setelah instal ulang kita melongo karena data-data habis terformat saat proses instal ulang, atau malah komputer Anda tidak ada suara  karena sound card tidak dikenali dan Anda tidak memiliki drivernya. disini saya ingin memberi tips bagai mana menginstal ulang pc atau laptopnya dengan baik dan benar. yang saya gunakan untuk instalasi adalah system operasi windows xp.

Sebelum instalasi kita siapkan dulu;

1. CD Installer Windows Anda kalau bisa yang Original

Banyaknya sweaping aparat di tempat-tempat publik adalah langkah untuk menekan pembajakan software. Jika Anda ketahuan memakai sistem operasi dan software bajakan tentu akan terkena dampak razia ini. Agar lebih aman pakailah CD original atau pakailah OS Open Source seperti Linux.

2. Sebelum Instal Ulang catat serial number CD Installer OS Anda
Serial number adalah hal yang penting, apa jadinya jika Anda telah melakukan proses instal ulang ternyata di tengah-tengah proses harus terhenti karena serial numbernya lupa atau tidak ada. sehingga prosses instalasi tidak bisa dilanjutkan. Jadi pastikan serial number CD Installer Anda telah Anda catat.
3. Backup terlebih dahulu data-data penting dari drive C:
Data-data yang tersimpan di folder My Documents secara default berada di drive C, jika Anda tidak melakukan backup terhadap file-file dalam folder ini bersiaplah kehilangan data-data penting yang tersimpan didalamnya. tetapi kalau Anda menyimpan data-data di drive D maka yang di drive C tidak perlu di backup.
4. Siapkanlah Driver yang sesuai dengan spesifikasi komputer Anda
Driver hardware yang tidak plug and play dengan driver bawaan OS tentu akan menjadi masalah setelah proses instalasi OS selesai. Jika OS tidak bisa mengenali perangkat suara pada sound card atau chipset sound, misalnya, dapat dipastikan komputer Anda tidak ada suaranya saat digunakan memutar musik atau film. Jadi siapkanlah driver sesuai dengan spesifikasi komputer Anda
5. Siapkanlah master program dan software  original yang dibutuhkan komputer
Program-program yang ada di komputer saat dilakukan instal ulang akan hilang tanpa jejak. Oleh karena itu siapkanlah CD-CD program yang akan Anda gunakan untuk instalasi setelah OS terinstal ulang di komputer seperti CD Microsoft Office, Multimedia, Utility, Design dan sebagainya.

Jika Bahan-bahan seperti penjelasan di atas sudah siap sekarang saat yang ditunggu-tunggu yaitu melakukan instalasi.

Proses Instalasi CD OS Windows XP :
1.Masukan CD installer Windows Xp kedalam Cd room anda.
2.Restart computer.
3.pilih booting awal ke Cd room
Untuk mengganti booting awal ke cd room anda bisa masuk ke bios dengan cara restart computer lalu tunggu tulisan Press Del to enter setup, dan anda harus menekan tombol Del yang ada di keyboard. Otomatis tampilan layar monitor akan menuju bios biasanya warna biru, kemudian anda cari sub menu yang memanagement booting (biasanya sub menu advance bios feature-boot sequence).
Jika Motherboard anda keluaran terbaru untuk mengganti booting awal ke cd room anda cukup menekan tombol F8 atau F10 atau F11, tentunya setelah anda restart.
Jika anda masih belum mengerti tanyakan pada teman anda yang menurut anda mengetahui sedikit banyak tentang cara mengganti booting awal ke cd room.
Dan jika teman anda pun gak ada yang mengerti, sebaiknya tutup artikel ini, lalu anda cuci kaki dan gosok gigi kemudian tidur saja.
4.Setelah proses booting berhasil kemudian ada tulisan press any key to boot from cd, maka anda harus menekan salah satu tombol di keyboard anda (misal tekan enter), setelah itu layar computer otomatis menjadi warna biru.
5.Anda akan berada pada layar window setup (tulisan window setup berada dipojok kiri atas), tunggu
6.kemudian muncul layar window xp proses setup (tulisan ini juga berada pada pojok kiri atas).dilayar ini anda akan dihadapkan pada pilihan seperti :
To setup window xp press ENTER
To repair winows xp installing using recovery……, press R
To quit setup……… press F3
Pada pilihan-pilihan tersebut anda pilih pilihan yang teratas yaitu anda tekan ENTER
7.Lalu anda dihadapkan pada layar window xp licenci agreement
Pada layar ini anda pilih/tekan F8
8.Kemudian anda dihadapkan lagi pada layar windows xp process setup, dilayar ini terdapat juga pilihan-pilihan seperti :
To repair, press R
To continue , press ESC (escape)
Pada pilihan-pilihan tersebut anda pilih pilihan yang kedua yaitu anda tekan ESC.
9.Kemudian anda dihadapkan lagi pada pilihan-pilihan, seperti :
To setup, press ENTER
To create……., Press C
To delete……., Press D
Pada pilihan-pilihan tersebut anda pilih pilihan yang teratas yaitu anda tekan ENTER
10.Kemudian anda juga akan dihadapkan kembali pada pilihan-pilihan, seperti :
To Continue, Press C
To Select Different….., Press ESC
Pada pilihan-pilihan tersebut anda pilih pilihan yang teratas yaitu anda tekan C


11.Lalu ada pilihan-pilihan lagi, seperti :
……….NTFS (Quick)
……..FAT (Quick)
……..NTFS
……..FAT
………Convert to NTFS/FAT
……..Leave No Change.
Pada pilihan-pilihan tersebut terserah anda mau pilih yang mana tergantung anda apakah mau memakai system NTFS atau system FAT
Tetapi penulis biasanya memakai system FAT, karena FAT bisa dibaca pada System Windows 98. Jadi pada pilihan tersebut diatas, pilih pilihan ke dua yaitu memakai System FAT. Tuliasan Quick berarti saat anda memformat Drive C tersebut Prosesnya Cepat.


12.Kemudian anda dihadapkan lagi pada pilihan-pilihan seperti :
To Format, Press F
To Select…, Press ESC
pada pilihan-pilihan tersebut anda pilih pilihan yang teratas yaitu anda tekan F
13.Lalu tekan ENTER, ENTER……
14.Anda tunggu Proses tersebut.
15.Nanti pada saat kurang lebih pada menit ke 33 akan muncul windows baru yaitu system meminta Serial Number, Waktu dan Area/Zona (pada saat memilih area/zona pilih GMT+7 yaitu area Jakarta)
16.Tunggu Proses Instalasi……….
17.Pada Saat Komputer Restart anda jangan menekan apa-apa sampai proses instalasi tersebut selesai.
18.Setelah proses instalasi selesai, kemudian anda install Drivernya.
19.Selesai .

Sekarang komputer atau laptop anda sudah bisa digunakan kembali

Demikian Penjelasan saya tentang Cara install ulang komputer atau laptop  yang baik dan benar semoga bermanfaat

Di POSTING OLEH: FAUZHI AHCMAD 

Cara Mendapatkan Uang Lewat Internet Mudah dan Gratis

9:48 PM  Mbendoll  

Ads by Google

Cara Mendapatkan Uang Lewat Internet Mudah dan Gratis - Halo sahabat saya semuanya, kalian lagi bingung tentang cara cari uang lewat internet ya? Tenang, kali ini saya akan membahas dan mengajarkan kepada anda untuk mendapatkan jutaan rupiah per bulan dari internet. Caranya cukup gampang kok, asal kalian ada kemauan dan menjalankan semua tips dan trik yang saya berikan. Hemm, oke langsung saja bisnis online yang akan saya bahas kali ini adalah bisnis program affiliasi. Apa itu affiliasi? Afiliasi adalah cara menghasilkan uang dengan menjual produk dari perusahaan atau lembaga pemilik produk (affiliate merchant), dengan bergabung menjadi pemasar produk (affiliate marketers), dan (hanya) dibayar setelah produk terjual. Udah ngerti belum? Oke, akan saya bahas lebih lanjut.

Sistem Kerja
Anda yang telah mendaftar (sebagai Affiliate Marketer) mempromosikan produk dan link affiliate anda sebagai agen. Kemudian Pembeli yang tertarik akan mengklik pada link Affiliasi anda, dan jika ada terjadi sebuah pembelian maka anda akan mendapatkan komisi dari hasil pembelian tersebut. Dan setiap terjadi penjualan anda akan diberikan komisi sebesar 10% dari hasil penjualan tersebut. Hemm, 10% kecil ya? Mungkin iya karena kalian belum mencobanya. Tapi lihat dulu penghasilan saya dalam bermain affiliasi ini. 

Lihat payment proof diatas. Total Rp. 14.250.000 penghasilan yang saya dapatkan dari internet dan itu masih ada saldo balance Rp. 9.540.000 yang masih menunggu pembayaran. Menakjubkan bukan? Apa saja yang saya lakukan untuk mendapatkan hasil seperti itu? Saya hanya facebookan dan twitteran 2-3 jam saja sehari. Ya, memang sih hoby saya adalah hanya facebookan dan twitteran. hehehee. Gimana? Mudah kan Mendapatkan Uang Lewat Internet? Saya yakin kalian juga bisa seperti saya asalkan mau berusaha.

Tuh uang hasil pertama saya main affiliasi ini jika kalian belum yakin. Pokoknya enak banget cuman maen internet dapet duit jutaan per bulan.

Bagaimana Cara Daftarnya?
Cara Daftar cukup gampang kok ikuti langkah-langkah berikut ini :
1. Klik Link Daftar Disini
2. Daftar di bagian Affiliate > Klik Daftar

3. Kemudian Isikan Data Diri anda dengan benar (Usahakan Umur anda 17+ untuk memudahkan proses Pendaftaran)

4. Ikuti Langkah selanjutnya di sana.
5. Setelah selesai mendaftar anda harus menunggu email konfirmasi dari pihak Cloap Affiliasi.
6. Setelah pendaftaran diterima silahkan lakukan promosi tips seperti yang telah saya contohkan diatas.

Oke, sudah paham belum apa yang saya utarakan diatas? Sekian dulu deh posting saya membahas tentang  Cara Mendapatkan Uang Lewat Internet Mudah dan Gratis, semoga bermanfaat bagi kalian semua. Salam sukses
Di post Oleh FAUZHI AHCMAD

CARA TAHU PASSWORD WIFI

 . Cara Mengetahui Password Wifi. 

Cara Hack / Menjebol Password Wifi. Baiklah pada kesempatan kali ini saya mulai denga judul postingan yang agak sedikit Kreatif. Yaps, saya akan share salah satu cara paling mudah dan simple Cara Mengetahui Password Wifi dengan Mudah tanpa harus membuka run atau menggunakan software yang ribet. Sudah keliling kesana kemari mencari tahu cara "Membobol Password Wifi" dan mencobanya satu persatu, dan akhirnya dari sekian banyak software yang ada, ada 1 yang saya suka namanya WirelessKeyView. 

Dengan bantuan software ini dijamin langsung topcer hee. Saya lebih memilih software ini karena paling gampang digunain, tinggal jalanin softwarenya di Windows 7 atau Windows XP dan secara otomatis akan membaca Hotspot/ Wifi yang tertangkap Wireless Kompi dan Yang paling asik langsung muncul tuh passwordnya hahaha. Mau lihat ScreenShotnya ? Nh coba lihat :

download
WirelessKeyView
atau
WEP and WPA Keygenerator
atau
WZCook
Cara Penggunaan :
1. Pastikan anda sudah di wilayah yg Wifinya dikunci
2. Buka aplikasi wzcook.exe
3. Tunggu beberapa saat hingga muncul kumpulan password2nya dan nama dari Wifinya
4. Tekan [CTRL]+[C] untuk memindah data ke directory C:\wepkeys.txt
5. Passwordnya ada pada bagian WEP KEY itu,
6. Copy Paste passwordnya
7. Klik Connect

Demikianlah cara yang dapat saya publikasikan. Semoa bermanfaat. 

Diposkan oleh Fauzhi Ahcmad 

CARA MEMBUAT GAME ONLINE

Apakah anda pasti ingin membuat game online sendiri???, disinilah jawabannya, karena saya akan berikan tips dan trik yang jelas tentang artikel ini. Berikut caranya 

-Pertama, bukasploder.com 

-Lalu, daftar dengan mengeklik join! 

-Kemudian, isikan username (INGAT!! isi dengan huruf kecil semua, karena jika kapitalnya besar atau di spasi, tidak akan bisa) beserta password 

-Setelah mengisi semua data yang diperlukan, selanjutnya adalah membuat gamenya Caranya adalah: pilih kategori gamenya, misal ingin membuat game petualangan, maka yang kita pilih adalah Platform Creator 

-Lalu, disitu akan ada bermacam2 atribut game yang sudah disediakan dari sana, jadi kita tinggal mendesain game sesuka kita 

*NB: Disini anda tidak perlu lagi mempelajari pemrograman game khusus, karena di situs ini sudah menyediakan berbagai macam alat yang relatif lengkap, jadi jika ingin membuat desain jalan, kita hanya harus menaruh pola2nya saja, sangat mudah bukan?? 

-Jika game sudah selesai dibuat, klik save yang berada di toolbar atas untuk meng-save game yang sudah kita buat, beri judul game sesuka anda, kalau sudah klik publish, selesai... 

*NB: Bagi anda yang igin memasang gamenya di blog, caranya adalah sbb: 

-Klik game yang sudah dibuat di tab My Games 

-Pilih game yang ingin anda mainkan Lalu, jika dibawah ada tulisan Get Code, klik, lalu copy kode java scriptnya 

Cara untuk memasang javascript di blog: 

-Klik Tata letak (untuk versi sekarang) atau Rancangan (untuk versi lawas) 

-Pilih Tambah Gadget 

-Pilih HTML/Javascript, pastekan kodenya di kotak yang tersedia (anda juga bisa mengcopy di entri baru, lalu pilih ke mode html, klik publish) 

-Klik Simpan dan lihat hasilnya 

Begitulah tips yang bisa saya berikan untuk anda semua pembaca blog ini, mudah2an bisa bermanfaat