Selasa, 25 Januari 2011

Membuat folder rahasia

langkah2nya:
1. Buka sebuah text editor (notepad, wordpad, dll)
2. copy dan paste kode yang berwarna ungu di bawah ini :

Quote

cls
@ECHO OFF
title ForumIF - Pengunci Folder - http://if.web.id
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto BUKA
if NOT EXIST rahasia goto BUATLOCKER
:KONFIRMASI
echo Anda yakin mau mengunci folder ? (Y/T)
set/p "cho=> "
if %cho%==Y goto KUNCI
if %cho%==y goto KUNCI
if %cho%==t goto AKHIR
if %cho%==T goto AKHIR
echo Pilihan Anda salah. Hanya Y/T !
echo .
goto KONFIRMASI
:KUNCI
ren rahasia "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder telah terkunci.
goto AKHIR
:BUKA
echo Masukkan password untuk membuka folder rahasia
set/p "pass=> "
if NOT %pass%== forumif goto GAGAL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" rahasia
echo Folder rahasia berhasil dibuka :) Horee!
goto AKHIR
:GAGAL
echo Password salah!
goto AKHIR
:BUATLOCKER
md rahasia
echo Folder rahasia berhasil dibuat! [http://if.web.id]
goto AKHIR
:AKHIR


Tulisan bertanda forumif, itu adalah password untuk membuka (unlock) folder rahasia, bisa Anda rubah sesuai keinginan.

3. Simpan file tersebut dengan ekstensi .bat. Misal: kunci.bat
4. Klik ganda (double click) pada file tersebut untuk eksekusi.
5. Untuk pertama kalinya, Anda akan dibuatkan sebuah folder baru bernama rahasia.
6. Silakan memasukkan file2 dalam folder tersebut.
7. Untuk menguncinya, silakan dobel klik lagi pada file kunci.bat tersebut.
8. Untuk membuka kunci dari folder (unlock), caranya juga sama, dalam hal ini passwordnya adalah forumif, kecuali kalau Anda ganti.
Read more »

Sabtu, 01 Januari 2011

QUEUE

Queue adalah kumpulan data dengan penambahan data hanya melalui satu sisi, yaitu belakang (tail) dan penghapusan data hanya melalui sisi depan (head). Berbeda dengan stack yang bersifat LIFO maka queue bersifat FIFO(First In First Out), yaitu data yang pertama masuk akan keluar terlebih dahulu dan data yang terakhir masuk akan keluar terakhir.

Queue juga mempunyai fungsi - fungsi dan arti tertentu, yaitu :
  1. 1.       Fungsi create : digunakan untuk membuat queue baru atau kosong, yaitu dengan memberi nilai awal (head) dan nilai akhir (tail) dengan -1.
  2. 2.       Fungsi full: digunakan untuk mengetahui apakah queue sudah penuh atau belum. Dilakukan dengan memeriksa nilai akhir (tail) apakah sudah sama dengan maksimal queue.
  3. 3.   Fungsi empty: digunakan untuk mengetahui apakah queue masih kosong atau tidak. Dilakukan dengan memeriksa nilai akhir (tail) bernilai -1 atau tidak.
  4. 4.   Fungsi enqueue : digunakan untuk menambahkan elemen ke dalam queue.
  5. 5.   Fungsi dequeue : digunakan untuk mengambil elemen dari queue, dengan cara memindahkan semua elemen satu langkah ke posisi depannya sehingga elemen yang paling depan tertimpa.
  6. 6.   Fungsi clear : digunakan untuk menghapus semua elemen dalam queue. Ada dua cara yang bisa digunakan, yaitu menuliskan fungsi seperti inisialisasi atau memanggil fungsi remove sampai queue kosong.




Queue juga mempunya dua tipe, yaitu

  1. 1.    Queue dalam bentuk Linier

      Linear array adalah suatu array yang dibuat seakan-akan merupakan suatu garis lurus dengan satu pintu masuk dan satu pintu keluar. 
  1. 2.    Queue dalam bentuk Circular

       Circular array adalah suatu array yang dibuat seakan-akan merupakan sebuah
lingkaran dengan titik awal (head) dan titik akhir (tail) saling bersebelahan jika array tersebut masih kosong. Posisi head dan tail itu bebas asalkan saling bersebelahan.











Sekian dulu penjelasan dari saya mengenai Queue.
semoga bermanfaat bagi teman – teman 


Read more »

Membuat Mdiform Pada Visual Basic

MDIForm di gunakan untuk membuat program aplikasi yang berbentuk Multiple Document Interfaces. Sebuah MDIForm yang bisa terdiri atas beberapa buah form lain yang biasa disebut MDIChild.
Nah sekarang saya  akan menjelaskan gimana cara menggunakan MID Parents pada visual basic 2008

1.Kita membuka Visual Basic 2008 lalu kita buat new project dan buat lah form seprti ini

2. Kemudian  tambah kan form 2 form dan kemudian tambah kan new windows , MDIform parents seperti
      gambar di bawah ini.


3.Kemudian akan muncul seprti ini

1.    

4. Saya tambah kan  menu bar pada MDI Parents tersebut dengan nama menu yaitu, Form dan dengan list berikutnya adalah Form1, Form2, Form3 seperti berikut ini


1.      5.Ketik coding seperti di bawah ini 


6. Setelah  itu klik project pada menu bar dan klik properties, kemudian ubah start up menjadi MDI Parents
    agar pada saat di debug maka akan muncul pertama adalah form MDI Parents.



1.  7. Lalu klik debug dan akan menjadi seperti ini.


8. 8.Kita juga bisa memanggil windows secara banyak seperti ini contoh nya .



9.Pada MDIForm juga mempunyai fungsi untuk meng-grid windows tersebut, seperti : Cascade, Tile
   Horizontal, Tile Vertical atau dengan menutup semua windows dengan Close All.

Cascade


Vertical


Horizontal


Sekian dulu semoga bermanfaat bagi teman – teman semua. 










Read more »

Minggu, 12 Desember 2010

Cara mumbuat IIF pada VB

Membuat program dari visual basic tentang IIF
Pertama, kita buka dulu program VB di jendela destop seperti bi bawah ini.


   Kumudian akan tampil seperti dibawah ini.
Kemudian buka file,new project.seperti di bawah ini.
Kemudian akan muncul tampilan di bawah ini
.Pada windows forms application kita ganti namanya menjadi “Form(IIF)”
Lalu akan muncul tampilan di bawah ini.
Kemudian toolbox-toolbox  tadi kita ubah nama-namanya di properties, text.
 Seperti gambar di bawah ini. 
Setelah itu tampilan sudah siap seperti di bawah ini.



Kemudian klik double pada button mulai kita buat codding di bawah ini.
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox1.Focus()

Kemudian klik double pada button proses kita buat codding di bawah ini.

TextBox6.Text = (TextBox4.Text * 0.5) + (TextBox5.Text * 0.5)
TextBox7.Text = If(CInt(TextBox6.Text) >= 60, "LULUS", "GAGAL")


Kemudian klik double pada button selesai kita buat codding di bawah ini.


Demikian lah proses pembuatan program Visual Basic tentang “IIF”.
Semoga bermanfaat bagi kita semua. Terima kasih.Slamat Mencoba
Read more »

 
Powered by Blogger