Kegunaan Visual Basic.Net

Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC, Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek (OOP) yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework

Kegunaan Visual Basic
membangun aplikasi Windows Forms
membangun Aplikasi web berbasis ASP.NET(extensinya biasanya blabla.aspx)
membangun aplikasi command-line / console

Keunggulan VB.net 2008 dibanding versi sebelumnya diantarannya
Dukungan anonymous types
Dukungan terhadap Language Integrated Query (LINQ)
Dukungan terhadap ekspresi Lambda
Dukungan terhadap literal XML
Dukungan terhadap inferensi tipe data.
Dukungan terhadap 'LINQ'

Membuat Program Dijalankan pada StartUp(pke VB)

Membuat suatu program otomatis dijalankan pada waktu StartUp Windows (sesaat setelah komputer dinyalakan).

Langkah pertama harus instal vb 6 dulu cz ni program pke vb.

*Buat 1 Project baru dengan 1 Form, 1 Module,  dan 2 Commandbutton.

*Copy-kan coding berikut ke dalam editor form & module ybt.
‘Tombol pertama untuk menjalankan program saat startup, sedangkan
‘tombol kedua untuk menghapusnya dari daftar startup program.

‘— Coding ini di Module…
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Declare Function RegOpenKeyEx Lib “advapi32.dll” Alias “RegOpenKeyExA” _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegCloseKey Lib “advapi32.dll” (ByVal hKey As Long) As Long
Declare Function RegQueryValueEx Lib “advapi32″ Alias “RegQueryValueExA” _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As _
Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Declare Function RegSetValueEx Lib “advapi32.dll” Alias “RegSetValueExA” (ByVal _
hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal _
dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Declare Function RegDeleteValue Lib “advapi32.dll” Alias “RegDeleteValueA” _
(ByVal hKey As Long, ByVal lpValueName As String) As Long

Public Enum T_KeyClasses
HKEY_CLASSES_ROOT = &H80000000
HKEY_CURRENT_CONFIG = &H80000005
HKEY_CURRENT_USER = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HKEY_USERS = &H80000003
End Enum

Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_EVENT = &H1
Private Const KEY_NOTIFY = &H10
Private Const READ_CONTROL = &H20000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or _
KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY _
Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) _
And (Not SYNCHRONIZE))
Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _
KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) _
And (Not SYNCHRONIZE))
Private Const KEY_EXECUTE = (KEY_READ)
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or _
KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Const REG_BINARY = 3
Private Const REG_CREATED_NEW_KEY = &H1
Private Const REG_DWORD = 4
Private Const REG_DWORD_BIG_ENDIAN = 5
Private Const REG_DWORD_LITTLE_ENDIAN = 4
Private Const REG_EXPAND_SZ = 2
Private Const REG_FULL_RESOURCE_DESCRIPTOR = 9
Private Const REG_LINK = 6
Private Const REG_MULTI_SZ = 7
Private Const REG_NONE = 0
Private Const REG_SZ = 1
Private Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2
Private Const REG_NOTIFY_CHANGE_LAST_SET = &H4
Private Const REG_NOTIFY_CHANGE_NAME = &H1
Private Const REG_NOTIFY_CHANGE_SECURITY = &H8
Private Const REG_OPTION_BACKUP_RESTORE = 4
Private Const REG_OPTION_CREATE_LINK = 2
Private Const REG_OPTION_NON_VOLATILE = 0
Private Const REG_OPTION_RESERVED = 0
Private Const REG_OPTION_VOLATILE = 1
Private Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME _
Or REG_NOTIFY_CHANGE_ATTRIBUTES Or _
REG_NOTIFY_CHANGE_LAST_SET Or _
REG_NOTIFY_CHANGE_SECURITY)
Private Const REG_LEGAL_OPTION = (REG_OPTION_RESERVED Or _
REG_OPTION_NON_VOLATILE Or REG_OPTION_VOLATILE Or _
REG_OPTION_CREATE_LINK Or REG_OPTION_BACKUP_RESTORE)

Public Sub DeleteValue(rClass As T_KeyClasses, Path As String, sKey As String)
Dim hKey As Long
Dim res As Long
res = RegOpenKeyEx(rClass, Path, 0, KEY_ALL_ACCESS, hKey)
res = RegDeleteValue(hKey, sKey)
RegCloseKey hKey
End Sub

