Membuat Berbagai Aplikasi Menggunakan Notepad

Membuat Berbagai Aplikasi Menggunakan Notepad

Note: Sebelum meng-save file ganti type-nya menjadi All Files

1.     Membuat notepad muncul berulang-ulang:

Salin kode dibawah ini lalu pastekan ke notepad :

@echo off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

Lalu save filenya dengan format (.bat), misal : keluar terus.bat

2.       Membuat kalkulator sederhana

Salin kode dibawah ini lalu pastekan ke notepad :

@echo off
title Kalkulator
:ulang
echo Mari berhitung ...!!
set /p A=Masukkan Angka Pertama =
set /p B=Masukkan Angka Kedua =
set /p o=Pilih pengoperasian anda (*, +, -, /) =
set /a "jumlah" = A%o%B
echo Jumlah = %jumlah%
pause>null
goto ulang 

Simpan dengan format (.bat)

3.       Mematikan computer

Salin kode dibawah ini lalu pastekan ke notepad :

@echo off
msg * Matilah komputer, matilah!
shutdown -s -t 60 “Komputer anda modar”

Keterangan: (-t 60)=waktu komputer akan mati dalam detik, bisa diganti maksimal 600

Simpan dengan format (.bat)

4.       Membuat Capslock menyala terus

Salin kode dibawah ini lalu pastekan ke notepad :

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

Simpan dengan format (.vbs)

5.      Membuat komputer berbicara sesuai keinginan

Salin kode dibawah ini lalu pastekan ke notepad :

Dim message, sapi
message=InputBox("Apa yang Anda ingin saya katakan?","Komputer Berbicara")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Simpan dengan format (.vbs)

6.      Membuat game batu kertas gunting

Salin kode dibawah ini lalu pastekan ke notepad :

@echo off
set c=0
set hp=0
:com
set /a ValRange= ( 3 - 1 ) + 1
set /a c1= ( %random% %% %ValRange% ) + 1

:h
cls
echo manusia=%hp% komputer=%c% AHMAD HAZIM -2013-
set /p h=1/2/3(batu/gunting/kertas):
if %h%==1 goto 1
if %h%==2 goto 2
if %h%==3 goto 3
if not %h%==3 (
set /a c=%c% + 2
goto com
)



:1
if %c1%==1 (
echo seri
pause
goto com
)
if %c1%==2 (
set /a hp=%hp% + 1
echo manusia menang.
pause
goto com
)
if %c1%==3 (
set /a c=%c% + 1
echo komputer menang.
pause
goto com
)


:2
if %c1%==1 (
set /a c=%c% + 1
echo komputer menang.
pause
goto com
)
if %c1%==2 (
echo seri
pause
goto com
)
if %c1%==3 (
set /a hp=%hp% + 1
echo manusia menang
pause
goto com
)


:3

if %c1%==1 (
set /a hp=%hp% + 1
echo manusia menang
pause
goto com
)

if %c1%==2 (
set /a c=%c% + 1
echo komputer menang
pause
goto com
)
if %c1%==3 (
echo seri
pause
goto com
)

Simpan dengan format (.bat)

7.       Mengunci folder dengan notepad   ( ber-password)

Salin kode dibawah ini lalu pastekan ke notepad :

cls

@ECHO OFF

title Folder Locker

if EXIST “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” goto UNLOCK

if NOT EXIST Locker goto MDLOCKER

:CONFIRM

echo Are you sure u want to Lock the folder(Y/N)

set/p “cho=>”

if %cho%==Y goto LOCK

if %cho%==y goto LOCK

if %cho%==n goto END

if %cho%==N goto END

echo Invalid choice.

goto CONFIRM

:LOCK

ren Locker “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”

attrib +h +s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”

echo Folder locked

goto End

:UNLOCK

echo Enter password to Unlock folder

set/p “pass=>”

if NOT %pass%==PasswordAnda goto FAIL

attrib -h -s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”

ren “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” Locker

echo Folder Unlocked successfully

goto End

:FAIL

echo Invalid password

goto end

:MDLOCKER

md Locker

echo Locker created successfully

goto End

:End

Note: PasswordAnda -> Di ganti dengan password yg diinginkan

Simpan dengan format (.bat)

Semoga bermanfaat :v