DASAR-DASAR PEMOGRAMAN VISUAL BASIC 6.0

<div class="post-body entry-content" id="post-body-7409060759292497064" itemprop="description articleBody" style="font-family: 'Cherry Cream Soda'; font-size: 14px; line-height: 1.5; position: relative; width: 618px;"><div style="text-align: center;"><span style="background-color: #eeeeee;"><br /><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZqWni1pwGHUrSheDsd64i7XpcuREG1uFzRfdE3eTs9EW-p4bzoj_tNNB_Ii5acsdSIvFE8fqDh1hOmk3ZtILIMxYsMUoy1yV1bTxmMCVCUP_H1KlGNRqcoYc9ZksLz8IIMJhICx6yux-Y/s1600/vb6logo.jpg" /></span><br /><span style="background-color: #eeeeee;">DASAR-DASAR PEMOGRAMAN <span class="s606dtda32" id="s606dtda32_3" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-align: left; text-decoration: underline;">VISUAL BASIC</span> 6.0</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Dalam 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, <span class="s606dtda32" id="s606dtda32_7" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-align: left; text-decoration: underline;">property</span> dan event. Pemograman event-driven telah ada sebelum GUI (<span class="s606dtda32" id="s606dtda32_1" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-align: left; text-decoration: underline;">Graphical User Interface</span>) 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.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Pemograman <span class="s606dtda32" id="s606dtda32_4" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-align: left; text-decoration: underline;">event driven</span> 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.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><span class="s606dtda32" id="s606dtda32_2" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-align: left; text-decoration: underline;">Microsoft Visual Basic</span> 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.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">- TAMPILAN DASAR VISUAL BASIC 6.0</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Pada tahap awal pemakaian VB 6.0 sebaiknya diatur tampilan untuk komponen-komponen yang ada dalam VB 6.0 tersebut. Komponen-komponen yang tidak muncul pada layar dapat ditampilkan pada menu View. Pemograman visual merupakan dimensi baru dalam pembuatan aplikasi karena dapat langsung menggambarkan objek-objek kelayar sebelum dieksekusi. Dalam lingkungan pengembangan visual, sekarang objek yang anda buat hasilnya langsung tampil dilayar. Objek yang dibuat itu akan sama hasilnya pada saat program dijalankan. Dengan demikian tidak perlu lagi melakukan pengubahan kode program secara manual. Setelah semua objek diletakkan dalam suatu form, amak semua atribut obejk tersebut akan disimpan dalam suatu kode program yang dapat langsung dijalankan.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Tampilan untuk ms. visual basic 6.0 terdiri dari beberapa <span class="s606dtda32" id="s606dtda32_5" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-align: left; text-decoration: underline;">interface</span> yang saling berhubungan yaitu :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Bagian menu program</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Bagian toolbar</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Bagian <span class="s606dtda32" id="s606dtda32_8" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-align: left; text-decoration: underline;">toolbox</span></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Bagian jendela properties</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Bagian form</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Bagian jendela proyek</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Bagian jendela lay-out</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Kesemua bagian yang ada diatas terdapat lengkap ketika akan memulai menggunakan ms visual basic 6.0.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Tampilan lengkapnya terlihat seperti pada <span class="s606dtda32" id="s606dtda32_6" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-align: left; text-decoration: underline;">gambar</span> dibawah ini :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Gambar 1.1 Tampilan dasar Visual Basic 6.0</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">- KOMPONEN-KOMPONEN DALAM VISUAL BASIC 6.0</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Ada beberapa komponen yang secara langsung sering terlibat dalam pembuatan program menggunakan visual basic 6.0. Komponen-komponen tersebut diantaranya adalah :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">1. 1.     Project</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Pertama kali ketika program menggunakan visual basic akan digunakan maka komponen project yang akan diload, selanjutnya adalah menambah form-form atau membuat modul atau mungkin membuat kode program, secara lebih sederhana posisi project dalam setiap komponen yang ada adalah seperti terlihat pada gambar dibawah ini</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">2. 2.     Form</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Form digunakan ketika akan meletakkan object-object apa saja yang akan digunakan dalam program, object-object yang terdapat dalam toolbox, diletakkan dan didesain dalam bagian form. Form sebenarnya adalah suatu objek yang dipakai sebagai tempat bekerja program aplikasi, secara otomatisakan tersedia form yang baru bila membuat program aplikasi yang baru, yaitu dengan nama form1. Umumnya dalam suatu form terdapat garis titik-titik yang disebut dengan Grid.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Gambar 1.3. Form Kosong.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">3. 3.     ToolBox</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Toolbox adalah kotak alat yang berisi icon-icon untuk memasukkan objek tertentu ke dalam jendela form. Toolbox tersebut dapat dimodifikasi misalnya menambah komponen icon dengan cara melakukan klik kanan pada toolbox  lalu memilih Components atau Add Tab.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">4. 4.     Properties</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Property digunakan untuk menentukan setting suatu objek. Suatu objek biasanya mempunyai beberapa property yang dapat diatur langsung dari jendela properties atau lewat kode program.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Dalam property antara lain didapatkan informasi mengenai warna, tinggi, lebar dan posisi sebuah objek. Nilai pada tiap property dapat mempengaruhi cara objek ditampilkan atau cara objek bekerja, bagi sebuah objek property mirip dengan variabel lokal dalam prosedur. Property langsung berkaitan dengan objek dan digunakan oleh proses-proses yang ada dalam objek.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">5. 5.     Kode Program</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Kode program adalah serangkaian tulisan perintah yang akan dilaksanakan jika suatu objek dijalankan. Kode program ini akan mengontrol dan menentukan jalannya suau objek.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">6. 6.     Event</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Event adalah pristiwa atau kejadian yang diterima oleh suatu objek misalnya klik, drag, tunjuk dan lainnya. Contohnya terlihat dibawah ini :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private sub command1_click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"> ……..</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"> …….</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Pada contoh program diatas, event yang terjadi adalah event click, yaitu ketika suatu aobjek dilakukan click maka akan muncul suatu aksi apa dari akibat dari proses click tersebut. Object yang diclick pada contoh program diatas adalah object command button.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">7. 7.     Metode</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Metode adalah suatu set perintah seperti halnya fungsi dan prosedur, tetapi sudah tersedia didalam suatu objek. Metode biasanya akan mengerjakan suatu tugas khusus pada suatu objek. Perhatikan contoh program dibawah ini :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private sub Command1_click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">  Text1.text =”Hallo.. Saya mahasiswa STMIK-CIC”</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Pada contoh program diatas terlihat bahwa yang disebut metode adalah yang muncul ketika object textbox diberi tanda titik, text1.text  artinya pada object textbox yang namanya text1 akan muncul tulisan “ Hallo… Saya mahasiswa STMIK CIC”, ketika event click dilakukan pada object command button.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">8. 8.     Module</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Module dapat disejajarkan dengan form, tetapi tidak mengandung object. Module dapat berisi kode-kode program atau procedure yag dapat digunakan dalam program aplikasi.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><span style="background-color: #eeeeee;"><br /></span><div style="text-align: justify;"><span style="background-color: #eeeeee;">II. TYPE DATA Dalam Ms. Visual Basic 6.0</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Microsoft Visual Basic menyediakan beberapa type data seperti integer, Long, Single, Double, Currency, String, Byte, Boolean, Date, Object dan variant.</span></div><span style="background-color: #eeeeee;"><br /></span><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    VARIABEL</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Variabel adalah tempat dalam memori komputer yang diberi nama (sebagai pengenal) dan dialokasikan untuk menampung data. Sesuai data yang ditampung maka variabel harus mempunyai tipe data yang sesuai dengan isinya.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Untuk mendeklarasikan suatu variabel digunakan dua perintah :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Pertama dengan menggunakan perintah-perintah DIM, PRIVATE, STATIC, dan PUBLIC yaitu mendeklarasikan nama variabel beserta type datanya pada awal procedure.</span></div><span style="background-color: #eeeeee;"><br /></span><div style="text-align: justify;"><span style="background-color: #eeeeee;">RUANG LINGKUP VARIABEL</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Ruang lingkup variabel (variabel scope) adalah ruang atau daerah dimana variabel yang dibuat dikenal. Ada variabel yang dapat dikenal diseluruh bagian (proyek), ini yang dinamakan dengan variael global dan hidup selama program berjalan, tetapi ada juga variabel yang hanya dikenal di procedure atau fungsi tempat variabel tersebut dibuat dan hidup hanya selama procedure atau fungsi tersebut berjalan, ini yang disebut dengan variabel lokal.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Suatu variabel yang dideklarasikan dalam ruang lingkup yang paling dalam yaitu procedure maka variabel tersebut hanya dikenal dan dapat dipakai pada procedure yang bersangkutan.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private sub command1_click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Dim Nama as string</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Dim Alamat as string</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Static No as integer</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">……………..</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Perbedaan antara perintah Dim dengan static adalah jika anda mendeklarasikan variabel dalam procedure  dengan perintah dim maka variabel tersebut hanya dikenal selama procedure masih berjalan, sedang jika menggunakan perintah static maka variabel tersebut hanya dikenali selama program aplikasi masih berjalan.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Perbedaan lain antara perintah Private dan Public adalah jika private prinsipnya sama dengan Dim sedang jika dideklarasikan dengan perintah Public maka variabel tersebut akan mempunyai level global, artinya dapat dikenali pada seluruh modul, form atau procedure yang terdapat pada program aplikasi yang bersangkutan. Contoh deklarasi level modul atau form dan level global, seperti berikut ini :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   </span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Public judul as string * 80</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Private bilangan as integer</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Dim harga as single</span></div><div style="color: #5b5b5b; text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Aturan penulisan variabel :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Panjang maksimum 63 karakter</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Harus diawali sebuah huruf atau garis bawah ( _ )</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Karakter selanjutnya dapat berupa huruf, garis bawah ( _ ) atau angka dari angka 0 sampai angka 9.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Tidak boleh mengandung karakter khusus seperti &, %, *, dan sebagainya.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    Tidak boleh menggunakan reserved word milik visual basic 6.0</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    OPERATOR</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operator adalah suatu tanda yang digunakan untuk menghubungkan satu variabel atau konstanta dengan variabel atau konstanta lain dengan tujuan melakukan berbagai manipulasi dan pengolahan data. Pada Ms. Visual Basic 6.0 terdapat bermacam-macam operator :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operator Penugasan (assignment)</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Operator penugasan ditimbulkan dengan tanda sama dengan (=) dan berfungsi untuk memasukkan suatu data ke dalam suatu variabel.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"> A = 12</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Text1.text = “STMIK CIC”</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"> A = A+1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operator Aritmatika</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Operator aritmatika digunakan untuk melakukan operasi aritmatika. Operator aritmatika mempunyai hirarki paling tinggi dibanding operator pembanding dan operator logika. Penulisan operator aritmatika dengan hirarki dari paling tinggi ke paling rendah, sebagai berikut :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operator</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operasi</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">^</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Pemangkatan</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Tanda Negatif</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">* , /</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Perkalian & Pembagian</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">\</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Pembagian Integer</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Mod</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Modulus (Sisa hasil bagi)</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">+, -</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Penambahan dan Pengurangan</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">+, &</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Penggabungan String</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">            A = (2+3) * 5, B = 78 mod 8</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operator Pembanding</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Operator pembanding digunakan untuk membandingkan suatu data (ekspresi) dengan data (ekspresi) lain dan menghasilkan nilai logika (boolean) Benar atau salah. Tentu saja antara kedua data yang dibandingkan harus mempunyai tipe data yang sama.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Bentuk dari operator relasional/pembanding seperti yang terpampang pada tabel berikut :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operator</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operasi</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">=</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Sama dengan</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Tidak sama dengan</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">< ,>, <=,>=</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Lebih kecil, lebih besar, lebih kecil sama dengan, lebih besar sama dengan</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Like</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Mempunyai ciri yang sesuai</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Is</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Sama referensi objek</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"> 3 > 2 atau  2 +3 = 5, “abc” = “ab”+ “c”</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operator Pembanding</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Operator logika digunakan untuk mengekspresikan satu atau lebih data (ekspresi) logika (boolean) yang menghasilkan data logika baru. Tabel operator logika dengan hierarki dari atas ke bawah adalah sebagai berikut :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Operator</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Keterangan</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Not</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Tidak</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">And, Or,Xor</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Dan, Atau, Exclusive Or</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Eqv</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Equivalen</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Imp</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Implikasi</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    X > 2 and X < 6, X = 2 or x = 7 dst</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Latihan :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">1. Buatlah program untuk menampilkan Tulisan “SAYA MAHASISWA STMIK-CIC” dengan menggunakan tombol command button.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">a. Jika Anda menekan tombol</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">b. Normal, maka tulisan ditampilkan dengan huruf normal</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">c. Tebal,maka tulisan ditampilkan dengan huruf tebal.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">d. Miring, maka tulisan ditampilkan dengan huruf miring.</span></div><div style="text-align: justify;"></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">III. KONTROL PROGRAM</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   </span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Ada banyak perintah di visual basic 6.0. yang digunakan untuk mengontrol jalannya program yang akan dibuat, fungsi kontrol program ini dibentuk dengan logika pemograman yang nantinya akan berguna sebagai validasi terhadap data-data yang masuk maupun yang keluar dari program tersebut.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Pencabangan On Error …</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Pencabangan ini dipakai untuk penangan kesalahan (error) dalam program. Bentuk penulisannya ada tiga macam, yaitu :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-          On Error goto <baris></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-          On Error Resume Next</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-          On Error Goto 0</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">On error Goto < baris> menyebabkan penanganan error aktif, sehingga jika terjadi kesalahan program maka kesalahan yang terjadi tersebut akan menunjuk ke <baris> untuk proses selanjutnya.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"> Private sub command1_click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"> On Error goto Salah</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">  ……..</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">  ……..</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">  ……..</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"> Salah :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Msgbox “ Pesan Kesalahan “</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End Sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Kesalahan apapun yang terjadi, baik kesalahan dalam program maupun kesalahan dalam logika pemograman, maka kesalahan tersebut tidak akan terlihat dimana letak kesalahannya karena kesalahan apapun yang muncul maka kesalahan tersebut akan memunculkan tulisan pada baris <salah></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Sedangkan, On Error Resume Next menyebabkan jika terjadi kesalahan, program akan melanjutkan ke perintah yang mengikuti (dibawah) perintah yang salah.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private sub command1_click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   On Error Resume Next</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">      Msgbox “ Pesan dikerjakan setelah mengabaikan error “</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    On Error Goto 0 menyebakan perangkap kesalahan yang sebelumnya dipasang menjadi tidak aktif (membatalkan penanganan kesalahan).</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private sub Command1_click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">  On Error Goto 0</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   Msgbox “ Jika Error lanjutkan ke baris berikutnya “</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Statement End dipakai untuk memaksa kontrol program berhenti dari suatu procedure atau suatu blok program, beberapa contoh bentuk pernyataan End.. adalah sebagai berikut :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    End</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Statement End biasanya digunakan untuk mengakhiri penggunaan suatu program, misalkan pada program terdapat suatu tombol command button bercaption “Keluar” maka isi untuk perintah command button kelaur tersebut adalah dengan “End”.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    ‘Dalam tombol Keluar</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Private sub cmdKeluar_click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">      End</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    End Function</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Jika dalam program menggunakan function, terutama function yang akan dibentuk sendiri, maka diakhiri penulisan function tersebut harus ditutup dengan end function.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Private function Tambah(a,b as integer) as integer</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">       Tambah = a + b</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End function</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    End if</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Ekpresi end if biasanya digunakan untuk mengakhiri penggunaan ekpresi if.. then.. else…, setiap perintah if harus ditutupi atau diakhiri dengan end if</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Private sub cmdOK_click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">       If  text1.text = 2 then</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">        Msgbox “nilainya dua”</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">       Else</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">           Msgbox “ nilainya selain dua”</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">      Endif</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    End sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   </span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Ekspresi if diatas akan menunjukkan jika nilai yang terdapat dalam object text box bernilai 2, maka akan muncul tulisan pesan “nilainya dua” selain itu muncul tulisan “nilainya selain dua”.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    End Property</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End property biasanya digunakan ketika akan bekerja dengan menggunakan class.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    End Select</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Salah satu pernyataan pencabangan yang bersyarat adalah menggunakan Select case, diakhir pernyataan tersebut jangan lupa dituliskan End Select yang menyatakan akhir dari pencabangan tersebut.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Select Case Text1.Text</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Case "1"</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    MsgBox "Data anda satu"</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Case "2"</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    MsgBox "Data anda dua"</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End Select</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    End Sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Setiap objek yang diletakkan dalam sebuah form akan membentuk suatu modul atau procedure sendiri, proses selanjutnya tergantung dari event yang akan dilakukan dengan objek tersebut. Diakhir pendeklarasian sebuah modul harus ditutupi dengan End Sub.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Private Sub Command1_Click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">        …….</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">        …….</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">        ……</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    End Sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    End Type</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Pendeklarasian End Type digunakan jika mendeklarasikan sekumpulan data bertype record data, dan disetiap akhir pendeklarasian tersebut harus diakhiri dengan End Type.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">  Type DATASISWA</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">     NIM  as string</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">     NAMA as string</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">     Alamat as string</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">  End Type</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">-    End With</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Pendeklarasian End With digunakan jika kita ingin mengakhiri penggunaan with diawal sebuah pendeklarasian, perintah with dan end with dapat digunakan untuk menyingkat suatu penulisan objek yang berulang-ulang. Contoh berikut menyatakan object textbox yang digunakan dan beberapa atribut yang digunakan dalam object tersebut.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    With Text1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">       .text = “Sani”</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">       .Font = Arial</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   .FontBold = True</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   .FontSize = 15</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End with</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Komentar Program</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Komentar dapat ditambahkan pada suatu baris program dengan menuliskan tanda petik satu ( ‘ ) didepan statement yang ingin dinyatakan sebagai suatu komentar, sifat kometar ini tidak akan dikerjakan dan hanya sebagai komentar bagi program dan  visual basic tidak akan menganggapnyanya sebagai kode sehingga tidak akan dijalankan.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private Sub Command1_click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    A = 3        ‘ Set nilai A=3</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    B = 5           ‘Set Nilai B = 5</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">         C = A+B       ‘ Nilai A dan B akan ditambahkan dan disimpan dalam variabel C.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End Sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">IV.KONSEP DASAR PROGRAM</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Dalam program yang kompleks akan selalu ditemukan adanya percabangan dan perulangan. Sebagai contoh misalnya jika suatu keadaan A akan terjadi maka kerjakan statement B, tetapi jika tidak kerjakan statement C. Kondisi ini dapat dipandang sebagai hubungan sebab akibat, dimana keadaan A dapat disebut penyebab dan pekerjaan B sebagai akibat 1 serta pekerjaan C sebagai akibat 2 dan seterusnya. Dengan menggunakan Visual Basic, proses percabangan dapat dilakukan dengan statement if dan case sedangkan perulangan dalam ms. Visual basic dapat dilakukan dengan menggunaan statement Repeat, While dan for. Berikut ini akan diuraikan secara satu persatu yang dsertai dengan contoh dan latihan :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">·   Pencabangan bersyarat If… Then</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Dalam hampir semua program yang komplek mengandung suatu penyeleksi kondisi. Dengan menyeleksi suau kondisi, program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari hasil kondisi yang diseleksi tersebut. Untuk menyeleksi suatu kondisi, didalam visual basic dapat dipergunakan statement If dan statement Select … case.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   </span></div><div style="text-align: justify;"></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Bentuk dari struktur if – then  adalah sebagai berikut :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">If Ungkapan then statement</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Ungkapan adalah kondisi yang akan diseleksi oleh statement if. Bila kondisi yang diseleksi terpenuhi, maka statement yang mengikuti Then akan diproses. Sebaliknya, bila kodisi tidak terpenuhi.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">·   Pencabangan bersyarat Select Case</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Struktur Select Case mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statement yang diawali dengan suatu label permasalahan (case label) yang mempunyai type sama dengan selector. Statement yang mempunyai case label bernilai sama dengan nilai selector akan diproses sedang statement lainnya tidak. Perbedaan dengan struktur if adalah bila statement if menyeleksi suatu kondisi yang terpenuhi, setelah memproses statement dalam lingkungan yang terpenuhi tersebut, proses penyeleksian masih dilakukan terhadap statement if berikutnya yang lain, sedang pada struktur SELECT CASE bila salah satu kondisi terpenuhi (nilai case label sama dengan nilai selector) dan statement tersebut telah diproses, selanjutnya statement-statement yang lainnya dalam lingkungan CASE tidak akan diseleksi lagi.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Bentuk umum struktur SELECT CASE adalah sebagai berikut :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">SELECT CASE ungkapan</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    CASE Daftar case-label1    Statement1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    CASE Daftar case-label2    Statement2</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    CASE Daftar case-label3    Statement3</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    …………..</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    CASE Daftar case-labeln    Statementn</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">END SELECT</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><span style="background-color: #eeeeee;"><br /></span><div style="text-align: justify;"><span style="background-color: #eeeeee;">·   Pengulangan For … Next</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Salah satu proses yang hampir selalu ada didalam pemograman adalah proses berulang (looping). Proses looping adalah suatu proses dimana komputer akan mengeksekusi satu atau lebih statement berulang kali sesuai kebutuhan. Perulangan dengan for .. next merupakan salah satu struktur perulangan yang sering terdapat pad abanyak bahas pemograman, perulangan for..next menggunakan suatu variabel yang disebut counter untuk melakukan penambahan secara otomatis, sesuai dengan nilai awal dari variabel tersebut.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Perulangan dengan for digunakan untuk mengulang statement atau satu blok statement berulang kali, sejumlah yang ditentukan.</span></div><div style="text-align: justify;"></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Perulangan dengan penghitung (counter) dari kecil ke besar dengan kata lain penambahannya positif. Dalam visual basic syntaknya adalah sebagai berikut :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">For variabel kontrol = Nilai Awal to Nilai Akhir  do</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Statement</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Next variabel kontrol</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">        For I = 1 to 10 do</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">           ………</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">           ……..</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">        Next I   </span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   </span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Bentuk penulisan statement for .. Next yang lain yaitu penempatan for dalam for atau yang disebut dengan nested for. Contoh bentuk penulisannya seperti dibawah ini :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private sub Form_Activate()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Dim k as integer, l as integer</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">For k = 1 to 3</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   For L = 10 to 5 step –1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"> Form1.print L</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   Next L</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Next K</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">·   Pengulangan Do .. Loop</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Perintah Do …Loop mengeksekusi seperangkat blok dalam statement selama suatu kondisi perulangan tersebut benar. Visual basic akan mengevaluasi suatu ekspresi dan jika benar maka terdapat statement-statement tertentu yang dikerjakan. Dan jika salah, maka program akan berlanjut dan statement yang ada diluar loop yang akan dieksekusi.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Terdapat dua variasi dari Do…Loop dan keduanya tetap menggunakan model standar dari Do…loop, suatu loop akan dieksekusi selama suatu kondisi benar atau sampai suatu kondisi yang dideklarasikan menjadi true. Dua variasi dari Loop ini menggunakan kata kunci While dan Until yang akan menspesifikasikan berapa lama suatu statement akan dieksekusi.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Untuk mengeksekusi seperangkat statement selama suatu kondisi benar, dapat menggunakan syntak berikut :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Do While Kondisi</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Statement-Blok</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Loop</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Sedangkan untuk mengeksekusi seperangkat block sampai suatu kondisi tertentu menjadi True dapat menggunakan syntak berikut :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Do until kondisi</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Statement-Block</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Loop</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Penggunaannya didalam visual basic seperti berikut ini :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private sub Form_Activate()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Dim angka as integer</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Angka =1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Do while Angka <= 10</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Form1.Print Angka</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Angka = Angka +1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   Loop</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End Sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Jika program diatas dijalankan maka loop yang terjadi adalah selama nilai dari variabel angka <= 10 maka angka-angka tersebut akan ditulis, kemudian lewat suatu counter angka, nilainya diset bertambah menjadi satu.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Bentuk lain dari Do … Loop :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private sub Form_Activate()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Dim angka as integer</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Angka =1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Do </span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Form1.Print Angka</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Angka = Angka +1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   Loop until Angka >=10</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">End Sub</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">  </span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">PROSES INPUT/OUTPUT</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Perintah proses INPUT/OUTPUT sangat bergantung kepada bentuk perlakuan data. Untuk penulisan yang berorientasi pada baris, Kita dapat menggunakan perintah PRINT, sedangkan jika berorentasi pada data maka menggunakan perintah WRITE.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Syntax :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">      PRINT #nomor_file,daftar_list/variabel</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">      WRITE #nomor_file [,daftar_list]</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    WRITE #1,”D0B92395”,”ROMY”,80,90</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Artinya menulis ke file nomor 1, dan data dapat dibaca kembali dengan perintah :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    INPUT #1,NPM,NAMA,UTS,UAS</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Catatan :</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Kita dapat menggunkaan fungsi bantu EOF(nomor_file) untuk memeriksa apakah berada diposisi akhir file.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">PROSES CLOSE</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Untuk menutp file dapat digunakan perintah CLOSE</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Syntax  :  CLOSE #nomor_file</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Contoh  :  CLOSE #1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Artinya :  menutup file nomor 1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">CONTOH PROGRAM</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Program berikut akan membuat file MyFile di directory C:\ dengan nama file Myfile.dat. Jika di jalankan maka program tersebut akan menyimpan teks apapun yang dituliskan pada textbox ke dalam file myFile.dat.</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">    Sebagai latihan coba baris Open “c:\MyFile.dat” For Output As #1 diganti dengan Open “c:\MyFile.dat” For Append As #1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">‘LISTING PROGRAM 1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">‘-----------------------------</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Private Sub Command1_Click()</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   Dim data As String</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   data = Text1.Text</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   Open “c:\MyFile.dat” For Output As #1</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">   Print #1, data</span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;"><br /></span></div><div style="text-align: justify;"><span style="background-color: #eeeeee;">Semoga Bermanfaat :)</span></div></div>

