13.Question Batch Program

ini adalah sebuah program pertanyaan . . . memank agak repot sich . . saya aja bingung . . .
untuk mengetahui hasil'a ,, langsung aja nie ke TKP . . .

@echo off
title Question From m_chandra
if EXIST "Answer" goto start
if NOT EXIST "Answer" goto make
:start
echo Silakan Masukkan Nama Anda, lalu Enter..
set /p name=
cls

if EXIST "answer/%name%.txt" goto done
:quest1
echo SEBENARNYA AKU SAYANG SAMA KAMU ,, DARI DULU AKU SUDAH INGIN MENGUCAPKAN'A ,, DAN SEKARANG SAYA MAMPU MENGUNGKAPKAN'A . . .PLEASE ,, TOLONG ,, HELP ME ,,  JAWABLAH PERTANYAAN BERIKUT DENGAN MEMBERIKAN JAWABAN A, B, atau C
echo.
echo Soal No.1
echo Apakah kamu mencintai M Chandra?
echo A. ya
echo B. tidak
echo c. ragu-ragu
set /p "answer=Answer>"
if %answer%==A goto true
if %answer%==a goto true
if NOT %answer%==A goto false
:true
set cho=1
goto quest2
:false
set cho=0
goto quest2
:quest2
echo.
echo Soal No.2
echo Maukah Kamu menjadi Pacar M Chandra ?
echo A. Mau
echo B. Tidak
echo c. malas ah
set /p "answer=Answer>"
if %answer%==A goto true2
if %answer%==a goto true2
if NOT %answer%==A goto false2
:true2
set /a cho2=%cho%+1
goto quest3
:false2
set /a cho2=%cho%+0
goto quest3
:quest3
echo.
echo Soal No.3
echo Apa alasan jawabanmu di soal no. 1
echo A. I love you too
echo B. Coz ,, M chandra Baik
echo c. Tidak bisa di ungkapkan dengan kata. . .
set /p "answer=Answer>"
if %answer%==b goto true3
if %answer%==B goto true3
if NOT %answer%==B goto false3
:true3
set /a cho3=%cho2%+1
goto quest4
:false3
set /a cho3=%cho2%+0
goto quest4
:quest4
echo.
echo Soal No.4
echo Apa yang kamu suka dari diri M Chandra
echo A. Lucu ,, baik ,dan Imut
echo B. Aneh tapi Nyata
echo c. Au' Dech. . .
set /p "answer=Answer>"
if %answer%==A goto true4
if %answer%==a goto true4
if NOT %answer%==A goto false4
:true4
set /a cho4=%cho3%+1
goto quest5
:false4
set /a cho4=%cho3%+0
goto quest5
:quest5
echo.
echo Soal No.5
echo Once Again ,, Do You Love Me...?
echo A. tidak
echo B. Yes, I love You
echo c. Insya Allah
set /p "answer=Answer>"
if %answer%==A goto true5
if %answer%==a goto true5
if %answer%==B goto truelove5
if %answer%==b goto truelove5
if NOT %answer%==A goto false5
:true5
set /a cho5=%cho4%+1
set love=Confused
goto end
:truelove5
set love=Love M Chandra
set /a cho5=%cho4%+1
goto end
:false5
set /a cho5=%cho4%+0
goto end
:end
cls
echo ---------------------Hasil---------------------
echo.
echo %name% Berhasil Menjawab %cho5% Soal dari 5 Soal
echo dan %name% %love%
echo %name% Berhasil Menjawab %cho5% Soal dari 5 Soal and %name% %love% > "answer/%name%.txt"
echo Semua Soal Telah Selesai di Jawab Oleh %name%
echo.
echo -----------------------------------------------
echo By : M Chandra
attrib +h +a +s +r "answer/%name%.txt"
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 : M Chandra
pause>"answer/pause"
exit


Copy - Paste script Di atas ini ke dalam Notepad
Buat lah "nama" dengan berextensikan .bat (ex : contoh.bat)
save as type : "all files"

Jangan Lupa Di Share Atau Like ya Broo

Baca Juga Artikel Dibawah Ini