Public Function SetRegValue(KeyRoot As T_KeyClasses, Path As String, sKey As _
String, NewValue As String) As Boolean
Dim hKey As Long
Dim KeyValType As Long
Dim KeyValSize As Long
Dim KeyVal As String
Dim tmpVal As String
Dim res As Long
Dim i As Integer
Dim x As Long
res = RegOpenKeyEx(KeyRoot, Path, 0, KEY_ALL_ACCESS, hKey)
If res <> 0 Then GoTo Errore
tmpVal = String(1024, 0)
KeyValSize = 1024
res = RegQueryValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
Select Case res
Case 2
KeyValType = REG_SZ
Case Is <> 0
GoTo Errore
End Select
Select Case KeyValType
Case REG_SZ
tmpVal = NewValue
Case REG_DWORD
x = Val(NewValue)
tmpVal = “”
For i = 0 To 3
tmpVal = tmpVal & Chr(x Mod 256)
x = x \ 256
Next
End Select
KeyValSize = Len(tmpVal)
res = RegSetValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
If res <> 0 Then GoTo Errore
SetRegValue = True
RegCloseKey hKey
Exit Function
Errore:
SetRegValue = False
RegCloseKey hKey
End Function
‘— Akhir coding di Module…

‘— Coding ini di Form…
Private Sub Command1_Click()
‘Ganti kedua kata ‘NotePad’ di bawah dengan nama aplikasi Anda, dan
‘c:\windows\notepad.exe’ di bawah dengan file aplikasi Anda…
SetRegValue HKEY_LOCAL_MACHINE, _
“Software\Microsoft\Windows\CurrentVersion\Run”, “NotePad”, “c:\windows\notepad.exe”
End Sub

Private Sub Command2_Click()
DeleteValue HKEY_LOCAL_MACHINE, _
“Software\Microsoft\Windows\CurrentVersion\Run”, “NotePad”
End Sub

Kata-Kata Mutiara

Tinggalkan kepura-puraan dalam hidup, nyatakan isi hatimu,keluarkan uneg-uneg mu, sampaikan kepada siapapun apa yang kamu inginkan, jangan pendam kekuatan mu, jangan gunakan topeng kepalsuanmu, engkau adlah dirimu sendiri.

Jangan kecilkan kemampuan mu, kekuatan itu sesungguhnya bukan pada fisikmu, tapi pada mentalmu. Berapa banyak orang yang sehat fisiknya tapi mentalnya sakit.

Hidup membutuhkan kesabaran untuk memetik hasil, kejelian untuk memilih tempat mengubah nasib hidup dan daya tahan yang tangguh untuk sampai kepada apa yang anda impikan.

Hidup membutuhkan teman, sahabat. Sahabat dan teman adlah penguat langkah, peneguh keyakinan. Carilah sahabat yang membuat keyakinan anda teguh.

Hidupmu tak selamanya berada di atas jalan yang keras, kadang di atas jalan yang licin engkau lalui. Gunakan mata yang tajam agar engkau tidak tergelincir. Dan seimbangkan selalu lahir dan batin. Engkau pasti selamat.

Terbangkan impianmu ke angkasa bebas, jangan batasi impian mu, arungilah angkasa impian dengan rasa syukur akan kebesarannya, niscaya engkau akan menemukan kenikmatan tak terkira.

Tips mempertahankan persahabatan

Sahabat itu memang bukan sekadar menjadi teman curhat, teman gaul, tapi juga teman kita di segala suasana, suka maupun duka. Nggak heran, saking pentingnya, maka harga persahabatan itu tak bisa ditawar-tawar. Bahkan tidak pernah bisa tergantikan.


Ada beberapa cara untuk mendapatkan persahabatan yang solid :


1. Jadilah diri sendiri. Jika Anda percaya kalau diri Anda cukup worthy bagi sebuah persahabatan, maka sikap dan perilaku Anda akan terlihat dari segala hal yang Anda lakukan. Nah, banyak orang yang merasa nyaman dan berpikir positif bila berkawan dengan mereka yang memiliki rasa percaya diri yang cukup baik.


2. Loyal. Sifat loyal merupakan salah satu pilar utama dalam sebuah persahabatan yang solid. Bagaimana tidak. Anda tentunya ingin dipercaya dan bisa mempercayai sahabat Anda bukan? Pun Anda tentu ingin sahabat Anda tetap bersama Anda di saat Anda tengah dalam kesulitan, begitu juga sebaliknya. Untuk itulah dibutuhkan yang namanya rasa setia.


