Syntax Dasar Visual Basic 6.0 (1)
Ini ada beberapa Syntax dasar Visual Basic 6.0 beserta contohnya semoga bermanfaat,
dan ini bagian pertama dari artikel ini...
1. MsgBox
digunakan untuk menampilkan pesan pada kotak dialog.
Syntax dasar :
Msgbox (prompt[,buttons][,title][,helpfile][,context]
parameter buttons dapat diisi dengan:
vbOkOnly, menampilkan hanya tombol Ok
vbOkCancel, menampilkan tombol Ok dan Cancel.
vbAbortRetryIgnore, menampilkan tombol Abort, Retry, Ignore.
vbYesNoCancel, menampilkan tombol Yes, No, Cancel.
vbYesNo, menampilkan tombol Yes, No.
vbRetyCancel, menampilkan tombol Retry dan Cancel.
contoh :
Private Sub Command1_Click()
MsgBox "Hanya di infoislam99.blogspot.com", vbOKOnly, "Info Islam"
End Sub
Hasil :
2. If....Then....Else
Digunakan sebagai statemen kondisi. sebuah kode/blok kode akan dijalankan apabila kondisi terpenuhi (true), dan blok kode lainnya akan dijalankan apabila kondisinya tidak terpenuhi (false).
Syntax 1:
If condition1 then statement
contoh:
If nilai_angka >= 80 Then nilai_huruf = "A"
Syntax 2 :
If condition1 then
statement
end if
Contoh:
If niali_angka >= 80 then
nilai huruf = "A"
Msgbox "selamat anda mendapatkan nilai terbaik",vbOkOnly,"Informasi"
end if
Syntax 3:
If condition1 then
statement
else
statement
end if
Contoh :
If nilai_angka >= 80 then
nilai_huruf = "A"
else
nilai_huruf = "B"
end if
Sintax 4:
If condition1 then
statement
elseif condition2 then
statement
else
statement
end if
contoh :
If nilai_angka >= 80 then
nilai_huruf = "A"
elseif nilai_angka >= 70 then
nilai_huruf = "B"
else
nilai_huruf = "C"
end if
3. Do... Loops
Digunakan sebagai statenent perulangan.
Syntax 1:
Do Until (Expression)
(code to execute)
Loop
Contoh :
Dim i as integer
i = 0
Do until i = 100
i= i +1
loop
Syntax 2 :
Do While (Expression)
(code to execute)
Loop
Contoh :
Dim i as integer
do while i <= 100
i = i+1
loop
Syntax 3 :
Do
(code to execute)
Loop while (expression)
contoh :
Dim i as integer
Do
i = i +1
Loop while i <= 100
4. For.. Next
Digunakan sebagai statement perulangan
Syntax dasar :
For counter = start to end ( Step step)
(code to execute)
Next (counter)
Contoh :
Dim i as integer
For i = 0 to 10
msgbox "Nilai i = " & i
next i
5. Select Case
Digunakan sebagai statement kondisi dengan banyak pilihan.
Select Case nilai_angka
Case 0 to 50
nilai huruf = "D"
Case Is <= 70
nilai huruf ="C"
Case Is <= 80
nilai huruf = "B"
Else Case
nilai huruf = "A"
End select
Msgbox "nilai huruf = " & nilai_huruf
dan ini bagian pertama dari artikel ini...
1. MsgBox
digunakan untuk menampilkan pesan pada kotak dialog.
Syntax dasar :
Msgbox (prompt[,buttons][,title][,helpfile][,context]
parameter buttons dapat diisi dengan:
vbOkOnly, menampilkan hanya tombol Ok
vbOkCancel, menampilkan tombol Ok dan Cancel.
vbAbortRetryIgnore, menampilkan tombol Abort, Retry, Ignore.
vbYesNoCancel, menampilkan tombol Yes, No, Cancel.
vbYesNo, menampilkan tombol Yes, No.
vbRetyCancel, menampilkan tombol Retry dan Cancel.
contoh :
Private Sub Command1_Click()
MsgBox "Hanya di infoislam99.blogspot.com", vbOKOnly, "Info Islam"
End Sub
Hasil :
2. If....Then....Else
Digunakan sebagai statemen kondisi. sebuah kode/blok kode akan dijalankan apabila kondisi terpenuhi (true), dan blok kode lainnya akan dijalankan apabila kondisinya tidak terpenuhi (false).
Syntax 1:
If condition1 then statement
contoh:
If nilai_angka >= 80 Then nilai_huruf = "A"
Syntax 2 :
If condition1 then
statement
end if
Contoh:
If niali_angka >= 80 then
nilai huruf = "A"
Msgbox "selamat anda mendapatkan nilai terbaik",vbOkOnly,"Informasi"
end if
Syntax 3:
If condition1 then
statement
else
statement
end if
Contoh :
If nilai_angka >= 80 then
nilai_huruf = "A"
else
nilai_huruf = "B"
end if
Sintax 4:
If condition1 then
statement
elseif condition2 then
statement
else
statement
end if
contoh :
If nilai_angka >= 80 then
nilai_huruf = "A"
elseif nilai_angka >= 70 then
nilai_huruf = "B"
else
nilai_huruf = "C"
end if
3. Do... Loops
Digunakan sebagai statenent perulangan.
Syntax 1:
Do Until (Expression)
(code to execute)
Loop
Contoh :
Dim i as integer
i = 0
Do until i = 100
i= i +1
loop
Syntax 2 :
Do While (Expression)
(code to execute)
Loop
Contoh :
Dim i as integer
do while i <= 100
i = i+1
loop
Syntax 3 :
Do
(code to execute)
Loop while (expression)
contoh :
Dim i as integer
Do
i = i +1
Loop while i <= 100
4. For.. Next
Digunakan sebagai statement perulangan
Syntax dasar :
For counter = start to end ( Step step)
(code to execute)
Next (counter)
Contoh :
Dim i as integer
For i = 0 to 10
msgbox "Nilai i = " & i
next i
5. Select Case
Digunakan sebagai statement kondisi dengan banyak pilihan.
Select Case nilai_angka
Case 0 to 50
nilai huruf = "D"
Case Is <= 70
nilai huruf ="C"
Case Is <= 80
nilai huruf = "B"
Else Case
nilai huruf = "A"
End select
Msgbox "nilai huruf = " & nilai_huruf
6. Len()
Digunakan untuk mendapatkan informasi panjang sebuah String.
Syntax dasar :
Len(string)
Contoh :
Dim str As String
str = "Belajar Visual Basic"
msgbox str & " = " & Len(str) & "karakter"
Hasil :
Digunakan untuk mendapatkan informasi panjang sebuah String.
Syntax dasar :
Len(string)
Contoh :
Dim str As String
str = "Belajar Visual Basic"
msgbox str & " = " & Len(str) & "karakter"
Hasil :
7. Mid$()
Digunakan untuk mendapatkan bagian tertentu dari sebuah string.
Syntax Dasar :
Mid$(string, start[, length])
Contoh :
Dim str As String
str = Mid$("Belajar Visual Basic", 9, 6)
msgbox str
Hasil
8. Left$()
Digunakan untuk mendapatkan bagian tertentu dari sebuah string
Syntax dasar :
Left$(string, length )
9. Right()
Digunakan untuk mendapatkan bagian tertentu dari sebuah string,
yang dimulai dari sisi kanan String.
Syntax dasar :
Right$(string, length)
10. Ucase$()
Digunakan untuk mengganti pada semuah text/string mencadi huruf besar(kapital)
Syntax dasar :
Ucase$(string)
11. Lcase$()
Digunakan untuk menggatikan semuah text/string menjadi huruf kecil
Syntax dasar :
Lcase$(string)
12. Instr()
Diguakan untu mencari posisi/letak karakter tertentu dalam sebuah string.
Syntax dasar:
InStr([start,] string1, string2 [, compare])
Contoh :
Dim str as string
str = InStr(5, "Belajar Visual Basic", "a")
msgbox str
Keterangan:
Pada contoh diatas akan dicari posisi karakter "a" yang dihitung mulai dari karakter ke 5.
13. String$()
Digunakan untuk menghasilkan sebuah string dari sebuah perulangan karakter tertentu dengan panjang yang sudah ditentukan.
Syntax dasar :
String$(number, character)
Contoh :
Dim str As String
str = String$(6, "X")
msgbox str
keterangan :
Contoh diatas akan menghasilkan sebuag string yang terdiri dari 6 buah karakter X.
14. Space$()
Digunakan untuk menghasilkan sebuah string dari perulangan karakter spasi dan panjang yang sudah ditentukan.
Syntax dasar :
Space$(number)
Contoh
Dim str As String
str = Space$(6)
msgbox str
Keterangan :
Pada contoh diatas akan menghasilkan sebuah string yang terdiri dari 6 buah karakter spasi.
15. Replac$()
Digunakan untuk mengganti substring atau karakter dalam sebuah string dengan sebuah substring atau karakter yang lain.
Syntax Dasar :
Replace$(Expression, find, replacewith [, start[, count[,compare]]])
Contoh :
Dim str As String
str = Replace$("Visual Basic", Basic","Studio")
msgbox str
keterangan :
Pada contoh diatas substring "Basic" diganti dengan substring "Studio", sehingga akan menghasilkan string "Visual Studio".
