Tutorial Visual Basic 6.0

Syntax Len Mid$() Left$() Right$()

2011-09-24T10:07:00.002+07:00

Setelah membahas syntax Do...Loop dan For... Next, kali ini kita akan membahas syntax yang lainnya yakni syntax Len, Mid$(), Left$(), Right$(). Keempat syntax tersebut dibahas karena sering kali digunakan dalam sebuah project aplikasi visual basic. Mari yuk mari dibahas dan dibongkar satu persatu (kek gudang aje hohohoho...) :

1. Syntax Len

Digunakan untuk mendapatkan informasipanjang dari sebuah string.

Syntax dasar :

Len (string)

Contoh :

Dim x as String
x = “Tutorial Visual Basic”
MsgBox x & “ = “ & Len(x) & “karakter”

Penjelasan :

Dim x as String

‘yakni mendefinisikan bahwa “x” bernilaistring;

x = “Tutorial Visual Basic”

‘yakni “x” tersebut berisi kalimat TutorialVisual Basic;

MsgBox x & “ = “ & Len(x) & “karakter”

‘yaknimembuat MsgBox yang menampilkan pesan “x” (Tutorial Visual Basic), “& “=”&”(“& “untuk menggabungkan karakter “x”dengan karakter “ = “(spasi = spasi)), “Len (x)” (mendapatkan informasi panjangdari “x”(Tutorial Visual Basic) yang kalau dihitung adalah 21 (termasuk spasijuga dihitung)), “& “ karakter” (penjelasan sama dengan “& “=”&”).

Hasilnya dalam MsgBox :

Tutorial Visual Basic = 21 karakter

2. Syntax Mid$()

Digunakan untuk mendapatkan bagian tertentudari sebuah string.

Syntax dasar :

Mid$ (string, start[, length])

Contoh :

Dim x as String
x = Mid$ (“Tutorial Visual Basic”, 17, 5)
MsgBox x

Penjelasan :

Dim x as String

‘yakni mendefinisikan bahwa “x” bernilaistring;

x = Mid$ (“Tutorial Visual Basic”, 17, 5)

‘ yakni dalam string “Tutorial Visual Basic” tersebut mulaidihitung dari kiri ke kanan 17 karakter (termasuk spasi juga dihitung), setelahdidapat 17 karakter tersebut maka itu merupakan titik awalnya (yakni huruf “B”)sedangkan “5” merupakan panjangnya dimulai dari titik awal (yakni “Basic”).

Hasilnya dalam MsgBox :

Basic

3. Syntax Left$()

Digunakan untuk mendapatkan bagian tertentudari sebuah string, yang dimulai dari sisi kiri string.

Syntax dasar :

Left$ (string), length)

Contoh :

Dim x as Sting
x = Left$ (“Tutorial Visual Basic”, 15)
MsgBox x

Penjelasan :

x = Left$ (“Tutorial Visual Basic”, 15)

‘yakni angka 15 maksudnya dari kalimatTutorial Visual Basic tersebut dibaca dari kiri 15 karakter (termasuk spasi)dan didapat Tutorial Visual.

Hasilnya dalam MsgBox :

Tutorial Visual

4. Syntax Right$()

Digunakan untuk mendapatkan bagian tertentudari sebuah string, yang dimulai dari sisi kanan string.

Syntax dasar :

Right$ (string, length)

Contoh :

Dim x as String
x = Right$(“Tutorial Visual Basic”, 12)
MsgBox x

Penjelasan :

x = Right$(“Tutorial Visual Basic”, 12)

‘yakni angka 12 maksudnya dari kalimatTutorial Visual Basic tersebut dibaca dari kanan 12 karakter (termasuk spasi)dan didapat Visual Basic.

Hasilnya dalam MsgBox :

Visual Basic

Ditulis oleh paijo_jr (sumber Syntax)

Syntax Do... Loop dan For... Next

2011-09-24T09:20:00.000+07:00

Syntax atau dalam bahasa Indonesia Sintaksis adalah ilmu mengenai prinsip dan peraturan untuk membuat kalimat dalam bahasa alami. Selain aturan ini, kata sintaksis juga digunakan untuk merujuk langsung pada peraturan dan prinsip yang mencakup struktur kalimat dalam bahasa apapun.
Dalam hal ini Syntax yang akan dibahas merupakan Syntax untuk pemrograman Visual Basic 6.0.Dalam Syntax Visual Basic 6.0 terdapat banyak sekali Syntax yang salah satunya adalah syntax perulangan yakni Do... Loop dan For... Next (satu-satu ngebahasnya kalo semua bahhh bisa panjang banget page nya hehehe...)

Syntax Do… Loops
Digunakan sebagai statemen perulangan.

Syntax 1 :

Do Until (Expression)

(codeto execute)

Loop

Contoh :

Dim x as Integer
x=0
Do Until x = 50
x = x+1
Loop

Syntax 2 :

Do While (expression)

(codeto execute)

Loop
Contoh :

Dim x as Integer
Do While x = 100
x = x+1
Loop

Syntax 3 :

(codeto execute)

Loop While (expression)

Contoh :

Dim x as Integer
Do
x = x+1
Loop While x = 100

Syntax For… Next

Digunakan sebagai statemen perulangan

Syntax dasar :

For counter = start To end [ step step ]

(codeto execute)

Next [ counter ]

Contoh 1 :

Dim x as Integer
For x = 0 To 10
MsgBox“Nilai x = “ & x
Next x

Contoh 2 :

Dim x as Integer
For x = 0 To 10 step 2
MsgBox“Nilai x = “ & x
Next x

Ditulis ulang oleh paijo_jr (sumber Syntax)

Date and Time

2010-11-19T22:06:00.000+07:00

