Mar 16 2013
Aside

Private Sub cmdbatal_Click()

txtkb.Text = “”

txtjb.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

txtkb.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtkb.Text = “”

txtjb.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

txtkb.SetFocus

End Sub

 

Private Sub cmdproses_Click()

Dim s As String

s = Left(txtkb.Text, 3)

If s = “SIM” Then

txtjb.Text = “SISTEM INFORMASI MANAGEMEN”

txtpengarang.Text = “WISNU EKA FRATAMA”

txtharga.Text = “75900”

ElseIf s = “EDP” Then

txtjb.Text = “ELEKTRONIK DATA PROCESSING”

txtpengarang.Text = “Nurul Agustina”

ElseIf s = “MNJ” Then

txtjb.Text = “Manajemen”

txtpengarang.Text = “Rian Hidayat”

txtharga.Text = “42000”

ElseIf s = “CDR” Then

txtjb.Text = “Corel Draw”

txtpengarang.Text = “Siti Nur Khotimah”

txtharga.Text = “53000”

ElseIf s = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtpengarang.Text = “Winda Erlianti”

txtharga.Text = “83000”

End If

txttahun.Text = 20 & Mid(txtkb.Text, 5, 2)

s = Right(txtkb.Text, 1)

If s = “A” Then

txtpenerbit.Text = “WISNU GISTING”

ElseIf s = “I” Then

txtpenerbit.Text = “Indah Surabaya”

ElseIf s = “S” Then

txtpenerbit.Text = “Salemba Empat”

ElseIf s = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

ElseIf s = “M” Then

txtpenerbit.Text = “BANJAR MANIS”

End If

End Sub

By wisnu eka fratama
0
Mar 16 2013
Aside

Private Sub cmdproses_Click()

Dim s As String

txttahun.Text = Left(txtnik.Text, 4)

s = Mid(txtnik.Text, 5, 1)

If s = “A” Then

txtgolongan.Text = “A”

txtjabatan.Text = “Manager”

txtgp.Text = “4000000”

txttunjangan.Text = “1025000”

txttg.Text = Val(txtgp) + Val(txttunjangan)

ElseIf s = “B” Then

txtgolongan.Text = “B”

txtjabatan.Text = “Ka.Seksi”

txtgp.Text = “3500000”

txttunjangan.Text = “975000”

txttg.Text = Val(txtgp) + Val(txttunjangan)

ElseIf s = “c” Then

txtgolongan.Text = “C”

txtjabatan.Text = “Staf”

txtgp.Text = “3000000”

txttunjangan.Text = “925000”

txttg.Text = Val(txtgp) + Val(txttunjangan)

End If

s = Mid(txtnik.Text, 7, 1)

If s = “S” Then

txtstatus.Text = “Single”

txtks.Text = “S”

ElseIf s = “M” Then

txtstatus.Text = “Menikah”

txtks.Text = “M”

ElseIf s = “J” Then

txtstatus.Text = “janda”

txtks.Text = “J”

ElseIf s = “D” Then

txtstatus.Text = “Duda”

txtks.Text = “D”

End If

s = Mid(txtnik.Text, 9, 3)

If s = “KEU” Then

txtbagian.Text = “Accounting”

ElseIf s = “ADM” Then

txtbagian.Text = “Administrasi”

ElseIf s = “SDM” Then

txtbagian.Text = “General Affair”

ElseIf s = “EDP” Then

txtbagian.Text = “IT Unit”

ElseIf s = “SPM” Then

txtbagian.Text = “Security”

End If

 

End Sub

 

Private Sub Command2_Click()

txtgolongan.Text = “”

txtks.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtjabatan.Text = “”

txtbagian.Text = “”

txtgp.Text = “”

txttunjangan.Text = “”

txttg.Text = “”

Text10.Text = “”

txtnik.Text = “”

Text10.SetFocus

End Sub

 

Private Sub Command3_Click()

txtgolongan.Text = “”

txtks.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtjabatan.Text = “”

txtbagian.Text = “”

txtgp.Text = “”

txttunjangan.Text = “”

txttg.Text = “”

Text10.Text = “”

txtnik.Text = “”

Text10.SetFocus

End Sub

 

Private Sub Command4_Click()

End

End Sub

 

Private Sub Form_Activate()

Text10.SetFocus

End Sub

 

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

 

By wisnu eka fratama
0
Feb 26 2013
Aside

Membuat data mahasiswa menggunakan visual basic

OURCE CODE

