Microsoft Excel Macro Button (Controls Forms) Untuk Menjalankan Perintah

Pertama-tama, kita akan buat Macro terlebih dahulu.

Gak perlu yang susah-susah, toh ini kan cuma contoh. Kita pakai fasilitas Record Macro aja.

Tolong diperhatikan dengan seksama yah.. Ikuti petunjuk-petunjuk berikut dengan teliti.

Bukan apa-apa, biar kita bisa sinkron aja. OK..

Letakkan kursor pada Cell A1. (Lihat gambar berikut:)

Selanjutnya, pilih Record Macro.

Biarkan Macro bernama Macro1, dan klik OK.

HATI-HATI..! Mulai saat ini, semua aktifitas kita akan di Record sama Excel. So, jangan sembarangan klik ya..

Memangnya, kalo asal klik kenapa?

Kalo asal klik trus nanti macro-nya gak jalan, kita gak nanggung yah.

Lanjut yah.

Sekarang, pindahkan cursor ke Cell B2. Ingat, cell B2! Setelah itu, beri warna cell dengan warna apa aja.

Sekarang, Stop Recording. Jangan klik ke mana-mana. Cukup Stop Recording aja.

Siiip.. Kita sekarang sudah punya sebuah macro dengan nama Macro1.

Kita masih butuh satu macro lagi. Karena itu, kita ulangi langkah-langkahnya sama persis dengan sebelumnya.

Ingat, mulai dari meletakkan cursor ke Cell A1 OK..

Kalo sudah sampai pada langkah memberi warna pada Cell, sekarang beri warna yang berbeda dari sebelumnya. Kalo pada contoh sebelumnya warna kuning, maka sekarang kita beri warna merah. Tapi ya suka-suka aja lah..

Setelah Stop Recording, beri nama Macro2.

Nah, kini kita sudah punya 2 macro yaitu, Macro1 dan Macro2. Kita bisa cek, ada enggak sih macro yang kita buat tadi.

Coba klik menu Macro pada Tab Menu.

Maka akan muncul window berikut:

Nah, ada dua macro kan disana. Macro1 dan Macro2. Siiiiiip..

Loh, mana neh Button-nya? Kok dari tadi gak ada Button!!!

Aih.. Sabar donk... Tadi itu baru persiapannya aja. Kan percuma kalo ada Button tapi gak ada Macro-nya. Nah, kalo udah siap, sekarang kita mo lanjut ke Button. Gimana..?

Sekarang, buat Button dari Control Forms.

Gimana caranya??

Aduuuh.. makanya baca donk turorial-tutorial yang disebutin diatas tadi. Pokoknya, kita gak akan ngulangi lagi disini. Titik..

Nah, kalo kita udah buat Button, maka akan muncul window yang meminta kita untuk memasukkan Macro. Pilih ajaMacro1 dan klik OK.

Biarkan nama Buttonnya tetap Button1.

Kalo gak muncul window, coba klik kanan pada Button dan pilih Assign Macro.

Selajutnya, buat Button kedua dan biarkan namanya Button2. Pilih Macro2 untuk di-assign ke Button2.

Nah.. Sudah selesai deh proyek kita...!

Sekarang, kita coba yah..

Klik pada Button1 dan lihat apa yang terjadi pada cell B2.

Kalo langkah-langkah tadi diikuti dengan benar, maka Cell B2 akan berubah warna menjadi Kuning.

Sekarang kita coba Klik Button2.

    

Sumber : http://www.klinikexcel.com/articles/tutorials/item/41-macro-vba/69-button-controls-forms-untuk-menjalankan-perintah

Menggabungkan isi beberapa sel menjadi satu sel

1. Menggabungkan Dua Buah Sel

Sebagai contoh dari cara menggabungkan kata ini, sobat dapat lihat pada gambar fungsi concatenate 1 dibawah ini.

fungsi concatenate 1

Dari gambar diatas fungsi ini dapat menggabungkan dua buah string teks yaitu pada data 1 (kolom A) dengan data 2 (kolom B).

Hasil penggabungan kedua kata diatas dapat dilihat pada kolom D, contoh rumus formula pada sel D2 adalah :