3. Tidak anti kritikan. Sahabat yang sebenarnya konon adalah mereka yang tidak cuma rajin memuji tapi gemar pula memberi kritikan positif. Untuk itu Anda tak perlu anti dengan kritikan mereka karena toh tujuannya demi kebaikan Anda juga bukan?


4. Ringan tangan. Sahabat Anda akan sangat menghargai segala kebaikan dan pertolongan yang Anda berikan. Terlebih jika Anda melakukannya dengan ketulusan hati tanpa embel-embel sesuatu dan tanpa harus diminta olehnya.


5. Fair-minded. Sebagai sahabat, tentunya akan lebih baik jika Anda menelaah sebuah persoalan bersama dari sudut pandang yang berbeda. Cara tersebut kemungkinan akan lebih cepat menyelesaikan permasalahan.


6. Mau mendengar. Dalam menjalin persahabatan, Anda sebaiknya bukan cuma asal mendengar curhat-nya, tapi cobalah untuk memberikan perhatian dan jangan memonopoli pembicaraan.


7. Jangan gunakan teman Anda sebagai penasihat pribadi. Kenapa? Dikit-dikit, curhat, pasti bikin Anda jadi teman yang membosankan. Lain halnya bila Anda telah bertanya pada sahabat Anda apakah ia mau mendengarkan masalah Anda.


8. Berbagi kebahagiaan dengan sahabat. Jangan cuma waktu curhat saja Anda ingat teman, tapi waktu lagi bahagia juga perlu.


9. Jangan lupa ultah teman. Mengingat hari-hari khusus teman adalah keharusan. Kirim kartu atau bunga, untuk menunjukkan bahwa sahabat Anda bernilai besar.


10. Tunjukkan bahwa Anda memikirkan dia ketika Anda tidak bersamanya. Caranya macam-macam, bisa kirim kartu, e-mail, SMS, atau tinggalkan pesan di teleponnya, bila tidak sempat bertemu. Atau, bisa juga Anda kirim artikel dari majalah yang dia sukai

Cara membuat kalkulator melalui vb 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12


Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1


Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2


Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3


Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4


Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5


Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6


Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7


Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8


Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9


Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0


Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-


Command Button 12:
(Name) : cmdKoma
Caption : .


Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +


Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -


Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x


Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /


Command Button 17:
(Name) : cmdClearEntry
Caption : CE


Command Button 18:
(Name) : cmdClear
Caption : C


Command Button 19:
(Name) : cmdSamaDengan
Caption : =


Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

FUNGSI STRING PADA VB

Fungsi-fungsi VB di bawah ini digunakan untuk mengolah data string.
Left : mengambil n karakter di sebelah kiri suatu string
karakter = Left(“abcdef”,2) ‘karakter = “ab” 

Right : mengambil n karakter di sebelah kanan suatu string
karakter = Right(“abcdef”,2) ‘karakter = “ef” 

Trim : menghilangkan spasi kosong di awal dan akhir suatu string
karakter = Trim(“ abc def ”) ‘karakter = “abc def” 

Ltrim : menghilangkan spasi kosong di awal suatu string
MyStr = Ltrim(AnyString) 

Rtrim : menghilangkan spasi kosong di akhir suatu string
MyStr = Rtrim(AnyString) 

Ucase : mengubah suatu string menjadi huruf besar semua
MyStr = UCase(AnyString) 

Lcase : mengubah suatu string menjadi huruf kecil semua
MyStr = LCase(AnyString) 

Mid : mengambil n karakter dari suatu posisi yang ditetapkan
MyStr = Mid(“abcdefghij”, 3, 4) ‘hasil “cdef” 

Len : menghitung jumlah karakter yang membentuk suatu string
MyStr = Len(“abcdef”) ‘hasil=6

LSet : menempatkan string di dalam string yang lain, di sebelah kiri
MyStr = “0123456789” 
Lset MyStr = “<-Left” ‘hasil “<-Left “

RSet : menempatkan string di dalam string yang lain, di sebelah kanan
MyStr = “0123456789” 
Rset MyStr = “>-Right” ‘hasil “ >-Right“