Private Sub cmdbatal_Click()
txtnama.Text = ""
txtinput.Text = ""
txtjurusan.Text = ""
txtpstudy.Text = ""
txttahun.Text = ""
txturut.Text = ""
txtbp.Text = ""
txtnama.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama.Text = ""
txtinput.Text = ""
txtjurusan.Text = ""
txtpstudy.Text = ""
txttahun.Text = ""
txturut.Text = ""
txtbp.Text = ""
txtnama.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = "20" & Left(txtinput.Text, 2)
s = Mid(txtinput.Text, 3, 1)
If s = "1" Then
txtjurusan.Text = "sistem informasi"
ElseIf s = "2" Then
txtjurusan.Text = "teknik informatika"
ElseIf s = "3" Then
txtjurusan.Text = "M.Informatika"
ElseIf s = "4" Then
txtjurusan.Text = "M.Komputer Akutansi"
End If
s = Mid(txtinput.Text, 4, 2)
If s = "01" Then
txtpstudy.Text = "strata satu"
txtbp.Text = "1950000"
ElseIf s = "02" Then
txtpstudy.Text = "Diploma Empat"
txtbp.Text = "1750000"
ElseIf s = "03" Then
txtpstudy.Text = "Diploma Tiga"
txtbp.Text = "1650000"
ElseIf s = "04" Then
txtpstudy.Text = "Diploma Dua"
txtbp.Text = "1450000"
End If
txturut.Text = Right(txtinput.Text, 3)
End Sub
Private Sub Form_Activate()
txtnama.SetFocus
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtinput.SetFocus
End If
End Sub
By wisnu eka fratama
0
Feb 26 2013
Aside

MEMULAI LAGI

Menu

Membuat Data Mahasiswa

 

TUGAS III

Untitled5 copy

 

KODE

Private Sub Cmdproses_Click()

Dim S As String

txttm.Text = “20″ & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1″ Then

txtjur.Text = “Sistem Informasi”

ElseIf S = “2″ Then

txtjur.Text = “Manajemen Informatika”

ElseIf S = “3″ Then

txtjur.Text = “Tehnik Informatika”

ElseIf S = “4″ Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(txtnpm.Text, 4, 2)

If S = “01″ Then

txtps.Text = “Strata Satu”

ElseIf S = “02″ Then

txtps.Text = “Diploma Tiga”

ElseIf S = “03″ Then

txtps.Text = “Diploma Empat”

ElseIf S = “04″ Then

txtps.Text = “Diploma Dua”

End If

txturut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

By wisnu eka fratama
0
Feb 26 2013
Aside

Cara Membuat Administrasi Gaji Pegawai

 
Tugas III

Untitled-3copy

 

Source Code

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Public Sub kosong()

txtnpm.SetFocus

txtnpm.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

Txtpajak.Text = “”

txttotal.Text = “”

End Sub

Private Sub txtnpm_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

By wisnu eka fratama
0
Feb 26 2013
Aside

Cara Membuat Entri Penjualan

 

TUGAS III

Untitled-1 copy

 

Source code

Private Sub Cbokode_Click()

If Cbokode.Text = “Apple MC965 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC965″

Txths.Text = “12800000 “

ElseIf Cbokode.Text = “Apple MC966 MacBook Air ” Then

Txtmerk.Text = “Apple MacBook Air MC966″

Txths.Text = “15800000 “

ElseIf Cbokode.Text = “Apple MC968 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC968″

Txths.Text = “9900000 “

ElseIf Cbokode.Text = “Apple MC969 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC969″

Txths.Text = “11900000″

ElseIf Cbokode.Text = “Apple MC700 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC700″

Txths.Text = “10800000″

ElseIf Cbokode.Text = “Apple MC721 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC721″

Txths.Text = “10800000″

ElseIf Cbokode.Text = “Apple MC723 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC723 “

Txths.Text = “19300000 “

ElseIf Cbokode.Text = “Apple MC724 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC724 “

Txths.Text = “13700000″

ElseIf Cbokode.Text = “Apple MC311 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC311″

Txths.Text = “24200000″

ElseIf Cbokode.Text = “Apple MC313 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC313″

Txths.Text = “11900000″

ElseIf Cbokode.Text = “Apple MC314 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC314″

Txths.Text = “14700000″

ElseIf Cbokode.Text = “Apple MC318 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC318″

Txths.Text = “17600000″

ElseIf Cbokode.Text = “Apple MC322 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC322″

Txths.Text = “21300000″

ElseIf Cbokode.Text = “Apple MC965 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC965″

Txths.Text = “12800000″

ElseIf Cbokode.Text = “Apple MC966 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC966″

Txths.Text = “15800000″

End If

Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths) * Val(Txtjj)

If Txthp.Text > 140000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.15

Txttb.Text = Val(Txthp) * Val(Txtdis)

ElseIf Txthp.Text > 135000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.1

Txttb.Text = Val(Txthp) * Val(Txtdis)

ElseIf Txthp.Text > 130000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.05

Txttb.Text = Val(Txthp) * Val(Txtdis)

ElseIf Txthp.Text > 125000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.02