=CONCATENATE(A2,B2)

Penggabungan dengan cara ini akan membuat string teks pada hasil penggabungan menjadi rapat tanda adanya spasi pemisah antara strings pertama dengan strings kedua.

2. Menggabungkan Tiga Buah Sel

Berikutnya adalah contoh penggabungan 3 kolom yang berisi string, dengan cara yang sama seperti cara diatas, fungsi concatenate dapat digunakan untuk penggabungan ini seperti pada tampilan gambar fungsi concatenate 2 dibawah ini.

fungsi concatenate 2

Rumus formula untuk fungsi concatenate ini adalah menambahkan posisi sel yang akan dibagungakan. Contoh rumus pada gambar diatas pada sel D2 adalah

=CONCATENATE(A2,B2,C2)

3. Menggabungkan Kata Dengan Spasi

Pada dua contoh diatas, hasil penggabungan kata terlihat rapat tanpa adanya spasi pemisah pada hasil yang dikembalikan.

Jika sobat ingin adanya spasi diantara kata yang digabungkan, sobat bisa menambahkan sebuah kolom bantuan yang hanya berisi spasi.

Pada contoh gambar fungsi concatenate 3 berikut ini, akan ditambahkan sebuah kolom baru yang masing kosong diantara data 2 dan status. Pada kolom baru yaitu kolom C, sobat bisa memberikan sebuah tanda spasi. 

fungsi concatenate 3

Hasil penggabungan diatas dapat dilihat pada kolom E dengan contoh rumus formula pada sel E2 :