Format : mengatur string sehingga terformat sesuai yang ditentukan
A$ = Format (5455.4, “##,##0.00”) ‘A$ = “5,459.40” 
A$ = Format (334.9, “####.##”) ‘A$ = “334.9” 
A$ = Format (5, “0.00%”) ‘A$ = “500.00%”
A$ = Format (“HELLO”, “<”) ‘A$ = “hello” 
A$ = Format (“This is”, “>”) ‘A$ = “THIS IS” 

String: membuat string yang berisi sejumlah karakter yang digandakan
A$ = String (5, “*”) ‘A$ = “*****”

Chr: menghasilkan karakter yang terwakili oleh suatu angka tertentu
A$ = Chr (65) ‘A$ = A 
A$ = Chr (97) ‘A$ = a 
A$ = Chr (62) ‘A$ = > 

Asc: menghasilkan angka ASCII dari suatu karakter tunggal
MyNumber = Asc(‘A’) ‘’hasilnya 65
MyNumber = Asc(‘a’) ‘’hasilnya 97
MyNumber = Asc(‘Apple’) ‘’hasilnya 65

Space: menghasilkan ruang kosong sebanyak n karakter
MyStr = Space(10) ‘buat string 10 spasi
MyStr = “Hello” & Space(10) & “World” ‘menyisipkan 10 spasi diantara kata Hello World

InStr: menentukan apakah string tertentu berada pada string lain
Dim CariString, CariChar, MyPos
CariString = ‘XXpXXpXXPXXP” ‘String yang dianalis
CariChar = “P” ‘String yang dicari “P” 
‘mencari mulai dari kolom ke-4, hasilnya 6
MyPos = InStr(4, CariString, CariChar, 1) 
‘mencari mulai dari kolom ke-1, hasilnya 9
MyPos = InStr(1, CariString, CariChar, 0) 
MyPos = InStr(CariString, CariChar) ‘hasilnya 9
MyPos = InStr(1, SearchString, “W”) ‘hasilnya 0

InStrRev: cari posisi string dalam string yang lain, mulai dari akhir
i = InStrRev(StringCheck, StringMatch[, start[, compare]]) 

StrComp: membandingkan dua variabel string
StrComp(string1, string2 [, compare] ) 

Jika	Hasilnya
string1 < string 2	-1
string1= string 2	0
string1> string 2	1
string1atau string 2 = Null	Null

Dim MyStr1, MyStr2, MyComp
MyStr1 = “ABCD” : MyStr2 = “abcd” ‘nilai awal
A = StrComp(MyStr1, MyStr2, 1) ‘A = 0
A = StrComp(MyStr1, MyStr2, 0) ‘A = -1
A = StrComp(MyStr2, MyStr1) ‘A = 1

StrConv: mengubah huruf besar atau kecil suatu karakter string
A$ = StrConv(“Semua Besar”, 1) ‘A$ = “SEMUA BESAR”
A$ = StrConv(“Semua Kecil”, 2) ‘A$ = “semua kecil”
A$ = StrConv(“pertama BESAR”, 3) ‘A$ = “Pertama Besar”

StrReverse: mengubah urutan karakter suatu string
A$ = StrReverse(“12345678”) ‘A$ = “87654321”
A$ = StrReverse(“abcdefg”) ‘A$ = “gfedcba”

Replace: menggantikan string dari kelompok string
Replace(expression, find, replace[, start[, count[, compare]]])

FormatCurrency: string memakai format currency yang ditetapkan
A$ = FormatCurrency(12000, 1) ‘A$ = “$12,000.0”
A$ = FormatCurrency(12000, 2) ‘A$ = “$12,000.00”
Catatan, untuk mengubah mata uang, gunakan Regional Settings Currency dari sistem operasi Windows

FormatDateTime: menghasilkan ekspresi tanggal dan waktu
A$ = FormatDateTime(Now) ‘hasilnya “10/8/02 11:15:46 AM”
A$ = FormatDateTime(Now, vbLongDate) ‘hasilnya “Tuesday, March 02, 2008”
A$ = FormatDateTime(“3/2/99”, vbShortDate) ‘hasilnya “3/2/99”
A$ = FormatDateTime(“3/2/99”, vbLongDate) ‘hasilnya “12:00:00 AM”

FormatNumber: membuat format bilangan sesuai option yang diberikan
FormatNumber(var1, 2) 

FormatPerCent: membuat format bilangan dalam prosentase
A$ = FormatPerCent(0.1255, 2) ‘A$ = 12.55%
A$ = FormatPerCent(0.12555) ‘A$ = 12.56%
A$ = FormatPerCent(12.55, 2) ‘A$ = 1,255.00%
A$ = FormatPerCent(12.55) ‘A$ = 1,255.00%

Sejarah Visual Basic (Dulu – Sekarang – Akan Datang)

Evolusi Visual Basic VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.: