I. Membuat Program Sederhana.Visual Basic menyediakan beberapa template project yang didesain untuk mendukung pengembangan berbagai macam aplikasi dan komponen. Sebagai langkah utama untuk mengembangkan aplikasi, Anda harus menentukan tipe template project apa yang akan Anda gunakan. Template project berisi dasar objek project dan setting lingkungan yang Anda perlukan untuk membuat tipe aplikasi atau komponen yang akan dibangun.
A. Memulai menjalankan Visual Basic
1. Klik tombol Start, arahkan ke menu All Programs, kemudian submenu Microsoft Visual Studios 6.0, dan klik shortcut Microsoft Visual Basic 6.0.
2. Kotak dialog New Project akan ditampilkan. Pilih template project Standard EXE, kemudian klik tombol Open untukMemulai project baru Anda.
Project baru Anda akan diisi dengan sebuah form.
Lingkungan pemrograman Visual Basic akan ditampilkan seperti gambar di bawah ini
B. Menambah kontrol ke dalam form 1. Pilih salah satu kontrol dalam toolbox.
2. Klik dan tahan tombol mouse kiri samb il menyeret pointer ke posisi yang diinginkan dalam form. Kemudian, lepas tombol mouse.
3. Ulangi proses di atas untuk kontrol yang ingin Anda masukan dalam form.C. Menjalankan aplikasi 1. Pada menu Run, klik Start atau tombol F5. Atau pada toolbar Visual Basic, klik Start. Visual Basic akan membuka form sebagai program.
2. Coba klik kontrol yang telah Anda masukkan dalam form. 
3.Tutup aplikasi yang berjalan dan kembali ke mode Design menggunakan salah satu cara berikut:a. Pada Toolbar, klik tombol End.
b. Pada menu Run, klik End.
c. Pada menu system, klik Close.
d. Pada title bar, klik tombol Close.
D. Menset properti kontrol pada saat desain
1. Klik kontrol Label dalam form.
2. Dalam jendela Properties, ubah properti Caption menjadi Label Ku.
3. Pilih kontrol TextBox. 
4. Dalam jendela Properties, set properti Text menjadi TextBoxKu.
D. Menset properti kontrol pada saat runtime
1. Klik ganda kontrol TextBox dalam form. Jendela Code Editor akan dibuka, menampilkan event procedure Text1_Change.
2. Tambahkan pernyataan berikut di dalam event prosedur Text1_Change:Private Sub Text1_Change()
<br/><br/>Label1.Caption = Text1.Text
End Sub
Kode di atas akan mengubah judul kontrol Label dengan teks yang diketikkan dalam kontrol TextBox.
3.Jalankan aplikasi dan masukkan teks dalam text box. Lihat apa yang terjadi di kontrol Label.
4.Tutup aplikasi dengan menekan tombol Close pada title bar form dan lingkungan pemrograman Visual Basic muncul kembali.E. Menyimpan project1. Dalam menu File, klik Save Project.
2. Ketika ditanyakan untuk menyimpan form, ubahlah lokasi folder ke c:\SES\Lat01, biarkan nama Form1.frm untuk disimpan, dan klik Save.
3. Ketika ditanyakan untuk menyimpan project, ubah lokasi folder ke c:\SES\Lat01, biarkan nama Project1 untuk disimpan, dan klik Save.F. Membuat file .exe
1. Pada menu File, klik Make Project1.exe untuk membuat file executable. Yakinkan disimpan di folder c: \SES\Lat01.
2. Pada text box File name, ketikkan AplikasiKu kemudian klik OK. Visual Basic akan mengompilasi project dan membuat file executable yang dapat Anda jalankan langsung dari Windows. 
G. Menjalankan file .exe
1. Klik tombol Start, arahkan ke All Programs, dan Accessories, kemudian klik Windows Explorer.
2. Dalam Windows Explorer, arahkan ke folder c:\SES\Lat01.
3.Jalankan aplikasi yang telah Anda buat dengan mengklik ganda pada file executable AplikasiKu.
4. Sebuah aplikasi Windows telah Anda jalankan tanpa melalui IDE Visual Basic Cobalah aplikasi dengan mengetik teks dalam text box.
5. Tutup aplikasi.II. Memanipulasi FontProgram Font mensimulasikan pilihan huruf di mana Anda bisa memilih berbagai macam huruf dengan atributnya. Program ini akan menggunakan kontrol text box, combo box, label, frame, check box, dan command button. Kesemua objek tersebut dibuat ha nya dengan beberapa langkah singkat pada Visual Basic.
Ikuti langkah berikut untuk membuat program Font:
1. Jalankan Visual Basic lalu buka project Standard EXE baru.Jika lingkungan pemrograman Visual Basic sudah berjalan, pada menu File, klik New Project untuk membuka project Standard EXE baru.
2. Tambahkan beberapa kontrol dan a tur lokasinya seperti gambar di bawah ini.
Catatan: Untuk membuat kontrol combo box seperti gambar Di atas, Anda harus menarik pada bagian bawah dari kontrol combo box.
3. Setting properti kontrol dengan nilai dalam tabel di bawah ini.
4. Ketikkan kode program di bawah ini pada Form1:Private Sub Form_Load()
<br/><br/>Dim i As Integer
<br/>
<br/><br/>' Isi Combo1 dengan nama font
<br/><br/>For i = 0 To Screen.FontCount - 1
<br/><br/><br/>Combo1.AddItem Screen.Fonts(i)
<br/><br/>Next
<br/>
<br/><br/>' Pilih daftar item pertama
<br/><br/>Combo1.ListIndex = 0
<br/><br/>' Isi Combo2 dengan font style
<br/><br/>With Combo2
<br/><br/>.<br/><br/>AddItem "Regular"
<br/><br/>.AddItem "Italic"
<br/><br/>.AddItem "Bold"
<br/><br/>.AddItem "Bold Italic"
<br/><br/>.ListIndex = 0
<br/><br/>End With
<br/>
<br/><br/>' Isi Combo2 dengan ukuran font
<br/><br/>For i = 8 To 24 Step 2
<br/><br/><br/>Combo3.AddItem i
<br/><br/>Next
<br/>
<br/><br/>Combo3.ListIndex = 0
<br/>
End Sub
<br/>
Private Sub Command1_Click()
<br/>Unload Me
<br/>
End Sub
<br/>
Private Sub Command2_Click()
<br/>
<br/><br/>Unload Me
End Sub
<br/>' Ubah nama font
Private Sub Combo1_Click()
Local_Change_Font
End Sub
<br/>
Private Sub Combo2_Click()
<br/>Local_Change_Font
End Sub
<br/>
Private Sub Combo3_Click()
<br/>Local_Change_Font
End Sub
<br/>
' Rutin/Prosedur untuk merubah font
Private Sub Local_Change_Font()
<br/><br/>' cek parameter size
<br/><br/>If Not IsNumeric(Combo3) Then
<br/><br/><br/>Exit Sub
<br/><br/>End If
<br/>
<br/><br/>' Ubah font
<br/><br/>With Label4.Font
<br/><br/>.Name = Combo1 ' Nama font
<br/><br/>.Size = Val(Combo3) ' Ukuran font
<br/>
<br/><br/>' Attribut font
<br/><br/>Select Case Combo2
<br/><br/>Case "Regular"
<br/><br/><br/>.Italic = False
<br/><br/><br/>.Bold = False
<br/>
<br/><br/>Case "Italic"
<br/><br/><br/>.Italic = True
<br/><br/><br/>.Bold = False
<br/>
<br/><br/>Case "Bold"
<br/><br/><br/>.Bold = True
<br/><br/><br/>.Italic = False
<br/>
<br/><br/>Case "Bold Italic"
<br/><br/><br/>.Bold = True
<br/><br/><br/>.Italic = True
<br/><br/>End Select
<br/><br/>End With
End Sub
5. Kini simpan project Anda di folder c:\SES\Font dan jalan-kan program Anda untuk melihat bagaimana cara kerja program Font. Klik tombol Start pada toolbar, atau dengan menekan tombol F5. Program dijalankan pada lingkungan pemrog-raman. Pilih nama, efek, dan ukuran font. Anda dapat melihat perubahan font pada kotak Sample.
6. Tutup form dengan menekan tombol Close pada title bar
untuk menghentikan program.III. Membuat KalenderProgram yang akan kita buat kali ini akan menampilkan sebuah kalender dengan setting waktu dari sistem. Jika Anda berpikir membuat program ini akan sulit untuk pemula, jangan cemas; pasti mudah.
Ikuti langkah berikut untuk membuat program Kalender:
1. Jalankan Visual Basic lalu buka project Standard EXE baru. Jika lingkungan pemrograman Visual Basic sudah berjalan, pada menu File, klik New Project untuk membuka project Standard EXE baru.
2. Tambahkan kontrol Microsoft Windows Common Controls -26.0 (SP4) ke toolbox dengan salah satu cara berikut ini:
::Klik menu Project, lalu Component.
::Tekan kombinasi kontrol Ctrl+T.
::Kursor mouse diletakkan di toolbox kemudia n klik-kanan, lalu pada menu pop-up yang muncul, klik Components.
3. Pada kotak dialog Components, klik nama kontrol Microsoft Windows Common Controls-2 6.0 (SP4). Klik OK, untuk memilih kontrol.
Ketika Anda menambah kontrol ActiveX dari kotak dialog Components, kontrol tersebut akan langsung ditampilkan dalam jendela toolbox.
4. Pilih kontrol MonthView dari jendela toolbox. Klik ganda kontrol MonthView untuk menambah kontrol ke Form1.
5. Kini simpan project Anda di folder c:\SES\Kalender dan jalankan program Anda untuk melihat bagaimana cara kerja program Font. Klik tombol Start pada toolbar, atau dengan menekan tombol F5. Program dijalankan pada lingkungan pemrograman dan menampilkan informasi waktu dari sistem.
6. Tutup form dengan menekan tombol Close pada title bar untuk menghentikan program.IV. Menggunakan Kotak PesanSalah satu fungsi kotak pesan yang berguna menampilkan output adalah fungsi MsgBox. Fungsi MsgBox mengambil satu atau lebih argumen sebagai inputnya, lalu hasil fungsi tersebut bisa diberikan ke variabel.
1. Jalankan Visual Basic lalu buka project Standard EXE baru. Jika lingkungan pemrograman Visual Basic sudah berjalan, pada menu File, klik New Project untuk membuka project Standard EXE baru.
2. Tambahkan beberapa kontrol dan atur lokasinya seperti gambar di bawah ini .
3. Setting properti kontrol dengan nilai dalam tabel di bawah ini.>
4. Ketikkan kode program di bawah ini pada Form1:Private Sub Form_Load()
<br/>
<br/><br/>'Pilihan style tombol
<br/><br/>With Combo1
<br/><br/>.AddItem "0 - vbOKOnly"
<br/><br/>.AddItem "1 - vbOKCancel"
<br/><br/>.AddItem "2 - vbAbortRetryIgnore"
<br/><br/>.AddItem "3 - vbYesNoCancel"
<br/><br/>.AddItem "4 - vbYesNo"
<br/><br/>.AddItem "5 - vbRetryCancel"
<br/><br/>.ListIndex = 0
<br/><br/>End With
<br/>
<br/><br/>'Pilihan icon
<br/><br/>With Combo2
<br/><br/>.AddItem "16 - vbCritical"
<br/><br/>.AddItem "32 - vbQuestion"
<br/><br/>.AddItem "48 - vbExclamation"
<br/><br/>.AddItem "64 - vbInformation"
<br/><br/>.ListIndex = 3
<br/><br/>End With
<br/>
<br/><br/>'Pilihan default tombol
<br/><br/>With Combo3
<br/><br/>.AddItem "0 - vbDefaultButton1"
<br/><br/>.AddItem "256 - vbDefaultButton2"
<br/><br/>.AddItem "512 - vbDefaultButton3"
<br/><br/>.AddItem "768 - vbDefaultButton4"
<br/><br/>.ListIndex = 0
<br/><br/>End With
End Sub
<br/>
Private Sub Command1_Click()
<br/>
<br/><br/>'var untuk argumen MsgBox
<br/><br/>Dim nButton As Integer
<br/><br/>Dim nResult As Integer
<br/><br/>Dim sName As String
<br/>
<br/><br/>nButton = Val(Combo1) + Val(Combo2) + _
<br/><br/><br/><br/>Val(Combo3)
<br/><br/>'tampilkan msgbox
<br/><br/>nResult = MsgBox(Text1, nButton, Text2)
<br/>
<br/><br/>'Tampilkan tombol yg dipilih
<br/><br/>sName = Choose(nResult, "OK", _
<br/><br/><br/>"Cancel", "Abort", "Retry", _
<br/><br/><br/>"Ignore", "Yes", "No")
<br/>
<br/><br/>MsgBox "Tombol yang ditekan: " & sName
<br/>
End Sub
<br/>
' rutin di bawah ini untuk meng-update
' sintaks dalam Text3
Private Sub Combo1_Click()
<br/><br/>Show_Sintax
End Sub
<br/>
Private Sub Combo2_Click()
<br/><br/>Show_Sintax
End Sub
<br/>
Private Sub Combo3_Click()
<br/>Show_Sintax
End Sub
<br/>
Private Sub Text1_Change()
<br/>Show_Sintax
End Sub
<br/>
Private Sub Text2_Change()
<br/>Show_Sintax
End Sub
<br/>
Private Sub Show_Sintax()
<br/><br/>'Tampilkan sintaks MsgBox di Text3
<br/><br/>Dim nButton As Integer
<br/><br/>nButton = Val(Combo1) + _
<br/><br/><br/><br/>Val(Combo2) + _
<br/><br/><br/><br/>Val(Combo3)
<br/>
<br/><br/>Text3 = "MsgBox( """ & Text1 & _
<br/><br/>""", " & nButton & ", """ & _
<br/><br/>Text2 & """ )"
<br/>
End Sub
5. Kini simpan project Anda di folder c:\SES\KotakPesan dan jalankan program Anda untuk melihat bagaimana cara kerja program. Klik tombol Start pada toolbar, atau dengan menekan tombol F5.
Program dijalankan pada lingkungan pemrograman. Ketikkan pesan dan judul pada kotak teks, pilih beberapa opsi untuk fungsi MsgBox, dan klik tombol Tampilkan MsgBox. Gambar berikut menampilkan simulasi pembuatan kotak dialog MsgBox.
6. Tutup form dengan menekan tombol Close pada title bar untuk menghentikan program.V. Menggunakan VariabelProgram Variabel mendemonstrasikan cara menggunakan variabel untuk menyimpan data secara sementara pada program dan bagaimana menggunakan operator matematik untuk melakukan tugas-tugas seperti penjumlahan dan perkalian.
Ikuti langkah berikut untuk membuat program variabel:
1. Jalankan Visual Basic lalu buka project Standard EXE baru. Jika lingkungan pemrograman Visual Basic sudah berjal an, pada menu File, klik New Project untuk membuka project Standard EXE baru.2.Tambahkan beberapa kontrol dan atur lokasinya seperti gambar di bawah ini .
3. Setting properti kontrol dengan nilai dalam tabel di bawah ini.
4. Ketikkan kode program di bawah ini pada Form1:Option Explicit
<br/>
Private Const MY_STRING = "The quick" & _
<br/><br/><br/><br/><br/><br/>" brown fox jumps" & _
<br/><br/><br/><br/><br/><br/>"over the lazy dog."
<br/>
Private Sub Form_Load()
<br/>
<br/><br/>'Isi combo1 untuk operator matematika
<br/><br/>With Combo1
<br/><br/>.AddItem "Penjumlahan (+)"
<br/><br/>.AddItem "Pengurangan (-)"
<br/><br/>.AddItem "Perkalian (*)"
<br/><br/>.AddItem "Pembagian (/)"
<br/><br/>.ListIndex = 0
<br/><br/>End With
<br/>
<br/><br/>'Isi Text4 dengan konstanta MY_STRING
<br/><br/>Text4 = MY_STRING
<br/><br/>'Isi Combo2 dengan fungsi string
<br/><br/>With Combo2
<br/><br/>.AddItem "Left(text, 3)"
<br/><br/>.AddItem "Right(text, 4)"
<br/><br/>.AddItem "Mid(text, 5, 24)"
<br/><br/>.AddItem "Ucase(text)"
<br/><br/>.AddItem "Lcase(text)"
<br/><br/>.AddItem "StrConv(text, vbProperCase)"
<br/><br/>.ListIndex = 0
<br/>
<br/><br/>End With
End Sub
<br/>
Private Sub Command1_Click()
<br/><br/>Dim Var1 As Variant
<br/><br/>Dim Var2 As Variant
<br/><br/>Dim nResult As Double
<br/>
<br/><br/>'Simpan dan konversi ke tipe numerik
<br/><br/>Var1 = Val(Text1)
<br/><br/>Var2 = Val(Text2)
<br/>
<br/><br/>'Hitung
<br/><br/>Select Case Combo1.ListIndex
<br/><br/>Case 0
<br/><br/><br/>'Penjumlahan
<br/><br/><br/>nResult = Var1 + Var2
<br/>
<br/><br/>Case 1
<br/><br/><br/>'Pengurangan
<br/><br/><br/>nResult = Var1 - Var2
<br/>
<br/><br/>Case 2
<br/><br/><br/>'Perkalian
<br/><br/><br/>nResult = Var1 * Var2
<br/>
<br/><br/>Case 3
<br/><br/><br/>'Pembagian
<br/><br/><br/>nResult = Var1 / Var2
<br/>
<br/><br/>End Select
<br/>
<br/><br/>'Tampilkan hasil di Text3
<br/><br/>Text3 = nResult
<br/>
End Sub
<br/>
Private Sub Command2_Click()
<br/><br/>Dim text As String
<br/><br/>Dim sResult As String
<br/>
<br/><br/>'Isikan var text dengan Text4
<br/><br/>text = Text4
<br/>
<br/><br/>Select Case Combo2.ListIndex
<br/><br/>Case 0
<br/><br/><br/>sResult = Left(text, 3)
<br/>
<br/><br/>Case 1
<br/><br/><br/>sResult = Right(text, 4)
<br/><br/>Case 2
<br/><br/><br/>sResult = Mid(text, 5, 24)
<br/><br/>Case 3
<br/><br/><br/>sResult = UCase(text)
<br/><br/>Case 4
<br/><br/><br/>sResult = LCase(text)
<br/><br/>Case 5
<br/><br/><br/>sResult = StrConv(text, _
<br/><br/><br/><br/><br/><br/>vbProperCase)
<br/><br/>End Select
<br/>
<br/><br/>'Tampilkan dalam Text5
<br/><br/>Text5 = sResult
<br/>
End Sub
5. Kini simpan project Anda di folder c:\SES\Variabel dan jalankan program Anda untuk melihat bagaimana cara kerja program. Klik tombol Start pada toolbar, atau dengan menekan tombol F5.Program dijalankan pada lingkungan pemrograman. Masukan angka dalam variablel 1 dan variabel 2, klik tombol Hitung. Berikut ini gambar dari program variabel.
6. Tutup form dengan menekan tombol Close pada title bar untuk menghentikan program. VI. Menggunakan MultimediaKontrol Windows Media Player terdapat dalam file Windows Media Player (wmp.dll). Untuk menggunakan kontrol ini pada program, Anda harus menambah kontrol ke dalam toolbox dengan perintah Com-ponents (Ctrl+T) pada menu Project, lalu mengklik kontrol dan membuat antarmuka baris perintah untuk tool pada form Anda.
Ikuti langkah berikut untuk membuat program multimedia:
1. Jalankan Visual Basic lalu buka project Standard EXE baru.Jika lingkungan pemrograman Visual Basic sudah berjalan, pada menu File, klik New Project untuk membuka project Standard EXE baru.
2. Klik perintah Components (Ctrl+T) pada menu Project. Tandai kontrol Microsoft Common Dialog Control 6.0 dan Windows Media Player seperti gambar di bawah ini.
3. Klik OK pada kotak dialog Components. Tambahkan beberapa kontrol dan atur lokasinya seperti gambar di bawah ini.
Setting properti kontrol dengan nilai dalam tabel di bawah ini.
4. Ketikkan kode program di bawah ini pada Form1:Option Explicit
<br/>
Private Sub Form_Load()
<br/>
<br/><br/>' Ubah setting media player
<br/><br/>WindowsMediaPlayer1. _
<br/><br/><br/><br/>settings.autoStart = False
<br/>
End Sub
<br/>
Private Sub Command1_Click()
<br/><br/>Dim sFile As String
<br/>
<br/><br/>'Tampilkan kotak dialog Open
<br/><br/>With CommonDialog1
<br/><br/>.Filter = "All Files|*.*|Wave|" & _
<br/><br/><br/><br/>"*.wav|MPx Files|*.mp3"
<br/><br/>.FilterIndex = 3
<br/><br/>.DefaultExt = "mp3"
<br/><br/>.DialogTitle = _
<br/><br/><br/><br/>"Menambah file multimedia"
<br/><br/>.CancelError = False
<br/><br/>.ShowOpen
<br/><br/><br/><br/>sFile = .FileName
<br/>
<br/><br/>'Tambahkan file
<br/><br/>If Len(sFile) <> 0 Then
<br/><br/><br/>List1.AddItem sFile
<br/><br/>End If
<br/>
<br/><br/>End With
<br/>
End Sub
Private Sub Command2_Click()
<br/><br/>If List1.ListIndex <> -1 Then
<br/><br/><br/>'Hapus item dalam list
<br/><br/><br/>List1.RemoveItem List1.ListIndex
<bt/>
<br/><br/>End If
End Sub
<br/>
Private Sub Command3_Click()
<br/><br/>'Hapus semua list
<br/><br/>List1.Clear
End Sub
<br/>
Private Sub List1_Click()
<br/><br/>If Len(WindowsMediaPlayer1.URL) = 0 Then
<br/><br/><br/><br/>'Buka file multimedia
<br/><br/><br/><br/>WindowsMediaPlayer1.URL = List1
<br/><br/>End If
End Sub
<br/>
Private Sub List1_DblClick()
<br/><br/>Dim sFile As String
<br/><br/>sFile = List1
<br/><br/>If Len(sFile) <> 0 Then
<br/><br/><br/><br/>'Jalankan file multimedia
<br/><br/><br/><br/>With WindowsMediaPlayer1
<br/><br/><br/><br/>.URL = sFile
<br/><br/><br/><br/>.Controls.play
<br/><br/><br/><br/>End With
<br/><br/><br/><br/>Caption = Dir(sFile)
<br/><br/>End If
End Sub
5. Kini simpan project Anda di folder c:\SES\Multimedia dan jalankan program Anda untuk melihat bagaimana cara kerja program. Klik tombol Start pada toolbar, atau dengan menekan tombol F5.A. Buka project dalam folder c:\SES\Font.
Setting properti kontrol dengan nilai dalam tabel di bawah ini.
Tambahkan kode dalam prosedur Local_Change_Font untuk mengubah effect font ketika user mengklik kontrol CheckBox. Contohnya seperti gambar berikut ini.
Gunakan properti Strikeout dan Underline milik objek Font untuk mengubah efek font.
B. Buka project dalam folder c:\SES\Kalender. Tambahkan fitur untuk menampilkan jam digital dalam program kalender. Untuk menampilkan jam digital, Anda perlu kontrol Timer untuk mengambil informasi waktu dan kontrol Label untuk menampilkannya. Contohnya seperti gambar di bawah ini.
Set properti Interval milik kontrol Timer menjadi 500. Tambahkan kode untuk menampilkan jam dalam event Timer1_Timer() milik kontrol Timer. Contoh program sepert i gambar di bawah ini.
C. Buka project dalam folder c:\SES\KotakPesan.Tambahkan fungsi InputBox untuk menampilkan sebuah kotak dialog pada layar lalu menyimpan teks yang diketikkan oleh pengguna ke dalam variabel. Fungsi ini sangat berguna untuk berinteraksi langsung dengan pengguna. Berikut contoh gambar yang dihasilkan oleh fungsi InputBox.
Sintaks fungsi InputBox adalah sebagai berikut:
sVar = InputBox<br/>( prompt<br/> [,title]<br/>[,xpos]
[,ypos]
<br.<br/><br/><br/>[,helpfile, context] )
Di mana prompt adalah teks yang akan ditampilkan pada layar, title adalah adalah teks yang ditampilkan pada baris judul kotak pesan, xpos dan ypos adalah posisi kiri atas dan kanan atas kotak dialog, dan helpfile dan context adalah file dan id untuk menampilkan jendela pertolongan.
Tambahkan sebuah kontrol CommandButton untuk memanggil fungsi InputBox seperti gambar berikut .
Untuk argumen fungsi InputBox, Anda dapat menggunakan teks dalam kontrol Text1 dan Text2 dalam form. Contoh hasil akhir soal ini seperti gambar berikut .
Tampilkan juga hasil fungsi InputBox dalam kotak pesan MsgBox seperti gambar berikut ini .
D. Buka project dalam folder c:\SES\Variabel. Tambahkan dua buah fungsi berikut ini dalam kotak input Fungsi string.
::Len. Fungsi ini digunakan untuk menghitung jumlah karakter dalam string yang disimpan dalam variabel atau properti.
::InStr. Fungsi ini mengembalikan angka yang menun-jukkan posisi string berada.
Berikut gambar dari program variabel yang sudah ditam-bahkan fungsi baru.
Masih dalam program Variabel, tambahkan fungsi matematika berikut ini:
::Abs. Fungsi ini mengembalikan nilai absolut dari nilai yang dimasukkan.
::Mod. Fungsi ini digunakan untuk membagi dua angka dan mengembalikan nilai sisa dari hasil pembagian tersebut.
Berikut gambar dari program variabel yang sudah ditambahkan fungsi baru.
E. Buka project dalam folder c:\SES\Multimedia. Tambahkan fitur untuk menyimpan daftar lagu ke dalam registry. Visual Basic menyediakan fungsi SaveSetting (menyimpan informasi dalam registry) dan GetAllSettings (mengambil informasi dalam registry) untuk memanipulasi data dalam
registry.
Gunakan fungsi GetAllSettings ketika program pertama kali dijalankan dan fungsi SaveSetting ketika program ditutup. Berikut contoh kode untuk mengambil informasi dari registry:
'Ambil playlist dari registry
<br/><br/>Dim reg As Variant, i As Integer
<br/><br/>reg = GetAllSettings("MyMultimedia", _"Playlist")
<bt/>
<br/><br/>If Not IsEmpty(reg) Then
<br/><br/>ReDim aPlayList(UBound(reg))
<br/>
<br/><br/>For i = LBound(reg, 1) To _UBound(reg, 1)
<br/>
<br/><br/><br/><br/>'Tambahkan ke List1
<br/><br/><br/><br/>List1.AddItem reg(i, 1)
<br/><br/>Next
<br/.
End If
Dan untuk menyimpan, Anda dapat menggunakan contoh kode berikut:
'Tambahkan ke registry
<br/><br/>Dim i As Integer
<br/>
<br/><br/>For i = 0 To List1.ListCount 1
<br/>
<br/><br/><br/>SaveSetting "MyMultimedia", _
<br/><br/><br/><br/>"PlayList", "File" & i, _
<br/><br/><br/><br/>List1.List(i)
<br/><br/>Next
Tambahkan juga fasilitas untuk membuka file movie seperti tipe file AVI, MPEG, atau DAT. Contohnya seperti gambar di baw ah ini.
Salam...