=CONCATENATE(A2,B2,C2,D2

4. Menggabungkan Kata Dengan Syarat

Penggabungan kata atau strings teks pada aplikasi ms.excel ini juga dapat dilakukan dengan syarat yang diberikan dengan menggunakan fungsi if.

Hasil penggabungan model ini akan mengembalikan fungsi concatenate untuk menggabungkan kata jika syarat terpenuhi pada fungsi if.

Sedangkan jika syarta tidak terpenuhi pada fungsi if, maka akan dikembalikan sebuah nilai strings teks yang ditentukan.

Contoh penggabungan pada gambar fungsi concatenate 4 dibawah ini adalah dengan ketentuan :

• Jika status pada kolom C adalah Aktif maka gabungkan isi kolom A dengan isi kolom B.
• Sedangkan jika status pada kolom C selain Aktif, maka kembalikan isi dari strings pada kolom C tersebut.

fungsi concatenate 4

Contoh rumus formula untuk hasil seperti gambar diatas pada sel D2 adalah 

=IF(C2="Aktif",(CONCATENATE(A2,B2)),C2)

Cara Membuat Kalender Secara Otomatis di Corel Draw, mudah dan Praktis

Aplikasi Corel Draw X5.

Untuk lebih jelasnya, ikuti tutorial berikut ini.

• Pertama kali, siapkan halaman baru dengan menekan Ctrl+N dan pilih ukuran A4.

• Di Menu Bar, klik Tools> Macros> Run Macro.

• Di kotak dialog Run Macro, pilih Macros in: CalendarWizard (CalendarWizard.gms). Kemudian klik Run.

• Pada kotak dialog Oberon Calendar Wizard v3.5, buatlah beberapa pengaturan sesuai dengan desain yang anda inginkan. Misalkan untuk Tahun diisi dengan 2014. Beri tanda centang pada pilihan "Bulan" apa yang ingin ditampilkan. Untuk Layout, misalnya kita pilih  Year: Image + 12 Small [3x4]. Kemudian pada Tab Small: Header, beri tanda centang pada pilihan Show Year.

• Jika pengaturan layout dirasa sudah cukup, klik Generate untuk memulai proses pembuatan kalender. Klik OK saat muncul kotak dialog konfirmasi Finished generating the calendar.

• Terakhir, tekan Close untuk menutup kotak dialog  Oberon Calendar Wizard v3.5.

Cara Setting Synapsics Touch Pad Laptop (Touch Pad tida berfungsi maximal)

Berikut ini cara settingnya :

1. Klik Start
2. Klik Control Panel
3. Klik 2 kali Gambar Mouse
4. Klik Device setting
5. Klik 2 kali Tapping
6. Klik atau beri tanda contreng pada bagian kotak pilihan Enable Tapping jika anda ingin menonaktifkan fungsi klik pada sinaptics atau sebaliknya
7. Klik apply
8. Klik ok

Convert WAV ( or MP3, OGG, AAC, WMA) to MIDI - Mengubah Semua Jenis File termasuk MP3 menjadi Midi

Kunjungi :

http://www.ofoct.com/audio-converter/convert-wav-or-mp3-ogg-aac-wma-to-midi.html

Semoga bermanfaat

Puasa Ramadhan : Syarat, Rukun, Dan Yang Membatalkan

Syarat wajib Puasa bulan Ramadhan

Pengertian syarat adalah perkara yang wajib dipenuhi dan berlaku terus menerus. Dalam kaitannya dengan puasa Ramadhan, syarat wajib adalah perkara yang wajib dipenuhi sejak sebelum melaksanakan puasa hingga selesainya puasa (saat berbuka). Jumlahnya ada 4 :

1. Islam, baligh (dewasa), Hanya yang beragama Islam yang diwajibkan melaksanakan puasa Ramadhan.
2. Berakal, bagi orang gila, penyandang epilepsi tidak diwajibkan melaksanakan puasa Ramadhan.
3. Mampu secara fisik, Orang yang tidak mampu melaksanakan puasa Ramadhan dikarenakan sakit atau dikarenakan memang benar-benar lemah fisik (dalam arti, apabila dipaksakan berpuasa bisa timbul risiko yang sangat besar seperti sakit parah atau menimbulkan kematian), maka tidak diwajibkan melaksanakan puasa Ramadhan.
4. Suci dari haid dan nifas, Bagi wanita yang sedang datang bulan atau menstruasi dan yang sedang dalam keadaan nifas tidak diwajibkan melaksanakan puasa Ramadhan. Akan tetapi dia wajib untuk qodlo’ atau mengganti puasa dikemudian hari.

Sedangkan syarat sah puasa Ramadhan atau yang membuat puasa menjadi sah adalah ke empat hal di atas ditambah satu yaitu Mumayyiz atau sudah dapat membedakan antara yang baik dan buruk.

Rukun puasa Ramadhan

Rukun puasa adalah teknis yang harus dilaksanakan bagi orang yang berpuasa di bulan Ramadhan dan tidak boleh ditinggal sama sekali.

1. Niat pada waktu malam hari. Sekali lagi, niat puasa Ramadhan wajib dilakukan pada malam hari. Kalau meninggalkan niat pada malam hari entah karena lupa atau sengaja maka puasanya tidak dibilang sah dan wajib mengulangnya setelah Ramadhan usai.
2. Imsak yaitu menahan diri dan meninggalkan hal-hal yang bisa membatalkan puasa dari mulai waktu fajar hingga terbenamnya matahari atau Maghrib.

Larangan atau hal yang membatalkan puasa

Disamping syarat dan rukun harus dipenuhi, ada hal-hal yang harus ditinggalkan bagi orang yang berpuasa, karena bila dilakukan, maka puasanya menjadi batal. Dan larangan ini berlaku juga untuk puasa – puasa selain puasa Ramadhan

1. Makan dan minum dengan sengaja walaupun sedikit. Kalau makan dan minumnya dalam keadaan lupa maka puasanya tetap sah dengan syarat begitu teringat bahwa dia sedang puasa dia tidak meneruskan makan atau minum.
2. Melakukan hubungan suami istri dengan sengaja. Kalau melakukannya dalam keadaan lupa maka tidak membatalkan puasa dengan syarat begitu teringat bahwa dia sedang puasa dia tidak meneruskan lagi. Mungkinkah melakukan hubungan suami istri dalam keadaan lupa…?
3. Muntah-muntah dengan sengaja. Termasuk kategori sengaja yaitu ceroboh. Contoh: sudah jadi kebiasaan kalau naik bis pasti mabuk dan muntah. Kok kemudian dia naik bis dan akhirnya muntah maka puasanya batal.
4. Memasukkan suatu benda kedalam bagian tubuh yang berlubang secara sengaja seperti hidung, kedua telinga, mulut, qubul dan dubur pria maupun wanita, lubang pembuangan atau dubur. Termasuk kategori sengaja yaitu ceroboh. Contoh: sudah menjadi kebiasaan kalau berenang pasti ada air yang masuk ke telinga atau hidung atau mulut. Kok kemudian dia berenang dan telinga, hidung atau mulutnya benar – benar kemasukan air maka puasanya menjadi batal.
5. Memasukkan obat melalui dubur.
   Mengeluarkan sperma atau air mani dengan sengaja seperti onani dan masturbasi. Kalau keluarnya sperma dikarenakan mimpi basah maka tidak membatalkan puasa karena tidak ada unsur kesengajaan.
6. Keluar darah haid atau nifas bagi wanita.
7. Hilang akal karena gila, epilepsi.
8. Murtad yaitu keluar dari agama Islam baik secara ucapan, tindakan ataupun batin.

Repro - Edit Foto Rusak Dengan CorelDRAW

Disini aku tidak memberi ikan tapi kail-nya saja dengan tutorial tentang bagaimana mengolah foto lawas yang ada bagian-bagian tertentu yang rusak dimakan usia menggunakan CorelDRAW dan Corel PHOTO-PAINT, disini aku menggunakan versi X6 sampeyan bisa menggunakan versi berapapun, istilah umun edit foto lawas adalah Repro atau biasanya juga disebut Retouch.

Ok yang akan kita Repro adalah foto sang kakek yang kelihataanya agak rusak, hasil akhirnya nanti akan seperti foto yang sebelah kanan itu;


Langkah 1
Scan foto sang kakek, apabila fotonya sudah ada kita tinggal Copy Paste pada area kerja CorelDRAW;


Langkah 2
Untuk mempertajam gambar foto kita bisa langsung klik perintah Auto Adjust letaknya Menu Bar > Bitmaps > Auto Adjust, hasilnya foto akan tampak jelas warnanya;


Langkah 3
Apabila dirasa foto tampak terlalu terang bisa diatur menggunakan perintah Gamma yang berfungsi untuk mengatur gelap terangnya objek foto, letaknya Menu Bar > Effects > Adjust > Gamma;

Hasilnya seperti gambar dibawah ini;


Langkah 4
biasanya foto jadul dot-nya gede-gede seperti tampak pada foto aslinya, cara mengatur atau menghilangkan hal tersebut kita menggunakan perintah Gaussian Blur yang letaknya pada Menu Bar > Bitmaps > Blur > Gaussian Blur;

Seperti ini hasilnya, dot akan hilang, tapi hasil foto akan tampak suram, caranya ikuti langkah selanjutnya;


Langkah 5
Unsharp Mask adalah solusi untuk mengatur ketajaman dari foto tersebut, langkahnya Menu Bar > Bitmaps > Sharpen > pilih Unsharp Mask... dan atur pada Percentage, Radius dan Threshold, dengan klik pada Preview kita bisa melihat hasil proses yang kita lakukan;

Proses Unsharp Mask diatas hasilnya seperti tampilan dibawah ini;


Langkah 6
Setelah melakukan perintah Unsharp Mask mungkin bintik-bintik pada foto akan tampak jelas, kita harus mengurangi dengan perintah Low Pass, yang letaknya pada Menu Bar > Bitmaps > Blur > Low Pass;

Hasilnya akan seperti ini;


Langkah 7
Selanjutnya atur Contras dan Intersitas cahaya pada foto dengan perintah Brightness/Contrast/Intensity yang letaknya pada Menu Bar > Effects > Adjust > Brightness/Contrast/Intensit... atau kita cukup tekan Ctrl+B di keyboard maka kotak perintah akan muncul, dan atur pada slider sesuai dengan keinginan kita;


Langkah 8
Langkah selanjutnya untuk menghilangkan noda dan memperbaiki bagian yang rusak kita memanfaatkan Corel PHOTO-PAINT dengan klik tombol Edit Bitmap... pada Property bar, atau bisa dicari pada Menu Bar > Bitmaps > Edit Bitmap...


Langkah 9
Untuk mengedit bagian foto yang rusak kita menggunakan Clone Tool pada Toolbox pada Corel PHOTO-PAINT;


Pilih Brush yang paling halus;


Cloning pada bagian yang rusak dengan objek disampingnya yang agak mirip, setelah selesai proses Clonning tekan tombol Save tutup aplikasi Corel PHOTO-PAINT kita kembali ke CorelDRAW;


Langkah 10
Yang jelas warna dari foto lawas tadi tidak rata, sehingga untuk sementara kita bisa merubah menjadi mode Grayscale caranya klik pada Menu Bar > Bitmaps > Convert To Bitmap > pilih Grayscale, hasilnya akan berubah menjadi foto hitam putih;


Langkah 11
Selanjutnya lakukan Edit bitmap dengan cara seperti langkah 8 dan lakukan proses Touching menggunakan perintah  Touch-up Brush, sampeyan bisa lihat disini proses menghilangkan noda-noda flek;


Hasilnya akan seperti ini noda-noda pada foto akan hilang dan foto akan menjadi halus, dan selanjutnya tekan tombol Save untuk mengakhiri proses, dan tutup Corel PHOTO-PAINT dan kita kembali ke CorelDRAW;


Hasilnya pada area kerja corelDRAW akan seperti gambar dibawah ini,


Langkah 12
Selanjutnya lakukan Convert To Bitmap sekali lagi seperti langkah 10 rubah menjadi mode RGB, atau kalau untuk dicetak kita menggunakan mode CMYK, langkah terakhir untuk mengatur warna ke model foto jadul seperti diatas kita menggunakan perintah Color Balance yang letak perintahnya di Menu Bar > Effects > Adjust > Color Balance... atau tekan Ctrl+Shift+B di keyboard, dan atur komposisi warna menjadi warna foto jadul (sepia);
sumber : http://www.belajarcoreldraw.co/2013/10/repro-edit-foto-rusak-dengan-coreldraw.html
Hasil akhir foto akan seperti dibawah ini, sampeyan bisa merubah ukuran dan resolusi foto sesuai dengan yang dikehendaki pada waktu proses Export;


Demikian semoga bermanfaat

Cara memperhalus dan memoles Foto/Gambar yang pecah di COrel Draw

Pertama >> beri efek Unsharp Mask bisa melalui menu Bitmap > Sharp > Unsharp Mask

beri nilai seperti berikut, atau silahkan sobat trial sendiri sesuai selera... lalu OKE

Kedua >> beri efek Sharp Mask masih menu bitmap > sharp > sharp mask,

yah seperti biasa beri nilai yang sesuai saja ya sob,,, hehe

masih belum terlihat halus...?? haddeuuh pake apa yaak...?? wkwkwkwkk langsung langkah selanjutnya...
Ketiga >> beri efek Blur Low Pas ini dimaksud agar gambar sedikit halus dengan memberi efek blur sedikit saja... pakai bismillah biar hasil maksimal... hehe

atur saja silahkan sobat kreasikan sendiri,,

hasilnya...

sudah terlihat halus lah ya mendingan sob,,, sekarang kita munculin warnanya agar lebih kelihatan hidup ya sob, kita bisa pakai menu Bitmap > Auto Adjust seperti berikut ini...

dan bisa sobat lihat hasilnya bagaimana...?

sumber :http://almaqdis.blogspot.co.id/2015/03/cara-memoles-dan-memperhalus-foto-yang.html
dan terakhir silahkan atur adjustnya kalau masih belum puas,,,
hasil akhir tergantung bagaimana proses yang kita garap dari awal ya sobat... hehe

 

 

 

 

Game Kuis dari Notepad/HTML

Game Kuis


@echo off

color b3

:menu
cls
echo Hallo Selamat Bermain Di Game Sederhana Ini
echo Game Ini Di Buat oleh : alkitat
echo By Blog : http://alkitat.blogspot.com
echo 1) Mulai!
echo 2) Cara Main
echo 3) Credits
echo 4) Keluar
set /p number=

if %number% == 1 goto Mulai!
if %number% == 2 goto Cara Main
if %number% == 3 goto Credits
if %number% == 3 goto Keluar

:Mulai!
cls
echo Siapa Nama Kamu ?
set /p name=
echo Halo %name%!
echo Apakah Kamu Akan Mulai Game Ini ? (y/n)
set /p start=
if %start% == y goto level1
if %start% == n goto menu
goto Mulai!

:cara main
cls
echo Kamu Hanya Akan Diberikan Jawaban Yang Mudah. Kamu Harus Menjawabnya Dengan Soal Ganda.
echo Soalnya Terbagi Jadi 4 Pilihan. Mau Ke Menu ? (y/n)
set /p menugoto=
if %menugoto% == y goto menu
if %menugoto% == n goto exit
goto cara main

:Credits
cls
echo Game Sederhana Yang Dibuat Oleh Dominique Fauzan Blog ( Fauzan Hibatullah Ashari ).

echo Semua Pembuatan Game Dikerjakan Oleh : Fauzan Hibatullah Ashari

echo Follow Twitter Me On : @kaisarcinta9

echo Facebook : https://www.facebook.com/kaisarcinta

echo FansPage Facebook : https://www.facebook.com/masteroftutorial

echo Site : http://alkitat.blogspot.com