Txttb.Text = Val(Txthp) * Val(Txtdis)

End If

Txttb.Text = Val(Txthp) – Val(Txtdis)

End Sub

Private Sub Cmdlagi_Click()

Txtmerk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

Cbokode.Text = “”

Cbokode.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Form_Load()

Cbokode.AddItem “Apple MC965 MacBook Air”

Cbokode.AddItem “Apple MC966 MacBook Air “

Cbokode.AddItem “Apple MC968 MacBook Air”

Cbokode.AddItem “Apple MC969 MacBook Air”

Cbokode.AddItem “Apple MC700 MacBook Pro”

Cbokode.AddItem “Apple MC721 MacBook Pro”

Cbokode.AddItem “Apple MC723 MacBook Pro”

Cbokode.AddItem “Apple MC724 MacBook Pro”

Cbokode.AddItem “Apple MC311 MacBook Pro”

Cbokode.AddItem “Apple MC313 MacBook Pro”

Cbokode.AddItem “Apple MC314 MacBook Pro”

Cbokode.AddItem “Apple MC318 MacBook Pro”

Cbokode.AddItem “Apple MC322 MacBook Pro”

Cbokode.AddItem “Apple MC965 MacBook Air”

Cbokode.AddItem “Apple MC966 MacBook Air”

End Sub

By wisnu eka fratama
0
Feb 26 2013
Aside

Cara Membuat Entri Penjualan

 

TUGAS III

Untitled-1 copy

 

Source code

Private Sub Cbokode_Click()

If Cbokode.Text = “Apple MC965 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC965″

Txths.Text = “12800000 “

ElseIf Cbokode.Text = “Apple MC966 MacBook Air ” Then

Txtmerk.Text = “Apple MacBook Air MC966″

Txths.Text = “15800000 “

ElseIf Cbokode.Text = “Apple MC968 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC968″

Txths.Text = “9900000 “

ElseIf Cbokode.Text = “Apple MC969 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC969″

Txths.Text = “11900000″

ElseIf Cbokode.Text = “Apple MC700 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC700″

Txths.Text = “10800000″

ElseIf Cbokode.Text = “Apple MC721 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC721″

Txths.Text = “10800000″

ElseIf Cbokode.Text = “Apple MC723 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC723 “

Txths.Text = “19300000 “

ElseIf Cbokode.Text = “Apple MC724 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC724 “

Txths.Text = “13700000″

ElseIf Cbokode.Text = “Apple MC311 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC311″

Txths.Text = “24200000″

ElseIf Cbokode.Text = “Apple MC313 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC313″

Txths.Text = “11900000″

ElseIf Cbokode.Text = “Apple MC314 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC314″

Txths.Text = “14700000″

ElseIf Cbokode.Text = “Apple MC318 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC318″

Txths.Text = “17600000″

ElseIf Cbokode.Text = “Apple MC322 MacBook Pro” Then

Txtmerk.Text = “Apple MacBook Pro MC322″

Txths.Text = “21300000″

ElseIf Cbokode.Text = “Apple MC965 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC965″

Txths.Text = “12800000″

ElseIf Cbokode.Text = “Apple MC966 MacBook Air” Then

Txtmerk.Text = “Apple MacBook Air MC966″

Txths.Text = “15800000″

End If

Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths) * Val(Txtjj)

If Txthp.Text > 140000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.15

Txttb.Text = Val(Txthp) * Val(Txtdis)

ElseIf Txthp.Text > 135000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.1

Txttb.Text = Val(Txthp) * Val(Txtdis)

ElseIf Txthp.Text > 130000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.05

Txttb.Text = Val(Txthp) * Val(Txtdis)

ElseIf Txthp.Text > 125000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.02

Txttb.Text = Val(Txthp) * Val(Txtdis)

End If

Txttb.Text = Val(Txthp) – Val(Txtdis)

End Sub

Private Sub Cmdlagi_Click()

Txtmerk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

Cbokode.Text = “”

Cbokode.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Form_Load()

Cbokode.AddItem “Apple MC965 MacBook Air”

Cbokode.AddItem “Apple MC966 MacBook Air “

Cbokode.AddItem “Apple MC968 MacBook Air”

Cbokode.AddItem “Apple MC969 MacBook Air”

Cbokode.AddItem “Apple MC700 MacBook Pro”

Cbokode.AddItem “Apple MC721 MacBook Pro”

Cbokode.AddItem “Apple MC723 MacBook Pro”

Cbokode.AddItem “Apple MC724 MacBook Pro”

Cbokode.AddItem “Apple MC311 MacBook Pro”

Cbokode.AddItem “Apple MC313 MacBook Pro”

Cbokode.AddItem “Apple MC314 MacBook Pro”

Cbokode.AddItem “Apple MC318 MacBook Pro”

