<?xml version='1.0' encoding='UTF-8'?><?xml-stylesheet href="http://www.blogger.com/styles/atom.css" type="text/css"?><feed xmlns='http://www.w3.org/2005/Atom' xmlns:openSearch='http://a9.com/-/spec/opensearchrss/1.0/' xmlns:georss='http://www.georss.org/georss' xmlns:gd='http://schemas.google.com/g/2005' xmlns:thr='http://purl.org/syndication/thread/1.0'><id>tag:blogger.com,1999:blog-1466025725844441013</id><updated>2012-02-16T03:00:57.632-08:00</updated><title type='text'>visu@l_b@sic</title><subtitle type='html'></subtitle><link rel='http://schemas.google.com/g/2005#feed' type='application/atom+xml' href='http://visual-basic-programer.blogspot.com/feeds/posts/default'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default?max-results=100'/><link rel='alternate' type='text/html' href='http://visual-basic-programer.blogspot.com/'/><link rel='hub' href='http://pubsubhubbub.appspot.com/'/><author><name>SIDIQ</name><uri>http://www.blogger.com/profile/04388612547264386612</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='32' height='24' src='http://1.bp.blogspot.com/_MUSwCV6XAUQ/SfVlVxxSIGI/AAAAAAAAACE/jz8LiwLQiyM/S220/Last+style.jpg'/></author><generator version='7.00' uri='http://www.blogger.com'>Blogger</generator><openSearch:totalResults>6</openSearch:totalResults><openSearch:startIndex>1</openSearch:startIndex><openSearch:itemsPerPage>100</openSearch:itemsPerPage><entry><id>tag:blogger.com,1999:blog-1466025725844441013.post-862593660319658978</id><published>2009-04-27T20:10:00.000-07:00</published><updated>2009-04-27T20:16:32.090-07:00</updated><title type='text'></title><content type='html'>&lt;p class="MsoNormal" style="text-align: center;" align="center"&gt;&lt;br /&gt;&lt;a name="7014971232658447217"&gt;&lt;/a&gt;&lt;b style=""&gt;&lt;a href="http://informatika-unpam.blogspot.com/2009/03/membuat-musik-player-menggunakan-visual.html" title="Permanent Link to Membuat Player MP3 denga Visual Basic 6.0"&gt;Membuat Player MP3 denga Visual Basic 6.0&lt;/a&gt; &lt;span class="item-controlblog-adminpid-99369220"&gt;&lt;a href="post-edit.g?blogID=6875080434572737041&amp;amp;postID=7014971232658447217" title="Edit Entri"&gt;&lt;span class="quick-edit-icon"&gt; &lt;/span&gt; &lt;/a&gt;&lt;/span&gt;&lt;o:p&gt;&lt;/o:p&gt;&lt;/b&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-bottom: 12pt;"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="text-indent: 36pt;"&gt;&lt;span style="font-family: Arial;"&gt;Wih, dah lama buanget ae ga nulis lagi, ah ane nyoba lagi nulis di blog kesayangan ane ini dg yang ane bisa. sebelum mulai masih ingetkan yang harus di persiapin, hayoo apa an tuh.&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;jangan lupa napas. hee...&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;kali ni ane mau nulis cara MP3 player, walau biasa tapi lumayan dah buat pemula.&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;sebelumnye ane kasih pendahuluan dulu.&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 36pt;"&gt;&lt;br /&gt;&lt;br /&gt; &lt;span style="font-family: Arial; color: rgb(0, 153, 0);"&gt;&lt;span style="font-weight: bold;"&gt;Microsoft Visual Basic&lt;/span&gt; (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang bersIfat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM). Visual Basic merupakan turunan bahasa BASIC dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Objects (DAO), Remote Data Objects (RDO), atau ActiveX Data Object (ADO), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX. Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.&lt;br /&gt;Di pertemuan ii kita akan membuat Aplikasi sederhana dengan mengunakan Visual Basic 6.0, yaitu membuat Program Pemutar Musik (Music Player).&lt;br /&gt;Langkah-langkah.&lt;br /&gt;1. Buka Microsoft Visual Basic. Klik start All Program Microsoft Visual Studio Microsoft Visual Basic 6.0&lt;br /&gt;2. Kemudia akan tampil Jendela New Project (Gambar 1) kemudian pilih Standart EXE. Klik Open.&lt;/span&gt;&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shapetype id="_x0000_t75" coordsize="21600,21600" spt="75" preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f"&gt;  &lt;v:stroke joinstyle="miter"&gt;  &lt;v:formulas&gt;   &lt;v:f eqn="if lineDrawn pixelLineWidth 0"&gt;   &lt;v:f eqn="sum @0 1 0"&gt;   &lt;v:f eqn="sum 0 0 @1"&gt;   &lt;v:f eqn="prod @2 1 2"&gt;   &lt;v:f eqn="prod @3 21600 pixelWidth"&gt;   &lt;v:f eqn="prod @3 21600 pixelHeight"&gt;   &lt;v:f eqn="sum @0 0 1"&gt;   &lt;v:f eqn="prod @6 1 2"&gt;   &lt;v:f eqn="prod @7 21600 pixelWidth"&gt;   &lt;v:f eqn="sum @8 21600 0"&gt;   &lt;v:f eqn="prod @7 21600 pixelHeight"&gt;   &lt;v:f eqn="sum @10 21600 0"&gt;  &lt;/v:formulas&gt;  &lt;v:path extrusionok="f" gradientshapeok="t" connecttype="rect"&gt;  &lt;o:lock ext="edit" aspectratio="t"&gt; &lt;/v:shapetype&gt;&lt;v:shape id="BLOGGER_PHOTO_ID_5314465142708725986" spid="_x0000_i1027" type="#_x0000_t75" alt="" style="'width:195.75pt;height:186pt'"&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image001.gif" href="http://3.bp.blogspot.com/_63iaayvNVmA/ScDF49pZaOI/AAAAAAAAATQ/2zQJREst5wE/s320/image005.gif"&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image001.gif" shapes="BLOGGER_PHOTO_ID_5314465142708725986" border="0" height="248" width="261" /&gt;&lt;!--[endif]--&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;&lt;span style="color: rgb(0, 153, 0);"&gt;3. Kemudia akan tampil Area Kerja. &lt;/span&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="BLOGGER_PHOTO_ID_5314465792054573634" spid="_x0000_i1028" type="#_x0000_t75" alt="" style="'width:240pt;height:186.75pt'"&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image002.png" href="http://2.bp.blogspot.com/_63iaayvNVmA/ScDGewpgukI/AAAAAAAAATo/1NfEUX13enE/s320/Picture1.png"&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image003.gif" shapes="BLOGGER_PHOTO_ID_5314465792054573634" border="0" height="249" width="320" /&gt;&lt;!--[endif]--&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;1. Form&lt;br /&gt;2. Project Explorer&lt;br /&gt;3. Properties&lt;br /&gt;4. Toolbox&lt;/span&gt;&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;br /&gt;&lt;span style="font-family: Arial; color: rgb(0, 153, 0);"&gt;4. Tambahkan 3 komponen pada Toolbox. Klik kanan di toolbox Components...&lt;br /&gt;5. Ceklis pada Microsoft Common Control Dialog 6.0 (SP.6), Mirosoft Windows Common Controls 6.0 (SP.6). dan Windows Media Player Klik OK. (Gambar 3).&lt;/span&gt;&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="BLOGGER_PHOTO_ID_5314465500161894530" spid="_x0000_i1029" type="#_x0000_t75" alt="" style="'width:137.25pt;height:123pt'"&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image004.jpg" href="http://1.bp.blogspot.com/_63iaayvNVmA/ScDGNxQ36II/AAAAAAAAATg/SFnRiMoac5E/s320/image009.jpg"&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image004.jpg" shapes="BLOGGER_PHOTO_ID_5314465500161894530" border="0" height="164" width="183" /&gt;&lt;!--[endif]--&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;6. Tambahkan 2 komponen Label di dalam Form, dua buah Timer, 5 CommandButton, 1 buah PictureBox dan 1 buah ListView serta 1 buah CommonDialog.&lt;br /&gt;7. PictureBoxTempatkan agar sesuai dengan Gambar 4.&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-bottom: 12pt;"&gt;&lt;span style="font-family: Arial;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="BLOGGER_PHOTO_ID_5314466085069688322" spid="_x0000_i1025" type="#_x0000_t75" alt="" style="'width:240pt;height:127.5pt'"&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image005.png" href="http://2.bp.blogspot.com/_63iaayvNVmA/ScDGv0NwjgI/AAAAAAAAATw/1tqArTr---s/s320/Picture2.png"&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image006.gif" shapes="BLOGGER_PHOTO_ID_5314466085069688322" border="0" height="170" width="320" /&gt;&lt;!--[endif]--&gt;&lt;span style="color: rgb(0, 153, 0);"&gt;8. Ubah Properties masing-masing komponen&lt;/span&gt; seperti&lt;/span&gt;&lt;a href="http://1.bp.blogspot.com/_63iaayvNVmA/ScDIzRUpMII/AAAAAAAAAT4/-1Zlb6zUsr8/s1600-h/Picture3.png"&gt;&lt;span style="font-family: Arial; text-decoration: none;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="BLOGGER_PHOTO_ID_5314468343446057090" spid="_x0000_i1026" type="#_x0000_t75" alt="" style="'width:209.25pt;height:240pt'"&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image007.png" href="http://1.bp.blogspot.com/_63iaayvNVmA/ScDIzRUpMII/AAAAAAAAAT4/-1Zlb6zUsr8/s320/Picture3.png"&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image008.gif" shapes="BLOGGER_PHOTO_ID_5314468343446057090" border="0" height="320" width="279" /&gt;&lt;!--[endif]--&gt;&lt;/span&gt;&lt;/a&gt;&lt;span style="font-family: Arial;"&gt; di bawah ini.&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-bottom: 12pt;"&gt;&lt;br /&gt; &lt;!--[if !supportLineBreakNewLine]--&gt;&lt;br /&gt; &lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;kemudian ketikan syntak seperti di bawah ini!&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-bottom: 12pt;"&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Option Explicit&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Dim lokasi As String&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Dim tmpDurasi As String&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Dim i As Integer&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub cmdNext_Click()&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; If lvwLagu.selectedItem.Index = i Then&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdStop_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lokasi = lvwLagu.ListItems(1)&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lvwLagu.ListItems(1).Selected = True&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Else&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdStop_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lokasi = lvwLagu.ListItems(lvwLagu.selectedItem.Index + 1)&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lvwLagu.ListItems(lvwLagu.selectedItem.Index + 1).Selected = True&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End If&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub cmdPlay_Click()&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; On Error GoTo pesan&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; If cmdPlay.Caption = "&gt; Play" Then&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; If cmdPlay.Caption = "&gt; Play" Then&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay.Caption = " Pause"&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; wmpPlayer.URL = lokasi&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Timer1.Enabled = True&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Timer2.Enabled = True&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Else&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; wmpPlayer.Controls.play&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay.Caption = " Pause"&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End If&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Else&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; wmpPlayer.Controls.pause&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay.Caption = "&gt; Play"&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End If&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Exit Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; pesan:&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; MsgBox "Pilih lagu dulu dong!", vbOKOnly + vbInformation, "Lagu kosong"&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay.Caption = "&gt; Play"&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub cmdPrev_Click()&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; If lvwLagu.selectedItem.Index = 1 Then&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Exit Sub&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Else&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdStop_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lokasi = lvwLagu.ListItems(lvwLagu.selectedItem.Index - 1)&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lvwLagu.ListItems(lvwLagu.selectedItem.Index - 1).Selected = True&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End If&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub cmdStop_Click()&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; wmpPlayer.Controls.stop&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub cmdTambah_Click()&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Dim lis As ListItem&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; With dlgMusic&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; .DialogTitle = "Cari Lagu"&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; .Filter = "File Musik " &amp;amp; "(*.mp3;*.mid;*.wav)" &amp;amp;_&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; "*.mp3;*.mid;*.wav"&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; .ShowOpen&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Set lis = lvwLagu.ListItems.Add(, , .FileTitle)&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lis.SubItems(1) = .FileName&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End With&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; i = lvwLagu.ListItems.Count&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; If lokasi &lt;&gt; "" Then&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Exit Sub&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Else&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lokasi = dlgMusic.FileName&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End If&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub Form_DblClick()&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Timer2.Enabled = True&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub Form_Load()&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; buatTable&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; i = 1&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub lvwLagu_DblClick()&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdStop_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lokasi = lvwLagu.selectedItem.ListSubItems(1)&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdPlay_Click&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub Timer1_Timer()&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lblDUrasi.Caption = wmpPlayer.Controls.currentPositionString&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; tmpDurasi = wmpPlayer.currentMedia.durationString&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lbljudul.Caption = wmpPlayer.currentMedia.Name&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; If lblDUrasi.Caption = "" Then&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; cmdNext_Click&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End If&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Private Sub Timer2_Timer()&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; If lbljudul.Left &lt;&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lbljudul.Left = Picture1.Width - 1&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lbljudul.Left = lbljudul.Left - 5&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Else&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; lbljudul.Left = lbljudul.Left - 5&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End If&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;br /&gt; &lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; Sub buatTable()&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; With lvwLagu.ColumnHeaders&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; .Clear&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; .Add , , "Lagu", 5000&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; .Add , , "", 0&lt;/span&gt;&lt;br /&gt; &lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End With&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 102, 0);"&gt; End Sub&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;span style="font-family: Arial;"&gt;Nah, beres &lt;/span&gt;&lt;st1:state&gt;&lt;st1:place&gt;&lt;span style="font-family: Arial;"&gt;kan&lt;/span&gt;&lt;/st1:place&gt;&lt;/st1:State&gt;&lt;span style="font-family: Arial;"&gt;...&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/1466025725844441013-862593660319658978?l=visual-basic-programer.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://visual-basic-programer.blogspot.com/feeds/862593660319658978/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/04/membuat-player-mp3-denga-visual-basic-6.html#comment-form' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/862593660319658978'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/862593660319658978'/><link rel='alternate' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/04/membuat-player-mp3-denga-visual-basic-6.html' title=''/><author><name>SIDIQ</name><uri>http://www.blogger.com/profile/04388612547264386612</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='32' height='24' src='http://1.bp.blogspot.com/_MUSwCV6XAUQ/SfVlVxxSIGI/AAAAAAAAACE/jz8LiwLQiyM/S220/Last+style.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-1466025725844441013.post-7341207806581777661</id><published>2009-04-27T06:58:00.000-07:00</published><updated>2009-04-27T07:01:20.600-07:00</updated><title type='text'>kreteria program</title><content type='html'>&lt;p class="MsoNormal" style="text-align: center;" align="center"&gt;&lt;st1:city&gt;&lt;st1:place&gt;&lt;b style=""&gt;Ada&lt;/b&gt;&lt;/st1:place&gt;&lt;/st1:city&gt;&lt;b style=""&gt; beberapa kreteria yang dikatakan bahwa program komputer yang baik diantaranya:&lt;o:p&gt;&lt;/o:p&gt;&lt;/b&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 36pt; color: rgb(0, 153, 0);"&gt;1terintegrasi dan memiliki logika yang jelas&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 36pt; color: rgb(0, 153, 0);"&gt;2.expesiensi terhadap waktu dan penggunaan memori&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 36pt; color: rgb(0, 153, 0);"&gt;3.menerapkan prinsip modul&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 36pt; color: rgb(0, 153, 0);"&gt;4.kesederhaaan&lt;/p&gt;  &lt;p class="MsoNormal" style="text-align: center;" align="center"&gt;&lt;b style=""&gt;Dalam membuat suatu program kita harus memiliki apa yang akan kita angkat untuk dijadikan program computer.untuk lebih jelas ikuti petunjuk kreteria berikut:&lt;o:p&gt;&lt;/o:p&gt;&lt;/b&gt;&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;1.data apa yang akan diproses&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;2.bagaimanadata diletakkan&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;3.dimana data diletakkan&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;4.operator apa saja yang digunakan&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;5.bagaimana urutan intruksi yang disusun&lt;/p&gt;  &lt;p style="color: rgb(0, 153, 0);" class="MsoNormal"&gt;6.bagaimana penyampaian informasi hasil pengolahan data.&lt;/p&gt;  &lt;p class="MsoNormal" style="text-align: center;" align="center"&gt;&lt;b style=""&gt;Biasa nya seorang progremer yang baik mereka harus membuat suatu diagram alil agar program itu jelas..diatara symbol yang digunakan:&lt;o:p&gt;&lt;/o:p&gt;&lt;/b&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;1.diagram pervriptif&lt;/p&gt;  &lt;p class="MsoNormal"&gt;2.diagram alil&lt;/p&gt;  &lt;p class="MsoNormal"&gt;3.diagram pseducare&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:oval id="_x0000_s1026" style="'position:absolute;"&gt;&lt;v:line id="_x0000_s1027" style="'position:absolute;z-index:2'" from="90pt,30pt" to="2in,30pt"&gt;  &lt;v:stroke endarrow="block"&gt; &lt;/v:line&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style=""&gt;  &lt;table align="left" cellpadding="0" cellspacing="0"&gt;  &lt;tbody&gt;&lt;tr&gt;   &lt;td height="15" width="11"&gt;&lt;br /&gt;&lt;/td&gt;   &lt;td width="98"&gt;&lt;br /&gt;&lt;/td&gt;   &lt;td width="10"&gt;&lt;br /&gt;&lt;/td&gt;   &lt;td width="75"&gt;&lt;br /&gt;&lt;/td&gt;  &lt;/tr&gt;  &lt;tr&gt;   &lt;td height="19"&gt;&lt;br /&gt;&lt;/td&gt;   &lt;td rowspan="3" align="left" valign="top"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image001.gif" shapes="_x0000_s1026" height="38" width="98" /&gt;&lt;/td&gt;  &lt;/tr&gt;  &lt;tr&gt;   &lt;td height="12"&gt;&lt;br /&gt;&lt;/td&gt;   &lt;td&gt;&lt;br /&gt;&lt;/td&gt;   &lt;td align="left" valign="top"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image002.gif" shapes="_x0000_s1027" height="12" width="75" /&gt;&lt;/td&gt;  &lt;/tr&gt;  &lt;tr&gt;   &lt;td height="7"&gt;&lt;br /&gt;&lt;/td&gt;  &lt;/tr&gt; &lt;/tbody&gt;&lt;/table&gt;  &lt;/span&gt;&lt;!--[endif]--&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt; &lt;br /&gt; &lt;p class="MsoNormal" style="text-align: center;" align="center"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:line id="_x0000_s1029" style="'position:absolute;left:0;text-align:left;z-index:4'" from="90pt,47.45pt" to="2in,47.45pt"&gt;  &lt;v:stroke endarrow="block"&gt; &lt;/v:line&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 4; left: 0px; margin-left: 119px; margin-top: 57px; width: 75px; height: 12px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image003.gif" shapes="_x0000_s1029" height="12" width="75" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;!--[if gte vml 1]&gt;&lt;v:line id="_x0000_s1028" style="'position:absolute;left:0;text-align:left;z-index:3'" from="18pt,47.45pt" to="1in,47.45pt"&gt;  &lt;v:stroke endarrow="block"&gt; &lt;/v:line&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 3; left: 0px; margin-left: 23px; margin-top: 57px; width: 75px; height: 12px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image003.gif" shapes="_x0000_s1028" height="12" width="75" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;awalan/akhir&lt;o:p&gt;&lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style=""&gt;&lt;!--[if gte vml 1]&gt;&lt;v:line id="_x0000_s1031" style="'position:absolute;z-index:6'" from="99pt,42.05pt" to="153pt,42.05pt"&gt;  &lt;v:stroke endarrow="block"&gt; &lt;/v:line&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 6; margin-left: 131px; margin-top: 50px; width: 75px; height: 12px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image004.gif" shapes="_x0000_s1031" height="12" width="75" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shapetype id="_x0000_t9" coordsize="21600,21600" spt="9" adj="5400" path="m@0,l,10800@0,21600@1,21600,21600,10800@1,xe"&gt;  &lt;v:stroke joinstyle="miter"&gt;  &lt;v:formulas&gt;   &lt;v:f eqn="val #0"&gt;   &lt;v:f eqn="sum width 0 #0"&gt;   &lt;v:f eqn="sum height 0 #0"&gt;   &lt;v:f eqn="prod @0 2929 10000"&gt;   &lt;v:f eqn="sum width 0 @3"&gt;   &lt;v:f eqn="sum height 0 @3"&gt;  &lt;/v:formulas&gt;  &lt;v:path gradientshapeok="t" connecttype="rect" textboxrect="1800,1800,19800,19800;3600,3600,18000,18000;6300,6300,15300,15300"&gt;  &lt;v:handles&gt;   &lt;v:h position="#0,topLeft" xrange="0,10800"&gt;  &lt;/v:handles&gt; &lt;/v:shapetype&gt;&lt;v:shape id="_x0000_s1030" type="#_x0000_t9" style="'position:absolute;"&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 5; margin-left: 22px; margin-top: 31px; width: 76px; height: 38px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image005.gif" shapes="_x0000_s1030" height="38" width="76" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style=""&gt;                                                                &lt;/span&gt;baris penghubung&lt;o:p&gt;&lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="text-align: center; text-indent: 36pt;" align="center"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:line id="_x0000_s1033" style="'position:absolute;left:0;text-align:left;z-index:8'" from="99pt,45.65pt" to="153pt,45.65pt"&gt;  &lt;v:stroke endarrow="block"&gt; &lt;/v:line&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 8; left: 0px; margin-left: 131px; margin-top: 55px; width: 75px; height: 12px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image002.gif" shapes="_x0000_s1033" height="12" width="75" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;!--[if gte vml 1]&gt;&lt;v:rect id="_x0000_s1032" style="'position:absolute;left:0;text-align:left;margin-left:18pt;margin-top:27.65pt;"&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 7; left: 0px; margin-left: 23px; margin-top: 36px; width: 74px; height: 50px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image006.gif" shapes="_x0000_s1032" height="50" width="74" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;proses pemberian nilai awal&lt;o:p&gt;&lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style=""&gt;&lt;!--[if gte vml 1]&gt;&lt;v:line id="_x0000_s1035" style="'position:absolute;z-index:10'" from="108pt,49.25pt" to="162pt,49.25pt"&gt;  &lt;v:stroke endarrow="block"&gt; &lt;/v:line&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 10; margin-left: 143px; margin-top: 60px; width: 75px; height: 12px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image007.gif" shapes="_x0000_s1035" height="12" width="75" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shapetype id="_x0000_t7" coordsize="21600,21600" spt="7" adj="5400" path="m@0,l,21600@1,21600,21600,xe"&gt;  &lt;v:stroke joinstyle="miter"&gt;  &lt;v:formulas&gt;   &lt;v:f eqn="val #0"&gt;   &lt;v:f eqn="sum width 0 #0"&gt;   &lt;v:f eqn="prod #0 1 2"&gt;   &lt;v:f eqn="sum width 0 @2"&gt;   &lt;v:f eqn="mid #0 width"&gt;   &lt;v:f eqn="mid @1 0"&gt;   &lt;v:f eqn="prod height width #0"&gt;   &lt;v:f eqn="prod @6 1 2"&gt;   &lt;v:f eqn="sum height 0 @7"&gt;   &lt;v:f eqn="prod width 1 2"&gt;   &lt;v:f eqn="sum #0 0 @9"&gt;   &lt;v:f eqn="if @10 @8 0"&gt;   &lt;v:f eqn="if @10 @7 height"&gt;  &lt;/v:formulas&gt;  &lt;v:path gradientshapeok="t" connecttype="custom" connectlocs="@4,0;10800,@11;@3,10800;@5,21600;10800,@12;@2,10800" textboxrect="1800,1800,19800,19800;8100,8100,13500,13500;10800,10800,10800,10800"&gt;  &lt;v:handles&gt;   &lt;v:h position="#0,topLeft" xrange="0,21600"&gt;  &lt;/v:handles&gt; &lt;/v:shapetype&gt;&lt;v:shape id="_x0000_s1034" type="#_x0000_t7" style="'position:absolute;"&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 9; margin-left: -3px; margin-top: 53px; width: 150px; height: 26px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image008.gif" shapes="_x0000_s1034" height="26" width="150" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style=""&gt;                                                             &lt;/span&gt;proses komputerisasi&lt;o:p&gt;&lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style=""&gt;&lt;!--[if gte vml 1]&gt;&lt;v:line id="_x0000_s1037" style="'position:absolute;z-index:12'" from="90pt,52.85pt" to="2in,52.85pt"&gt;  &lt;v:stroke endarrow="block"&gt; &lt;/v:line&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 12; margin-left: 119px; margin-top: 64px; width: 75px; height: 12px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image009.gif" shapes="_x0000_s1037" height="12" width="75" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shapetype id="_x0000_t4" coordsize="21600,21600" spt="4" path="m10800,l,10800,10800,21600,21600,10800xe"&gt;  &lt;v:stroke joinstyle="miter"&gt;  &lt;v:path gradientshapeok="t" connecttype="rect" textboxrect="5400,5400,16200,16200"&gt; &lt;/v:shapetype&gt;&lt;v:shape id="_x0000_s1036" type="#_x0000_t4" style="'position:absolute;"&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;span style="position: absolute; z-index: 11; margin-left: 22px; margin-top: 33px; width: 64px; height: 51px;"&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image010.gif" shapes="_x0000_s1036" height="51" width="64" /&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;span style=""&gt;                                                                &lt;/span&gt;inpu/ourput&lt;o:p&gt;&lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style=""&gt;&lt;span style=""&gt;                                                            &lt;/span&gt;kondisi permasalahan&lt;o:p&gt;&lt;/o:p&gt;&lt;/p&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/1466025725844441013-7341207806581777661?l=visual-basic-programer.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://visual-basic-programer.blogspot.com/feeds/7341207806581777661/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/04/kreteria-program.html#comment-form' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/7341207806581777661'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/7341207806581777661'/><link rel='alternate' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/04/kreteria-program.html' title='kreteria program'/><author><name>SIDIQ</name><uri>http://www.blogger.com/profile/04388612547264386612</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='32' height='24' src='http://1.bp.blogspot.com/_MUSwCV6XAUQ/SfVlVxxSIGI/AAAAAAAAACE/jz8LiwLQiyM/S220/Last+style.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-1466025725844441013.post-8437768447939917053</id><published>2009-04-27T01:22:00.000-07:00</published><updated>2009-04-27T01:23:07.345-07:00</updated><title type='text'>10 Kesalahan Besar dalam coding VB6</title><content type='html'>&lt;h2 style="color: rgb(51, 102, 255);"&gt;Tahukah Anda, ada 10 kesalahan besar yang sering kita lakukan di dalam membuat aplikasi dengan Visual Basic 6? Ternyata secara tidak sadar atau bahkan sengaja kita sering melakukannya. Yaitu:&lt;/h2&gt;      &lt;ol start="1" type="1"&gt;&lt;li class="MsoNormal" style=""&gt;Tidak menggunakan Option      Explicit&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Tidak melakukan deklarasi      secara eksplisit terhadap tipe data dari variabel dan function, seperti      halnya di dalam DIM, Function, Property tanpa menggunakan As &lt;type&gt;.      Harap diperhatikan, bahwa hal ini tidak sama dengan penggunaan Option      Explicit.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Menulis kode yang sulit      dipahami. Seperti halnya menulis procedure melebihi 2 sampai 3 halaman.      Tidak menggunakan aturan konvensional di dalam pemberian nama variabel,      object, dan procedure. termasuk juga menggunakan penamaan object secara      default oleh VB.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Nilai-nilai, angka-angka,      path dan nama file yang sukar dimengerti pada data-driven atau      user-defined variabel.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Tidak memperhatikan      keinginan user, pesan-pesan kesalahan yang sukar dipahami, kurang      memperhatikan sisi estetika aplikasi, penataan kontrol yang kurang rapi.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Menulis kode tanpa      menggunakan penanganan error.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Menggunakan Custom-control      hanya untuk pemrograman sederhana.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Tidak menyediakan      dokumentasi.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Penggunaan data yang tidak      jelas tujuannya, seperti halnya tidak memberikan validasi atas data yang      dimasukkan.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Selalu minta tolong orang      lain untuk menulis program tanpa pernah mempelajarinya, seperti halnya      mendownload source code tanpa mempelajarinya alias cuma copy-paste.&lt;/li&gt;&lt;/ol&gt;  &lt;p&gt;Ya, setidaknya 10 hal diatas sering kita jumpai atau bahkan kita lakukan di dalam menulis program dengan Visual Basic.&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/1466025725844441013-8437768447939917053?l=visual-basic-programer.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://visual-basic-programer.blogspot.com/feeds/8437768447939917053/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/04/10-kesalahan-besar-dalam-coding-vb6.html#comment-form' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/8437768447939917053'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/8437768447939917053'/><link rel='alternate' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/04/10-kesalahan-besar-dalam-coding-vb6.html' title='10 Kesalahan Besar dalam coding VB6'/><author><name>SIDIQ</name><uri>http://www.blogger.com/profile/04388612547264386612</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='32' height='24' src='http://1.bp.blogspot.com/_MUSwCV6XAUQ/SfVlVxxSIGI/AAAAAAAAACE/jz8LiwLQiyM/S220/Last+style.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-1466025725844441013.post-5766015824177392260</id><published>2009-04-27T01:04:00.002-07:00</published><updated>2009-04-27T01:18:18.511-07:00</updated><title type='text'></title><content type='html'>PEMAHAMA VISUAL BASIC.............&lt;br /&gt;&lt;a href="http://bangdewa.wordpress.com/2007/10/04/modul-2-memahami-objek-pada-visual-basic/" title="Taut Tetap ke Modul 2 - Memahami Objek pada Visual Basic"&gt;&lt;span style="font-weight: bold;"&gt;&lt;/span&gt;Modul 2 - Memahami Objek pada Visual Basic&lt;/a&gt;  &lt;p class="postmeta"&gt;{ Oktober 4, 2007 @ &lt;a href="http://bangdewa.wordpress.com/2007/10/04/modul-2-memahami-objek-pada-visual-basic/" title="Taut Tetap ke Modul 2 - Memahami Objek pada Visual Basic"&gt;5:49 am&lt;/a&gt; } · { &lt;a href="http://id.wordpress.com/tag/visual-basic-uncategorized/" title="Lihat seluruh tulisan dalam Visual Basic"&gt;Visual Basic&lt;/a&gt; }&lt;br /&gt;{ Tags: &lt;a href="http://id.wordpress.com/tag/visul-basic/"&gt;Visul Basic&lt;/a&gt; } · { &lt;a href="http://bangdewa.wordpress.com/2007/10/04/modul-2-memahami-objek-pada-visual-basic/#comments" title="Komentar pada Modul 2 - Memahami Objek pada Visual Basic"&gt;Komentar (1)&lt;/a&gt; } &lt;/p&gt;  &lt;h2&gt;Apa yang dimaksud dengan Objek&lt;/h2&gt;  &lt;p&gt;Objek merupakan suatu kombinasi dari kode dan data yang dapat diperlakukan sebagai satu kesatuan. Suatu Objek dapat merupakan bagian dari aplikasi seperti suatu kontrol atau suatu form. Secara keseluruhan dari aplikasi dapat juga berupa suatu objek.&lt;/p&gt;  &lt;h2&gt;Dari mana datangnya Objek&lt;/h2&gt;  &lt;p class="text"&gt;Setiap objek pada Visual Basic didefinisikan oleh suatu class. Untuk memahami hubungan antara objek dengan class-nya, perhatikan contoh berikut :&lt;/p&gt;  &lt;p class="listbulleteditem1" style="margin-left: 36pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Kontrol-kontrol yang barada pada jendela Toolbox pada Visual Basic merupakan class-class. Objek tersebut dikenal sebagai kontrol tidak akan ada sampai anda menanamkannya pada suatu form. Ketika anda menanamkan suatu kontrol, anda telah membuat suatu duplikasi atau instance dari class kontrol tersebut. &lt;/p&gt;  &lt;p class="listbulleteditem1" style="margin-left: 36pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Form dimana anda bekerja pada saat desain adalah suatu class. Pada saat run time, Visual Basic menciptakan suatu instance dari class form.&lt;/p&gt;  &lt;p class="listbulleteditem1"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shapetype id="_x0000_t75"  coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe"  filled="f" stroked="f"&gt;  &lt;v:stroke joinstyle="miter"/&gt;  &lt;v:formulas&gt;   &lt;v:f eqn="if lineDrawn pixelLineWidth 0"/&gt;   &lt;v:f eqn="sum @0 1 0"/&gt;   &lt;v:f eqn="sum 0 0 @1"/&gt;   &lt;v:f eqn="prod @2 1 2"/&gt;   &lt;v:f eqn="prod @3 21600 pixelWidth"/&gt;   &lt;v:f eqn="prod @3 21600 pixelHeight"/&gt;   &lt;v:f eqn="sum @0 0 1"/&gt;   &lt;v:f eqn="prod @6 1 2"/&gt;   &lt;v:f eqn="prod @7 21600 pixelWidth"/&gt;   &lt;v:f eqn="sum @8 21600 0"/&gt;   &lt;v:f eqn="prod @7 21600 pixelHeight"/&gt;   &lt;v:f eqn="sum @10 21600 0"/&gt;  &lt;/v:formulas&gt;  &lt;v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/&gt;  &lt;o:lock v:ext="edit" aspectratio="t"/&gt; &lt;/v:shapetype&gt;&lt;v:shape id="_x0000_i1025" type="#_x0000_t75" alt="" style='width:235.5pt;  height:177pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image001.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.5.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image001.gif" v:shapes="_x0000_i1025" border="0" height="236" width="314"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p class="spacing4points"&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-1&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, kontrol Text1 yang ditanam diatas form berasal dari class Textbox&lt;/em&gt;&lt;/p&gt;  &lt;p class="spacing4points"&gt;Misalnya anda menamkan sebuah textbox diatas form1, coba perhatikan jendela properti kontrol tersebut akan menampilkan Text1 (nama dari kontrol textbox tersebut) dan Textbox (nama dari class kontrol tersebut).&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1026" type="#_x0000_t75" alt=""  style='width:144.75pt;height:66.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image002.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.3.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image002.gif" v:shapes="_x0000_i1026" border="0" height="89" width="193"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-2&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, jendela property menunjukkan nama kontrol dan jenis Class-nya&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Semua objek merupakan duplikasi dari class mereka. Sesaat setelah menjadi objek berdiri sendiri, masing-masing dapat memiliki properti yang berbeda-beda.&lt;/p&gt;  &lt;p&gt;Misalnya anda menanam tiga buah command button pada suatu form, masing-masing command button merupakan instance dari class CommandButton sehingga  memiliki sejumlah karakteristik dan kemampuan (properti-properti, metode-metode, dan event-event) yang sama, dimana yang terdefinisi pada class-nya. Tetapi, masing-masing dapat memiliki Name, Caption, BackColor, Style yang berbeda sesuai dengan pengaturan pada masing-masing properti.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1027" type="#_x0000_t75" alt=""  style='width:240pt;height:180pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image003.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.17.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image003.gif" v:shapes="_x0000_i1027" border="0" height="240" width="320"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-3&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, masing-masing kontrol dapat memiliki properti masing-masing&lt;/em&gt;&lt;/p&gt;  &lt;h2&gt;Bekerja dengan objek&lt;/h2&gt;  &lt;p&gt;Objek-objek Visual Basic memiliki properti-properti, metode-metode, dan event-event. Pada Visual Basic, suatu data dari objek (setting dan atribut) disebut sebagai properti, sedangkan berbagai subrutin yang dapat beroperasi pada objek tersebut disebut sebagai metodenya. Dan suatu event adalah aksi yang dikenali oleh suatu objek, seperti klik pada mouse atau penekanan tombol, sehingga anda dapat menulis kode untuk menangani event tersebut.&lt;/p&gt;  &lt;h3&gt;Mengatur Nilai properti&lt;/h3&gt;  &lt;p&gt;Anda dapat langsung mengatur nilai properti suatu kontrol pada jendela properti, maupun pada saat runtime dengan menggunakan bentuk penulisan berikut :&lt;/p&gt;  &lt;p&gt;Objek.properti = ekspresiContoh :&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1028" type="#_x0000_t75" alt=""  style='width:2in;height:126.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image004.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.6.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image004.gif" v:shapes="_x0000_i1028" border="0" height="169" width="192"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-4&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, pengaturan properti dapat dilakukan melalui jendela properti pada waktu desain&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;atau&lt;/p&gt;  &lt;pre&gt;Private Sub Form_Load() MyForm.Caption = "Pemakai Telepon" End Sub&lt;/pre&gt;  &lt;h3&gt;Mengambil nilai dari Properti&lt;/h3&gt;  &lt;p&gt;Anda dapat mengambil nilai dari properti suatu objek dengan penulisan sebagai berikut :&lt;/p&gt;  &lt;p&gt;Variabel = Objek.properti&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub cmdProses_Click() Nama = txtNama.Text End Sub&lt;/pre&gt;  &lt;h3&gt;&lt;strong&gt;&lt;span style="font-family: Arial;"&gt;Menggunakan Metode dalam Kode&lt;/span&gt;&lt;/strong&gt;&lt;/h3&gt;  &lt;p&gt;Ketika anda mengunakan suatu metode dalam kode anda, hal tersebut tergantung kepada bagaimana kaitan perintah dan berapa argumen yang diperlukan, dan apakah metode tersebut mengembalikan suatu nilai. Ketika suatu metode tidak membutuhkan argumen anda dapat menulisnya sebagai berikut ::&lt;/p&gt;  &lt;p&gt;&lt;span class="placeholder"&gt;Objek.Metode&lt;/span&gt;&lt;/p&gt;  &lt;p&gt;&lt;span class="placeholder"&gt;Contoh :&lt;/span&gt;&lt;/p&gt;  &lt;pre&gt;&lt;span class="placeholder"&gt;Private Sub cmdBuka_Click() frmPemakai.show End Sub&lt;/span&gt;&lt;/pre&gt;  &lt;h3&gt;Beberapa properti yang umum&lt;/h3&gt;  &lt;p&gt;Berikut ini akan dibahas beberapa properti yang umum yang hampir terdapat pada semua intrinsic kontrol pada Visual Basic.&lt;/p&gt;  &lt;h4&gt;Properti &lt;em&gt;Left&lt;/em&gt;, &lt;em&gt;Top&lt;/em&gt;, &lt;em&gt;Width&lt;/em&gt; dan &lt;em&gt;Height&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Semua objek yang visible memiliki properti yang menentukan letak dan ukurannya. Nilai properti Left dan Top sifatnya relatif terhadap kontainernya (misalnya suatu textbox yang ditanamkan diatas form, maka form tersebut disebut sebagai kontainer bagi textbox tersebut), sedangkan Width dan Height menentukan ukuran dari objek tersebut.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1029" type="#_x0000_t75" alt=""  style='width:235.5pt;height:177pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image001.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.5.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image001.gif" v:shapes="_x0000_i1029" border="0" height="236" width="314"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-5&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, Form1 merupakan kontainer bagi Text1&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Nb. Pada defaultnya nilai properti ini dinyatakan dalam twips ( 1 inch = 1440 twips; 1 cm = 576 twips)&lt;/p&gt;  &lt;p&gt;Perhatian : Properti Width dan Height pada control Combobox sifatnya readonly.&lt;/p&gt;  &lt;h4&gt;Properti &lt;em&gt;Forecolor&lt;/em&gt; dan &lt;em&gt;BackColor&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Umumnya objek yang visible memiliki properti Forecolor dan Backcolor, yang mempengaruhi warna tulisan dan warna latarbelakang, tetapi beberapa diantaranya tidak ada (misalnya control scroll-bars), pada command button tidak terdapat properti Forecolor, dan Backcolornya hanya berfungsi jika anda menganti properti style menjadi 1 - Graphical.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1030" type="#_x0000_t75" alt=""  style='width:236.25pt;height:177.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image005.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.7.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image005.gif" v:shapes="_x0000_i1030" border="0" height="237" width="315"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-6&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, form dengan pemakaian backcolor dan forecolor&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Nb. Setting properti Backcolor menjadi tidak berfungsi jika anda menset properti BackStyle menjadi 0 - transparent.&lt;/p&gt;  &lt;table class="MsoNormalTable" style="width: 450pt;" border="0" cellpadding="0" width="600"&gt;  &lt;tbody&gt;&lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1031" type="#_x0000_t75"    alt="" style='width:2in;height:254.25pt'&gt;    &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image006.gif"     o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.18.gif"/&gt;   &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image006.gif" v:shapes="_x0000_i1031" border="0" height="339" width="192"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1032" type="#_x0000_t75"    alt="" style='width:143.25pt;height:252.75pt'&gt;    &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image007.gif"     o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.19.gif"/&gt;   &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image007.gif" v:shapes="_x0000_i1032" border="0" height="337" width="191"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt; &lt;/tbody&gt;&lt;/table&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-7&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, pengaturan Backcolor dan ForeColor melalui jendela properti&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Ketika anda menentukan nilai untuk properti ini, anda dapat menggunakan suatu warna standard, atau warna custom (saya menyarankan anda untuk menggunakan warna standard untuk menjaga nilai rasa pemakai integrasi dengan sistem operasi)&lt;/p&gt;  &lt;h4&gt;Properti &lt;em&gt;Font&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Pada waktu desain, anda dapat menentukan properti Font dengan dialog box, tetapi pada saat runtime, hal tersebut harus dilakukan dengan properti &lt;em&gt;Name&lt;/em&gt;, &lt;em&gt;Size&lt;/em&gt;, &lt;em&gt;Bold&lt;/em&gt;, &lt;em&gt;Italic&lt;/em&gt;, &lt;em&gt;Underline&lt;/em&gt;, and &lt;em&gt;Strikethrough&lt;/em&gt;, karena sebenarnya Font adalah suatu objek campuran.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Text1.Font.Name = "Tahoma" Text1.Font.Size = 12 Text1.Font.Bold = True Text1.Font.Underline = True&lt;/pre&gt;  &lt;h4&gt;Properti &lt;em&gt;Caption&lt;/em&gt; dan &lt;em&gt;Text&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Caption adalah tulisan yang tampil dalam suatu control (atau title pada objek form) yang mana pemakai tidak dapat melakukan modifikasi langsung (control Label, CommandButton, Checkbox, Optionbutton, Data, dan Frame), sebaliknya Text adalah tulisan yang dapat dimodifikasi oleh pemakai (control Textbox, Listbox dan Combobox).&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1033" type="#_x0000_t75" alt=""  style='width:303.75pt;height:258pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image008.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.20.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image008.gif" v:shapes="_x0000_i1033" border="0" height="344" width="405"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-8&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, pengaturan Font melalui dialog box Font dari jendela properti&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Nb. Pada properti Caption, kita dapat menggunakan tanda &amp;amp; (ampersand) untuk menyatakan hotkey bagi control tersebut. Properti Text dapat diabaikan, karena merupakan properti default bagi suatu control.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;' Kedua perintah ini adalah sama&lt;/pre&gt;&lt;pre&gt;Text2.Text = Text1.Text Text2 = Text1&lt;span style=""&gt;                &lt;/span&gt;'tanpa properti text&lt;/pre&gt;  &lt;h4&gt;Properti &lt;em&gt;Enabled&lt;/em&gt; dan &lt;em&gt;Visible&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Pada defaultnya semua control dan form adalah Enabled dan Visible. Anda dapat menyembunyikan suatu kontrol dengan menggunakan properti Visible = False. Kontrol yang properti Enabled = False tidak dapat diakses oleh pemakai, tetapi dapat diakses secara kode.&lt;/p&gt;  &lt;p&gt;Programmer dapat juga menggunakan properti Locked = True untuk membuat suatu kontrol read only.&lt;/p&gt;  &lt;h4&gt;Properti &lt;em&gt;TabStop&lt;/em&gt; dan &lt;em&gt;TabIndex&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Suatu kontrol yang dapat menerima fokus input memiliki properti TabStop. Kontrol yang memiliki properti TabStop juga memiliki properti TabIndex. Properti TabStop menentukan apakah suatu kontrol dapat menerima fokus pada penekanan tombol Tab oleh pemakai, defaultnya adalah true, sedangkan properti TabIndex menentukan urutan fokus pada saat pemakai menekan Tab.&lt;/p&gt;  &lt;h4&gt;Properti &lt;em&gt;MousePointer&lt;/em&gt; dan &lt;em&gt;MouseIcon&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Properti ini akan menentukan bentuk kursor mouse ketika berada diatas kontrol tersebut. Windows memperbolehkan kita mengatur tampilan mouse untuk setiap form dan kontrol dengan mengikuti aturan berikut :&lt;/p&gt;  &lt;ul type="disc"&gt;&lt;li class="MsoNormal" style=""&gt;Jika properti &lt;em&gt;Screen.MousePointer&lt;/em&gt;      di set ke nilai yang bukan 0-vbDefault, kursor mouse akan mengikuti nilai      ini, tetapi ketika mouse berada diatas aplikasi lain (atau pada desktop),      tampilan kursor akan bergantung kepada kondisi aplikasi bersangkutan,      bukan pada aplikasi anda.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Jika &lt;em&gt;Screen.MousePointer&lt;/em&gt;      adalah 0 dan kursor mouse berada diatas suatu kontrol, Visual Basic akan      memeriksa nilai properti &lt;em&gt;MousePointer&lt;/em&gt; kontrol tersebut; jika      nilainya bukan 0-vbDefault, kursor mouse akan di set ke nilai tersebut.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;Jika &lt;em&gt;Screen.MousePointer&lt;/em&gt;      adalah 0 dan mouse berada diatas permukaan suatu form atau berada diatas      kontrol yang properti MousePointer adalah 0, Visual Basic akan menggunakan      nilai yang tersimpan pada properti Mousepointer pada form.&lt;/li&gt;&lt;/ul&gt;  &lt;p&gt;Properti MouseIcon dapat digunakan untuk menampilkan bentuk pointer mouse sesuai dengan keinginan pemakai, tetapi sebelumnya properti MouseIcon harus di set ke 99-vbCustom, dan kemudian set suatu icon pada properti MouseIcon.&lt;/p&gt;  &lt;table class="MsoNormalTable" style="width: 450pt;" border="0" cellpadding="0" width="600"&gt;  &lt;tbody&gt;&lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1034" type="#_x0000_t75"    alt="" style='width:143.25pt;height:91.5pt'&gt;    &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image009.gif"     o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.21.gif"/&gt;   &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image009.gif" v:shapes="_x0000_i1034" border="0" height="122" width="191"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1035" type="#_x0000_t75"    alt="" style='width:319.5pt;height:219pt'&gt;    &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image010.gif"     o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.22.gif"/&gt;   &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image010.gif" v:shapes="_x0000_i1035" border="0" height="292" width="426"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt; &lt;/tbody&gt;&lt;/table&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-9&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, pengaturan Mouse Pointer dan Mouse Pointer melalui  jendela properti&lt;/em&gt;&lt;/p&gt;  &lt;h4&gt;Properti &lt;em&gt;Tag&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Semua kontrol mendukung properti Tag, tanpa kecuali, karena properti ini disediakan oleh Visual Basic, bukan oleh kontrol. Properti Tag digunakan sebagai kontainer untuk bagi data dari kontrol yang anda ingin simpan (misalnya anda dapat mengunakannya untuk menyimpan nilai awal dari textbox, sehingga pemakai dapat melakukan Undo dengan mengembalikan nilai awal tersebut dari properti Tag).&lt;/p&gt;  &lt;h3&gt;Beberapa Metode-metode umum&lt;/h3&gt;  &lt;p&gt;Berikut ini akan dibahas beberapa metode yang umum yang hampir terdapat pada semua intrinsic kontrol pada Visual Basic.&lt;/p&gt;  &lt;h4&gt;Metode &lt;em&gt;Move&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Jika suatu kontrol mendukung properti &lt;em&gt;Left&lt;/em&gt;, &lt;em&gt;Top&lt;/em&gt;, &lt;em&gt;Width&lt;/em&gt;, dan &lt;em&gt;Height&lt;/em&gt;, juga mendukung metode &lt;em&gt;Move&lt;/em&gt;, dengannya dimana anda dapat mengubah beberapa atau semua properti dalam satu operasi tunggal. Contoh berikut mengubah tiga properti: &lt;em&gt;Left&lt;/em&gt;, &lt;em&gt;Top&lt;/em&gt;, dan &lt;em&gt;Width&lt;/em&gt;.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;'Mendoublekan lebar form, dan memindahkan ke sudut kiri atas layar 'Syntaxnya adalah: Move Left, Top, Width, Height.&lt;span style=""&gt;  &lt;/span&gt;Form1.Move 0, 0, Form1.Width * 2&lt;/pre&gt;  &lt;h4&gt;Metode &lt;em&gt;Refresh&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Metode refresh menyebabkan suatu form akan digambar ulang. Pada dasarnya Visual Basic otomatis memanggil metode ini setiap ada kesempatan, tetapi anda dapat menggunakannya untuk mengupdate tampilan seketika.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;For n = 1000 To 1 Step -1&lt;span style=""&gt;     &lt;/span&gt;Label1.Caption = CStr(i)&lt;span style=""&gt;     &lt;/span&gt;Label1.Refresh&lt;span style=""&gt;          &lt;/span&gt;' Mengupdate label seketika. Next&lt;/pre&gt;  &lt;h4&gt;Metode &lt;em&gt;SetFocus&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Metode ini memindahkan fokus input ke kontrol tertentu. Sesuatu masalah yang sering terjadi adalah metode ini akan menyebabkan error ketika diterapkan pada kontrol yang sedang di Disable atau dalam keadaan Invisible. Untuk menhindari hal ini, metode SetFocus jangan digunakan pada bagian Form Load.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub cmdAdd_Click() Aksi = flAdd Call Buka Call Kosong txtCCode.SetFocus&lt;span style=""&gt;     &lt;/span&gt;&lt;span style=""&gt;        &lt;/span&gt;'Memindahkan fokus ke kontrol txtCCode End Sub&lt;/pre&gt;  &lt;h4&gt;Metode &lt;em&gt;ZOrder&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Metode &lt;em&gt;ZOrder&lt;/em&gt; memberikan efek tampilan kontrol yang saling menimpa. Anda menggunakan metode ini untuk memindahkan kontrol keatas kontrol yang lain. Gunakan argumen satu untuk sebaliknya.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Label1.ZOrder &lt;span style=""&gt;         &lt;/span&gt;'Memindahkan ke atas Label1.ZOrder 1&lt;span style=""&gt;        &lt;/span&gt;&lt;span style=""&gt;  &lt;/span&gt;'Memindahkan ke bawah&lt;/pre&gt;  &lt;p&gt;Pada saat design, anda dapat menggunakan Ctrl+J untuk memindahkan kontrol ke depan, dan Ctrl+K untuk memindahkan form ke belakang.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1036" type="#_x0000_t75" alt=""  style='width:240pt;height:180pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image011.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.23.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image011.gif" v:shapes="_x0000_i1036" border="0" height="240" width="320"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-10&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, contoh pemakaian metode ZOrder&lt;/em&gt;&lt;/p&gt;  &lt;h3&gt;Beberapa Event yang umum&lt;/h3&gt;  &lt;p&gt;Berikut ini akan dibahas beberapa metode yang umum yang hampir terdapat pada semua intrinsic kontrol pada Visual Basic.&lt;/p&gt;  &lt;h4&gt;Event &lt;em&gt;Click&lt;/em&gt; dan &lt;em&gt;DblClick&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Event click terjadi ketika pemakai melakukan klik pada tombol kiri mouse. demikian juga Event DblClick terjadi karena pemakai melakukan klik dua kali.&lt;/p&gt;  &lt;pre&gt;Private Sub cmdUpdate_Click() JlhRec = JlhRec + 1 DatPemakai.CCode = txtCCode.Text DatPemakai.Nama = txtNama.Text DatPemakai.Ekstension = txtEkstension.Text DatPemakai.Local = optLocal.Value DatPemakai.SLJJ = optSLJJ.Value DatPemakai.SLI = optSLI.Value Put #1, JlhRec, DatPemakai Posisi = JlhRec End Sub&lt;/pre&gt;  &lt;p&gt;Pada kontrol-kontrol seperti Checkbox dan OptionButton, event Click juga dibangkitkan kalau terjadi perubahan nilai properti Value secara koding.&lt;/p&gt;  &lt;p&gt;ListBox dan Combobox juga melakukan hal yang sama kalau properti ListIndex-nya berubah.&lt;/p&gt;  &lt;p&gt;Adalah penting untuk menghindari pemakaian Event Click dan DblClick pada satu kontrol yang sama, karena tidak menjamin Event DblClick dibangkitkan setelah Event Click terjadi.&lt;/p&gt;  &lt;h4&gt;Event &lt;em&gt;Change&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Event Change dibangkitkan ketika isi dari suatu kontrol berubah. Tetapi pada CheckBox, dan OptionButton Event Click yang dibangkitkan.&lt;/p&gt;  &lt;p&gt;Pada kontrol TextBox dan ComboBox dibangkitkan ketika pemakai mengetik sesuatu. (Tetapi pada kontrol ComboBox, kontrol membangkitkan event Click kalau pemakai memilih item dari list dari pada mengetiknya). Pada kontrol Scroll bar event Change terjadi ketika pemakai melakukan klik baik pada panah maupun scroll box. Event Change juga terdapat pada PictureBox, DriveListBox, dan kontrol DirListBox.&lt;/p&gt;  &lt;p&gt;Event Change juga dibangkitan oleh isi kontrol yang diubah melalui koding.&lt;/p&gt;  &lt;h4&gt;Event &lt;em&gt;GotFocus&lt;/em&gt; dan &lt;em&gt;LostFocus&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;&lt;em&gt;GotFocus&lt;/em&gt; dibangkitkan ketika kontrol menerima fokus, dan &lt;em&gt;LostFocus&lt;/em&gt; dibangkitkan ketika fokus meninggalkannya dan beralih ke kontrol lain. Pada awalnya event ini banyak digunakan untuk mekanisme validasi ketika kontrol kehilangan fokus. Pada Visual Basic 6 telah diperkenalkan suatu event &lt;em&gt;Validate&lt;/em&gt; event, yang lebih sesuai untuk masalah yang sama.&lt;/p&gt;  &lt;h4&gt;Event &lt;em&gt;KeyPress&lt;/em&gt;, &lt;em&gt;KeyDown&lt;/em&gt;, dan &lt;em&gt;KeyUp&lt;/em&gt;&lt;/h4&gt;  &lt;p&gt;Event-event ini dibangkitkan ketika pemakai menekan tombol pada keyboard pada kontrol yang memiliki fokus. Urutan eventnya adalah : &lt;em&gt;KeyDown &lt;/em&gt;(ketika pemakai menekan tombol), &lt;em&gt;KeyPress&lt;/em&gt; (Visual Basic menterjemahkan tombol ke numerik ANSI code), dan &lt;em&gt;KeyUp&lt;/em&gt; (ketika pemakai melepas tombol). Hanya tombol yang berkaitan dengan tombol kontrol (Ctrl+&lt;em&gt;x&lt;/em&gt;, BackSpace, Enter, dan Escape) serta karakter yang dapat dicetak membangkitkan event &lt;em&gt;KeyPress&lt;/em&gt; event. Tombol lainnya–termasuk tombol panah, tombol fungsi, kombinasi Alt+x, tidak menyebabkan event ini, hanay membangkitkan event &lt;em&gt;KeyDown&lt;/em&gt; dan &lt;em&gt;KeyUp&lt;/em&gt;.&lt;/p&gt;  &lt;p&gt;Event &lt;em&gt;KeyPress&lt;/em&gt; melewatkan ANSI code dari tombol yang ditekan. Anda dapat memanipulasinya untuk keperluan tertentu.&lt;/p&gt;  &lt;h2&gt;Objek Browser&lt;/h2&gt;  &lt;p&gt;Anda dapat melihat properti-properti, metode-metode, dan event-event pada suatu objek dengan menggunakan fasilitas Objek Browser yang dapat diaktifkan dengan menggunakan menu View, Object Browser.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1037" type="#_x0000_t75" alt=""  style='width:372.75pt;height:270.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image012.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.24.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image012.gif" v:shapes="_x0000_i1037" border="0" height="361" width="497"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-11&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, jendela objek browser untuk melihat isi suatu objek&lt;/em&gt;&lt;/p&gt;  &lt;h1&gt;Mengenal Form&lt;/h1&gt;  &lt;p&gt;Form merupakan objek pertama yang anda hadapi begitu membuat suatu project dan merupakan tempat kita membentuk user interface. Pada form kita dapat menanamkan berbagai Kontrol seperti label, textbox, combobox, listbox, optionbutton, dll.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1038" type="#_x0000_t75" alt=""  style='width:236.25pt;height:201.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image013.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.13.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image013.gif" v:shapes="_x0000_i1038" border="0" height="269" width="315"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-12&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, user interface form dengan berbagai kontrol diatasnya&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Untuk memudah anda dalam menempatkan kontrol-kontrol pada form, periksalah option seperti Show Grid dan ukurannya, serta Align Control to Grid, pengaturan ini dapat dilakukan dengan menu Tools, Option, kemudian memilih tab General.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1039" type="#_x0000_t75" alt=""  style='width:313.5pt;height:265.5pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image014.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.2.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image014.gif" v:shapes="_x0000_i1039" border="0" height="354" width="418"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-13&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, jendela option untuk pengaturan form&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Untuk memudahkan anda mengatur ukuran, jarak antar kontrol maupun pemerataan kontrol-kontrol yang anda tempatkan diatas form, anda dapat menggunakan kelompok menu format&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1040" type="#_x0000_t75" alt=""  style='width:165.75pt;height:171.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image015.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.4.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image015.gif" v:shapes="_x0000_i1040" border="0" height="229" width="221"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-14&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, menu format&lt;/em&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;h2&gt;Struktur kode pada Form&lt;/h2&gt;  &lt;p&gt;Memahami struktur kode pada jendela kode di suatu form akan sangat membantu programmer untuk menulis kode yang terstruktur. Adapun struktur kode pada form dapat dibagi atas tiga bagian yaitu :&lt;/p&gt;  &lt;ul type="disc"&gt;&lt;li class="MsoNormal" style=""&gt;Bagian General      Declaration, bagian ini digunakan untuk deklarasi Option Explicit, Option      Base, Type, dan variabel yang dapat digunakan pada form level (dikenal oleh      semua subrutin pada form tersebut) baik pada tingkat Public maupun      Private. Bagian ini biasanya terletak pada bagian teratas pada jendela      koding.&lt;/li&gt;&lt;/ul&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1041" type="#_x0000_t75" alt=""  style='width:270.75pt;height:201.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image016.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.8.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image016.gif" v:shapes="_x0000_i1041" border="0" height="269" width="361"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-15&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, bagian general declaration pada jendela koding form&lt;/em&gt;&lt;/p&gt;  &lt;ul type="disc"&gt;&lt;li class="MsoNormal" style=""&gt;Bagian General Procedure,      bagian ini merupakan subrutin maupun fungsi yang dibuat oleh pemakai.      Bagian ini ditandai dengan (General), dan nama subrutin.&lt;/li&gt;&lt;/ul&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1042" type="#_x0000_t75" alt=""  style='width:272.25pt;height:201.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image017.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.9.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image017.gif" v:shapes="_x0000_i1042" border="0" height="269" width="363"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-16&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, bagian general procedure pada jendela koding form&lt;/em&gt;&lt;/p&gt;  &lt;ul type="disc"&gt;&lt;li class="MsoNormal" style=""&gt;Bagian Event Procedure,      bagian ini merupakan subrutin yang digunakan untuk menangani kejadian yang      diakibatkan oleh aksi pemakai terhadap kontrol tertentu. Ditandai dengan      nama kontrol dan jenis eventnya.&lt;/li&gt;&lt;/ul&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1043" type="#_x0000_t75" alt=""  style='width:270.75pt;height:201.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image018.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul2/index.10.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image018.gif" v:shapes="_x0000_i1043" border="0" height="269" width="361"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;i&gt;Gambar 2-17&lt;/i&gt;&lt;/strong&gt;&lt;em&gt;, bagian event procedure pada jendela koding form&lt;/em&gt;&lt;/p&gt;  &lt;h2&gt;Beberapa Event, Metoda, dan Perintah pada Form   &lt;/h2&gt;  &lt;p&gt;Supaya anda dapat bekerja baik dengan objek form, anda perlu mengetahui dan mengerti Event-Event, Metode-Metode serta perintah yang berhubungan dengan pemakaian form.&lt;/p&gt;  &lt;h3&gt;Event Initialize&lt;/h3&gt;  &lt;p&gt;Event ini terjadi pertama kali ketika Form dibuat dari Class-nya dan hanya sekali selama keberadaan form tersebut, Event ini digunakan untuk menginisialisasi nilai awal variabel.&lt;/p&gt;  &lt;h3&gt;Event Terminate&lt;/h3&gt;  &lt;p&gt;Event ini terjadi ketika objek Form akan dimusnahkan dari memori.&lt;/p&gt;  &lt;h3&gt;Event Load &lt;/h3&gt;  &lt;p&gt;Event ini terjadi ketika suatu form di Load. Pada Event procedure ini anda letakkan statement yang digunakan untuk mengatur setting awal form anda, misalnya membuka file, menginisialisasi nilai awal variabel, dan mengatur properti kontrol-kontrol pada form.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub Form_Load() Open "C:\Pemakai.Dat" For Random As #1 Len=Len(DatPemakai) JlhRec = LOF(1) / Len(DatPemakai) If JlhRec &gt; 0 Then    Posisi = 1 Else    Posisi = 0 End If Call Tampil End Sub&lt;/pre&gt;  &lt;h3&gt;Event QueryUnload &lt;/h3&gt;  &lt;p&gt;Event ini terjadi ketika suatu form akan tutup, dan dapat mempelajari bagaimana pemakai menutup form tersebut dengan mempelajari parameter UnloadMode.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub Form_QueryUnload(Cancel As Integer, _&lt;span style=""&gt;     &lt;/span&gt;UnloadMode As Integer)&lt;span style=""&gt;     &lt;/span&gt;Select Case UnloadMode&lt;span style=""&gt;         &lt;/span&gt;Case vbFormControlMenu&lt;span style=""&gt;   &lt;/span&gt;' = 0&lt;span style=""&gt;             &lt;/span&gt;' From diclose oleh pemakai.&lt;span style=""&gt;         &lt;/span&gt;Case vbFormCode&lt;span style=""&gt;          &lt;/span&gt;' = 1&lt;span style=""&gt;             &lt;/span&gt;' Form diclose dengan kode.&lt;span style=""&gt;         &lt;/span&gt;Case vbAppWindows&lt;span style=""&gt;        &lt;/span&gt;' = 2&lt;span style=""&gt;             &lt;/span&gt;' Session windows berakhir.&lt;span style=""&gt;         &lt;/span&gt;Case vbAppTaskManager&lt;span style=""&gt;    &lt;/span&gt;' = 3&lt;span style=""&gt;             &lt;/span&gt;' Task manager mengakhiri program ini.&lt;span style=""&gt;         &lt;/span&gt;Case vbFormMDIForm&lt;span style=""&gt;       &lt;/span&gt;' = 4&lt;span style=""&gt;             &lt;/span&gt;' From ditutup oleh MDI.&lt;span style=""&gt;         &lt;/span&gt;Case vbFormOwner&lt;span style=""&gt;         &lt;/span&gt;' = 5&lt;span style=""&gt;             &lt;/span&gt;' From ditutup oleh Owner.&lt;span style=""&gt;     &lt;/span&gt;End Select End Sub&lt;/pre&gt;  &lt;p&gt;Parameter Cancel dapat digunakan untuk menentukan apakah proses dilanjutkan ke Event UnLoad atau tidak. (0 berarti proses dihentikan, 1 berarti proses dilanjutkan ke Event Unload)&lt;/p&gt;  &lt;h3&gt;&lt;strong&gt;&lt;span style="font-family: Arial;"&gt;Event UnLoad &lt;/span&gt;&lt;/strong&gt;&lt;/h3&gt;  &lt;p&gt;Event ini terjadi ketika suatu form di unload dengan menggunakan command Close pada Control menu atau dengan statement UnLoad. Event ini terjadi setelah Event QueryUnload. Anda dapat mengetikkan kode-kode untuk menutup file-file yang terbuka pada Event ini.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub Form_Unload(Cancel As Integer) Close #1 End Sub&lt;/pre&gt;  &lt;p&gt;Parameter Cancel dapat digunakan untuk menentukan apakah proses UnLoad dilakukan atau tidak. (0 berarti proses UnLoad dilakukan, 1 berarti proses Unload dibatalkan)&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub Form_Unload(Cancel As Integer) Dim nPil As Integer nPil = MsgBox("Apakah Anda Yakin", vbYesNo) If nPil = vbYes Then    Close #1    Cancel = 0 Else    Cancel = 1 End If End Sub&lt;/pre&gt;  &lt;h3&gt;Event Resize &lt;/h3&gt;  &lt;p&gt;Event ini terjadi ketika form pertama kali ditampilkan atau ukuran dari suatu object berubah.&lt;/p&gt;  &lt;p&gt;Contoh : &lt;/p&gt;  &lt;pre&gt;Private Sub Form_Resize ()   'Mengubah ukuran PictureBox menjadi sama dengan ukuran form yang diresize.&lt;/pre&gt;&lt;pre&gt;    Picture1.Move 0,0, ScaleWidth, ScaleHeight&lt;/pre&gt;&lt;pre&gt;End Sub &lt;/pre&gt;  &lt;p&gt;&lt;strong&gt;Catatan : &lt;/strong&gt;&lt;/p&gt;  &lt;p&gt;ScaleWidth, properti yang mengembalikan nilai ukuran lebar interior dari suatu kontrol&lt;/p&gt;  &lt;p&gt;ScaleHeight, properti yang mengembalikan nilai ukuran lebar interior dari suatu kontrol&lt;/p&gt;  &lt;h3&gt;Event Activate &lt;/h3&gt;  &lt;p&gt;Event Activate terjadi ketika suatu form menjadi jendela aktif, ketika user melakukan klik pada form, atau menggunakan metode SHOW atau SETFOCUS.&lt;/p&gt;  &lt;h3&gt;Event DeActivate &lt;/h3&gt;  &lt;p&gt;Event DeActivate terjadi ketika suatu form menjadi jendela yang tidak aktif, dimana ketika focus bergeser ke form lain. Event ini tidak terjadi pada saat UNLOAD.&lt;/p&gt;  &lt;h3&gt;Perintah Load &lt;/h3&gt;  &lt;p&gt;Melakukan Load Form, tetapi tidak membuatnya menjadi Visibel&lt;strong&gt; &lt;/strong&gt;Syntax :&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;Load &lt;/strong&gt;&lt;em&gt;form&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub cmdLoad_Click() Load Form2 End Sub&lt;/pre&gt;  &lt;h3&gt;Metoda Show &lt;/h3&gt;  &lt;p&gt;Melakukan Load suatu Form, dan membuatnya menjadi Visible.&lt;strong&gt; &lt;/strong&gt;Syntax :&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;object&lt;/strong&gt;.&lt;em&gt;Show&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub cmdShow_Click() Form2.Show End Sub&lt;/pre&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt;  &lt;h3&gt;Metoda Hide &lt;/h3&gt;  &lt;p&gt;Menyembunyikan form, tetapi tidak melakukan unload&lt;strong&gt; &lt;/strong&gt;Syntax :&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;object&lt;/strong&gt;.&lt;em&gt;Hide&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub cmdHide_Click() Form2.Hide End Sub&lt;/pre&gt;  &lt;h3&gt;Perintah UnLoad &lt;/h3&gt;  &lt;p&gt;Melakukan UnLoad Form&lt;/p&gt;  &lt;p&gt;Syntax :&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;UnLoad &lt;/strong&gt;&lt;em&gt;form&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;Private Sub cmdUnload_Click() Unload Form2 End Sub&lt;/pre&gt;  &lt;h2&gt;Urutan Event pada Form&lt;/h2&gt;  &lt;p&gt;Secara garis besar Event pada Form adalah sebagai berikut :&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;Initialize&lt;/strong&gt;, hanya sekali yaitu ketika form pertama kali dibuat dari Class-nya&lt;/p&gt;  &lt;p&gt;Load, Activate&lt;/p&gt;  &lt;p&gt;Deactivate&lt;strong&gt; Terminate&lt;/strong&gt;, hanya sekali yaitu ketika form dimusnahkan dari memori.&lt;/p&gt;  &lt;h1&gt;Bahasa Visual Basic Aplication &lt;/h1&gt;  &lt;h2&gt;Konvensi penamaan dalam Visual Basic&lt;/h2&gt;  &lt;p style="text-align: justify;"&gt;Ketika anda menulis Code Visual Basic, anda mendeklarasikan banyak elemen (Sub dan Function procedures, variables, constants,dan lainnya). Nama dari procedure, variabel, dan konstanta yang mana anda deklarasi pada Visual Basic harus mengikuti petunjuk berikut :&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-align: justify; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Harus dimulai dengan suatu Huruf&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-align: justify; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Tidak dapat mengandung titik atau spesial karakter&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-align: justify; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Tidak dapat lebih dari 255 huruf, nama dari control, forms, classes, dan module tidak melebihi 40 karakter.&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-align: justify; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Tidak dapat sama dengan keywords yang tercadang.&lt;/p&gt;  &lt;p&gt;Keyword yang tercadang adalah kata yang Visual Basic gunakan sebagai bagian dari bahasanya. Ini terdiri dari predefined statements (seperti If dan Loop), function (seperti Len dan Abs), dan operator (seperti Or dan Mod).&lt;/p&gt;  &lt;h2&gt;Deklarasi Variabel &lt;/h2&gt;  &lt;p style="margin-left: 54pt; text-align: justify; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Deklarasi variabel pada bagian deklarasi di suatu form, standard, atau class module, dari pada dalam suatu procedure, membuat variabel itu berlaku untuk semua procedure dalam module tersebut&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-align: justify; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Deklarasi variabel dengan menggunakan keyword Public membuatnya berlaku pada keseluruhan aplikasi anda.&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-align: justify; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Deklarasi suatu variabel lokal dengan menggunakanan keyword Static akan menyimpan nilainya ketika suatu procedure berakhir.&lt;/p&gt;  &lt;h3&gt;Deklarasi Implicit &lt;/h3&gt;  &lt;p style="text-align: justify;"&gt;Anda tidak perlu mendeklarasikan suatu variabel sebelum menggunakannya.&lt;/p&gt;  &lt;h3&gt;Deklarasi Explicit &lt;/h3&gt;  &lt;p style="text-align: justify;"&gt;Untuk mencegah kesalahan mengetik variabel, dan Visual Basic akan selalu memberikan peringatan jika menemukan nama yang tidak dideklarasikan terlebih dahulu sebagai suatu variabel.&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;Catatan : &lt;/strong&gt;Pernyataan Option Explicit hanya bekerja per-module, sehingga harus diletakkan pada bagian deklarasi pada setiap form, dan class module yang mana anda ingin Visual Basic memaksakan suatu explicit variabel deklarasi &lt;/p&gt;  &lt;h2&gt;Mengenal Struktur Kendali &lt;/h2&gt;  &lt;p&gt;Struktur kendali memungkinkan anda untuk mengatur jalannya program anda, Jika membiarkan tanpa di periksa oleh statement control-flow, suatu logika program akan berjalan dari kiri ke kanan dan dari atas kebawah. Hanya program yang sangat sederhana dapat ditulis tanpa statement control-flow.&lt;/p&gt;  &lt;h3&gt;Struktur Keputusan &lt;/h3&gt;  &lt;p&gt;Struktur keputusan yang didukung oleh Visual Basic adalah sebagai berikut :&lt;/p&gt;  &lt;h4&gt;If…Then &lt;/h4&gt;  &lt;p&gt;Gunakan suatu struktur &lt;span class="languageelement"&gt;If…Then&lt;/span&gt; untuk menjalankan suatu pernyataan secara kondisional. Anda dapat  menggunakan syntax satu baris ataupun syntax banyak baris :&lt;/p&gt;  &lt;p&gt;&lt;span class="languageelementemphasized"&gt;If &lt;/span&gt;&lt;em&gt;kondisi&lt;/em&gt;&lt;span class="languageelement"&gt; &lt;/span&gt;&lt;span class="languageelementemphasized"&gt;Then&lt;/span&gt;&lt;span class="languageelement"&gt; &lt;/span&gt;&lt;em&gt;pernyataan&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;&lt;span class="placeholder"&gt;atau&lt;/span&gt;&lt;/p&gt;  &lt;p&gt;&lt;span class="languageelementemphasized"&gt;If&lt;/span&gt; &lt;em&gt;kondisi&lt;/em&gt; &lt;span class="languageelementemphasized"&gt;Then&lt;/span&gt;&lt;br /&gt;    &lt;em&gt;pernyataan-pernyataan&lt;/em&gt;&lt;br /&gt;&lt;span class="languageelementemphasized"&gt;End If&lt;/span&gt;&lt;span class="languageelement"&gt; &lt;/span&gt;Kondisi biasanya berupa suatu perbandingan, maupun ekspresi yang menghasilkan nilai numerik. Visual Basic menginterpretasikan False sebagai nol (0), dan True sebagai bukan nol. &lt;/p&gt;  &lt;h4&gt;If…Then…Else &lt;/h4&gt;  &lt;p&gt;Gunakan If…Then…Else untuk mendefinisikan beberapa blok pernyataan yang akan dijalankan salah satu berdasarkan kondisi yang memenuhi syarat&lt;/p&gt;  &lt;p&gt;&lt;span class="languageelementemphasized"&gt;If &lt;/span&gt;&lt;em&gt;kondisi&lt;/em&gt;&lt;span class="placeholder"&gt;&lt;i&gt;1&lt;/i&gt;&lt;/span&gt;&lt;em&gt; &lt;/em&gt;&lt;span class="languageelementemphasized"&gt;Then&lt;/span&gt;&lt;br /&gt;     [&lt;em&gt;blok pernyataan&lt;/em&gt;&lt;span class="placeholder"&gt;&lt;i&gt;-1&lt;/i&gt;&lt;/span&gt;]&lt;br /&gt;[&lt;span class="languageelementemphasized"&gt;ElseIf&lt;/span&gt; &lt;em&gt;kondisi&lt;/em&gt;&lt;span class="placeholder"&gt;&lt;i&gt;2&lt;/i&gt;&lt;/span&gt;&lt;em&gt; &lt;/em&gt;&lt;span class="languageelementemphasized"&gt;Then&lt;/span&gt;&lt;br /&gt;     [&lt;em&gt;blok pernyataan&lt;/em&gt;&lt;span class="placeholder"&gt;&lt;i&gt;-2&lt;/i&gt;&lt;/span&gt;]] …&lt;br /&gt;[&lt;span class="languageelementemphasized"&gt;Else&lt;/span&gt;&lt;br /&gt;     [&lt;em&gt;blok pernyataan&lt;/em&gt;&lt;span class="placeholder"&gt;&lt;i&gt;-n&lt;/i&gt;&lt;/span&gt;]]&lt;/p&gt;  &lt;p&gt;&lt;span class="languageelementemphasized"&gt;End If&lt;/span&gt;&lt;span class="languageelement"&gt; &lt;/span&gt;&lt;/p&gt;  &lt;p&gt;Visual Basic awalnya akan mencoba kondisi1. Jika False, maka Visual Basic akan memeriksa kondisi2, dan seterusnya sampai menemukan suatu kondisi True untuk dijalankan blok pernyataannya.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;pre&gt;If JlhRec &gt; 0 Then    Posisi = 1 Else    Posisi = 0 End If&lt;/pre&gt;  &lt;h4&gt;Select Case &lt;/h4&gt;  &lt;p&gt;Visual Basic menyediakan struktur Select Case sebagai suatu alternatif terhadap &lt;span class="languageelement"&gt;If…Then…Else&lt;/span&gt;. Suatu &lt;span class="languageelement"&gt;Select Case&lt;/span&gt; statement memiliki kemampuan yang sama dengan  If…Then…Else…, tetapi membuat code lebih mudah dibaca.&lt;/p&gt;  &lt;p&gt;Struktur Select Case bekerja dengan suatu percobaan tunggal yang hanya dievaluasi satu kali pada bagian atas struktur. Visual Basic then membandingkan hasil ekspresi dengan nilai pada setiap Case didalam struktur tersebut, jika ada yang sesuai, akan dijalankan blok statement yang sesuai&lt;/p&gt;  &lt;p&gt;&lt;span class="languageelementemphasized"&gt;Select Case &lt;/span&gt;&lt;em&gt;ekspresiyangdicoba&lt;/em&gt;&lt;br /&gt;     [&lt;span class="languageelementemphasized"&gt;Case&lt;/span&gt; &lt;em&gt;ekspresi1&lt;/em&gt;&lt;br /&gt;           [&lt;em&gt;blokpernyataan&lt;/em&gt;&lt;span class="placeholder"&gt;&lt;i&gt;-1&lt;/i&gt;&lt;/span&gt;]]&lt;br /&gt;     [&lt;span class="languageelementemphasized"&gt;Case&lt;/span&gt; &lt;em&gt;ekspresi2&lt;/em&gt;&lt;br /&gt;           [&lt;em&gt;blokpernyataan-2&lt;/em&gt;]]&lt;br /&gt;           …&lt;br /&gt;     [&lt;span class="languageelementemphasized"&gt;Case Else&lt;/span&gt;&lt;br /&gt;           [&lt;em&gt;blokpernyataan-n&lt;/em&gt;]]&lt;/p&gt;  &lt;p&gt;&lt;span class="languageelementemphasized"&gt;End Select&lt;/span&gt;&lt;/p&gt;  &lt;h2&gt;&lt;a href="http://bangdewa.wordpress.com/2007/10/01/hello-world/" title="Taut Tetap ke Pengenalan Visual Basic"&gt;Pengenalan Visual Basic&lt;/a&gt;&lt;/h2&gt;  &lt;p class="postmeta"&gt;{ Oktober 1, 2007 @ &lt;a href="http://bangdewa.wordpress.com/2007/10/01/hello-world/" title="Taut Tetap ke Pengenalan Visual Basic"&gt;8:19 am&lt;/a&gt; } · { &lt;a href="http://id.wordpress.com/tag/visual-basic-uncategorized/" title="Lihat seluruh tulisan dalam Visual Basic"&gt;Visual Basic&lt;/a&gt; }&lt;br /&gt;{ Tags: , &lt;a href="http://id.wordpress.com/tag/pemrograman/"&gt;pemrograman&lt;/a&gt;, &lt;a href="http://id.wordpress.com/tag/programmig/"&gt;programmig&lt;/a&gt;, &lt;a href="http://id.wordpress.com/tag/vb/"&gt;vb&lt;/a&gt;, &lt;a href="http://id.wordpress.com/tag/visual-basic/"&gt;Visual Basic&lt;/a&gt; } · { &lt;a href="http://bangdewa.wordpress.com/2007/10/01/hello-world/#comments" title="Komentar pada Pengenalan Visual Basic"&gt;Komentar (2)&lt;/a&gt; } &lt;/p&gt;  &lt;p&gt;&lt;strong&gt;Visual Basic&lt;/strong&gt; adalah salah suatu developement tools untuk membangun aplikasi dalam lingkungan Windows. Dalam pengembangan aplikasi, Visual Basic menggunakan pendekatan Visual untuk merancang user interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa Basic yang cenderung mudah dipelajari. Visual Basic telah menjadi tools yang terkenal bagi para pemula maupun para developer.&lt;/p&gt;  &lt;p&gt;Dalam lingkungan Window’s &lt;em&gt;User-interface&lt;/em&gt; sangat memegang peranan penting, karena dalam pemakaian aplikasi yang kita buat, pemakai senantiasa berinteraksi dengan User-interface tanpa menyadari bahwa dibelakangnya berjalan instruksi-instruksi program yang mendukung tampilan dan proses yang dilakukan.&lt;/p&gt;  &lt;p&gt;Pada pemrograman Visual, pengembangan aplikasi dimulai dengan pembentukkan &lt;em&gt;user interface&lt;/em&gt;, kemudian &lt;em&gt;mengatur properti dari objek-objek&lt;/em&gt; yang digunakan dalam user interface, dan baru dilakukan &lt;em&gt;penulisan kode program&lt;/em&gt; untuk menangani kejadian-kejadian (event). Tahap pengembangan aplikasi demikian dikenal dengan istilah pengembangan aplikasi dengan &lt;em&gt;pendekatan Bottom Up&lt;/em&gt;.&lt;/p&gt;  &lt;h1&gt;IDE Visual Basic&lt;/h1&gt;  &lt;p&gt;Langkah awal dari belajar Visual Basic adalah mengenal IDE (Integrated Developement Environment) Visual Basic yang merupakan Lingkungan Pengembangan Terpadu bagi programmer dalam mengembangkan aplikasinya. Dengan menggunakan IDE programmer dapat membuat user interface, melakukan koding, melakukan testing dan debuging serta menkompilasi program menjadi executable. Penguasaan yang baik akan IDE akan sangat membantu programmer dalam mengefektifkan tugas-tugasnya sehingga dapat bekerja dengan efisien.&lt;/p&gt;  &lt;h2&gt;&lt;a name="6"&gt;&lt;/a&gt;Menjalankan IDE&lt;/h2&gt;  &lt;p&gt;Salah satu cara untuk mengaktifkan IDE Visual Basic adalah menjalankannya dari Menu &lt;strong&gt;Start&lt;/strong&gt;, pilih menu &lt;strong&gt;Command&lt;/strong&gt;, dan pilih &lt;strong&gt;Microsoft Visual Basic 6.0&lt;/strong&gt; dan akhirnya &lt;strong&gt;Microsoft Visual Basic 6.0&lt;/strong&gt;.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1044" type="#_x0000_t75" alt=""  style='width:169.5pt;height:48pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image019.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/Modul11.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image019.gif" v:shapes="_x0000_i1044" border="0" height="64" width="226"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;Gambar 1-1.&lt;/strong&gt; &lt;em&gt;Mengaktifkan IDE Visual Basic 6.0&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;span style="font-size: 10pt; font-family: Verdana;"&gt;Catatan : &lt;/span&gt;&lt;/strong&gt;&lt;span style="font-size: 10pt; font-family: Verdana;"&gt;Seperti aplikasi Windows umumnya, anda dapat juga mengaktifkan IDE Visual Basic dengan melakukan open terhadap file yang berkaitan dengan Visual Basic, misalnya file *.vbp yang merupakan file project dari Visual Basic.&lt;/span&gt;&lt;/p&gt;  &lt;h2&gt;&lt;a name="7"&gt;&lt;/a&gt;Memilih jenis Project&lt;/h2&gt;  &lt;p&gt;Sesaat anda aktif di IDE Visual Basic, maka anda akan dihadapkan kepada suatu pilihan terhadap jenis Project yang ingin anda buat sebagaimana yang ditunjukan oleh &lt;strong&gt;Gambar 1-2&lt;/strong&gt;.&lt;/p&gt;  &lt;p&gt;Sebagai langkah awal dari proses belajar adalah memilih &lt;strong&gt;project Standard EXE&lt;/strong&gt;.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1045" type="#_x0000_t75" alt=""  style='width:600pt;height:573pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image020.png"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/ide_vi1.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image021.jpg" v:shapes="_x0000_i1045" border="0" height="764" width="800"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;Gambar 1-2.&lt;/strong&gt; &lt;em&gt;Dialog box New Project ditampilkan sesaat anda menjalankan IDE Visual Basic 6.&lt;/em&gt;&lt;/p&gt;  &lt;h2&gt;&lt;a name="8"&gt;&lt;/a&gt;Jendela IDE&lt;/h2&gt;  &lt;p&gt;IDE Visual Basic 6 menggunakan model MDI (Multiple Document Interface). Berikut ini adalah gambar yang menunjukan bagian-bagian dan nama-nama jendela yang dapat tampil pada IDE Visual Basic. Mungkin pada IDE anda hanya ditampilkan sebagian jendela dibandingkan dengan &lt;strong&gt;Gambar 1-3&lt;/strong&gt; anda tidak perlu terkejut, karena penampilan dari jendela-jendela tersebut dapat diatur dengan perintah pada menu View.&lt;/p&gt;  &lt;p&gt;Sebagai langkah awal dari proses belajar, tidak semua jendela akan kita gunakan, tetapi hanya beberapa yang penting, sedangkan yang lainnya bersifat khusus.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1046" type="#_x0000_t75" alt=""  style='width:600pt;height:600pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image022.png"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/ide_vi2.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image023.jpg" v:shapes="_x0000_i1046" border="0" height="800" width="800"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;Gambar 1-3.&lt;/strong&gt; &lt;em&gt;IDE Visual Basic dengan jendela-jendela yang terbuka. &lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Sebagaimana dengan proses belajar ini, kita akan fokus pada beberapa jendela yang penting terlebih dahulu sehingga konsentrasi tidak menjadi pecah, dan peserta belajar menjadi bingung. Adapun jendela-jendela yang perlu anda perhatikan adalah sebagai berikut :&lt;/p&gt;  &lt;ul type="disc"&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Menu Bar&lt;/em&gt;,      digunakan untuk memilih tugas-tugas tertentu seperti menyimpan project,      membuka project, dll&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Main Toolbar&lt;/em&gt;,      digunakan untuk melakukan tugas-tugas tertentu dengan cepat.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Jendela Project&lt;/em&gt;,      jendela ini berisi gambaran dari semua modul yang terdapat dalam aplikasi      anda. Anda dapat menggunakan icon Toggle Folders untuk menampilkan      modul-modul dalam jendela tersebut secara di group atau berurut berdasarkan      nama. Anda dapat menggunakan Ctrl+R untuk menampilkan jendela project,      ataupun menggunakan icon Project Explorer.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Jendela Form Designer&lt;/em&gt;,      jendela ini merupakan tempat anda untuk merancang user interface dari      aplikasi anda. Jadi jendela ini menyerupai kanvas bagi seorang pelukis.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Jendela Toolbox&lt;/em&gt;,      jendela ini berisi komponen-komponen yang dapat anda gunakan untuk      mengembangkan user interface.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Jendela Code&lt;/em&gt;,      merupakan tempat bagi anda untuk menulis koding. Anda dapat menampilkan      jendela ini dengan menggunakan kombinasi Shift-F7.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Jendela Properties&lt;/em&gt;,      merupakan daftar properti-properti object yang sedang terpilih. Sebagai      contohnya anda dapat mengubah warna tulisan (foreground) dan warna      latarbelakang (background). Anda dapat menggunakan F4 untuk menampilkan      jendela properti.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Jendela Color Palette&lt;/em&gt;,      adalah fasilitas cepat untuk mengubah warna suatu object.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Jendela Form Layout,&lt;/em&gt;      akan menunjukan bagaimana form bersangkutan ditampilkan ketika runtime.&lt;/li&gt;&lt;/ul&gt;  &lt;p&gt;Jika jendela-jendela tersebut tidak ada, anda dapat memunculkannya dengan &lt;strong&gt;Menu View&lt;/strong&gt; dan pilih :&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Project Explorer (Ctrl+R)&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Properties Windows (F4)&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Form Layout Windows&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Property Pages (Shift+F4)&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Toolbox&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;Color Pallete&lt;/p&gt;  &lt;ul type="disc"&gt;&lt;li class="MsoNormal" style=""&gt;&lt;span style="font-size: 10pt;"&gt;Toolbars&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;  &lt;h2&gt;&lt;a name="11"&gt;&lt;/a&gt;Toolbox&lt;/h2&gt;  &lt;p&gt;Jendela Toolbox merupakan jendela yang sangat penting bagi anda. Dari jendela ini anda dapat mengambil komponen-komponen (object) yang akan ditanamkan pada form untuk membentuk user interface.&lt;/p&gt;  &lt;p&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1047" type="#_x0000_t75" alt=""  style='width:295.5pt;height:552pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image024.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/ide_vi3.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image024.gif" v:shapes="_x0000_i1047" border="0" height="736" width="394"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;Gambar 1-3.&lt;/strong&gt; &lt;em&gt;Toolbox Visual Basic 6 dengan semua kontrol intrinsic.&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Adapun secara garis besar fungsi dari masing-masing intrinsic kontrol tersebut adalah sebagai berikut :&lt;/p&gt;  &lt;ul type="disc"&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Pointer&lt;/em&gt; bukan      merupakan suatu kontrol; gunakan icon ini ketika anda ingin memilih      kontrol yang sudah berada pada form.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;PictureBox&lt;/em&gt;      adalah kontrol yang digunakan untuk menampilkan image dengan format: BMP,      DIB (bitmap), ICO (icon), CUR (cursor), WMF (metafile), EMF (enhanced      metafile), GIF, dan JPEG.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Label&lt;/em&gt; adalah      kontrol yang digunakan untuk menampilkan teks yang tidak dapat diperbaiki      oleh pemakai.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;TextBox&lt;/em&gt; adalah      kontrol yang mengandung string yang dapat diperbaiki oleh pemakai, dapat      berupa satu baris tunggal, atau banyak baris.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Frame&lt;/em&gt; adalah      kontrol yang digunakan sebagai kontainer bagi kontrol lainnya.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;CommandButton&lt;/em&gt;      merupakan kontrol hampir ditemukan pada setiap form, dan digunakan untuk      membangkitkan event proses tertentu ketika pemakai melakukan klik padanya.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;CheckBox&lt;/em&gt;      digunakan untuk pilihan yang isinya bernilai yes/no, true/false.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;OptionButton&lt;/em&gt;      sering digunakan lebih dari satu sebagai pilihan terhadap beberapa option      yang hanya dapat dipilih satu.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;ListBox&lt;/em&gt;      mengandung sejumlah item, dan user dapat memilih lebih dari satu      (bergantung pada property &lt;em&gt;MultiSelect&lt;/em&gt;).&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;ComboBox&lt;/em&gt;      merupakan konbinasi dari TextBox dan suatu ListBox dimana pemasukkan data      dapat dilakukan dengan pengetikkan maupun pemilihan.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;HScrollBar&lt;/em&gt; dan &lt;em&gt;VScrollBar&lt;/em&gt;      digunakan untuk membentuk scrollbar berdiri sendiri.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Timer&lt;/em&gt; digunakan      untuk proses background yang diaktifkan berdasarkan interval waktu      tertentu. Merupakan kontrol non-visual.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;DriveListBox&lt;/em&gt;, &lt;em&gt;DirListBox&lt;/em&gt;,      dan &lt;em&gt;FileListBox&lt;/em&gt; sering digunakan untuk membentuk dialog box yang      berkaitan dengan file.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Shape&lt;/em&gt; dan&lt;strong&gt;      &lt;/strong&gt;&lt;em&gt;Line&lt;/em&gt; digunakan untuk menampilkan bentuk seperti garis,      persegi, bulatan, oval.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Image&lt;/em&gt; berfungsi      menyerupai image box, tetapi tidak dapat digunakan sebagai kontainer bagi      kontrol lainnya. Sesuatu yang perlu diketahui bahwa kontrol image      menggunakan resource yang lebih kecil dibandingkan dengan PictureBox&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;Data&lt;/em&gt; digunakan      untuk &lt;em&gt;data binding&lt;/em&gt;&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;&lt;em&gt;OLE&lt;/em&gt; dapat      digunakan sebagai tempat bagi program eksternal seperti Microsoft Excel,      Word, dll.&lt;/li&gt;&lt;/ul&gt;  &lt;h2&gt;Mengatur Lingkungan Kerja Visual Basic &lt;/h2&gt;  &lt;p&gt;Pengaturan IDE Visual Basic dapat dilakukan dengan menu Tools, Option, pengaturan dapat dilakukan sesuai dengan selera dan kebiasaan programmer sehingga dapat bekerja dengan baik dan efektif. Mulai Visual Basic 5.0, IDE Visual Basic memperkenalkan MDI Developement Environment, dan beberapa hal dapat diatur dengan menggunakan menu Tools, Option adalah sebagai berikut : &lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;strong&gt;Mengatur Editor&lt;/strong&gt;&lt;/p&gt;  &lt;p style="margin-left: 54pt;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape id="_x0000_i1048"  type="#_x0000_t75" alt="" style='width:600pt;height:507.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image025.png"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/Modul21.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image026.jpg" v:shapes="_x0000_i1048" border="0" height="677" width="800"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;strong&gt;Mengatur Format Editor&lt;/strong&gt;&lt;/p&gt;  &lt;p style="margin-left: 18pt; text-indent: -18pt;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape  id="_x0000_i1049" type="#_x0000_t75" alt="" style='width:600pt;height:507.75pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image027.png"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/Modul22.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image028.jpg" v:shapes="_x0000_i1049" border="0" height="677" width="800"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;strong&gt;Mengatur hal-hal yang General&lt;/strong&gt;&lt;/p&gt;  &lt;p style="margin-left: 18pt; text-indent: -18pt;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape  id="_x0000_i1050" type="#_x0000_t75" alt="" style='width:313.5pt;height:265.5pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image029.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/Modul23.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image029.gif" v:shapes="_x0000_i1050" border="0" height="354" width="418"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;strong&gt;Mengatur Docking Jendela&lt;/strong&gt;&lt;/p&gt;  &lt;p style="margin-left: 18pt; text-indent: -18pt;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape  id="_x0000_i1051" type="#_x0000_t75" alt="" style='width:313.5pt;height:265.5pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image029.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/Modul23.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image029.gif" v:shapes="_x0000_i1051" border="0" height="354" width="418"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;strong&gt;Mengatur Environment&lt;/strong&gt;&lt;/p&gt;  &lt;p style="margin-left: 18pt; text-indent: -18pt;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape  id="_x0000_i1052" type="#_x0000_t75" alt="" style='width:313.5pt;height:265.5pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image029.gif"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/Modul23.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image029.gif" v:shapes="_x0000_i1052" border="0" height="354" width="418"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;p style="margin-left: 54pt; text-indent: -18pt;"&gt;&lt;!--[if !supportLists]--&gt;&lt;span style="font-size: 10pt; font-family: Symbol;"&gt;&lt;span style=""&gt;·&lt;span style="font-family: &amp;quot;Times New Roman&amp;quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"&gt;         &lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;!--[endif]--&gt;&lt;strong&gt;Mengatur SDI Development Environment atau MDI&lt;/strong&gt;&lt;/p&gt;  &lt;p style="margin-left: 18pt; text-indent: -18pt;"&gt;&lt;!--[if gte vml 1]&gt;&lt;v:shape  id="_x0000_i1053" type="#_x0000_t75" alt="" style='width:600pt;height:265.5pt'&gt;  &lt;v:imagedata src="file:///C:\DOCUME~1\polbeng\LOCALS~1\Temp\msohtml1\01\clip_image027.png"   o:href="http://www.geocities.com/indoprog/tutorial/vb/Modul1/Modul20.gif"/&gt; &lt;/v:shape&gt;&lt;![endif]--&gt;&lt;!--[if !vml]--&gt;&lt;img src="file:///C:/DOCUME%7E1/polbeng/LOCALS%7E1/Temp/msohtml1/01/clip_image030.jpg" v:shapes="_x0000_i1053" border="0" height="354" width="800"&gt;&lt;!--[endif]--&gt;&lt;/p&gt;  &lt;h1&gt;Bahasa Visual Basic Aplication &lt;/h1&gt;  &lt;p&gt;Dasar dari pemrograman pada Visual Basic adalah VBA yang menggunakan dialek Basic. Bagi anda yang pernah belajar bahasa Basic, tidak akan sulit untuk belajar VBA.&lt;/p&gt;  &lt;h2&gt;Type Variabel&lt;/h2&gt;  &lt;p&gt;Dibandingkan dengan type data yang terdapat pada bahasa basic, maka pada VBA, type data yang disediakan lebih banyak, seperti type Currency, Decimal, Object, dan Variant.. Variant merupakan type variabel yang istimewa, karena dapat berubah dari satu type ke type yang lain, sesuai dengan evaluasi ekspresi oleh Visual Basic.&lt;/p&gt;  &lt;p&gt;Ketepatan pemilihan type variabel akan sangat menentukan pemakaian resources oleh aplikasi yang dihasilkan, adalah tugas programmer untuk memilih type yang sesuai untuk menghasilkan program yang efisien dan berperfomance tinggi.&lt;/p&gt;  &lt;table class="MsoNormalTable" style="width: 100%;" border="0" cellpadding="0" width="100%"&gt;  &lt;tbody&gt;&lt;tr style=""&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Type   Data &lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Ukuran   Storage&lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Jangkuan&lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;1 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;0 s/d   255&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Boolean&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;2 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;True   atau False&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Integer&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;2 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;-32,768   s/d 32767&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Long&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;4 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;-2,147,483,648   s/d 2,147,483,647&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Single&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;4 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;-3.402823E38   s/d -1.401298E-45 (-)&lt;br /&gt;  1.401298E-45 s/d 3.402823E38 (+) &lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Double&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;8 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;-1.79769313486232E308   s/d -4.94065645841247E-324 (-)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Currency&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;8 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;-922,337,203,685,477.5808   s/d 922,337,203,685,477.5807&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Decimal&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;14 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;+/-79,228,162,514,264,337,593,543,950,335&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Date&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;8 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;1   Januari 100 s/d 31 Desember 9999&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Object&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;4 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Mengacu   pada objek tertentu&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;String   (panjang variabel)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;10 byte   + panjang string&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;0 sampai   lebih kurang 2 milyar&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;String   (panjang tetap)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;panjang   dari string&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;1 sampai   lebih kurang 65,400&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Variant   (dengan angka)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;16 byte&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Sembarang   angka sampai jangkauan jenis Double&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Variant   (dengan karakter)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;22 byte   + panjang string&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Sama   dengan jangkauan variabel String&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt; &lt;/tbody&gt;&lt;/table&gt;  &lt;p style="text-align: center;" align="center"&gt;&lt;strong&gt;Tabel 1-1.&lt;/strong&gt; &lt;em&gt;Type variabel, pemakaian storage dan jangkauan masing-masing&lt;/em&gt;&lt;/p&gt;  &lt;h2&gt;&lt;strong&gt;Operator Pada Visual Basic dan urutan operasinya&lt;/strong&gt;&lt;/h2&gt;  &lt;p&gt;Visual basic meyediakan operator aritmatika, komparasi dan logika, salah satu hal yang harus dipahami oleh programmer adalah tata urutan operasi dari masing-masing operator tersebut sehingga mampu membuat ekspresi yang akan menghasilkan nilai yang benar, Tabel 1-2, menunjukkan operator dan urutan operasinya dari atas kebawah.&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 36pt;"&gt;A = 1 + 2 * 3 ‘Akan menghasilkan 7 &lt;/p&gt;  &lt;p class="MsoNormal" style="margin-left: 36pt;"&gt;B = (1 + 2) * 3 ‘Akan menghasilkan 9 &lt;/p&gt;  &lt;table class="MsoNormalTable" style="width: 100%;" border="0" cellpadding="0" width="100%"&gt;  &lt;tbody&gt;&lt;tr style=""&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Aritmatika&lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Komparasi&lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Logika&lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Pangkat   (^)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Sama (=)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Not&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Negatif   (-)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Tidak   sama (&lt;&gt;)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;And&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Kali dan   Bagi (*, /)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Kurang   dari (&lt;)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Or&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Pembagian   bulat (\)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Lebih   dari (&gt;)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Xor&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Sisa   Bagi (Mod)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Kurang   dari atau sama (&lt;=)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Eqv&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Tambah   dan Kurang (+,-)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Lebih   dari atau sama (&gt;=)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Imp&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Pengabungan   String (&amp;amp;)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Like&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt; &lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt; &lt;/tbody&gt;&lt;/table&gt;  &lt;p style="text-align: center;" align="center"&gt;&lt;strong&gt;Tabel 1-2.&lt;/strong&gt; &lt;em&gt;Operator pada Visual Basic dan urutan operasi dari atas ke bawah&lt;/em&gt;&lt;/p&gt;  &lt;h3&gt;Operator Like &lt;/h3&gt;  &lt;p&gt;Salaj satu operator yang menarik untuk dibahas adalah operator like, Operator digunakan untuk operasi pencocokan pola pada string yang akan sangat membantu programmer.&lt;/p&gt;  &lt;p&gt;Syntax :&lt;/p&gt;  &lt;p&gt;result = string Like pattern&lt;/p&gt;  &lt;table class="MsoNormalTable" style="width: 100%;" border="0" cellpadding="0" width="100%"&gt;  &lt;tbody&gt;&lt;tr style=""&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Karakter   dalam pola&lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Penyamaan   dalam string&lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;?&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Sembarang   karakter tunggal&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;*&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Nol atau   lebih karakter&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;#&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Sembarang   digit tunggal (0-9)&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;[charlist]&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Sembarang   karakter yang berada dalam charlist&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;[!charlist]&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Sembarang   karakter yang tidak berada dalam charlist&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt; &lt;/tbody&gt;&lt;/table&gt;  &lt;p style="text-align: center;" align="center"&gt;&lt;strong&gt;Tabel 1-3.&lt;/strong&gt; &lt;em&gt;Character dalam pencocokan pola pada operator Like&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Contoh :&lt;/p&gt;  &lt;ul type="disc"&gt;&lt;li class="MsoNormal" style=""&gt;MyCheck = “aBBBa” Like      “a*a” ‘ Returns True.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;MyCheck = “F” Like “[A-Z]“      ‘ Returns True.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;MyCheck = “F” Like      “[!A-Z]“ ‘ Returns False.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;MyCheck = “a2a” Like “a#a”      ‘ Returns True.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;MyCheck = “aM5b” Like      “a[L-P]#[!c-e]“ ‘ Returns True.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;MyCheck = “BAT123khg” Like      “B?T*” ‘ Returns True.&lt;/li&gt;&lt;li class="MsoNormal" style=""&gt;MyCheck = “CAT123khg” Like      “B?T*”&lt;/li&gt;&lt;/ul&gt;  &lt;h2&gt;Deklarasi Variabel &lt;/h2&gt;  &lt;p&gt;Visual Basic memungkinkan kita untuk menggunakan variabel tanpa deklarasi. Tetapi hal ini adalah kurang baik untuk program yang terstruktur dan menghindari kesalahan pengolahan yang diakibatkan oleh kesalahan dalam pengetikkan nama variabel.&lt;/p&gt;  &lt;p&gt;Agar setiap variabel yang digunakan harus dideklarasikan, dapat digunakan perintah :&lt;/p&gt;  &lt;p&gt;Option Explicit&lt;/p&gt;  &lt;p&gt;Pada setiap awal module, atau pada menu Tools, pilih Option, pilih tab Editor, buat tanda check pada Require Variable Declaration.&lt;/p&gt;  &lt;p&gt;Deklarasi variabel pada Visual Basic dapat dilakukan dengan Keyword berikut :&lt;/p&gt;  &lt;table class="MsoNormalTable" style="width: 100%;" border="0" cellpadding="0" width="100%"&gt;  &lt;tbody&gt;&lt;tr style=""&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Keyword&lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt; background: rgb(255, 255, 204) none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"&gt;   &lt;p class="MsoNormal"&gt;&lt;strong&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Digunakan   pada&lt;/span&gt;&lt;/strong&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Public&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Berlaku   pada level modul&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Private&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Berlaku   pada level modul&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Dim&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Berlaku   pada level modul dan level procedure&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt;  &lt;tr style=""&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Static&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;   &lt;td style="padding: 0.75pt;"&gt;   &lt;p class="MsoNormal"&gt;&lt;span style="font-size: 7.5pt; font-family: Verdana;"&gt;Berlaku   pada level procedure&lt;/span&gt;&lt;/p&gt;   &lt;/td&gt;  &lt;/tr&gt; &lt;/tbody&gt;&lt;/table&gt;  &lt;p style="text-align: center;" align="center"&gt;&lt;strong&gt;Tabel 1-4.&lt;/strong&gt; &lt;em&gt;Keyword pada deklarasi variabel&lt;/em&gt;&lt;/p&gt;  &lt;p&gt;Syntax :&lt;/p&gt;  &lt;p&gt;&lt;strong&gt;&lt;keyword&gt;&lt;/strong&gt; NamaVariabel [&lt;strong&gt;As&lt;/strong&gt; TypeVariabel]&lt;/p&gt;  &lt;p class="MsoNormal"&gt;&lt;o:p&gt; &lt;/o:p&gt;&lt;/p&gt; &lt;br /&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/1466025725844441013-5766015824177392260?l=visual-basic-programer.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://visual-basic-programer.blogspot.com/feeds/5766015824177392260/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/04/pemahama-visual-basic.html#comment-form' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/5766015824177392260'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/5766015824177392260'/><link rel='alternate' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/04/pemahama-visual-basic.html' title=''/><author><name>SIDIQ</name><uri>http://www.blogger.com/profile/04388612547264386612</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='32' height='24' src='http://1.bp.blogspot.com/_MUSwCV6XAUQ/SfVlVxxSIGI/AAAAAAAAACE/jz8LiwLQiyM/S220/Last+style.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-1466025725844441013.post-808545985053921829</id><published>2009-02-12T19:06:00.000-08:00</published><updated>2009-02-12T19:27:40.521-08:00</updated><title type='text'>dasar2 visual basic....</title><content type='html'>&lt;a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://2.bp.blogspot.com/_MUSwCV6XAUQ/SZTkj9RELaI/AAAAAAAAAB4/1FUZktHAYNs/s1600-h/logo+visual+basic.jpg"&gt;&lt;img style="margin: 0pt 10px 10px 0pt; float: left; cursor: pointer; width: 126px; height: 97px;" src="http://2.bp.blogspot.com/_MUSwCV6XAUQ/SZTkj9RELaI/AAAAAAAAAB4/1FUZktHAYNs/s200/logo+visual+basic.jpg" alt="" id="BLOGGER_PHOTO_ID_5302113967714610594" border="0" /&gt;&lt;/a&gt;&lt;span style="color: rgb(153, 0, 0); font-weight: bold;font-family:&amp;quot;;font-size:85%;"   lang="EN-US"&gt;&lt;span style="color: rgb(255, 255, 0);"&gt;&lt;span style="color: rgb(51, 51, 255); font-style: italic;"&gt;&lt;span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;b style="font-weight: bold;"&gt;&lt;span style="font-family: &amp;quot;Trebuchet MS&amp;quot;;" lang="EN-US"&gt;&lt;span style=""&gt; &lt;/span&gt;&lt;/span&gt;&lt;/b&gt;&lt;span style="font-size: 11pt; font-family: &amp;quot;Trebuchet MS&amp;quot;;" lang="EN-US"&gt;&lt;span style="color: rgb(0, 0, 0); font-style: italic;"&gt;&lt;span style="font-weight: bold;"&gt;D&lt;/span&gt;alam pemograman visual banyak istilah da konsep yang mneyebut “sesuatu” yang membentuk aplikasi. Istilah-istilah tersebut memiliki arti yang sama dalam lingkungan pemograman visual yang lain, seperti misalnya objek, property dan event. Pemograman event-driven telah ada sebelum GUI (Graphical User Interface) dibuat dan diimplementasikan dalam beberapa cara. Dengan diperkenalkannya mouse pemograman event driven banyak disukai oleh para pemakai dan perancang program. Sebelum ada pemograman event driven, pemograman top-down digunakan untuk membuat kode yang menangani banyak pemrosesan. Selain itu aplikasi yang dirancang dengan teknik ini mudah untuk diperbaiki, disamping kodenya menjadi luwes. Namun aplikasi yang dibuat dengan metode ini biasanya memiliki menu yang kompleks yang tergabung erat pada proses yang ada dalam program.&lt;/span&gt;&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;  &lt;p class="MsoNormal" style="text-align: justify;"&gt;&lt;span style="font-size: 11pt; font-family: &amp;quot;Trebuchet MS&amp;quot;;" lang="EN-US"&gt;&lt;span style=""&gt;        &lt;span style="color: rgb(0, 102, 0);"&gt;  &lt;/span&gt;&lt;/span&gt;&lt;span style="font-style: italic; color: rgb(0, 102, 0);font-size:100%;" &gt;Pemograman event driven tidak mencoba menggantikan pemograman prosedural, namun melengkapi dengan kerangka yang dapat membedakan antara user interface dan proses tertentu dalam aplikasi. Ms. Visual Basic dan aplikasi event-driven lainnya menyediakan kerangka tersebut sehingga akan lebih terkonsentrasi pada masalah aplikasi.&lt;/span&gt;&lt;o:p style="font-style: italic;"&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="text-align: justify; text-indent: 36pt; font-style: italic; color: rgb(102, 255, 153);"&gt;&lt;span style="font-size: 11pt; font-family: &amp;quot;Trebuchet MS&amp;quot;;" lang="EN-US"&gt;Microsoft Visual Basic 6.0 merupakan bahasa pemograman yang bekerja dalam ruang lingkup Ms-Windows. Microsoft Visual Basic 6.0 hampir dapat memanfaatkan seluruh kemudahan dan kecanggihan yang dimiliki oleh sistem operasi windows, secara umum kemampuan visual basic 6.0 adalah menyediakan komponen-komponen yang memungkinkan untuk membuat program aplikasi yang sesuai dengan tampilan dan cara kerja windows.&lt;o:p&gt;&lt;/o:p&gt;&lt;/span&gt;&lt;/p&gt;  &lt;p class="MsoNormal" style="text-align: justify;"&gt;&lt;span style="font-size: 11pt; font-family: &amp;quot;Trebuchet MS&amp;quot;;" lang="EN-US"&gt;&lt;!--[if !supportEmptyParas]--&gt;&lt;br /&gt;&lt;/span&gt;&lt;/p&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/1466025725844441013-808545985053921829?l=visual-basic-programer.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://visual-basic-programer.blogspot.com/feeds/808545985053921829/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/02/dasar2-visual-basic.html#comment-form' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/808545985053921829'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/808545985053921829'/><link rel='alternate' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/02/dasar2-visual-basic.html' title='dasar2 visual basic....'/><author><name>SIDIQ</name><uri>http://www.blogger.com/profile/04388612547264386612</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='32' height='24' src='http://1.bp.blogspot.com/_MUSwCV6XAUQ/SfVlVxxSIGI/AAAAAAAAACE/jz8LiwLQiyM/S220/Last+style.jpg'/></author><media:thumbnail xmlns:media='http://search.yahoo.com/mrss/' url='http://2.bp.blogspot.com/_MUSwCV6XAUQ/SZTkj9RELaI/AAAAAAAAAB4/1FUZktHAYNs/s72-c/logo+visual+basic.jpg' height='72' width='72'/><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-1466025725844441013.post-6543598197531174185</id><published>2009-01-29T20:02:00.000-08:00</published><updated>2009-01-29T20:11:05.850-08:00</updated><title type='text'></title><content type='html'>&lt;div&gt;&lt;a href="http://2.bp.blogspot.com/_MUSwCV6XAUQ/SYJ83aLUn9I/AAAAAAAAABg/fXvnglILfjo/s1600-h/novell.jpg"&gt;&lt;img id="BLOGGER_PHOTO_ID_5296933403102584786" style="FLOAT: left; MARGIN: 0px 10px 10px 0px; WIDTH: 99px; CURSOR: hand; HEIGHT: 109px" alt="" src="http://2.bp.blogspot.com/_MUSwCV6XAUQ/SYJ83aLUn9I/AAAAAAAAABg/fXvnglILfjo/s200/novell.jpg" border="0" /&gt;&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;&lt;div&gt;&lt;font color="#009900"&gt;hay gays... mau tau pasal apa itu orang katakan tu VB...mau tau...mau belajar tau...mau bikin program sendiri....semua itu gampank ko'' .,,,asal mau belajarr..cheehh....&lt;/font&gt;&lt;/div&gt;&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/1466025725844441013-6543598197531174185?l=visual-basic-programer.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://visual-basic-programer.blogspot.com/feeds/6543598197531174185/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/01/hay-gays.html#comment-form' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/6543598197531174185'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/1466025725844441013/posts/default/6543598197531174185'/><link rel='alternate' type='text/html' href='http://visual-basic-programer.blogspot.com/2009/01/hay-gays.html' title=''/><author><name>SIDIQ</name><uri>http://www.blogger.com/profile/04388612547264386612</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='32' height='24' src='http://1.bp.blogspot.com/_MUSwCV6XAUQ/SfVlVxxSIGI/AAAAAAAAACE/jz8LiwLQiyM/S220/Last+style.jpg'/></author><media:thumbnail xmlns:media='http://search.yahoo.com/mrss/' url='http://2.bp.blogspot.com/_MUSwCV6XAUQ/SYJ83aLUn9I/AAAAAAAAABg/fXvnglILfjo/s72-c/novell.jpg' height='72' width='72'/><thr:total>0</thr:total></entry></feed>