echo Email : alkitat@yahoo.co.id
echo Kembali Ke Menu ? (y/n)
set /p Menugoto=
if %Menugoto% == y goto Menu
if %Menugoto% == n goto Credits
goto keluar

:keluar
cls
echo Apa Kamu Yakin Mau Keluar Dari Game Ini ? (y/n)
set /p keluargoto=
if %keluargoto% == y goto exit
if %keluargoto% == n goto menu
goto keluar

:level1
cls
echo Level 1.
echo Kenapa Ban Motor Bisa ( Meledak ) ?
echo a) Karna Digerogotin Tikus
echo b) Karna Nginjek Paku
echo c) Karna Nginjek Tai Lotok
echo d) Karna Lupa Pompa Ban

set /p answer1=
if %answer1% == a goto wrong1
if %answer1% == b goto correct1
if %answer1% == c goto wrong1
if %answer1% == d goto wrong1
goto level1

:correct1
echo Mau lanjut Ke Level Selanjutnya ? (y/n)
set /p NL1=

if %NL1% == y goto level2
if %NL1% == n goto menu
goto correct1

:Wrong1
Echo Hayo, Kamu Salah. Mau Ulang Game (y/n)
set /p WA1=
if %WA1% == y goto level1
if %WA1% == n goto menu
goto wrong1