DASAR-DASAR PEMOGRAMAN  VISUAL BASIC  6.0     Dalam pemograman visual banyak istilah da konsep yang mneyebut “sesuatu” yang membentuk aplika...

Cara Membuat Program Aplikasi Kasir dengan VB 6.0

<div class="separator" style="background-color: white; clear: both; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 22.399999618530273px; margin: 0px; padding: 0px; text-align: center;"><a href="http://3.bp.blogspot.com/-r20G8kN244I/T9oZoqqhimI/AAAAAAAABQ0/Q11W9HrYtVQ/s1600/cara+membuat+aplikasi+kasir+dengan+vb6.jpg" imageanchor="1" style="clear: left; color: #1a74ba; float: left; font-weight: bold; margin: 0px 1em 1em 0px; outline: none; padding: 0px; text-decoration: none;"><img alt="Cara Membuat Program Aplikasi Kasir dengan VB6" border="0" height="312" src="http://3.bp.blogspot.com/-r20G8kN244I/T9oZoqqhimI/AAAAAAAABQ0/Q11W9HrYtVQ/s320/cara+membuat+aplikasi+kasir+dengan+vb6.jpg" style="border: 0px; margin: 0px; max-width: 590px; padding: 0px;" title="Cara Membuat Program Aplikasi Kasir dengan VB6" width="320" /></a></div><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Pada <span class="s606dtda32" id="s606dtda32_6" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-decoration: underline;">tutorial</span> ini anda akan belajar bagaimana </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">membuat aplikasi client server menggunakan visual basic dan MYSQL</b><span class="Apple-style-span" style="background-color: white; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><span style="color: #444444;"> </span></span><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">dengan </span><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><b style="margin: 0px; padding: 0px;">Pos</b></span><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><b style="margin: 0px; padding: 0px;"> Software </b>. Dimana implemantasinya nanti, aplikasi kasir yang dibuat akan terpisah dengan database.</span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><a href="" name="more" style="background-color: white; color: #1a74ba; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; font-weight: bold; line-height: 22.399999618530273px; margin: 0px; outline: none; padding: 0px;"></a><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Database akan ditempatkan pada sebuah server dan aplikasi dapat ditempatkan pada beberapa komputer client. Untuk pengembangan / pembuatan aplikasinya sendiri dapat dilakukan di komputer lokal terlebih dahulu. Adapun yang anda perlukan pada tutorial ini, yaitu </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">visual basic</b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">, </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">MYSQL</b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">, dan Mysql <span class="s606dtda32" id="s606dtda32_8" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-decoration: underline;">Connector</span>-ODBC. MYSQL dan MYSQL Connector ODBC dapat anda <span class="s606dtda32" id="s606dtda32_7" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-decoration: underline;">download</span> di www.mysql.com. MYSQL Connector ODBC dibutuhkan agar dapat melakukan koneksi database MYSQL dari VB</span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Setelahnya semuanya terinstall mulailah membuat database MYSQL beserta tabel - tabelnya. Buatlah sebuah database dengan nama </span><i style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><b style="margin: 0px; padding: 0px;">kasir</b></i><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">, </b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">dan buat 5 tabel seperti di bawah:</span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Tabel user_login</b><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><br /><table border="0" cellpadding="0" style="background-color: white; border-collapse: collapse; border: 1px solid rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><tbody style="margin: 0px; padding: 0px;"><tr style="margin: 0px; padding: 0px;"><td align="center" bgcolor="#0099cc" height="24" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;"><b style="margin: 0px; padding: 0px;">Field</b></td><td align="center" bgcolor="#0099cc" height="24" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Tipe Data</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">user_login_id</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">varchar(50) *</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">user_name</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">varchar(100)</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">user_psw</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">varchar(20)</td></tr></tbody></table><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Tabel product </b><br /><table border="0" cellpadding="0" style="background-color: white; border-collapse: collapse; border: 1px solid rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><tbody style="margin: 0px; padding: 0px;"><tr style="margin: 0px; padding: 0px;"><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;"><b style="margin: 0px; padding: 0px;">Field</b></th><th bgcolor="#0099cc" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Tipe Data</th></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">product_id</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">varchar(40) *</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">product_name</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">varchar(100)</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">price</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">double</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">stock</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">integer</td></tr></tbody></table><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Tabel transaksi </b><br /><table border="0" cellpadding="0" style="background-color: white; border-collapse: collapse; border: 1px solid rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><tbody style="margin: 0px; padding: 0px;"><tr style="margin: 0px; padding: 0px;"><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;"><b style="margin: 0px; padding: 0px;">Fields</b></th><th bgcolor="#0099cc" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;"><b style="margin: 0px; padding: 0px;">Tipe Data</b></th></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">no_transaksi</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">integer (<span class="s606dtda32" id="s606dtda32_3" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-decoration: underline;">auto increment</span>) *</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">tgl_transaksi</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">datetime</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">total_barang</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">integer</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">total_harga</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">double</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">kasir</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">varchar(50)</td></tr></tbody></table><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Tabel detail_transaksi </b><br /><table border="0" cellpadding="0" style="background-color: white; border-collapse: collapse; border: 1px solid rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><tbody style="margin: 0px; padding: 0px;"><tr style="margin: 0px; padding: 0px;"><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;"><b style="margin: 0px; padding: 0px;">Fields</b></th><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Tipe Data</th></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">no_transaksi</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">integer</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">product_id</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">varchar(40)</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">jumlah</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">integer</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">harga_satuan</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">double</td></tr></tbody></table><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Tabel transaksi_temp </b><br /><table border="0" cellpadding="0" style="background-color: white; border-collapse: collapse; border: 1px solid rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><tbody style="margin: 0px; padding: 0px;"><tr style="margin: 0px; padding: 0px;"><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;"><b style="margin: 0px; padding: 0px;">Fields</b></th><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Tipe Data</th></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">no_transaksi</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">integer</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">product_id</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">varchar(40)</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">jumlah</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">integer</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">harga_satuan</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">double</td></tr></tbody></table><div style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><b style="margin: 0px; padding: 0px;">* Primary Key</b></div><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Tabel user_login digunakan untuk menyimpan data pengguna aplikasi, tabel product digunakan untuk menyimpan <span class="s606dtda32" id="s606dtda32_2" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-decoration: underline;">data product</span> yang dijual. Tabel transaksi untuk menyimpan data transaksi dan tabel detail_transaksi untuk menyimpan detail dari transaksi yang dilakukan. Sedangkan tabel traksaksi_temp digunakan untuk mencatat secara sementara detail traksaksi yang dilakukan, setelah transaksi selesai dilakukan baru dipindahkan ke tabel transaksi.</span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Setelah database dan kasir selesai dibuat tambahkan data (insert data) pada tabel user dengan data berikut:</span><br /><table border="0" cellpadding="0" style="background-color: white; border-collapse: collapse; border: 1px solid rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><tbody style="margin: 0px; padding: 0px;"><tr style="margin: 0px; padding: 0px;"><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;"><b style="margin: 0px; padding: 0px;">user_login_id</b></th><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">user_name</th><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">user_psw</th></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">admin</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Administrator</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">admin</td></tr></tbody></table><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">langkah selanjutnya adalah mempersiapkan koneksi ke database. Ikutilah langkah-langkah di bawah ini.</span><br /><ol style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 5px 0px 5px 20px; padding: 0px;"><li style="margin: 5px 0px 5px 10px; padding: 0px; position: relative;">Buka <b style="margin: 0px; padding: 0px;">control panel</b>, double klik pada <b style="margin: 0px; padding: 0px;">Administrative Tools</b>, kemudian double klik pada Data Sources (ODBC). Dan akan muncul window kurang lebih seperti berikut: <br style="line-height: 14px; margin: 0px; padding: 0px;" /><img alt="Data Sources (ODBC)" height="284" src="http://www.myphptutorials.com/app/webroot/userfiles/images/odbc1.jpg" style="border-left-color: rgb(204, 204, 204); border-right-color: rgb(204, 204, 204); border-style: solid; border-top-color: rgb(204, 204, 204); margin: 0px; max-width: 590px; padding: 4px;" width="350" /></li><li style="margin: 5px 0px 5px 10px; padding: 0px; position: relative;">Klik pada System DSN, dan klik tombol Add, dan akan muncul window seperti berikut:<br style="line-height: 14px; margin: 0px; padding: 0px;" /><img alt="System DNS" height="286" src="http://www.myphptutorials.com/app/webroot/userfiles/images/odbc2.jpg" style="border-left-color: rgb(204, 204, 204); border-right-color: rgb(204, 204, 204); border-style: solid; border-top-color: rgb(204, 204, 204); margin: 0px; max-width: 590px; padding: 4px;" width="350" /></li><li style="margin: 5px 0px 5px 10px; padding: 0px; position: relative;">Pilih MySQL ODBC 3.5.1 Driver, dan klik tombol Finish, dan akan tampil window berikut :<br style="line-height: 14px; margin: 0px; padding: 0px;" /><img alt="Connector / ODBC" height="337" src="http://www.myphptutorials.com/app/webroot/userfiles/images/odbc3.jpg" style="border-left-color: rgb(204, 204, 204); border-right-color: rgb(204, 204, 204); border-style: solid; border-top-color: rgb(204, 204, 204); margin: 0px; max-width: 590px; padding: 4px;" width="400" /></li><li style="margin: 5px 0px 5px 10px; padding: 0px; position: relative;">Kemudian isi form di atas dengan data seperti berikut:<br style="line-height: 14px; margin: 0px; padding: 0px;" /><img alt="Connector-ODBC" height="342" src="http://www.myphptutorials.com/app/webroot/userfiles/images/odbc4.jpg" style="border-left-color: rgb(204, 204, 204); border-right-color: rgb(204, 204, 204); border-style: solid; border-top-color: rgb(204, 204, 204); margin: 0px; max-width: 590px; padding: 4px;" width="400" /></li><li style="margin: 5px 0px 5px 10px; padding: 0px; position: relative;">Klik tombol <span class="s606dtda32" id="s606dtda32_4" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-decoration: underline;">Test</span>, jika muncul kotak dialog yang menyatakan sukses, tekan OK dan tekan OK sekali lagi.</li></ol><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Setelah selesai sekarang anda telah siap untuk membuat Aplikasi KASIR..</span><br /><h3 style="background-color: white; color: #cc6600; font-family: Arial; font-size: 24px; font-weight: normal; letter-spacing: -0.5px; line-height: 1.4em; margin: 0.25em 0px 0px; padding: 0px 0px 4px;">Membuat Form Utama Administrator dan Form Login</h3><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Buka microsoft <span class="s606dtda32" id="s606dtda32_1" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; list-style: none; margin: 0px; padding: 0px; text-decoration: underline;">visual basic</span> anda dan buat </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Standar EXE project. </b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Setelah project dibuat akan langsung terbentuk sebuah form. Tambahkan label dan tombol serta atur propertiesnya seperti berikut :</span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><img alt="Admin Form" height="184" src="http://www.myphptutorials.com/app/webroot/userfiles/images/formadmin.jpg" style="background-color: white; border-left-color: rgb(204, 204, 204); border-right-color: rgb(204, 204, 204); border-style: solid; border-top-color: rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; max-width: 590px; padding: 4px;" width="350" /><br /><table border="0" cellpadding="0" style="background-color: white; border-collapse: collapse; border: 1px solid rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><tbody style="margin: 0px; padding: 0px;"><tr style="margin: 0px; padding: 0px;"><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;"><b style="margin: 0px; padding: 0px;">Komponent</b></th><th bgcolor="#0099cc" height="24" style="background-color: #edeff0; border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Properties</th></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Form1</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Name : main_form<br style="line-height: 14px; margin: 0px; padding: 0px;" />Caption : Administration</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Label1</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Caption : Welcome,</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Label2</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Name : label_user<br style="line-height: 14px; margin: 0px; padding: 0px;" />Caption : User</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Command1</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Name : btn_user<br style="line-height: 14px; margin: 0px; padding: 0px;" />Caption : User</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Command2</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Name : btn_product<br style="line-height: 14px; margin: 0px; padding: 0px;" />Caption : Product</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Command3</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Name : btn_trans<br style="line-height: 14px; margin: 0px; padding: 0px;" />Caption : Transaksi</td></tr><tr style="margin: 0px; padding: 0px;"><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Command4</td><td bgcolor="#eeeeee" style="border: 1px solid rgb(204, 204, 204); margin: 0px; padding: 0px; vertical-align: top;">Name : btn_report<br style="line-height: 14px; margin: 0px; padding: 0px;" />Caption : Report</td></tr></tbody></table><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Setelah diatur propertinya maka hasilnya adalah seperti berikut:</span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><img alt="Admin Form" height="187" src="http://www.myphptutorials.com/app/webroot/userfiles/images/adminfrom.jpg" style="background-color: white; border-left-color: rgb(204, 204, 204); border-right-color: rgb(204, 204, 204); border-style: solid; border-top-color: rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; max-width: 590px; padding: 4px;" width="350" /><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Admin Form</b><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Kemudian Buat Form baru dengan cara, klik Menu Project, Add Form. Akan tampil window </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Add Form</b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"> dan pilih </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Log In Dialog</b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"> serta klik tombol open. Hasilnya seperti di bawah: </span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><img alt="Login Form" height="132" src="http://www.myphptutorials.com/app/webroot/userfiles/images/loginform.jpg" style="background-color: white; border-left-color: rgb(204, 204, 204); border-right-color: rgb(204, 204, 204); border-style: solid; border-top-color: rgb(204, 204, 204); color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; max-width: 590px; padding: 4px;" width="254" /><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Form Login</b><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Sekarang buka notepad dan ketik kode di bawah:</span><br /><div style="background-color: white; border: 1px solid black; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">[Data]<br style="line-height: 14px; margin: 0px; padding: 0px;" />DB=kasir<br style="line-height: 14px; margin: 0px; padding: 0px;" />SERVER=localhost<br style="line-height: 14px; margin: 0px; padding: 0px;" />Uid=root<br style="line-height: 14px; margin: 0px; padding: 0px;" />Password=root</div><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Kemudian simpan di direktori </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">c:\windows</b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"> dengan nama </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">koneksi.ini, </b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">file koneksi.ini berfungsi untuk menyimpan data yang diperlukan untuk koneksi ke database. Pada bagian </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">DB</b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"> berisi nama database yang akan digunakan, </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">SERVER </b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">berisi IP address Server tempat database disimpan (untuk sementara gunakan lokalhost). </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Uid </b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">berisi database user name dan </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Password</b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">adalah password database.</span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Sekarang Kembali ke Editor Visual Studio. Pilih Menu Project, Add Module untuk membuat module. Pada window Add Module klik Open. </span><a href="http://www.myphptutorials.com/app/webroot/userfiles/files/module1.zip" linkindex="40" rel="nofollow" style="background-color: white; color: #c6524e; font-family: Arial; font-size: 14px; font-weight: bold; line-height: 23px; margin: 0px; outline: none; padding: 0px; text-decoration: none;" target="_blank">Download File berikut ini</a><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">, kemudian copy dan paste isi file tersebut pada module yang sedang dibuat. Setelah selesai simpan module tersebut. Kemudian Klik menu Project, References dan akan muncul window project reference. Centang pada bagian </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Micosoft ActiveX Data Objects 2.0 </b><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Library </b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">dan tekan tombol OK.</span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Sekarang beralih ke form login, double click pada tombol OK, Hapus script yang telah ada dan ganti dengan script di bawah:</span><br /><div style="background-color: white; border: 1px solid black; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Private Sub cmdOK_Click()<br style="line-height: 14px; margin: 0px; padding: 0px;" />Call Koneksi<br style="line-height: 14px; margin: 0px; padding: 0px;" />Dim RS As ADODB.Recordset<br style="line-height: 14px; margin: 0px; padding: 0px;" />Set RS = New ADODB.Recordset<br style="line-height: 14px; margin: 0px; padding: 0px;" />Dim SQL As String<br style="line-height: 14px; margin: 0px; padding: 0px;" />'query untuk login<br style="line-height: 14px; margin: 0px; padding: 0px;" />SQL = "select * from user_login where user_login_id='" & txtUserName.Text & "'"<br style="line-height: 14px; margin: 0px; padding: 0px;" />'membuka koneksi ke databse<br style="line-height: 14px; margin: 0px; padding: 0px;" />RS.CursorLocation = adUseClient<br style="line-height: 14px; margin: 0px; padding: 0px;" />RS.Open SQL, conn, adOpenDynamic, adLockOptimistic<br style="line-height: 14px; margin: 0px; padding: 0px;" />'cek kebenaran user_login_id<br style="line-height: 14px; margin: 0px; padding: 0px;" />If (RS.RecordCount > 0) Then<br style="line-height: 14px; margin: 0px; padding: 0px;" />'cek kebenaran password<br style="line-height: 14px; margin: 0px; padding: 0px;" />If (RS!user_psw = txtPassword.Text) Then<br style="line-height: 14px; margin: 0px; padding: 0px;" />user_login_id = txtUserName.Text<br style="line-height: 14px; margin: 0px; padding: 0px;" />user_name = RS!user_name<br style="line-height: 14px; margin: 0px; padding: 0px;" />Load main_form<br style="line-height: 14px; margin: 0px; padding: 0px;" />main_form.Show<br style="line-height: 14px; margin: 0px; padding: 0px;" />Unload Me<br style="line-height: 14px; margin: 0px; padding: 0px;" />Else<br style="line-height: 14px; margin: 0px; padding: 0px;" />MsgBox "Maaf Password Salah"<br style="line-height: 14px; margin: 0px; padding: 0px;" />End If<br style="line-height: 14px; margin: 0px; padding: 0px;" />Else<br style="line-height: 14px; margin: 0px; padding: 0px;" />MsgBox "Maaf User Name Salah"<br style="line-height: 14px; margin: 0px; padding: 0px;" />End If<br style="line-height: 14px; margin: 0px; padding: 0px;" />End Sub</div><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Kemudian double click pada tombol Cancel, hapus script yang telah ada dan ganti dengan script berikut:</span><br /><div style="background-color: white; border: 1px solid black; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Private Sub cmdCancel_Click()<br style="line-height: 14px; margin: 0px; padding: 0px;" />Dim pil As VbMsgBoxResult<br style="line-height: 14px; margin: 0px; padding: 0px;" />pil = MsgBox("Anda Yakin untuk keluar?", vbQuestion + vbYesNo, "Exit")<br style="line-height: 14px; margin: 0px; padding: 0px;" />If (pil = vbYes) Then Unload Me<br style="line-height: 14px; margin: 0px; padding: 0px;" />End Sub</div><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Setelah selesai pilih menu</span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"> Project, properties</b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">. Pada window Project Properties di bagian</span><i style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"><b style="margin: 0px; padding: 0px;">Startup Object</b></i><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;"> pilih </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">frmLogin. </b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Kemudian tekan tombol OK.</span><br style="background-color: white; color: #444444; font-family: Lato, 'Myriad Pro', Arial, sans-serif; font-size: 14px; line-height: 14px; margin: 0px; padding: 0px;" /><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Sekarang beralih ke </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">admin_form, </b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">double click pada form dan ketik script berikut :</span><br /><div style="background-color: white; border: 1px solid black; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Private Sub Form_Load()<br style="line-height: 14px; margin: 0px; padding: 0px;" />label_user.Caption = user_name<br style="line-height: 14px; margin: 0px; padding: 0px;" />End Sub</div><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Setelah selesai simpan project anda dengan nama </span><b style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">kasir </b><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">dan coba untuk menjalankanya dengan menekan tombol F5 pada keybord.</span><br /><span class="Apple-style-span" style="background-color: white; color: #444444; font-family: Arial; font-size: 14px; line-height: 23px; margin: 0px; padding: 0px;">Semoga Bermanfaat :)</span>

Pada  tutorial  ini anda akan belajar bagaimana  membuat aplikasi client server menggunakan visual basic dan MYSQL   dengan  Pos  Software  ...