Pada tutorial kali ini akan saya bahas mengenai date and time alias tanggal dan waktu. Mungkin tutorial ini banyak yang sudah mengerti, tetapi apa boleh buat berhubung ada yang request ya sejenak kita bahas oke. Date and Time saya rasa sudah tahu semua apa maksudnya, yup benar kali ini kita akan mengupas masalah format date and time dalam Visual Basic 6.0. Berikut ini sejumlah contoh penggunaan format date and time :
1. Date pasti semua orang sudah tahu, tanggal bahasa Indonesia nya. Sedangkan format tanggal itu sendiri ada bermacam-macam misal : 19 November 2010, 19 Nov 2010, 19-10-2010, November, 19 2010 dan sebagainya.
2. Time atau waktu pun juga mempunyai format untuk di masukkan dalam program Micr*soft Visual Basic 6.0, sebagai contoh yakni : 20:00, 08.00 PM, dan sebagainya.

Simulasi date and time pada visual basic :
1. Bukalah Micr*soft Visual Basic 6.0 anda dan pilihlah StandardEXE
2. Pilih satu label dan ubah ukuran sesuai dengan yang di inginkan (ingat jangan ubah Name)
3. Klik 2 kali pada form load nya dan isikan sebagai berikut :

Private Sub Form_Load()
Label1.caption= Format(Now, "Long Date")
End Sub

4. Klik run atau F5 maka akan menghasilkan Friday, November 19, 2010

Gantilah Format(Now, "Long Date") dengan berikut ini dan coba klik run atau F5:
Date

1. Format(Now, "Medium Date") >> 19-Nov-10
2. Format(Now, "Short Date") >> 11-19-2010
3. Format(Now, "dd-mm-yyyy") >> 19-11-2010 (dd day, mm month, yyyy year)
etc

Time

1. Format(Now, "Long Time") >> 10:33:00 PM
2. Format(Now, "Medium Time") >> 10:33 PM
3. Format(Now, "Short Time") >> 22:33 (hh hour, mm minutes, ss secon)
4. Format(Now, "hh:mm:ss") >> 22:33:00
5. Format(Now, "hh:mm AM/PM") >> 10:33 PM (sama dengan medium time)

Format di atas hanya sebagian yang ditulis, masih ada kemungkinan-kemungkinan format yang lain. Untuk itu saya sediakan freeware yang berisi format format date and time

Sekian dan terima kasih

Download Date and Time << klik

Ditulis oleh paijo_jr

Menampilkan Dialog Browse

2010-05-01T21:12:00.024+07:00

Sebenarnya bingung juga mo ngasih judul apa pada postingan kali ini tapi akhirnya kuberi judul ini aja “Menampilkan Dialog Browse”. Apa lagi maksudnya itu???secara ringkas tak kasih sedikit gambaran, kalo kamu kamu familiar sama Operating System Wind*ws misalnya yang simple Notepad.exe. Setelah notepad.exe kamu buka maka akan keluar khan notepad nya (ya jelaslah hehehehe…), trus coba kamu tekan File-Open (atau tekan Ctrl+O) maka akan muncul dialog “Open” seperti gambar di bawah ini, nah artikel kali ini saya akan share ilmu “Menampilkan Dialog Browse”.

Ikutilah langkah-langkah dibawah ini :
Tahap pertama, yakni membuat module :
Seperti biasa buka Micros*ft Visual Basic anda dan pilih standardEXE
Pada artikel kali ini, kita membutuhkan sebuah module, jadi tekan Alt+P (Project) lalu pilih Add Module (atau tekan huruf M),

Lalu tekan Open dan muncullah jendela seperti gambar di bawah ini

Isi module dengan source code dibawah ini,

Option Explicit

Private Type BrowseInfo
lngHwnd As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem _
As Long)
Private Declare Function lstrcat Lib "Kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "Shell32" (lpbi _
As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long

