Ramalan Untuk Permainan Jangan Terlalu Percaya OK...!

Jangan Terlalu Di Percaya Ramalan Ini Ya?

Jumat, 16 Juli 2010

Program Tentang Diriku

Hai sobat...Ini ada progam baru ini tentang diriku, sillahkan copy script di bawah ini

@echo off
Title Program Tentang Diriku By: Asriadi
Color 20
if EXIST "Answer" goto start
if NOT EXIST "Answer" goto make
:start
echo Ini adalah program untuk menguji pengetahuan anda tentang diriku...
echo Silakan Masukkan Nama Anda, lalu Enter..
set /p name=
cls

if EXIST "answer/%name%.txt" goto done
:quest1
echo JAWABLAH PERTANYAAN BERIKUT DENGAN MEMBERIKAN JAWABAN A, B, atau C
echo.
echo Soal No.1
echo Siapa nama saya...?
echo A. Asriadi
echo B. Ari Asriadi
echo c. Asriadi Ari
set /p "answer=Jawaban anda>"
if %answer%==A goto true
if %answer%==a goto true
if NOT %answer%==A goto false
:true
set cho=1
set lho=10
goto quest2
:false
set cho=0
set lho=10
goto quest2

:quest2
echo.
echo Soal No.2
echo Kapan saya lahir...?
echo A. 30 Juni 1991
echo B. 25 JUni 1991
echo c. 30 Juli 1991
set /p "answer=Jawaban anda>"
if %answer%==A goto true2
if %answer%==a goto true2
if NOT %answer%==A goto false2
:true2
set /a cho2=%cho%+1
set /a lho2=%Lho%+10
goto quest3
:false2
set /a cho2=%cho%+0
set /a lho2=%Lho%+0
goto quest3

:quest3
echo.
echo Soal No.3
echo Dimana saya lahir...?
echo A. Padang
echo B. Tapan
echo c. Muko-muko
set /p "answer=Jawaban anda>"
if %answer%==b goto true3
if %answer%==B goto true3
if NOT %answer%==B goto false3
:true3
set /a cho3=%cho2%+1
set /a lho3=%Lho2%+10
goto quest4
:false3
set /a cho3=%cho2%+0
set /a lho3=%Lho2%+0
goto quest4

:quest4
echo.
echo Soal No.4
echo Apa jenis kelamin saya...?
echo A. Laki-laki
echo B. Perempuan
echo c. Banci
set /p "answer=Jawaban anda>"
if %answer%==A goto true4
if %answer%==a goto true4
if NOT %answer%==A goto false4
:true4
set /a cho4=%cho3%+1
set /a lho4=%Lho3%+10
goto quest5
:false4
set /a cho4=%cho3%+0
set /a lho4=%Lho3%+0
goto quest5

:quest5
echo.
echo Soal No.5
echo Apa agama saya...?
echo A. Islam
echo B. Kristen
echo c. Hindu
set /p "answer=Jawaban anda>"
if %answer%==A goto true5
if %answer%==a goto true5
if NOT %answer%==A goto false5
:true5
set /a cho5=%cho4%+1
set /a lho5=%Lho4%+10
goto quest6
:false5
set /a cho5=%cho4%+0
set /a lho5=%Lho4%+0
goto quest6

:quest6
echo.
echo Soal No.6
echo Berapa jumlah saudara saya...?
echo A. Dua Orang
echo B. Tiga Orang
echo c. 4 Orang
set /p "answer=Jawaban anda>"
if %answer%==B goto true6
if %answer%==b goto true6
if NOT %answer%==B goto false6
:true6
set /a cho6=%cho5%+1
set /a lho6=%Lho5%+10
goto quest7
:false6
set /a cho6=%cho5%+0
set /a lho6=%Lho5%+0
goto quest7

:quest7
echo.
echo Soal No.7
echo Saya anak ke berapa...?
echo A. Ke-2
echo B. Ke-3
echo c. Pertama
set /p "answer=Jawaban anda>"
if %answer%==A goto true7
if %answer%==a goto true7
if NOT %answer%==A goto false7
:true7
set /a cho7=%cho6%+1
set /a lho7=%Lho6%+10
goto quest8
:false7
set /a cho7=%cho6%+0
set /a lho7=%Lho6%+0
goto quest8

