Update dari teman kita Muhammad Chandra , kini telah ada lagi . Kali ini mengenai program yang membuat pertanyaan dengan Batch Programming . Penasaran yah ? Liat ajah dibawah ini :
Jangan lupa untuk menyimpan file dalam bentuk notepad , dan save juga dibawah ini dengan ekstensi .bat yah ..
@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
Thanks Muhammad Chandra atas Ilmu nya hari ini.
Baca Selengkapnya ..
Jangan lupa untuk menyimpan file dalam bentuk notepad , dan save juga dibawah ini dengan ekstensi .bat yah ..
@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
Thanks Muhammad Chandra atas Ilmu nya hari ini.