:level2

cls
echo Level 2.
echo Siapa Pembuat Game Ini ?
echo a) Saya Barusan ( Dari NOTEPAD)
echo b) Bill Gate
echo c) Jin
echo d) Mbah Karuhun
set /p aa=
if %aa% == a goto correct2
if %aa% == b goto wrong2
if %aa% == c goto wrong2
if %aa% == d goto wrong2
goto level2

:correct2
echo Mau lanjut Ke Level Selanjutnya ? (y/n)
set /p NL1=
if %NL1% == y goto level3
if %NL1% == n goto menu
goto correct2

:wrong2
cls
echo Bego, Kamu Salah. Mau Ulang Game ? (y/n)
set/p retry=
if %retry% == y goto level1
if %retry% == n goto exit
goto wrong2

:level3

cls
echo Level 3.
echo Siapa Yang Sedang Main Game Ini ?
echo a) Saya
echo b) Virus Komputer
echo c) Alkitat
echo d) Justin Bieber
set /p aa=
if %aa% == a goto correct3
if %aa% == b goto wrong3
if %aa% == c goto wrong3
if %aa% == d goto wrong3
goto level3

:correct3
echo Beneran Mau Ke Level Selanjutnya ? (y/n)
set /p NL1=
if %NL1% == y goto level4
if %NL1% == n goto menu
goto correct4