Cbokode.AddItem “Apple MC322 MacBook Pro”

Cbokode.AddItem “Apple MC965 MacBook Air”

Cbokode.AddItem “Apple MC966 MacBook Air”

End Sub

By wisnu eka fratama
0
Feb 26 2013
Aside

     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
SOURCE CODE
Private Sub cmdbatal_Click()
txtnama.Text = ""
txtinput.Text = ""
txtjurusan.Text = ""
txtpstudy.Text = ""
txttahun.Text = ""
txturut.Text = ""
txtbp.Text = ""
txtnama.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama.Text = ""
txtinput.Text = ""
txtjurusan.Text = ""
txtpstudy.Text = ""
txttahun.Text = ""
txturut.Text = ""
txtbp.Text = ""
txtnama.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = "20" & Left(txtinput.Text, 2)
s = Mid(txtinput.Text, 3, 1)
If s = "1" Then
txtjurusan.Text = "sistem informasi"
ElseIf s = "2" Then
txtjurusan.Text = "teknik informatika"
ElseIf s = "3" Then
txtjurusan.Text = "M.Informatika"
ElseIf s = "4" Then
txtjurusan.Text = "M.Komputer Akutansi"
End If
s = Mid(txtinput.Text, 4, 2)
If s = "01" Then
txtpstudy.Text = "strata satu"
txtbp.Text = "1950000"
ElseIf s = "02" Then
txtpstudy.Text = "Diploma Empat"
txtbp.Text = "1750000"
ElseIf s = "03" Then
txtpstudy.Text = "Diploma Tiga"
txtbp.Text = "1650000"
ElseIf s = "04" Then
txtpstudy.Text = "Diploma Dua"
txtbp.Text = "1450000"
End If
txturut.Text = Right(txtinput.Text, 3)
End Sub
Private Sub Form_Activate()
txtnama.SetFocus
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtinput.SetFocus
End If
End Sub
By wisnu eka fratama
0
Feb 15 2013
Aside

KODE PEMROGRAMAN VB (VISUAL BASIC)

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val(Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val(Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End If
End Sub

By wisnu eka fratama
0
Jan 30 2013
Aside

Mengunci/Mem-password Folder Tanpa Software

Anda punya folder rahasia yang tidak ingin orang lain selain Anda bisa melihatnya? Jangan khawatir. Anda tak perlu susah payah mencari Software atau folder lock yang harus membayar hanya untuk sekedar melindungi file rahasia Anda. Caranya cukup mudah hanya dengan menggunakan program notepad bawaan dari windows.

Mau tahu caranya bagaimana cara Mengunci/mem-password folder tanpa menggunakan software apapun hanya menggunakan program notepad dari windows?

Gambar

Berikut langkah-langkah mengunci folder lewat notepad :

  • Buka Notepad dengan Cara STAR-PROGRAM-ACCESSORIES-NOTEPAD
  • Setelah itu anda copy Code tersebut yang ada dibawah ini.

@ECHO OFF
title rahasia
if EXIST “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Do You Want To Lock This 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 ( Y=yes , N=no ).
goto CONFIRM
:LOCK
ren Locker “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
attrib +h +s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
echo This Folder Is Locked
goto End
:UNLOCK
echoenter password
set/p “pass=>”
if NOT %pass%==masukanPassword goto FAIL
attrib -h -s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
ren “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” Locker
echo Unlocked
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Locker
echo Locker created successfully
goto End
:End

Note:
1. Masukkan kata sandi Anda di tempat-masukanPassword yang berwarna merah.

2.kemudian save dengan nama rahasia.Bat atau bisa juga nama lain asalkan ekstensinya .Bat bukan .txt.
3. Klik dua kali folder tersebut yang sudah berformat “bat”. dan akan secara otomatis membuat folder baru.
4. Lalu letakkan file dalam folder locker itu.
5Klik file “bat”lagi.
6. Itu akan meminta konfirmasi Anda untuk mengunci folder.
7. Tekan Y atau y Untuk Ya dan N atau n Untuk No
Folder locker ini akan benar-benar menyembunyikan folder pribadi/penting anda dan tidak dapat dilihat tanpa tahu passwordnya dan tak dapat di search. Jadi, file Anda akan benar-benar tak dapat diakses.
Sekarang ketika Anda ingin membukanya cukup klik dua kali file “bat”. Masukkan password Anda dan folder akan terlihat oleh Anda.

Kalo terus ada yang iseng atau pun sengaja mendelete locker.exe gimana?

Tidak usah khawatir  tenang saja. Anda bisa membuka folder “rahasia” dengan membuat file locker.exe baru dengan password yang sama. Jadi jangan sampai lupa passwordnya.

Cukup simpel dan mudah bukan?

Selamat Mencoba dan Semoga Berhasil !!

By wisnu eka fratama
0