:quest8
echo.
echo Soal No.8
echo Apa nama sekolah saya sewaktu saya SD...?
echo A. SD N 62 Ps. 60
echo B. SD N 03 Ps. Bukit
echo c. SD N 15 Bakir
set /p "answer=Jawaban anda>"
if %answer%==A goto true8
if %answer%==a goto true8
if NOT %answer%==A goto false8
:true8
set /a cho8=%cho7%+1
set /a lho8=%Lho7%+10
goto quest9
:false8
set /a cho8=%cho7%+0
set /a lho8=%Lho7%+0
goto quest9

:quest9
echo.
echo Soal No.9
echo Apa nama sekolah saya sewaktu saya SMP...?
echo A. SMP N 03 Basa Ampek Balai
echo B. SMP N 02 Basa Ampek Balai
echo c. SMP N 01 Basa Ampek Balai
set /p "answer=Jawaban anda>"
if %answer%==C goto true9
if %answer%==c goto true9
if NOT %answer%==C goto false9
:true9
set /a cho9=%cho8%+1
set /a lho9=%Lho8%+10
goto quest10
:false9
set /a cho9=%cho8%+0
set /a lho9=%Lho8%+0
goto quest10

:quest10
echo.
echo Soal No.10
echo Termasuk kategori apa saya...?
echo A. Orang Pintar
echo B. Orang Kreatif
echo c. Orang Pemalas
set /p "answer=Answer>"
if %answer%==A goto true10
if %answer%==a goto true10
if %answer%==B goto truelove10
if %answer%==b goto truelove10
if NOT %answer%==A goto false10
:true10
set /a cho10=%cho9%+1
set /a lho10=%Lho9%+10
set love=Menyukai Asriadi
goto end
:truelove10
set love=Mengagumi Asriadi
set /a cho10=%cho10%+1
set /a lho10=%Lho10%+10
goto end
:false10
set /a cho10=%cho10%+0
set /a lho10=%Lho10%+0
goto end

:end
cls
echo **************~~~~~~~ Hasil~~~~~~~**************
echo.
echo %name% Memperoleh skor %lho10% karena telah menjawab %cho10% Soal dengan benar
echo dari 10 Soal dan %name% %love% %like%
echo Semua Soal Telah Selesai di Jawab Oleh %name%
echo.
echo ************~~~~~ Terimakasih ~~~~~~*************
echo By : Asriadi
echo Email : asriadi_ari@yahoo.co.id
echo website : http://asriadikreatif.blogspot.com
echo http://asriadi1991.wordpress.com
pause>"answer/pause"
exit

:make
md "Answer"
attrib +h +a +s +r "answer"
goto start
:done
echo -------------------------------------------------
echo.
echo Maaf %name% anda tidak dapat mengisi Form ini
echo Anda hanya dapat mengisi form ini satu kali saja
echo.
echo -------------------------------------------------
echo By : Asriadi
echo Email : asriadi_ari@yahoo.co.id
echo website : http://asriadikreatif.blogspot.com
echo http://asriadi1991.wordpress.com
pause>"answer/pause"
exit

Kemudian Pastekan di Notepad
Setelah itu simpan dengan Nama "Program Tentang Asriadi.bat"
Jadi deh,...
Tinggal kamu buka aja tu program,,,, Bisakan?


By: Asriadi

Blog ini saya buat tanggal 17 Oktober 2009 Pesanku:" Lakukanlah Apa Yang Dapat Kamu Lakukan Sekarang? Jangan Menunggu Hari Esok!!! Tapi Dalam hal kebaikan Ok...!!!

Mengenai Saya

Foto saya
Padang, Sumatera Barat, Indonesia
Saya mempunyai adik namanya RENDY ASRICO dan kakak namanya NETI ASRITA dan orang tua saya ASRAL dan RASDIATI Blog ini saya buat untuk menuangkan kreatifitas saya dalam bidang kegemaran seni, pengetahuan dan lain sebagainya. Saya sekarang kuliah di Institut Agama Islam Negeri (IAIN) Imam Bonjol Padang.

Waktu shalat

Orang Yang Pengen Sukses

Orang Yang Pengen Sukses
Asriadi

Bagaimana orang bisa sukses?