:wrong3
cls
echo maaf, Kamu Salah. Mau Ulang Game ? (y/n)
set/p retry=
if %retry% == y goto level2
if %retry% == n goto exit
goto wrong3

:level4
cls
echo Level 4.
echo dari mana kamu dapat game ini?
echo a) alkitat.blogspot.com
echo b) yahoo.com
echo c) yaoutube.com
echo d) facebook.com
set /p aa=
if %aa% == a goto correct4
if %aa% == b goto wrong4
if %aa% == c goto wrong4
if %aa% == d goto wrong4
goto level4

:correct4
echo Beneran Mau Lanjut Ke level Selanjutnya ? (y/n)
set /p NL1=
if %NL1% == y goto level5
if %NL1% == n goto menu
goto correct4

:wrong4
cls
echo Maaf, Kamu Salah lagi. Mau Ulang ? (y/n)
set/p retry=
if %retry% == y goto level4
if %retry% == n goto exit
goto wrong4

:level5
cls
echo Level 5.
echo Apa Yang Sedang Kamu Lihat Sekarang?
echo a)Game
echo b)Minuman
echo c)Makanan
echo d)Sapi

set /p answer5=
if %answer5% == a goto correct5
if %answer5% == b goto wrong5
if %answer5% == c goto wrong5
if %answer5% == c goto wrong5
goto level5

:correct5
echo Cius Mau Lanjut Ke Level Selanjutnya ? (y/n)
set/p NL1=

if %NL1% == y goto level6
if %NL1% == n goto menu
goto correct1

:wrong5
cls
echo Bego, Kamu Salah. Mau Ulang Game ? (y/n)
set/p retry=
if %retry% == y goto level5
if %retry% == n goto exit
goto wrong5

:level6
cls
echo Level 6.
echo Berapa Hasil Dari 2573+9988 ?
echo a)Dua Belas Ribu Lima Ratus Enam Puluh Satu
echo b)12.561
echo c)Twelve Thousand Five Hundred Sixty One
echo d)9988+2573
set /p aa=
if %aa% == a goto correct6
if %aa% == b goto correct6
if %aa% == c goto correct6
if %aa% == d goto correct6
goto level6

:correct6
echo Cius Kamu Mau Lanjut Ke Level Selanjutnya ? (y/n)
set/p NL1=

if %NL1% == y goto level7
if %NL1% == n goto menu
goto correct7

:wrong6
cls
echo Santay BOSS. Gak Akan Salah. Tekan Y Aja. (y/n)
set/p retry=
if %retry% == y goto level7
if %retry% == n goto exit
goto wrong7

:level7
cls
echo Susis WOOO Susis, Suami Takut Istri.
echo Siapa Yang Nyanyi
echo a)Andre Taulani
echo b)Kang Sule
echo c)Saya
echo d)Desta

set/p answer7=
if %answer7% == a goto wrong7
if %answer7% == b goto wrong7
if %answer7% == c goto correct7
if %answer7% == d goto correct7
goto level7

:correct7
echo Cius Mau Lanjut Ke Level Selanjutnya ? (y/n)
set/p NL1=

if %NL1% == y goto level8
if %NL1% == n goto menu
goto correct7

:wrong7
cls
echo Bego, Kamu Salah. Mau Ulang Game ? (y/n)
set/p retry=
if %retry% == y goto level7
if %retry% == n goto exit
goto wrong7

:level8
cls
echo Free To Change !!
echo a)Yeah !!
echo b)Bebas Dong !!
echo c)Oke Bebas !!
echo d)Uyeaah !!
set /p aa=
if %aa% == a goto correct8
if %aa% == b goto correct8
if %aa% == c goto correct8
if %aa% == d goto correct8

:correct8
echo Cius Mau Lanjut Ke Level Selanjutnya ? (y/n)
set/p NL1=

if %NL1% == y goto level9
if %NL1% == n goto menu
goto correct8

:wrong8
cls
echo Salah mau ulang? (y/n)
set/p retry=
if %retry% == y goto level8
if %retry% == n goto exit
goto wrong8