Public Function BrowseForFolder(ByVal strPrompt As String) As _
String
On Error GoTo ehBrowseForFolder
Dim intNull As Integer
Dim lngIDList As Long, lngResult As Long
Dim strPath As String
Dim udtBI As BrowseInfo
With udtBI
.lngHwnd = 0
.lpszTitle = lstrcat(strPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lngIDList = SHBrowseForFolder(udtBI)
If lngIDList <> 0 Then
strPath = String(MAX_PATH, 0)
lngResult = SHGetPathFromIDList(lngIDList, strPath)
Call CoTaskMemFree(lngIDList)
intNull = InStr(strPath, vbNullChar)
If intNull > 0 Then
strPath = Left(strPath, intNull - 1)
End If
End If
BrowseForFolder = strPath
Exit Function
ehBrowseForFolder:
BrowseForFolder = Empty
End Function

Kemudian pada properties window ganti nama module menjadi “mdlDialog”
Tahap kedua, yakni menambahkan komponen Common Dialog :
Pada tahap ini kita membutuhkan komponen yang namanya “Common Dialog”, untuk itu aktifkan komponen tersebut dengan melakukan centang pada “Micros*ft Common Dialog Control 6.0”
Langkah-langkahnya tekan Project-lalu pilih Component (atau jalan pintasnya tekan Ctrl+T untuk menampilkan component), scroll ke bawah lalu cari Micros*ft Common Dialog Control 6.0 serta centang dan tekan OK

Setelah itu lihat pada Toolbox, maka akan ada penambahan komponen berupa CommonDialog

Tahap Ketiga :
Masukkan 2 buah TextBox, 2 buah CommandButton dan 1 buah CommonDialog
Atur properties pada masing-masing komponen sebagai berikut : (untuk ukuran/ size terserah )

Form
Name	frmDialog
BorderStyle	1 – Fixed Single
Caption	Menampilkan Dialog Browse

TextBox1
Name	txtFolder
Text	Folder

TextBox2
Name	txtFiles
Text	Files

CommandButton1
Name	cmdFolder
Caption	Browse Folder

CommandButton2
Name	cmdFiles
Caption	Browse Files

CommonDialog
Name	CD1

Lalu atur komponen tersebut seperti dibawah ini :

Buka Code Window dan masukkan source code dibawah ini:

Private Sub cmdFiles_Click()
On Error GoTo akhir
Dim Filename As String
CD1.Filter = "Semua File|*.*" 'kamu bisa merubah kode ini sesuai dengan kebutuhan misal Image|*.jpg
CD1.ShowOpen
Filename = CD1.Filename
akhir:
If Len(Filename) > 0 Then
txtFiles.Text = Filename
End If
End Sub

Private Sub cmdFolder_Click()
Dim brwVal As String
brwVal = BrowseForFolder("Select Drive And Directory:")
If Len(brwVal) > 0 Then
txtFolder.Text = brwVal
End If
End Sub

Selesai, coba tekan Run atau F5
Nah mudah bukan menampilkan dialog browse hehehe… terus belajar bro.

Download Source Code

Ditulis oleh paijo_jr

Membuat Explorer

2010-03-04T10:06:00.008+07:00

Hmm... udah lama nggak posting nieh^^
Kali ini kita akan membuat aplikasi bernama "explorer". Sebenarnya aplikasi ini untuk menjelaskan bagaimana menyelaraskan drivelistbox, dirlistbox dan filelistbox. Kenapa aplikasi ini perlu gw posting karena pada jaman dulu kala gw kesulitan banget buat meng-konek-an ketiga toolbox tersebut (emang dasar oon gw) hehehe...

Langkah pertama seperti biasa buka Microsoft Visual Basic dan pilih new project

Langkah kedua, pada toolbox klik drivelistbox, dirlistbox dan filelistbox kemudian atur posisi ketiganya seperti gambar di bawah ini

Untuk propertinya standar saja (nggak usah diubah)

Langkah ketiga masukkan source code dibawah ini

Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.FileName = "*.*" 'edit ini misal "*.doc"
End Sub

Private Sub Drive1_Change()
Dir1 = Drive1
End Sub

Private Sub Form_Load()
'saat form di load maka akan menjalankan perintah di bawah ini
Dir1 = Drive1
File1.Path = Dir1.Path
File1.FileName = "*.*"
End Sub

Langkah terakhir jalankan program dengan menekan tombol F5, lalu compile menjadi *.exe

Ternyata mudah ya…. tapi kenapa koq dulu gw nggak bisa xixixi

Download Source Code dan Aplikasinya <--klik

Ditulis oleh paijo_jr

Show Super Hidden

2010-01-02T16:57:00.008+07:00

Nah kelihatan keren kan judul postingan di atas hehehehe… Show Super Hidden, apa maksudnya tuh?!?kamu pasti pernah men setting dokumen/file ke atribut hidden (biar kagak bisa diliat temen2 kamu hohoho), kalo super hidden tuh di atas nya hidden atau kalau di explorer tuh dibaca atribut system.

Sebenarnya banyak lho file-file dengan atribut system yang ada di windows, nah supaya kagak semrawut dan menghindari user mengubah atau menghapus file-file penting tersebut maka Microsoft memberi atribut system. Kalau kita ingin melihat file dengan atribut system maka cara normalnya melalui windows explorer trus folder options dan seterusnya atau lewat registry (hm.. ribet banget kan). Biar nggak ribet kita buat aja aplikasi untuk memunculkan file-file tersebut.

Begini untuk membuat aplikasi ini, pada dasarnya kita mengubah nilai pada registry (biasa dikenal regedit). Jadi kita harus tahu terlebih dahulu alamat superhidden ini, buka registry caranya start -run lalu ketik regedit dan enter

Cari dan lihat pada alamat dibawah ini :

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt

Hm...apa tuh maksudnya alamat registry diatas??kalau di lihat alamat full kayak diatas memang bikin pusing, saran saya ambil bagian belakangnya yakni ShowSuperHidden, Hidden dan HideFileExt.

Maksud dari ketiganya yakni :

ShowSuperHidden, ini yang dapat memunculkan file ber atribut system. Pada settingan normal akan bernilai 0 yang artinya file ber atribut system tidak akan kelihatan;
Hidden, ini hanya memunculkan file ber atribut hidden saja. Sama seperti ShowSuperHidden, pada settingan normal bernilai 0;
HideFileExt, ini merupakan ekstensi dari file-file yang ada di windows explorer, misal : file Microsoft Word sebenarnya berekstensi ***.doc tetapi agar ekstensi ini tidak terlihat maka nilai HideFileExt harus bernilai 1.

Dari penjelasan ketiganya tersebut, maka yang akan kita lakukan yakni mengubah nilai ketiga nya melalui visual basic:

ShowSuperHidden, nilai 0 diubah menjadi 1;
Hidden, nilai 0 diubah menjadi 1;
HideFileExt, nilai 1 diubah menjadi 0.

Bukalah Microsoft Visual Basic anda lalu pilihlah StandardEXE

Masukkan 3 buah CommandButton lalu ganti properties seperti dibawah ini :

Form
Name	frmSSH
BorderStyle	Fixed Single
Caption	Show Super Hidden
ControllBox	False

CommandButton1
Name	cmdLihat
Caption	&Show

CommandButton2
Name	cmdSembunyi
Caption	&Don’t Show

CommandButton3
Name	cmdKeluar
Caption	E&xit

Atur seperti gambar paling atas (image merupakan tambahan saja)

Masukkan source code dibawah ini pada Code Window

'perintah untuk melihat file system
Private Sub Lihat()
On Error Resume Next
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 1
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0
MsgBox "Klik kanan lalu Refresh"
End Sub

'perintah untuk menyembunyikan file system
Private Sub Sembunyi()
On Error Resume Next
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1
MsgBox "Klik kanan lalu Refresh"
End Sub

'fungsi untuk merubah nilai pada registry
Function RegDword(HiveAndKey As String, Value As Integer)
Dim newbie As Variant
Set newbie = CreateObject("Wscript.Shell")
newbie.regwrite HiveAndKey, Value, "REG_DWORD"
End Function

Private Sub cmdKeluar_Click()
MsgBox "http://www.kolektor-veebee.blogspot.com"
'keluar
Unload Me
End Sub

Private Sub cmdLihat_Click()
'memanggil perintah lihat
Call Lihat
End Sub

Private Sub cmdSembunyi_Click()
'memanggil perintah sembunyi
Call Sembunyi
End Sub

Jalankan aplikasi dengan menekan F5 lalu compile menjadi .exe

Cara kerja :

Jalankan aplikasi
Klik Show
Klik kanan pada windows / explorer lalu refresh dan lihat hasilnya

Download Source Code dan aplikasinya<---Klik

Ditulis oleh paijo_jr

Download Source Code

2009-12-25T14:01:00.033+07:00

Untuk mempermudah serta merapikan file source code yang mau di download maka mau nggak mau harus disediain satu halaman khusus buat download hehehe... Jadi disamping ada link untuk download source code, ada juga link ke artikel nya sepp^^

Halo Indonesia .:Source Code:.

Membuat Jam .:Source Code:.

If Then Else .:Source Code:.

Cari Hari Lahir Anda .:Source Code:.

Show Super Hidden .:Source Code:.

Membuat Explorer .:Source Code:.

Menampilkan Dialog Browse .:Source Code:.

Date and Time .:Source Code:.

Cari Hari Lahir Anda

2009-12-24T16:20:00.016+07:00

Tahukah hari lahir kamu???berdasarkan pengamatan, kebanyakan orang tuh pada kagak tahu hari lahir masing-masing tetapi kalau tanggal lahir pasti hafal lah. Tutorial kali ini, kita akan membuat aplikasi untuk mencari hari lahir biar pada tahu hari lahir masing-masing hehehe...

Kalau pada aplikasi sebelumnya, toolbox yang sudah kita gunakan yaitu commanbutton, label serta timer dan kali ini kita akan tambahkan satu lagi toolbox yakni textbox. Apa perbedaan label dengan textbox???perbedaan kedua toolbox tersebut ialah kalau label kita tidak akan bisa mengisi sendiri caption kecuali melalui pihak kedua (misal commandbutton atau timer) tetapi kalau textbox tidak ada properties yang bernama caption, yang ada yakni text dan di properties text ini kita bisa mengisi sendiri sesuai dengan keinginan kita.

Langkah pertama, bukalah Microsoft Visual Basic anda dan pilih StandardEXE
Langkah kedua, pada bagian toolbox pilihlah 3 buah label, 3 buah textbox dan satu commandbutton dan atur properties seperti dibawah ini

Form1
Name	frmCari
BorderStyle	1 – Fixed Single
Caption	Cari Hari Lahir Anda

Label 1
Name	lblTanggal
Caption	Tanggal Lahir

Label 2
Name	lblHari
Caption	Hari Lahir

Label 3
Name	lblBintang
Caption	Bintang

TextBox 1
Name	txtTanggal
Text	Dikosongi / Tidak diisi
ToolTipText	contoh : 17 08 1945

TextBox 2
Name	txtHari
Text	Dikosongi / Tidak diisi

TextBox 3
Name	txtBintang
Text	Dikosongi / Tidak diisi

CommandButton
Name	cmdCari
Caption	Cari Hari Lahir Saya

Langkah ketiga, atur seperti gambar di bawah ini

Langkah keempat, masukkan source code di bawah ini pada Code Window

Private Sub cmdCari_Click()
'Mencari hari lahir
Dim KodeHari As Byte
Dim Hari As String
KodeHari = Weekday(txtTanggal.Text)
Select Case KodeHari
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jumat"
Case 7: Hari = "Sabtu"
End Select
txtHari.Text = Hari

'Mencari Bintang
Dim Tgl, Bln As Byte
Dim Bintang As String
Tgl = Day(txtTanggal.Text): Bln = Month(txtTanggal.Text)
If (Tgl >= 21 And Bln = 3) Or (Tgl <= 20 And Bln = 4) Then Bintang = "ARIES"
If (Tgl >= 21 And Bln = 4) Or (Tgl <= 21 And Bln = 5) Then Bintang = "TAURUS"
If (Tgl >= 22 And Bln = 5) Or (Tgl <= 21 And Bln = 6) Then Bintang = "GEMINI"
If (Tgl >= 22 And Bln = 6) Or (Tgl <= 22 And Bln = 7) Then Bintang = "CANCER"
If (Tgl >= 23 And Bln = 7) Or (Tgl <= 22 And Bln = 8) Then Bintang = "LEO"
If (Tgl >= 23 And Bln = 8) Or (Tgl <= 22 And Bln = 9) Then Bintang = "VIRGO"
If (Tgl >= 23 And Bln = 9) Or (Tgl <= 22 And Bln = 10) Then Bintang = "LIBRA"
If (Tgl >= 23 And Bln = 10) Or (Tgl <= 21 And Bln = 11) Then Bintang = "SCORPIO"
If (Tgl >= 22 And Bln = 11) Or (Tgl <= 21 And Bln = 12) Then Bintang = "SAGITARIUS"
If (Tgl >= 22 And Bln = 12) Or (Tgl <= 20 And Bln = 1) Then Bintang = "CAPRICORN"
If (Tgl >= 21 And Bln = 1) Or (Tgl <= 19 And Bln = 2) Then Bintang = "AQUARIUS"
If (Tgl >= 20 And Bln = 2) Or (Tgl <= 20 And Bln = 3) Then Bintang = "PISCES"
txtBintang.Text = Bintang
End Sub

Private Sub Form_Load()
cmdCari.Enabled = False
End Sub

Private Sub txtTanggal_Change()
If IsDate(txtTanggal.Text) Then
cmdCari.Enabled = True
Else
cmdCari.Enabled = False
End If
End Sub

Langkah kelima, tekan Run atau F5 dan compile aplikasi ini dengan menekan tombol Alt+F dan pilih make project1.exe(atau tekan huruf “k” pada keyboard).
Download Source Code

Ditulis oleh paijo_jr

If Then Else

2009-12-17T19:10:00.011+07:00

Statement bercabang digunakan untuk melakukan suatu tindakan di dalam suatu program berdasarkan kondisi tertentu. Salah satu percabangan yang tidak asing di telinga kita adalah percabangan if then else karena pada aplikasi excel percabangan tersebut juga kita gunakan. Percabangan if then else ini digunakan untuk menjalankan satu blok perintah yang nilainya tergantung pada kondisi yang diuji. Penulisannya adalah sebagai berikut :

If kondisi then
pernyataan 1
Else
pernyataan 2
End if

Atau kita bisa menambahkan statement ElseIf, sehingga menjadi :

If kondisi 1 then
pernyataan 1
ElseIf kondisi 2 then
pernyataan 2
Else
pernyataan 3
End If

Bingung khan?!?aku aja juga bingung sob hehehe…
Nie kan aku coba jelasin yah, yang namanya percabangan khan pasti ada pilihan lebih dari satu(pernyataan), bisa A, B, C sampe seterusnya. Untuk percabangan If-Then-Else-End If ini, pertama kita mendeklarasikan satu kondisi terlebih dahulu, sesudah itu pasti ada pilihan jawabannya bisa benar ato bisa salah. Jadi percabangan If-Then-Else-End-If ini memerlukan kondisi yang tempatnya setelah perintah If, dan jawaban dari kondisi tadi jika benar maka dijawab dengan pernyataan 1 yang terletak setelah Then tapi jika salah maka pernyataan 2 tempatnya terletak setelah Else dan yang terakhir menutup perintah If dengan End If. Misal jika paijo_jr cowok maka paijo_jr ganteng tapi jika paijo_jr bukan cowok maka paijo_jr cantik(hiks…). Tuh tadi soalnya, jika soal itu diubah menjadi bahasa kayak di atas tadi maka bunyinya begini :

If paijo_jr=cowok then
paijo_jr ganteng
Else
paijo_jr cantik
End if

Hm…udah berkurang bingungnya?!?wah masih belum jelas, oke kita buat project baru saja untuk mempraktekkan percabangan if then else ini.

Pertama buat project baru, buka Microsoft Visual Basic nya lalu klik StandardEXE;
Kedua tambahkan satu buah Label, satu buah TextBox dan satu buah CommandButton kemudian atur seperti gambar dibawah ini:

Ketiga atur properties masing-masing komponen sebagai berikut:

Form
Name	frmCabang
Caption	Contoh Percabangan

Label1
Name	lblCabang
Alligment	Center
AutoSize	True
Caption	“” Dikosongi
Font	Size 12
ForeColor	Pilih Warna Biru

CommandButton
Name	cmdCabang
Caption	Test Cabang

TextBox
Name	txtCabang
Text	“” Dikosongi

Keempat, klik cmdCabang atau pindah ke Code Window lalu isikan source code di bawah ini :

Private Sub cmdCabang_Click()
If txtCabang.Text = "" Then
lblCabang.Caption = "TextBox Kagak Ada Isinya"
Else
lblCabang.Caption = "Wah Tuh Ada Isinya Boz"
End If
End Sub

Kelima, klik F5 dan klik Test Cabang lihat hasilnya ketika textbox kosong dengan ketika textbox ada hurufnya;

Penjelasan Source Code :

Private Sub cmdCabang_Click()
Maksud dari perintah diatas adalah apabila cmdCabang (CommandButton) di klik maka akan menjalankan perintah dibawahnya dan End Sub untuk mengakhiri perintah.

If txtCabang.Text = "" Then
Disini perintah percabangan dimulai, dimana pada awalnya di lihat apakah txtCabang.Text tidak ada isinya (tanda petik dua berarti kosong “”), kalau txtCabang.Text ternyata kosong maka memberi perintah kepada lblCabang.Caption untuk mengisi "TextBox Kagak Ada Isinya" , tetapi jika ternyata txtCabang.Text tersebut tidak kosong atau berisi minimal satu karakter (huruf atau angka) maka memberi perintah untuk mengisi lblCabang.Caption menjadi "Wah Tuh Ada Isinya Boz". Dan perintah If tersebut diakhiri dengan End If

Nah pasti sekarang udah agak paham ya, hehehe…gak sia-sia aku buat tutorial percabangan if then else ini.
Download Source Code

Ditulis oleh paijo_jr

Operator Logika

2009-12-13T00:16:00.004+07:00

Sedikit berbagi aja dari yang pernah aku baca di buku, sebenarnya seh aku kurang paham ma operator logika ini tapi semoga yang baca tulisan di bawah ini lebih paham ya hehehe… Operator logika itu mengikuti aritmatika dalam pengutamaan perhitungan. Adapun operator-operator tersebut adalah :

Operator	Keterangan
Not	Logika bukan
And	Logika dan
Or	Logika atau
Xor	Exclusive Or
Eqv	Ekivalen
Imp	Implikasi

Keterangan :

Operator Not akan menghasilkan nilai true jika ungkapannya memang salah;
Operator And akan menghasilkan nilai true jika semua ungkapan benar dan akan menghasilkan false, jika salah satu ungkapan salat atau semua ungkapan salah;
Operator Or akan menghasilkan nilai true jika salah satu ungkapan benar dan akan menghasilkan false jika semua ungkapan salah;
Operator Xor akan menghasilkan nilai true jika satu ungkapan salah dan satu ungkapan lain benar dan akan menghasilkan nilai false apabila semua ungkapan benar atau semua ungkapan salah;
Operator Eqv adalah kebalikan dari operator Xor, akan menghasilkan nilai true jika kedua ungkapan sama-sama benar atau sama-sama salah, dan akan menghasilkan false jika satu ungkapan salah dan satu ungkapan lain benar;
Operator Imp akan menghasilkan nilai true jika ungkapan pertama benar dan ungkapan kedua salah, selain kondisi tersebut akan menghasilkan false.

Ditulis ulang oleh paijo_jr (sumber computer worm1)

Icon Sucker 2

2009-12-03T12:13:00.003+07:00

Untuk melengkapi postingan sebelumnya yakni Mengganti Icon pada Aplikasi, tidak lengkap rasanya kalo nggak cantumin software buat mengambil icon yakni Icon Sucker 2. Software ini merupakan salah satu software yang berfungsi mengambil icon pada aplikasi (ber ekstensi *.exe). Silakan download terlebih dahulu software Icon Sucker 2 di sini download Icon Sucker 2

Setelah selesai downloadnya, lalu install aplikasi tersebut pada kompie anda. Ikuti langkah-langkahnya :

Pilih Next

Pilih I Agree
Lalu pilih mau diletakkan dimana lalu klik Next dan Install

Langkah selanjutnya setelah terinstall software Icon Sucker 2 tersebut maka jalankan aplikasi nya baik melalui tombol start lalu program files atau pada icon di desktop. Setelah itu ada 4 langkah untuk mendapatkan icon dari aplikasi lain (dalam hal ini saya akan mengambil icon Windows Media Player)
Langkah 1 : Cari folder aplikasi Windows Media Player (yakni di folder C:\Program Files\Windows Media Player\)*;
Langkah 2 : Pilih aplikasi wmplayer.exe lalu pada bagian bawah software Icon Suck muncul pilihan icon dari wmplayer;
Langkah 3 : Pilih salah satu icon yang muncul pada bagian bawah tersebut;
Langkah 4 : Simpan icon ke dalam folder sesuai dengan keinginan kita.

Mudah bukan

Ditulis oleh paijo_jr

Note: * : tergantung dimana anda menginstall aplikasi Windows Media Player

Mengganti Icon pada Aplikasi

2009-12-02T10:41:00.011+07:00

Tips kali ini yakni mengganti icon pada aplikasi, kedua project yang kita buat yaitu Halo Indonesia dan Membuat Jam hanya mempunyai icon standart bawa-annya Microsoft Visual Basic. Nah tugas kita sekarang mengubah icon standart tersebut menjadi icon yang sesuai dengan keinginan kita.

Sebenarnya apa sih perbedaan atau keuntungan mengganti icon???kalo diliat dari performa aplikasi yang telah kita buat (misal saya ambil contoh Halo Indonesia) mengganti icon tidak mempengaruhi kinerja aplikasi tersebut tetapi dari segi tampilan baik pada form aplikasi itu sendiri maupun pada window explorer, perubahan icon tersebut akan membuat aplikasi kita mempunyai ciri khas berupa icon yang berbeda dengan aplikasi lainnya.

Alat-alat yang dibutuhkan yakni obeng, kunci, tang (kayak mo buka bengkel aja hakhakhak…) becanda hehehe… Alatnya ya cuman icon duank, makanya cari icon sendiri yah yang penting file tersebut ekstensinya *.ico
Kalo udah ketemu sekarang kita mulai face off project Halo Indonesia (project baru juga gak pa pa). Buka project Halo Indonesia, setelah itu aktifkan frmHalo (form halo) dan pada propertiesnya cari yang namanya icon, nah di situ ada tanda titik tiga (…) klik aja di situ.

Langkah selanjutnya pilih icon yang sudah anda siapkan tadi (disini saya pilih iconnya process explorer hehehe…) lalu tekan open. Nah udah ganti kan.

Langkah terakhir yakni compile menjadi file *.exe dengan menekan Alt+f lalu pilih make****.exe dan inilah hasilnya

Gimana udah eye cacthing pa belum^^

Ditulis oleh paijo_jr

Note: *** : maksudnya sesuai dengan nama file anda.

Membuat Jam

2009-11-28T11:28:00.015+07:00

Pernah dengar pepatah “waktu adalah uang”, yup pasti pernah dengar semua kan, sedangkan waktu itu sendiri bisa tahun, bulan, hari sampai jam. Nah disini kita akan membuat aplikasi sederhana yakni membuat jam (hehehe… sangat sederhana banget kan). Dalam aplikasi ini, kita akan membuat 2 jam, dimana yang pertama akan aktif di form sedangkan yang kedua yaitu jam tersebut kita tempatkan pada title bar (disamping judul).

Pertama-tama yang dibutuhkan yakni 1 buah label dan 1 buah timer (hagh..masak cuman 2 buah komponen itu saja??yup emang bener cuman 2 komponen sob).

Buka Microsoft Visual Basic 6.0 anda lalu pilih Standard EXE
Pilih Timer 1 biji dan Label 1 biji dan atur seperti berikut ini:

Ubah properties seperti berikut ini :

Form
Name	frmJam
Caption	Dikosongi

Label1
Name	lblJam
AutoSize	True
Caption	Dikosongi
Font	Silakan dipilih sendiri
ForeColor	Warna merah

Timer1
Name	tmrJam
Interval	1000

Sudah diubah propertiesnya^^, selanjutnya klik 2x komponen timer yang ada pada form designer lalu kita isikan source code berikut ini :

Private Sub tmrJam_Timer()
lblJam.Caption = Format(Date, "Short Date") & " " & Time
frmJam.Caption = "Membuat Jam " & Format(Date, "Short Date") & " " & Time
End Sub

Jalankan program dengan menekan tombol F5 pada keyboard, bisa kan^^

Langkah terakhir yakni meng compile project ini menjadi file *.exe, yakni tekan alt+f dan pilih make project1.exe

Penjelasan :

Untuk properties form dan label penjelasannya hampir sama seperti project Halo Indonesia. Sedangkan untuk komponen timer, name berarti nama timer ini diganti menjadi tmrJam, interval maksudnya interval waktu timer itu sendiri yakni 1000 yang artinya source code yang dijalankan oleh timer ini akan diulang setiap 1 detik (note : 1 detik berarti 1000 harap diingat). Komponen timer ini pada saat aplikasi dijalankan bersifat tidak terlihat sehingga jangan heran kalo timernya koq nggak kelihatan (mana timernya mana timernya???capek deh^^)

Source code pada aplikasi ini hanya dijalankan oleh timer, kalo kemaren Halo Indonesia menggunakan commandbutton sehingga membutuhkan klik dari mouse untuk menjalankan perintah.
lblJam.Caption = Format(Date, "Short Date") & " " & Time
Maksud dari source code ini bahwa label jam tadi kan kosong (gak ada isinya), lha oleh timer ini secara periodik (tergantung interval timer) caption yang kosong tadi di isi dengan perintah Format(Date, "Short Date") & " " & Time. Date artinya tanggal, bulan serta tahun hari ini dan short date maksudnya tanggal, bulan serta tahun tersebut dipendekkan/disingkat penulisannya (sekarang dicoba short date diganti dengan long date dan lihat perbedaannya). Sedangkan Time ya jelaslah waktu hari ini hehehe…^^

frmJam.Caption = "Membuat Jam " & Format(Date, "Short Date") & " " & Time
Maksud dari perintah ini hampir sama dengan perintah pada label diatas, hanya tempatnya saja di title bar nya form dengan tambahan judul form yaitu Membuat Jam. Untuk penulisan judul jam ini harus menggunakan tanda (“), kalo diawali tanda (‘) tidak akan terbaca sebagai perintah melainkan sebagai keterangan saja. Antara judul dengan jam tersebut kan tersambung sedangkan yang satu berisi masukan huruf (judul) dan yang satunya berisi perintah sehingga untuk menyambung keduanya digunakan tanda (&)

Sekian dulu yah tutorial aplikasi kali ini dan semoga bermanfaat^^
Download Source Code

Note : kalo sob lupa yang mana main tool bar, yang mana form designer baca ini

Ditulis oleh paijo_jr

Halo Indonesia

2009-11-26T22:59:00.023+07:00

Seperti biasa project awal kita adalah membuat program/aplikasi Halo Indonesia. Pertama-tama buka program visual basic anda, setelah itu pilihlah Standard EXE dan muncullah Form 1 pada form designer. Pada toolbox pilihlah 1 buah label dengan cara klik 2 kali dan 1 buah CommandButton

Kemudian atur pada form seperti berikut:

Pada Properties Window ganti atribut masing-masing yakni:

Form1 (klik form1) ganti properties berikut :
Name	frmHalo
BorderStyle	1 – Fixed Single
Caption	Halo Indonesia

Label1 (klik label1 pada project designer) ganti properties berikut :
Name	lblHalo
Alignment	2 – center
AutoSize	True
Caption	“”dikosongi
Font	Size ukuran 14
ForeCollor	pilih warna merah

CommandButton1 (klik CommandButton1 pada project designer) ganti properties berikut :
Name	cmdHalo
Caption	Klik Saya

Ketik source code berikut ini pada Code Window, caranya klik View Code pada Project Window atau klik 2x cmdHalo sehingga muncul Code Window :
Private Sub cmdHalo_Click()
lblHalo.Caption = "HALO INDONESIA"
End Sub

setelah itu klik Start pada Main Toolbar atau klik F5 lalu klik Command Button Klik Saya, mudah kan

Langkah terakhir yakni meng compile project ini menjadi file *.exe, yakni tekan alt+f dan pilih make project1.exe

Penjelasan :

Form1
Pada form1 ini kita mengubah nama form1 menjadi frmHalo, nama ini terserah kita yang menentukan tetapi jangan menggunakan spasi.
BorderStyle pada project ini kita pilih Fixed Single artinya setelah aplikasi ini di jalankan kita tidak bisa mengubah ukuran serta tidak tersedia pilihan untuk me minimize ataupun maximize yang ada hanya tombol close (X) pada aplikasi. Selain Fixed Single ada beberapa pilihan lagi, sekarang coba diganti-ganti sesuai dengan pilihan anda dan lihat perbedaannya (note: kalo memilih none untuk mematikan aplikasi klik End pada Main Toolbar)
Caption kita ganti menjadi Halo Indonesia, di sini kita mengubah header pada aplikasi menjadi Halo Indonesia

Label
Pada label ini aligment dipilih center, maksudnya tulisan yang ada pada label tersebut berada di tengah-tengah ukuran label
Autosize dipilih true, maksudnya label ini ukurannya mengikuti caption yang akan diisikan
FontCollor dipilih warna merah maksudnya huruf pada label ini berwarna merah (bisa diganti sesuai selera)

Source Code
Private Sub cmdHalo_Click()
lblHalo.Caption = "HALO INDONESIA"
End Sub
Private Sub cmd Halo_Click(), maksudnya kita mendefinisikan cmdHalo ini kalo ditekan (click) akan menjalankan perintah dibawahnya
lblHalo.Caption = "HALO INDONESIA", yang berarti lblHalo.Caption yang sebelumnya tidak diisi (kosong) diperintahkan untuk diisi tulisan HALO INDONESIA (note:bedakan antara properties Name dengan properties Caption, jangan sampai terbalik)
End Sub, merupakan akhir dari perintah
Selesai sudah Project pertama kita, begitu mudah bukan^^
Download Source Code

Note : kalo sob lupa yang mana main tool bar, yang mana form designer baca ini

Ditulis oleh paijo_jr

Apa sih Visual Basic itu?

2009-11-24T19:55:00.011+07:00

Pertanyaan itu terbersit ketika pertama kali aku membaca buku Computer Worm yang diterbitkan oleh Jasakom. Sederet pertanyaan pun timbul apakah visual basic tuh sama kayak delphi 7 (tuh pas aku masih kuliah tahun 2006). Setelah mencari software (walaupun kagak asli, maaf microsoft hehehe…) kemana-mana akhirnya ketemulah sama software Microsoft Visual Basic 6.0 dan ehm...ternyata hampir sama tetapi ada juga perbedaannya. Persamaannya yakni keduanya merupakan program development untuk membangun aplikasi dalam lingkungan Windows dan keduanya menggunakan pendekatan visual untuk merancang user interface atau biasa kita kenal GUI (Graphic User Interface).

Sedangkan perbedaannya yah jelas sekali kalo Visual Basic tuh buatan Microsoft sedangkan Delphi tuh buatan Borland (hehehe…). Tetapi tidak itu saja, dari segi ukuran file aplikasi yang dihasilkan Visual Basic mempunyai output ukuran yang lebih kecil dibandingkan ukuran file yang dihasilkan oleh Delphi karena Visual Basic mempunyai support di windows (yah yang buat aja sama Microsoftnya) yakni file msvbvm60.dll (coba cari di folder \Windows\System32\msvbvm60.dll) sehingga banyak yang berpendapat kalo Visual Basic tuh lebih labil (nggak stabil) daripada Deplhi. Walaupun ukuran Delphi lebih besar tetapi aplikasi yang dihasilkan oleh Delphi dapat berjalan stabil karena tidak tergantung oleh file msvbvm60.dll (inget kan worm-worm pada masa 2006an yang pake visual basic akan rontok kalau file msvbvm60.dll didelete hehehe…). Eits kok malah membahas perbedaan Visual Basic ma Delphi, balik ke pembahasan Visual Basic.

Pertama kali program visual basic di buka akan kelihatan seperti ini :

Gambar di atas merupakan dialog pilihan terhadap jenis project yang akan dibuat, biasanya untuk proses awal memilih project Standard EXE.

Setelah memilih standard EXE lalu muncullah jendela berikut ini:

Penjelasan singkat :

Menu Bar : digunakan untuk memilih tugas-tugas tertentu seperti menyimpan project, membuka project dsb;
Main Toolbar : digunakan untuk melakukan tugas-tugas tertentu dengan cepat;
Project Window : merupakan gambaran semua modul yang terdapat dalam aplikasi (dapat dikelompokkan secara group maupun urut berdasarkan nama);
Form Designer : merupakan tempat untuk merancang user interface dari aplikasi;
Toolbox : berisi komponen yang digunakan untuk mengembangkan user interface;
Properties Window : merupakan daftar properties dari objek yang sedang terpilih;
Code Window : merupakan jendela yang berisikan source code yang berisi instruksi-instruksi program yang mendukung tampilan dan proses yang dilakukan;
Form Layout Window :jendela ini akan menunjukkan bagaimana form bersangkutan ditampilkan ketika runtime.

Untuk sementara itu dulu perkenalan dasar dari tampilan program visual basic.

Ditulis oleh paijo_jr

:::science for share not for sale:::

About Me

2009-11-24T12:16:00.007+07:00

Assalamu'alaikum wr wb

Pepatah bilang "tak kenal maka tak sayang", bener juga tuh pepatah hehehehe...

Perkenalkan namaku irvan tapi di dunia bob ini aku lebih dikenal pake nick paijo_jr, yah emang aku anak deso jadi lebih pantes pake nama paijo_jr. Sebenarnya basic pendidikan ku seh bukan dari teknik informatika atau sekolah yang berhubungan ma kompie tapi aku lulusan SH (sarjana hura-hura) dari salah satu PTN di negeri ini hehehe...

Pertama kenal sama visual basic tuh secara nggak sengaja, waktu itu lagi gencar-gencarnya worm-worm buatan anak negeri jadi ahh kenapa aku nggak buat sendiri (emang bisa?!?). Akhirnya aku cari-cari buku di toko buku dan ketemu ma buku Computer Worm 1 n Computer Worm 2 buatan Jasakom, dan ternyata di buku tuh pake software Micros*ft Visual Basic 6.0 (aduh software apaan tuh, pikirku gitu). Dan hari itu juga hunting software, eits mo beli yang asli mana cukup duitku jadinya nyari pinjeman (pinjem di rental maksudnya, untungnya masih da rental yang mo pinjemin hohoho...).

Setelah dapet langsung aku install n praktekin yang di buku ke software (halah pertama-tama seh kagak paham nie source kode apaan) tapi dikit-dikit mulai nyambung, ternyata nyenengin banget buat program tuh sampe-sampe lupa ma skripsiku. Ketika buku Computer Worm 1 udah mulai khatam, aku jadi keinget ngapain buat program worm yang nyusahin orang lain pa lagi orang tuh kagak paham ma komputer, hiks jadi kasihan. Akhirnya program worm yang udah aku susun sekompleks mungkin kagak jadi aku compile. Yah rugi dunk belajar buku itu?!? ternyata enggak rugi jawabannya karena dari buku itu aku sedikit paham ma source code visual basic.

Tuh sedikit gambaran darimana aku kenal visual basic, yah walaupun orang bilang jadul ataupun programnya anak kecil tapi terserah itu pendapat mereka (cueks is d'best).

Wassalamu'alaikum wr wb

Contact Me : paijo_jr@yahoo.co.id

This Blog Under Constructions

2009-11-22T23:23:00.001+07:00

belajar buat dulu ato lagi milih-milih template yang ok