Tutor Manfaat kode 'Command' di VB

Di visual basic anda dapat membuat program yang akan mengeksekusi sebuah perintah/command line lewat command prompt atau "CMD.exe", tetapi bukan berarti aplikasi ini seperti program command prompt.
Saya akan memanfaatkan kode "Command" di visual Basic untuk menjalankan perintah-perintah buatan sendiri melalui file BAT agar tidak repot membuka program Command Prompt dan mengetik lokasi aplikasinya terlebih dahulu.

1. Buat projek baru di VB
2. Klik kanan pada Form dan klik menu "View Code"
3. Copy kode di bawah ini:
   
   Code:

   __________________________________________________________________________________
   

   Private Sub Form_Load()
'Jika terjadi kesalahan maka lewati kode yang salah tersebut.
On Error Resume Next

    'Jalankan aplikasi ini sekali saja.
    If App.PrevInstance = True Then End

    'Isi variabel "perintah" dengan kode 'Command'
    '(kode Command untuk membaca argumen dari sebuah perintah).
    Dim perintah As String
    perintah = Trim$(Command$)
   
    'Jika variabel perintah kosong maka tutup aplikasi ini.
    If perintah = "" Then End
    'Jika variabel perintah hanya berisi satu string maka tutup aplikasi ini.
    If Len(perintah) = 1 Then End
    'Jika variabel perintah di ambil string-nya dari kiri sebanyak satu bukan '/'
    'maka tutup aplikasi ini.
    If Left$(perintah, 1) <> "/" Then End
   
    'Jika isi variabel perintah tidak kosong dan memiliki '/' di awal string maka...
    Select Case LCase$(perintah) 'Konversi variabel perintah ke huruf kecil.
        Case "/normal" 'Jika isi variabel perintah adalah "/normal"
            Me.Show
        Case "/minimal" 'Jika isi variabel perintah adalah "/minimal"
            Me.Show
            Me.WindowState = 1
        Case "/maksimal" 'Jika isi variabel perintah adalah "/maksimal"
            Me.Show
            Me.WindowState = 2
        Case "/tanggal" 'Jika isi variabel perintah adalah "/tanggal"
            Me.Show
            MsgBox Format$(Date, "dddd/mmmm/yyyy")
        Case Else 'Jika isi variabel perintah tidak di kenal.
            MsgBox "Perintah '" & perintah & "' tidak terdaftar!", vbCritical, "Perintah salah"
            End 'tutup aplikasi ini
    End Select
End Sub

   __________________________________________________________________________________
4. Klik menu File -> Make Project1.exe
5. Di dialog Make project, buat dengan nama file program.exe (jangan menggunakan spasi)
   

Untuk penjelasan tentang kodenya anda dapat lihat source code-nya di folder (program.exe)



File BAT peng-eksekusi

1. Buka notepad, buat sebuah file Batch untuk mengeksekusi perintah di aplikasi program.exe yang baru di buat tadi kemudian masukan kode di bawah ini:
   
   Code:
   

   program.exe /tanggal
   Maksud kode di atas adalah aplikasi program.exe akan menjalankan sebuah perintah menampilkan pesan yang berisi tanggal sekarang. Tanda spasi adalah jarak antara nama aplikasi dan perintah, kode /tanggal adalah perintah yang sudah di daftarkan di aplikasi program.exe yang gunanya untuk menampilkan tanggal.
   Selain perintah /tanggal, anda dapat gunakan perintah lain:
   

   Quote:/normal
   Untuk menampilkan form program dengan window normal.
   /minimal
   Untuk menampilkan form program dengan window minimize.
   /maksimal
   Untuk menampilkan form program dengan window maximize.

   Silahkan anda tambahkan perintah-perintah yang lain di source code-nya.
2. Simpan di lokasi aplikasi program.exe dengan nama eksekusi.bat
3. Jalankan file BAT tersebut dan aplikasi program.exe akan menampilkan tanggal seperti gambar di bawah ini:
   
   
   Aplikasi program.exe tidak dapat di jalankan tanpa melalui file eksekusi.bat atau lewat command prompt karena perintah di dalam kode Command masih kosong jika aplikasi di jalankan melalui dobelklik.
   

Quote:Manfaat:

• Dengan cara ini, anda dapat membuat program yang hanya dapat di jalankan melalui command prompt atau file Batch (BAT) saja.
• Anda dapat membuat perintah-perintah yang lain untuk mengeksekusi kode-kode yang anda tentukan.
  

Quote:Bagaimana jika aplikasi ini ingin di jalankan melalui aplikasi VB anda yang lain?
Tentu saja bisa. Anda dapat membuat projek baru di VB dan masukan kode di bawah ini:

Shell "program.exe /perintah"

Guna kode di atas adalah untuk menjalankan aplikasi program.exe, /perintah adalah kode yang akan di panggil. Selalu gunakan spasi antara nama aplikasi dan perintahnya agar kode perintah/command tidak di anggap bagian dari nama file.
Jika anda meletakan aplikasi pengeksekusi ini di lokasi yang tidak sama dengan lokasi aplikasi program.exe tadi maka anda harus menggunakan alamat lengkap dengan nama file dan ekstensinya misalnya Shell "C:\program.exe /perintah"
Untuk lebih jelasnya anda dapat lihat source code-nya di folder (eksekusi program.exe)

DOWNLOAD SOURCE CODE:
http://www.mediafire.com/?g52g75lflrq4j20