:level9
cls
echo Dibuat Dari Apa Game Yang Sedang Kamu Mainkan Ini ?
echo a)Notepad
echo b)Tepung Terigu
echo c)Calculattor
echo d)CMD
set /p aa=
if %aa% == a goto correct9
if %aa% == b goto wrong9
if %aa% == c goto wrong9
if %aa% == d goto wrong9

:correct9
echo Cius Mau Lanjut Ke Level Selanjutnya ? (y/n)
set/p NL1=

if %NL1% == y goto level10
if %NL1% == n goto menu
goto correct9

:wrong9
cls
echo Bego, Kamu Salah. Mau Ulang Game ? (y/n)
set/p retry=
if %retry% == y goto level9
if %retry% == n goto exit
goto wrong9

:level10
cls
echo Follow !!
echo Apakah Kamu Mau Menamatkan Game Ini ?
echo a)Mau Banget
echo b)Apakah Kamu Mau Namatin Game Ini ?
echo c)Apakah Kamu Mau Menamatkan Game Ini ?
echo d)Apakah Kau Mau Menamatkan Game Ini ?
set /p aa=
if %aa% == a goto wrong10
if %aa% == b goto wrong10
if %aa% == c goto correct10
if %aa% == d goto wrong10
goto level10

:correct10
cls
echo Selamat !! Kamu Berhasil Menyelesaikan Game Ini.. :D :D
echo Kamu Dapat Uang Tunai Senilai 5 Juta Rupiah, Tapi Minta Sama Mamah Kamu. heheh. Just GAME. :D.
goto correct10

:wrong10
cls
echo Yah Kamu Salah. Gak Jadi Dapet Uang Deh. Mau Ulang Game ? (y/n)
set/p retry=
if %retry% == y goto level1
if %retry% == n goto exit
goto wrong10

Game Tetris dari Notepad/HTML

Game sederhana :

<html>
<style>body{ font-family: monospace; font-size: 20px}</style>
<div id="output"></div>
</html>

GAME TETRIS<br>
Masroni Alkhitat, S.Kom

<script>
var t =
function(a,b,c,d,e){return d+=c,e=a|b<<d,d<0|a&b<<d&&(a=e=parseInt((a|b<<c).toString(d=32).replace(/v/,""),d),b=new Date%2?1:3),[a,b,d,e]}
// Controller and Display
var out = document.getElementById("output");
var board = 0,
    block = 3,
    position = 32,
    display;
function update(offset){
 
  var txt = "",
    result = t(board,block,position, offset);
   
  board = result[0];
  block = result[1]
  position = result[2]
  display = result[3];
  display = ( 1<<30 | + display ).toString(2);
 
  for(var i=1; i<31;i++){
    txt += display[i] == "1" ? "#" : ".";
    if(i%5 == 0) txt+= "<br>";
  }
 
  out.innerHTML = txt;
}
update(0);
onkeydown = function(e){
 
  var offset = 0;
 
  switch (e.keyCode){
    case 37: offset =  1; break;
    case 39: offset = -1; break;
    case 40: offset = -5; break;
  }
 
  update(offset);
}
var speed = 1000;
function loop(){
  update(-5);
  setTimeout(loop, speed-=5);
}
 
loop();
</script>

Pelestarian Budaya Bangsa Indonesia dan Selalu Mengedepankan Ajaran Agama

Keris sudah di akui Dunia bahwa keris adalah Karya Seni terindah, maka dari itu mari kita lestarikan budaya Bangsa tanpa mengesampingkan Ajaran Agama. Seperti dalam Keris, Tombak, Pedang sering kita lihat ada gambar-gambar(Pamor)  yang tidak kita mengerti, oleh karena itu mari kita simak artikel berikut :

Pengertian Pamor lebih mudahnya adalah gambar yang terdapat di sebuah bilah tosan aji. Penamaan untuk pamor keris berlaku juga untuk tosan aji lainnya seperti Tombak, Wedung, Pedang dsb. Di dalam setiap pamor terkandung filosofi nilai moral (ajaran hidup) dan spiritual (maksud, harapan, doa)  sang empu dan sang pemilik.