Pemrograman Visual Basic I by dhidhin

VIEWS: 5,130 PAGES: 99

									MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 1
                                  BAB I
                        GAMBARAN UMUM VISUAL BASIC

1.1 Gambaran Umum
       Sejarah Visual Basic diawali dari pengembangan bahasa BASIC (Beginners All-
Purpose Symbolic Instruction Code) di Dartmount College, Amerika Serikat pada awal tahun
1960. Sejak semula Basic dirancang untuk mudah dipelajari. Pada awal tahun 1975 muncull
komputer pribadi (Personal Computer / PC) pertama, bermerek MITS Altair. Namun karena
hanya memiliki RAM 4 KB, satu-satunya bahasa yang bisa digunakan untuk pemrograman
adalah Assembly, bahasa ini sangat sulit untuk dipahami karena perintahnya mendekati
bahasa mesin. Tentu hal ini sangat menghambat perkembangan komputer pribadi. Bill Gate
dan Paul Allen melihat potensi yang sangat besar pada komputer pribadi dimasa depan.
Keduanya menciptakan BASIC untuk Altair. Ternyata sambutan masyarakat sangat baik dan
akhirnya keduanya mendirikan perusahaan sendiri yang bergerak dibidang software yang
bernama Microsoft.
       Pada tahun 1982 IBM/PC diperkenalkan kepada masyarakat, Microsoft pun membuat
sistem operasi MS-DOS untuk komputer ini. Dimana didalamnya disertakan pula bahasa
Basic yang dikenal sebagai Quick Basic (QBASIC). Zamanpun berganti, pada tahun 1990 era
DOS berlalu dan digantikan oleh era Windows.
       Dari perkembangan ini akhirnya Microsoft membuat Basic versi Windows, bahasa
pemrograman Basic ini dikenal dengan nama Visual Basic. Versi terakhirnya adalah MS
Visual Basic 6.0 for Windows 98.

1.2 Menjalankan Visual Basic.
      Ada beberapa cara untuk membuka Visual Basic yaitu :




                      Gbr. 1.1 Cara membuka VB
      •   Double Click salah satu Icon, bisa yang berada di Desktop atau Click icon yang
          berada Taskbar (disamping Start)
      •   Click Start   Program     Microsoft Visual Studio 6.0 Microsoft Visual Basic 6.0

     Setelah itu akan terbuka suatu aplikasi Visual Basic seperti yang terlihat seperti
Gambar 1.2.

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                          Hal : 2
1.3 Integrated Development Environment
        Integrated Development Environment(IDE) merupakan Bidang/Lingkungan kerja dari
Visual Basic. VB mempunyai beberapa komponen yang sangat mendukung di dalam
mendesign suatu program.

        Adapun komponen tersebut yaitu :
           Baris menu
           Toolbar
           Form
           ToolBox
           Window Form Layout
           Window Property
           Project Explorer
           Code Window

        Secara keseluruhan komponen tersebut dapat terlihat seperti gambar 1.2




Gambar 1.2 Tampilan Visual Basic beserta Komponennya

1.3.1  Baris Menu
       Baris menu terletak paling atas pada IDE, menu merupakan kumpulan perintah-
perintah yang dikelompokkan dalam kriteria operasi yang dihasilkan.



Gambar 1.3 Baris Menu

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                 Hal : 3
                          Tabel 1.1 Baris Menu
         Nama                                    Keterangan
  File              Berfungsi untuk pengaturan suatu file, seperti New, Save Open dsb
                    Berfungsi untuk pengeditan, baik pengeditan objek komponen maupun
  Edit
                    kode pada Code Editor. Ex. Cut, Paste, Align
  View              Perintah-perintah untuk mengaktifkan bagian-bagian dari IDE VB6
  Project           Berfungsi untuk manajemen project serta pendukungnya
  Format            Kelompok perintah untuk melakukan proses format
  Debug             Untuk pengaturan dalam pencarian kesalahan program
                    Berfungsi untuk menangani proses kompilasi program, seperti Run, Build,
  Run
                    Step Over, dsb.
                    Kumpulan perintah untuk mengakses data yang di perlukan pada aplikasi
  Query
                    database.
                    Menyediakan perintah untuk pengaturan diagram yang sangat berguna di
  Diagram
                    dalam proses perancangan
                    Sebagai penyedia perlengkapan tambahan yang diperlukan dalam
  Tools
                    penyusunan program
  Add-Ins           Untuk pengaturan program tambahan bagi VB6
  Window            Pengaturan window yang sedang terbuka
                    Menyediakan informasi untuk meolong pemakai dalam menggunakan
  Help
                    VB6

1.3.2 ToolBar
      Toolbar adalah tombol-tombol yang mewakili suatu perintah tertentu dari Visual Basic.
Biasanya tombol-tombol ini merupakan perintah-perintah yang sering digunakan.


Gambar 1.4 Toolbar
                               Tabel 1.2 Toolbar dan fungsinya
 Tombol           Nama                                  Fungsi
            Add              Untuk membuat sebuah project baru jenis standar
            Standard
            EXE Project
                             Untuk menambagkan sebuah form ke dalam project yang
            Add Form
                             sedang terbuka
                             Untuk menampilkan Menu Editor yang berfungsi sebagai
            Menu Editor
                             pembuat menu
                             Untuk membuka sebuah project yang pernah disusun
            Open Project
                             Untuk menyimpan project yang sedang terbuka tanpa
            Save Project
                             menutupnya
                             Untuk memotong obyek terpilih, yaitu memindahkan obyek
            Cut
                             tersebut dari tempat asalnya ke container windows
                             Untuk membuat salinan obyek terpilih untuk disimpan di
            Copy
                             container windows
                             Untuk membuat salinan obyek yang disimpan di container
            Paste
                             windows dan dipasang di lokasi baru
            Find             Untuk menemukan obyek tertentu
                             Untuk menggagalkan pelaksanaan perintah-perintah terurut dari
            Undo
                             belakan yang pernah dilakukan.
            Redo             Untuk mengulangi perintah terurut dari belakang yang pernah

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 4
                          dilakukan, merupakan proses kebalikan Undo.
                          Untuk menjalankan program yang sedang terbuka dan aktif
          Start

          Break           Untuk menghentikan sementara program yang sedang berjalan
                      Untuk menghentikan program dan berpindah ke mode
          End
                      perancangan
          Project     Untuk mengaktifkan windows project Explorer yang menampung
          Explorer    project berikut bagian-bagiannya
          Properties  Untuk mengaktifkan Properties Windows, yaitu pengatur properti
          Windows     obyek
          Form Layout Untuk mengaktifkan Form Layout Windows yaitu pengatur
          Window      pengatur tata letak form di layar komputer
          Object      Untuk mengaktifkan Object Browser yang mampu mengorganisir
          Browser     object yang dipakai dalam project
                      Untuk mengaktifkan Toolbox yang menyediakan berbagai
          Toolbox
                      kontrol

1.3.3  Form
       Form adalah suatu objek yang dipakai sebagai tempat bekerja program aplikasi.
Didalam form terdapat garis titik-titik yang disebut grid yang membantu pemakai dalam
pengaturan tata letak objek dalam form.
       Umumnya pada form terdapat garis titik-titik yang disebut dengan Grid.

                                                               Gambar 1.5 Form




1.3.4   ToolBox
        Toolbox adalah tempat penyimpanan
kontrol yang akan kita gunakan pada program
yang di pasangkan pada form               Pointer                     Picture Box

                                             Lab el                   TextBox
                Gambar 1.6 Toolbox          Fram e                    Command Button

                                        CheckBox                      Option Button
                                       ComboBox                       ListBox

                                       HScrol lBar                    VScrol lBar

                                            Timer                     DriveListBox

                                        DirListBox                    Fil eListBox
                                           Shape                      Line

                                           Image                      Data
                                              OLE

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                 Hal : 5
              Tabel 1.3 Kontrol-kontrol standar Visual Basic 6.0
 Kontrol       Nama                                     Fungsi
                            Ini bukan kontrol melainkan penunjuk kontrol sehingga kita bisa
           Pointer          memindah letak atau mengubah ukuran kontrol yang terpasang
                            pada form
                            Untuk menampilkan gambar status maupun gambar aktif dari
           Picture Box
                            sumber di luar dirinya
                            Kontrol yang bisa digunakanuntuk menampilkan teks yang tidak
           Label
                            bisa diubah oleh pemakai program.
                            Untuk membuat area teks di mana teksnya bisa diubah oleh
           Text Box
                            pemakai
                            Untuk mengelompokkan beberapa kontrol. Kontrol ini harus
           Frame
                            dipasan lebih dahulu sebelum kontrol yang di lingkupinya
           Command          Untuk membuat sebuah tombol pelaksanaan perintah
           Button
                            Untuk membuat kotak check yang mudah pemakaiannya. Bisa
           Check Box        digunakan untuk pemilihan dua keadaan (benar atau salah) dari
                            banyak pilihan sekaligus
           Option           Untuk pemilihan dua keadaan dari banyak pilihan, namun hanya
           Button           satu pilihan saja yang bisa diaktifkan pada suatu saat
                            Untuk menghasilkan kontrol yang merupakan kombinasi dari list
           Combo Box        box dan text box, sehingga pemakai bisa memasukkan pilihan
                            melalui daftar atau menuliskannya
           ListBox          Digunakan untuk menampilkan daftar pilihan yang bisa digulung
                            Untuk menggulungan dengan jangkah lebar dengan indikasi
           Hscroll Bar
                            posisi pemilihan dalam posisi horizontal
                            Untuk penggulungan dengan jangkah lebar dengan indikasi
           Vscroll Bar
                            posisi pemilihan dalam posisi vertikal
           Timer            Untuk penghitung waktu event dalam interval yang ditentukan

           Drivelist Box    Untuk menampilkan disk drive yang dimiliki komputer

           DisList Box      Untuk menampilkan direktory dan path

           FileList Box     Untuk menampilkan sebuah daftar file
                            Untuk memasang kontrol yang mampu menghasilkan asarana
           Shape            agar pemakai bisa menggambar berbagai bentuk seperti oval,
                            lingkaran, dan lain-lain
           Line             Untuk menggambar garis dengan berbagai variasinya
                            Untuk menampilkan gambar bitmap, icon, ataupun metafile pada
           Image            form. Kontrol Picturebox menyediakan lebih banyak fasilitas
                            dibanding kontrol ini
           Data             Menyediakan sarana akses data dalam suatu database

           OLE              Untuk menghasilkan proses link dan embed obyek antar aplikasi


1.3.5  Windows Form LayOut
       Form layout window adalah jendela yang
menggambarkan posisi dari form yang ditampilkan
pada layar monitor

                     Gambar 1.7 Form Layout Window


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 6
1.3.6 Window Property
        Properti digunakan untuk menentukan setting suatu
objek. Suatu objek biasanya mempunyai beberapa properti
yang dapat diatur langsung dari jendela properties atau
lewat jendela program. Untuk menggunakan properti yaitu
click terlebih dahulu kontrol yang ingin kita setting. Bentuk
dari properties dapat dilihat pada gambar berikut.

                               Gambar 1.8 Window Property
1.3.7  Project Explorer
       Project adalah sekumpulan modul. Jadi project atau
proyek merupakan program aplikasi itu sendiri. Project
disimpan dalam file yang berakhiran .VBP. File ini
menyimpan seluruh komponen program, termasuk pilihan
proyek, pilihan environment, pilihan file EXE dan segala
sesuatu yang berkaitan dengan proyek.

                             Gambar 1.9 Project Explorer



1.3.8   Code Window
        Code window adalah jendela yang berisi kode-kode
program yang merupakan instruksi-instruksi program untuk
aplikasi Visual Basic.




                                                    Gambar 1.10 Windows Code Editor


1.4 Menggunakan VB.
1.4.1 Membuat Project Baru
      Untuk membuat suatu project baru yaitu :

        1. Pilih File
        2. Kemudian New Project Ctrl + N (bisa langsung dengan menekan Ctrl + N)
        3. Bila keluar pesan (dialog) seperti berikut :

                                                     Kegunaan dialog ini yaitu Kalau kita
                                                     mengclick :
                                                     Yes    : untuk menyimpan project yang
                                                              telah kita buat. (jika itu
                                                              diperlukan)
                                                     No     : untuk tidak menyimpan project
                                                              (mungkin hanya mencoba)
                                                     Cancel : untuk membatalkan membuat
                                                              suatu projet baru/kembali ke
                                                              pekerjaan


           Gambar 1.11 Dialog Keluar dari Project
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                 Hal : 7
    4. Jika kita memilih Yes atau No maka akan muncul pesan berikut ini :

                                                          Disini ada beberapa pilihan tetapi
                                                          yang biasa kita gunakan yaitu
                                                          Standard      EXE      atau    VB
                                                          Enterprises     Edition    Control
                                                          perbedaan kedua type project
                                                          tersebut dari segi Object Control
                                                          yang di tawarkan VB Enterprises
                                                          Edition Control menawarkan lebih
                                                          banyak Object/Control yang bisa
                                                          kita     gunakan      dibandingkan
                                                          Standard Exe.


           Gambar 1.12 Jenis-Jenis Project Visual Basic

        5. Setelah kita memilih jenis proyek yang kita inginkan maka kita click Ok atau cukup
           Double Click saja pada Icon project tersebut. Maka akan keluar suatu Form baru
           pada project yang baru.

1.4.2  Menyimpan Project
       Setelah selesai kita membuat suatu project baru maka kita wajib menyimpan project
tersebut agar jika kita ingin mengedit project tersebut tinggal hanya membuka saja.

        Langkah-langkah untuk menyimpan project adalah :
        1. Pilih File
        2. Jika kita baru sekali menyimpan project maka cukup pilih Save Project (anda
           perhatikan terdapat icon disket artinya kita cukup mengclick icon disket pada
           Toolbar atau Ctrl + S).
        3. Kemudian akan muncul suatu kotak dialog box seperti dibawah ini :




           Gambar 1.13 Dialog Save File As (Form)

           Keterangan :
           Save in           : untuk menentukan Tempat/Drive/Direktori mana tempat
                               penyimpanan Project (jika bisa anda buat suatu tempat
                               penyimpanan/Direktori untuk latihan vb yang anda punya agar
                               tidak berpindah tempat)



☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                     Hal : 8
       Save as type  : jenis program yang akan kita simpan merupakan suatu Form
                        (form files [*.frm]) jadi harus diawali dengan frm agar
                        memudahkan kita untuk membuka program/Form tersebut.
       File name     : untuk membuat nama dari form tersebut misalnya form
                        tentang mahasiswa maka anda buat frmMahasiswa

        4. Setelah direktori telah dipilih, nama telah dibuat maka langkah terakhir mengclik
           save.
        5. Setelah kita click Save biasanya akan keluar suatu dialog lain yaitu :




           Gambar 1.14 Dialog Save Project As (Project)

            Dialog ini akan menyimpan nama dari project yang telah kita buat biasakan
            menulis dengan awalan Project baru dilanjutkan dengan namanya misalnya
            project Mahasiswa.
         6. Setelah itu baru kita click Save untuk menyimpannya

1.4.3   Membuka Project
        Untuk membuka project yang telah kita simpan sebelumnya yaitu :
        1. Pilih File
        2. Pilih Open Project Ctrl + O (bisa langsung dengan menekan Ctrl + O)
        3. Sehingga akan muncul dialog Open Project




           Gambar 1.15 Dialog Open Project
        4. Carilah project yang akan dibuka dengan melihat direktori aktifnya. Setelah
           nampak project yang kita inginkan maka kita bisa double click untuk membuka
           atau click sekali lalu click open.

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                 Hal : 9
1.4.4 Menjalankan Project
      Setelah project yang kita buat telah selesai maka kita bisa menjalankan project yaitu
dengan cara mengclick icon yang berada di Toolbar:




        Atau : Pilih menu Run lalu Click Start F5 (jadi bisa langsung dengan menekan F5)

1.4.5  Bekerja dengan Form
       Form merupakan tempat kita meletakkan suatu Kontrol/Object. Dalam pemrograman
VB kita akan selalu menggunakan form untuk suatu pemrograman.

  1.4.5.1 Menggambar/Meletakkan Object
       Ada beberapa cara untuk meletakkan suatu object kedalam sebuah Form.
       • Cara Pertama (Manual)
          - Terlebih dahulu kita harus Click (mengaktifkan) object yang ingin kita gunakan
             pada kotak Toolbox
          - Setelah object aktif maka pointer mouse diletakkan pada Media Form, setelah
             itu tentukan koordinat berapa object tersebut ingin diletakkan. Kemudia Click
             mouse lalu geser sampai terbentuk suatu garis kotak yang akan menandakan
             besarnya object pada media Form tersebut.
       • Cara Kedua
          - Kita harus Double Click object yang ingin kita gunakan pada kotak Toolbox,
             sehingga object akan terbentuk dengan sendirinya pada media Form.
          - Kemudian atur besar dari object tersebut dengan cara pointer mouse dekatkan
             pada kotak kecil yang ada pada setiap sudut object (terlebih dahulu aktifkan
             object di Form, kemudian pilih salah satu sudut kotak)
          - Click kotak tersebut lalu geser sampai dengan besar object yang kita inginkan.

  1.4.5.2 Memindahkan Object
       • Dengan cara aktifkan object pada media Form kemudian click object lalu bawa ke
          tempat yang kita inginkan (object masih dalam keadaan tetap terclick)
       • Cara kedua yaitu dengan cara aktifkan object lalu tekan Ctrl + anak panah (atas/
          bawah / kiri /kanan) tergantung kepada arah mana kita inginkan object tersebut di
          geser.

  1.4.5.3 Menambahkan Form
       Ada beberapa cara untuk menambah form yaitu :
       1. Pilih Project
       2. Click Add Form sehingga akan muncul dialog seperti berikut ini :




          Gambar 1.16 Dialog Add Form

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 10
    3. Click Form lalu Click Open sehingga akan bertambah satu form lagi.

      Cara ke 2 :
                                           Click Icon Add Form lalu pilih Click Form.
                                           Sehingga akan muncul dialog sebelumnya yaitu
                                           dialog Add Form.

                                           Gambar 1.17 Icon Add Form




  1.4.5.4 Berpindah dari Form1 ke Form 2
              Untuk berpindah ke sebuah form yang kita inginkan didalam suatu project yaitu
       dengan cara :

                                           Jika yang dilingkah kecil bertanda + maka kita
                                           harus mengclick + tersebut sehingga menjadi –
                                           sehingga akan muncul beberapa form. Setelah
                                           nampak form yang kita inginkan maka cukup
                                           double click

                                           Kegunaan icon pada Project Explorer :
                                           View Code       untuk mengaktifkan Code program
                                           pada form yang dipilih
                                           View Object       untuk mengaktifkan Form pada
                                           form yang dipilih
                                           Toggle Folders         untuk mengelompokkan jenis
                                           form, report, DE, dll.

      Gambar 1.18 Kotak Project Explorer

  1.4.5.5 Menjalankan form yang kita inginkan
              Kadang ada kalanya kita membuat dua form atau lebih di dalam satu project.
       Untuk hal ini kita harus merubah startup Object karena kalau kita ingin menjalan form2
       maka bisa jadi akan muncul form1.

      Adapun langkah-langkah untuk merubah Startup Object yaitu :
      1. Pilih menu Project
      2. Kemudian Click Project Properties akan muncul dialog seperti berikut ini :




      Gambar 1.19 Dialog Project Properties

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                        Hal : 11
          Click kotak startup Object lalu pilih form yang ingin kita jalankan. Lalu
    kemudian pilih OK.

      Atau bisa dengan cara :

                                       Click kanan Project yang terdapat di        Project
                                       Explorer, akan muncul kotak dialog kecil   lalu clik
                                       Project Properties. Dan kemudian akan      muncul
                                       dialog sebelumnya yaitu dialog              project
                                       properties.

                                       Gambar 1.20 Kotak Project Explorer




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 12
                                   BAB II
                  OBJECT, EVENT, CODE PROGRAM & PROPERTY

2.1 Object
       Object merupakan suatu kombinasi dari kode dan data yang dapat diperlakukan
sebagai satu kesatuan. Suatu object dapat merupakan bagian dari aplikasi seperti suatu
Control atau suatu Form. Secara keseluruhan dari aplikasi dapat juga berupa suatu object.
       Setiap object pada VB didefinisikan oleh suatu class. Untuk memahami hubungan
antar object dengan class-nya. Kontrol-kontrol yang berada pada jendela Toolbox pada VB
merupakan class-class. Object tersebut di kenal sebagai kontrol.
       Misalnya anda menamakan sebuah textbox diatas form1, coba perhatikan jendela
properti kontrol tersebut akan menampilkan text1 (nama dari kontrol textbox tersebut) dan
Textbox (nama dari class kontrol tersebut)

                                               Semua object merupakan duplikasi dari class
                                               mereka. Sesaat setelah menjadi object berdiri
                                               sendiri, masing-masing dapat memiliki
                                               properti yang berbeda-beda.




       Object-object VB memiliki properti-properti, metode-metode, dan event-event. Pada
VB, suatu data dari object (setting dan attribut)disebut sebagai properti, sedangkan berbagai
subrutin yang dapat beroperasi pada object tersebut disebut sebagai metodenya. Dan suatu
event adalah aksi yang dikenali oleh suatu object, seperti click pada mouse atau penekanan
tombol sehingga anda dapat menulis kode untuk menangani event tersebut.

2.2 Property
         Properties window berfungsi untuk mengatur tampilan pada suatu komponen yang
terpilih/aktif. Masing-masing komponen memiliki daftar property dan cirri-ciri yang berbeda

        Anda dapat langsung mengatur nilai properti suatu Control pada jendela Propertis,
maupun pada saat runtime (program berjalan) dengan menggunakan bentuk penulisan
berikut :
        Object.Properti = ekspresi/Setting Contoh :

                                             Pada gambar diatas kita mengatur Caption dari
                                             Form1 tersebut pada kotak Propertis.
                                             Pengaturan tersebut dapat dilakukan juga
                                             dengan menggunakan kode Program, seperti
                                             berikut :




Caranya cukup Double Click pada Form
(yang ada titik-titik). Kemudian tuliskan
kode disamping.




 ☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 13
2.2.1 Mengambil Nilai dari Properti
      Kita dapat mengambil nilai properti dari suatu object dengan penulisan sebagai berikut
:
      nmVariabel = Object.Properti

        Contoh :        Private Sub Form_Load()
                               CText = Form1.Caption
                        End Sub

2.2.2  Menggunakan Metode dalam Kode
       Ketika kita menggunakan suatu metode dalam kode kita, hal tersebut tergantung
kepada bagaimana kaitan perintah dan berapa argumen yang diperlukan, dan apakah metode
tersebut membutuhkan argumen, kita dapat menulisnya sebagai berikut :

        Object.Metode

        Contoh :        Private Sub Form_Load()
                               Form2.Show
                               Form1.Refresh
                        End Sub

2.2.3 Beberapa properti yang umum
      Berikut akan dibahas beberapa properti yang umum yang hampir terdapat pada
semua intrinsic Control pada VB.
       • Properti Left, Top, Width dan Height
         Left             : untuk mengatur letak Object/Control dari sebalah Kiri
         Top              : Pengaturan letak Object/Control dari atas
         Width            : untuk mengatur lebar dari suatu Object/Control
         Height           : untuk mengatur Tinggi suatu object/Control

        • Properti Forecolor dan BackColor
          ForeColor       : untuk mengatur warna depan
          BackColor       : untuk mengatur warna Background/Belakang

        • Properti Font
          Font             : mengatur bentuk tulisan, besar, style dll.

        • Properti Caption dan Text
          Caption         : Tulisan yang tampil dalam suatu control yang tidak dapat
                            di modifikasi scara langsung.
          Text            : Tulisan yang dapat di modifikasi oleh pemakai

        • Properti Enabled & Visible
          Enabled        : untuk menonaktifkan suatu object
          Visible        : untuk menyembunyikan dan menampilkan suatu object

2.2.4   Beberapa metode-metode yang umum
        • Metode Refresh
           Menyebabkan suatu form akan digambar ulang.
        • Metode Setfocus
           Metode ini akan memindahkan fokus cursor/input ke Control tertentu.
        • Metode Show
           Metode ini akan menampilkan suatu Form.
        • Metode Hide
           Metode ini akan menyembunyikan sebuah Form.
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 14
2.3 Event
       VB merupakan bahasa pemrograman Event Driven yang artinya menunggu sampai
adanya respon dari pemakai berupa kejadian tertentu, misalnya object tersorot, Click, Move,
Resize, dll. Ketika Event terdeteksi , maka event yang berhubungan akan melakukan aksi
sesuai dengan kode yang diberikan.

       Event adalah kejadian atau tindakan apa yang diberikan atau diterima oleh suatu
objek. Suatu object bisa memiliki banyak event yang pasti bisa sama dan bisa berbeda.
Antara lain :

      Event        Keterangan/Kegunaan
  Activate         Terjadi saat sebuah form menjadi window aktif
  Click            Terjadi saat pemakai mengclick suatu Object/Kontrol
  DblClick         Terjadi saat pemakai melakukan klik ganda suatu Object/Kontrol
  Deactivate       Terjadi saat form lain menjadi windows aktif
  GotFocus         Terjadi saat suatu Object/Kontrol mendapat fokus
  Load             Terjadi pada saat form di aktifkan dan sebelum tampak di layar
  MouseDown        Terjadi saat pemakai menekan mouse melewati suatu Object/Kontrol
  MouseMove        Terjadi pada saat pemakai memindahkan mouse melalui suatu
                   Object/Kontrol
  MouseUP          Terjadi saat pemakai melepas mouse melewati suatu Object/Kontrol
  Unload           Terjadi saat form di tutup
  Resize           Terjadi saat pemakai mengubah ukuran suatu Object/Kontrol
  QueryUnload      Terjadi beberapa saat sebelum aplikasi dihentikan
  Change           Terjadi saat isi suatu Object/Kontrol Berubah
  KeyDown          Terjadi pada saat pemakai menekan sebuah tombol pada keyboard
                   dan properti keypreview kontrol suatu Object bernilai true
  KeyPress         Terjadi saat menekan sebuah tombol pada keyboard
  KeyUp            Terjadi pada saat pemakai melepas sebuah tombol pada keyboard
                   melalui suatu Object/Kontrol
  LostFocus        Terjadi pada saat textbox kehilangan fokus




       Cara membuat suatu event cukup double click saja Object/Kontrol yang terletak pada
form. Sehingga akan terbentuk dua jenis kotak (ex. Command & Click).

       Kotak Command1 tersebut merupakan kumpulan dari Object sedangkan Kotak Click
tersebut adalah event-event yang di butuhkan.

2.4 Code Program
      Code adalah sekumpulan baris perintah yang dijalankan oleh suatu Event. Code
program harus di ketik sendiri oleh User/Pemakai. Code program ditulis antara :


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 15


                                                      Tanpa Code Program




      Dengan Code Program yaitu : Form1.Caption = “Test Saja”

   Secara umum bentuk penulisan Code Program yaitu :
   Syntax :  Object.Properti = ekspresi/Setting/Nilai

   Keterangan
   • Object         : name dari suatu Object/Kontrol.
   • Properti       : Attribut dari suatu object yang akan dirubah.
   • Ekspresi       : nilai Setting yang akan diberikan kepada suatu object.

       Dibawah berisi aturan penamaan dari suatu object.
             Jenis Object      Kode        Jenis Object         Kode
         ComboBox             Cbo      ListBox                 Lst
         CheckBox             Chk      Menu                    Mnu
         CommandButton        Cmd      Module                  Mod
         DirectoryListBox     Dir      OLE                     Ole
         DriveListBox         Drv      OptionButton            Opt
         FileListBox          Fil      PictureBox              Pic
         Frame                Fra      Resource                Res
         Form                 Frm      Shape                   Shp
         Grid                 Grd      Timer                   Tmr
         HorizontalScrollBar  Hsb      TextBox                 Txt
         Image                Img      User-defined data       Typ
                                       type
         Label                Lbl      VerticalScrollBar       Vsb
         Line                 Lin
Contoh :


                                                   Pada gambar di atas, object Label1
                                                   tersebut tidak dirubah namanya karena
                                                   yang penting disini adalah Object
                                                   TextBox (Text1) karena object tersebut
                                                   tempat kita menuliskan data dari Nama.



      TxtNama      berarti
      Txt   : Kode untuk TextBox
      Nama : Keterangan untuk textbox tersebut bahwa yang kita isikan nantinya
              adalah nama

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 16
Bahan Praktek / Latihan
1. Designlah program di bawah ini.
   Design Form




  Propertis
   Object            Property           Setting
   Form1             Name               FrmEvent1
                     Caption            Penggunaan Event, Code Program
  Untuk Propertis yang lain tidak perlu anda rubah.

  Listing Program
  Note : yang harus anda tulis adalah yang berada diantara huruf tebal dan End Sub.
           Untuk tulisan miring juga tidak perlu anda tulis karena hanya sebagai
           komentar.(yang diawali tanda ‘ )

  Double Clicklah Command1, carilah Event MouseMove pada kotak Event di sebelah
  kanan, lalu ketiklah program di bawah ini.
  Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
  Single, Y As Single)
    Label1.Caption = "Mouse anda berada di Command1"
  End Sub

  Double Clicklah Command2, carilah Event MouseMove pada kotak Event di sebelah
  kanan, lalu ketiklah program di bawah ini.
  Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X
  As Single, Y As Single)
    Label1.Caption = "Apakah Command2 yang anda Sorot ?"
  End Sub

  Double Clicklah Command3, carilah Event MouseMove pada kotak Event di sebelah
  kanan, lalu ketiklah program di bawah ini.
  Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As
  Single, Y As Single)
    Label1.Caption = "Sekarang menyorot di Command3"
  End Sub

  Double Clicklah Label1, carilah Event DblClick pada kotak Event di sebelah kanan, lalu
  ketiklah program di bawah ini.
  Private Sub Label1_DblClick()
    Command2.Enabled = False
  End Sub

  Double Clicklah Label1, carilah Event MouseMove pada kotak Event di sebelah kanan,
  lalu ketiklah program di bawah ini.
  Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y
  As Single)
     Label1.Caption = "Cobalah anda Double Click Label ini"
  End Sub
  Simpanlah program terlebih dahulu dengan nama Project : Project Latihan 21
  dan Form : Frm Event 21 (Pilih File kemudian Save Project untuk menyimpan)

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                             Hal : 17
2. Designlah program di bawah ini.
   Design Form




  Propertis
   Object           Property         Setting
   Form1            Name             FrmEvent2
                    Caption          Penggunaan Event, Code Program
   Label2           Caption          Nama Anda
   Text1            Name             TxtNama
   Command1         Name             CmdClose
                    Caption          &Close
  Note : Yang harus anda perhatikan adalah pada Property Name, tidak boleh salah
         di dalam pemberian nama

  Listing program
  Note : yang harus anda tulis adalah yang berada diantara huruf tebal dan End Sub.
           Untuk tulisan miring juga tidak perlu anda tulis karena hanya sebagai
           komentar.(yang diawali tanda ‘ )

  Private Sub cmdClose_MouseMove(Button As Integer, Shift As Integer, X As Single,
  Y As Single)
    Label1.Caption = "Click Command close untuk keluar"
  End Sub

  Private Sub Form_Activate()
    Label1.Caption = "" ' menghapus caption label1
    txtNama.Text = ""   ' menghapus tulisan pada textbox nama
    txtNama.SetFocus    ' memfocuskan area textbox nama
  End Sub

  Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As
  Single)
    Label1.Caption = "Ready"
  End Sub

  Private Sub txtNama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then ' pada saat anda menekan Enter pada textbox nama
       MsgBox "Apakah " & txtNama.Text & " menekan Enter ?" ' kotak pesan
    End If
  End Sub

  Private Sub txtNama_MouseMove(Button As Integer, Shift As Integer, X As Single, Y
  As Single)
    Label1.Caption = "Isikan Nama Anda"
  End Sub

  Simpanlah program terlebih dahulu dengan nama Project : Project Latihan 22
  dan Form : Frm Event 22 (Pilih File kemudian Save Project untuk menyimpan)


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                             Hal : 18
3. Designlah Form berikut ini.
   Design Form




   Properties
    Object              Properti           Setting
    Form              Name          FrmLat3
                      Caption       Luas Persegi Panjang
                      Width         4000
                      Heigth        3000
     Label1           Caption       Lebar
     Label2           Caption       Panjang
     Label3           Caption       Luas
     Text1            Name          TxtLebar
                      Text          (Kosong kan)
     Text2            Name          TxtPanjang
                      Text          (Kosong kan)
     Text3            Name          TxtLuas
                      Text          (Kosong kan)
     Command1         Name          CmdHitung
                      Caption       &Hitung

    Double clicklah pada command Hitung dan buat programnya seperti dibawah ini.
    Private Sub cmdHitung_Click()
              txtLuas.Text = txtLebar.Text * txtPanjang.Text
    End Sub

   Simpanlah program terlebih dahulu dengan nama Project : Project Latihan 23
   dan Form : Frm Persegi 23 (Pilih File kemudian Save Project untuk menyimpan)

   Jalankahlah Program (Tekan F5)
   TextBox Lebar isikan 100 TextBox Lebar isikan 1352
   Click lah Command hitung berapakah luas persegi panjang ?

4. Buatlah Program berikut ini.
   Design Form




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 19
  Properties
   Object         Properti              Setting
   Form        Name         FrmLat24
               Caption      Perhitungan Nilai Mahasiswa
               Width        5000
               Heigth       3500
   Label1      Caption      NPM
   Label2      Caption      Nama Mahasiswa
   Label3      Caption      MataKuliah
   Label4      Caption      Nilai Mid
   Label5      Caption      Nilai Sem
   Label6      Caption      Nilai Akhir
   Text1       Name         TxtNPM
   Text2       Name         TxtNama
   Text3       Name         TxtMTK
   Text4       Name         TxtNMid
   Text5       Name         TxtNSem
   Text6       Name         TxtNAkhir
   Command1    Name         CmdProses
               Caption      &Proses
   Command2    Name         CmdClear
               Caption      &Clear
   Command3    Name         CmdSelesai
               Caption      &Selesai

   Listing Program
   Private Sub cmdClear_Click()
      txtNPM.Text = ""
      txtNama.Text = ""
      txtMTK.Text = ""
      txtNMid.Text = ""
      txtNSem.Text = ""
      txtNAkhir.Text = ""
      txtNPM.SetFocus
   End Sub

   Private Sub cmdSelesai_Click()
     Unload Me
   End Sub

   Private Sub Form_Activate()
     cmdClear_Click
   End Sub

   Private Sub cmdProses_Click()
     txtNAkhir.Text = 0.4 * txtNMid.Text + 0.6 * txtNSem.Text
   End Sub

  Simpanlah program terlebih dahulu dengan nama Project : Project Latihan 24
  dan Form : Frm Nilai 24 (Pilih File kemudian Save Project untuk menyimpan)

  Jalankahlah Program (Tekan F5)
  Isikanlah, Nama, NPM, Matakuliah, Nilai Mid, Nilai Sem (antara 0 sampai 100).
  Kemudian Clicklah Command Proses, sehingga nilai akhir akan keluar.
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                             Hal : 20
Tugas Praktikum
1. Rancanglah dan buatlah program untuk form penjualan barang seperti dibawah ini


                                                 Nama Project : Project Tugas 21
                                                 Nama Form    : FrmTugas 21

                                                 Ketentuan :
                                                 Total Harga = Harga Jual * Jumlah Jual




2. Buatlah Program dengan bentuk tampilan seperti berikut ini.



                                                      Nama Project    : Project Tugas 22
                                                      Nama Form       : FrmTugas 22




   Ketentuan Proses/Program
   •      Kode, Nama, Harga, Jumlah Jual anda inputkan
   •      Total Penjualan didapat dari Harga * Jumlah Jual
   •      Discount di dapat dari 10% dari Total Penjualan
   •      Total Bayar di dapat dari Total Penjualan - Discount




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 21
                                     BAB III
                               CONTROL STANDARD I

Pendahuluan                                           Pointer             Picture Box
        Pada bab-bab sebelumnya kita telah              Lab el            TextBox
menggunakan kontrol-kontrol dari VB, mis label,        Fram e             Command Button
TextBox, Command.                                  CheckBox               Option Button
        Kontrol Standard terdapat pada semua       ComboBox               ListBox
versi Visual Basic. Kontrol-kontrol standard ini
                                                   HScrol lBar            VScrol lBar
akan sering anda gunakan untuk pembentukan
                                                       Timer              DriveListBox
user interface pada setiap project yang anda
                                                   DirListBox
buat. Pada bagian ini juga kita akan membahas                             Fil eListBox

sedikit dari event-event dari suatu Kontrol.           Shape              Line

                                                       Image              Data
                                                    OLE
3.1 Label
       Label adalah kontrol yang sangat sederhana yaitu digunakan untuk membuat
keterangan. Pada saat program dijalankan pemakai tidak bisa mengubah teks label sebab
hanya bisa diubah melalui kode, properties dan berdasarkan event yang diberikan oleh
pemakai




                      Tabel 3.1 Properti Label yang sering digunakan
         Properti                  Keterangan/Kegunaan
      Name             Untuk pemberian nama Label (biasa tidak perlu)
      Aligment         Untuk mengatur rata kiri, center, kanan
      BackColor        Warna Background label
      BackStyle        Mengatur model Background Transparant atau
                       tidak
      BorderStyle      Untuk membuat efek berdimensi
      Caption          Untuk menuliskan keterangan
      DataField        Untuk peletakan data Field yang berhubungan
                       dgn database
      DataFormat       Mengatur format penampilan
      DataSource       Tempat pengambilan data
      Enabled          Mengaktifkan atau menonaktifkan
      Font             Mengatur jenis Huruf, size, dan model lainnya
      ForeColor        Mengatur warna tulisan / warna depan
      Height           Mengatur tinggi dari label
      Left             Mengatur posisi dari kiri form
      Width            Mengatur lebar dari kontrol
      ToolTipText      Memberikan text bantuan jika label tersorot oleh
                       mouse
      Visible          Memunculkan dan menghilangkan label
      Top              Mengatur label dari atas form

3.2 TextBox
       Pada object ini pemakai bisa memasukkan teks pada saat program dijalankan. Object
ini memang berguna untuk menampung masukan dari pemakai.


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 22
Apabila lebar teks yang dituliskan melebihi lebar textbox, maka teks akan menggulung ke
kanan untuk memberikan ruang penulisan.

Menghapus isian dari textbox yaitu dengan cara :
     Text1.text = “”
Memberikan nilai kedalam object textbox yaitu :
     Text1.text = “Aldyan Amik”
     Text2.text = 100000


                  Tabel 3.2 Properti TextBox yang sering digunakan
         Properti                  Keterangan/Kegunaan
      Name          Sda
      Aligment      Sda
      Appearance    Mengatur 3D atau Flat
      BackColor     Sda
      DataField     Sda
      DataFormat    Sda
      DataSource    Sda
      Enabled       Sda
      Font          Sda
      ForeColor     Sda
      Height        Sda
      Left          Sda
      Locked        Mengunci agar bisa ditulis atau tidak
      Maxlength     Mengatur panjang maximum dari teks yang bisa
                    diketik
      MultiLine     Agar bisa lebih dari dua baris
      PasswordChar Mengatur tampilannya karakter tertentu dan tidak
                    bisa dibaca
      ScrollBars    Mengaktifkan/menonaktifkan Scroll Bar
      TabIndex      Urutan object dari object yang lainnya
      Text          Tempat menuliskan kata-kata/teks
      ToolTipText   Memberikan text bantuan jika label tersorot oleh
                    mouse
      Visible       Sda
      Width         Sda


                    Tabel 3.3 Event-Event yang terdapat pada TextBox
         Event                        Keterangan/Kegunaan
      Change        Terjadi saat isi Text Berubah
      Click         Terjadi saat setelah kita selesai mengclick TextBox
      DblClick      Terjadi saat setelah kita selesai Double Click TextBox
      KeyDown        Terjadi pada saat pemakai menekan sebuah tombol
                    pada keyboard dan properti keypreview kontrol di form
                    bernilai true
      GotFocus      Terjadi pada saat textbox mendapat fokus
      KeyPress      Terjadi saat menekan sebuah tombol pada keyboard
      KeyUp         Terjadi pada saat pemakai melepas sebuah tombol
                    pada keyboard melalui textbox
      LostFocus     Terjadi pada saat textbox kehilangan fokus



☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 23

3.3 OptionButtons
       Kontrol ini juga berguna sebagai
sarana pemilihan, namun hanya satu pilihan
yang bisa dilakukan pada saat yang
bersamaan. Keadaan yang demikian biasa
disebut dengan mutually-exclusive.

3.4 CheckBox
       Check box bertugas menyediakan bantuk pilihan kepada pemakai. Jika pemakai telah
melakukan pilihan, maka program akan menganalisa pilihan tersebut dan membuat
keputusan sebagai tanggapan atas pilihan program tersebut.
                                                         Pemakai bisa memilih beberapa
                                                  Check Box sekaligus, bahkan memilih
                                                  semua yang ada. Untuk menggagalkan
                                                  pemilihan, click sekali lagi pada object
                                                  tersebut.



3.5 Frame
       Object ini berguna untuk membuat pengelompokan dari beberapa object agar lebih
tersusun dalam suatu form. Pemaian kontrol frame yang paling nyata adalah untuk
mengelompokkan sejumlah option, check box
                                           Harus diperhatikan jika sebuah Frame
                                           property Enabled di pilih False maka untuk
                                           semua pilihan didalam frame tersebut tidak
                                           dapat di pilih.




3.6 CommandButton
                                             Object ini adalah yang paling populer. Banyak
                                             propertinya yang sudah tidak asing lagi,
                                             karena mirip dengan tombol listrik atau
                                             elektronika yang banyak dijumpai pada
                                             kehidupan sehari-hari. Kegunaannya yaitu
                                             sebagai tombol perintah.


                 Tabel 3.4 Properti CommandButton yang sering digunakan
            Properti      Keterangan/Kegunaan
         Name             Sda
         Appearance       Sda
         BackColor        Sda
         Enabled          Sda
         Caption          Sda
         Font             Sda
         ForeColor        Sda
         Height           Sda
         Left             Sda
         MousePointer     Merubah bentuk mouse pada saat mouse melewati
                          command

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 24
         MouseIcon       Memilih icon yang diinginkan oleh pemakai
                         Tetapi MousePointer harus Custom
         TabIndex        Urutan object dari object yang lainnya
         Picture         Menampilkan Icon sebagai Background Command
                         Style harus Graphical
         Style           Untuk menampilkan Icon jika terpilih Graphical
         ToolTipText     Sda
         Visible         Sda

3.7 ListBox
        Digunakan untuk menampilkan daftar pilihan yang dapat bergeser. Suatu listbox
digunakan jika jumlah pilihan cukup banyak, sehingga menjadi tidak efektif kalau
menggunakan Option maupun Check.




                               Tabel 3.5 Properti ListBox
            Properti     Keterangan/Kegunaan
         Name            Sda
         Column          Menampilkan listbox berdasarkan colom vertival
         MultiSelect     Menentukan daftar bisa pilih lebih dari satu
         Sorted          Mengurutkan item dalam Listbox
         Style           Menentukan bentuk tampilan item yg digunakan

Pengisian Item dalam ListBox
       Ada beberapa cara :
       • Cara Pertama.
       Dilakukan pada komponen Properties. Terlebih dahulu anda Click Kontrol ListBox,
       kemudian cari Properti List dalam daftar properti
                                    Properties LIST anda click, kemudian click panah dan
                                    ketikkan “Perempuan”.
                                    Untuk mengetikkan item selanjutnya terlebih dahulu
                                    tekan Ctrl+Enter, baru bisa mengetikkan item
                                    selanjutnya ex “Laki-Laki”



      • Cara Kedua.
      Dilakukan pada form dengan event Load atau Activate. Setelah Kontrol ListBox anda
      buat, Double Click lah Form sehingga muncul :
      Private Sub Form_Load()

      End Sub
      Rubah Event Load menjadi Activate pada kotak event(sebelah kanan)
      Perintah pengisian menggunakan metode AddItem,
      dengan syntax : NamaObject.AddItem “Daftar Item”

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 25
    Kemudian ketikkan program berikut :
    Private Sub Form_Load()
           List1.AddItem ”Perempuan”
           List1.AddItem ”Laki-Laki”
    End Sub

Mengosongkan isi seluruh Listbox
     Menggunakan metode Clear seperti program di bawah ini :
     Private Sub Form_Load()
            List1.AddItem ”Perempuan”
            List1.AddItem ”Laki-Laki”
            List1.Clear     ‘akan mengosongkan isian seluruh item
     End Sub

3.8 ComboBox
       Penggunaan ComboBox ini lebih menghemat tempat bila dibandingkan dengan
ListBox.
                                         Pada bentuk normal kita harus mengclick
                                         panah dahulu untuk memunculkan item,
                                         tidak seperti Simple Combo, pilihan dapat
                                         langsung dilihat




   Style Combo Box terdiri atas :
       Dropdown Combo Box, model default, jika anda tidak mengubah nilai properti style ,
       maka pilihan ini akan aktif
       Simple Combo Box, akan menampilkan daftar data tanpa diminta.
       Dropdown List Box, mirip dengan model pertama, yaitu daftar data tersembunyi.
       Bedanya adalah pemakai tidak bisa menambahkan data.

       Untuk pengisian item dalam ComboBox tidak jauh berbeda dengan ListBox.




Program Praktek
1. Designlah program berikut ini :
   Design Form
                                                        Notes
                                                        Untuk membuat Option anda
                                                        harus terlebih dahulu membuat
                                                        Frame baru anda gambarkan
                                                        Option diatas Frame(tidak boleh
                                                        Double Click)




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                        Hal : 26
  Properties Object
    Object      Properties                     Setting
  Form          Name       FrmOption
                Caption    Project Manipulasi Warna ForeColor &
                           BackColor
  Label1        Caption    Sekolah      Tinggi  Manajemen     Informatika
                           Komputer
  Frame2        Caption    Perubahan Warna
  Frame1        Caption    ForeGround
  Frame3        Caption    BackGround
  Command1 Caption         Left Justify
  Command2 Caption         Center
  Command3 Caption         Right Justify
  Option1       Caption    Hitam
  Option2       Caption    Biru
  Option3       Caption    Hijau
  Option4       Caption    Coklat
  Option5       Caption    Putih
  Option6       Caption    Merah
  Option7       Caption    Kuning
  Option8       Caption    Hitam
  Option9       Caption    Biru
  Option10      Caption    Hijau
  Option11      Caption    Coklat
  Option12      Caption    Putih
  Option13      Caption    Merah
  Option14      Caption    Kuning

  Listing Program
  Private Sub Option1_Click()             Private Sub Option7_Click()
     Label1.ForeColor = &H80000012          Label1.ForeColor = &HFFFF&
  End Sub                                 End Sub

  Private Sub Option2_Click()             Private Sub Option13_Click()
    Label1.ForeColor = &HFF0000             Label1.BackColor = &HFF&
  End Sub                                 End Sub

  Private Sub Option3_Click()             Private Sub Option9_Click()
    Label1.ForeColor = &HFF00&              Label1.BackColor = &HFF0000
  End Sub                                 End Sub

  Private Sub Option4_Click()             Private Sub Option8_Click()
    Label1.ForeColor = &H80000003           Label1.BackColor = &H80000012
  End Sub                                 End Sub

  Private Sub Option5_Click()             Private Sub Option12_Click()
    Label1.ForeColor = &HFFFFFF             Label1.BackColor = &HFFFFFF
  End Sub                                 End Sub

  Private Sub Option6_Click()             Private Sub Option11_Click()
    Label1.ForeColor = &HFF&                Label1.BackColor = &H80000003
  End Sub                                 End Sub



☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                           Hal : 27

  Private Sub Option10_Click()
    Label1.BackColor = &HFF00&
  End Sub

  Private Sub Option14_Click()
    Label1.BackColor = &HFFFF&
  End Sub

  Private Sub Command11_Click()
    Label1.Alignment = 0
  End Sub

  Private Sub Command12_Click()
    Label1.Alignment = 2
  End Sub

  Private Sub Command13_Click()
    Label1.Alignment = 1
  End Sub

   Simpanlah program terlebih dahulu dengan nama Project : Project Option 31
   dan Form : Frm Option 31 (Pilih File kemudian Save Project untuk menyimpan)

   Jalankahlah Program (Tekan F5)

2. Designlah Form di bawah ini
   Design Form




    Properties
          Object        Properti        Setting
    Form1               Name            FrmLat27
                        Caption         ComboBox dan ListBox Example
    Frame1              Caption         ComboBox
    Frame2              Caption         ListBox
    Combo1              Name            CmbDropCombo
                        Style           0 – Dropdown Combo

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                        Hal : 28
                      Text            (Kosongkan)
   Combo2             Name            CmbSimpleCombo
                      Style           1 – Simple Combo
                      Text            (Kosongkan)
   Combo3             Name            CmbDropList
                      Style           3 – Dropdown List
                      Text            CmbDropList
   List1              Name            LstStandard
                      Style           0 – Standard
   List2              Name            LstCheckBox
                      Style           1 – CheckBox
   Command1           Name            CmdClearCombo
                      Caption         &Clear Combo
   Command2           Name            CmdClearList
                      Caption         Clear &List
   Command3           Name            CmdInsertCombo
                      Caption         Insert &To Combo
   Command4           Name            CmdInsertList
                      Caption         &Insert To List
   Command5           Name            CmdClearText
                      Caption         Cl&ear Text
   Command6           Name            CmdExit
                      Caption         E&xit
   Label1             Caption         Insert Your Name
   Text1              Name            TxtInput
                      Text            (Kosongkan)

  Listing Program
  Private Sub cmdClearCombo_Click()
    ' membersihkan isian Combo Box
    cmbDropCombo.Clear
    cmbSimpleCombo.Clear
    cmbDropList.Clear
  End Sub

  Private Sub cmdClearList_Click()
    ' membersihkan isian listbox
    LstStandard.Clear
    LstCheckBox.Clear
  End Sub

  Private Sub cmdClearText_Click()
    ‘ membersihkan isian input text
    txtInput.Text = ""
  End Sub

  Private Sub cmdExit_Click()
    End
  End Sub

  Private Sub cmdInsertCombo_Click()
    ' memasukkan text ke dalam combo yang pertama
    cmbDropCombo.AddItem txtInput.Text
    ' memasukkan text ke dalam combo yang kedua
    cmbSimpleCombo.AddItem txtInput.Text
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 29
    ' memasukkan text ke dalam combo yang tiga
    cmbDropList.AddItem txtInput.Text
  End Sub

   Private Sub cmdInsertList_Click()
     ' memasukkan text ke dalam list box yang pertama
     LstStandard.AddItem txtInput.Text
     ' memasukkan text ke dalam list box yang kedua
     LstCheckBox.AddItem txtInput.Text
   End Sub

   ‘ jika kita mengClick Combo Box yang pertama maka dideteksi pada even Click
   Private Sub cmbDropCombo_Click()
       MsgBox "yang anda Pilih " & cmbDropCombo.Text, vbOKOnly
   End Sub

   Simpanlah program terlebih dahulu dengan nama Project : Project Combo 32
   dan Form : Frm Combo 32(Pilih File kemudian Save Project untuk menyimpan)
   Jalankahlah Program (Tekan F5)

3. Design Form Berikut ini




    Properties
     Object            Properti               Setting
     Form            Name           FrmList33
                     Caption        Mahasiswa
     Label1          Caption        Nama
     Label2          Caption        Jumlah Mahasiswa =
     Text1           Name           txtNama
     List1           Name           LstMahasiswa
     Command1        Name           CmdMasukkan
                     Caption        &Masukkan
     Command2        Name           CmdBatal
                     Caption        &Batal
     Command3        Name           CmdHapus
                     Caption        &Hapus
     Command4        Name           CmdKeluar
                     Caption        &Keluar

   Listing Program
   Private Sub cmdBatal_Click()
      txtNama.Text = ""
      txtNama.SetFocus
   End Sub

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                           Hal : 30
  Private Sub cmdHapus_Click()
    lstMahasiswa.RemoveItem (lstMahasiswa.ListIndex)
    Label2.Caption = "Jumlah Mahasiswa = " & lstMahasiswa.ListCount & " Orang"
  End Sub

   Private Sub cmdKeluar_Click()
     Unload Me
   End Sub

   Private Sub cmdMasukkan_Click()
     lstMahasiswa.AddItem txtNama.Text
     cmdBatal_Click
     Label2.Caption = "Jumlah Mahasiswa = " & lstMahasiswa.ListCount & " Orang"
   End Sub

   Private Sub Form_Activate()
     txtNama.Text = ""
   End Sub

   Simpanlah program terlebih dahulu dengan nama Project : Project List 33
   dan Form : Frm ListBox33 (Pilih File kemudian Save Project untuk menyimpan)

   Jalankahlah Program (Tekan F5)




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 31
Tugas Praktikum
1. Rancanglah Form berikut ini.




   Simpan project dengan nama Project Tugas 31 dan Frm Tugas 31

2. Rancanglah dan buatlah program untuk form dibawah ini :




   Simpan project dengan nama Project Tugas 32 dan Frm Tugas 32


Keterangan
   Jenjang Studi : Diploma-I, Diploma-III, Strata-1
   Jurusan       : Manajemen Informatika, Sistem Informasi, Teknik Informatika,
                   Komputerisasi Akuntansi, Akuntansi, Manajemen




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 32
                                     BAB IV
                        VARIABEL, KONSTANTA & OPERATOR

4. 1 VARIABEL
       Variabel adalah suatu tempat untuk mengolah suatu data atau informasi dan juga
sebagai tempat penyimpanan sementara yang tersimpan dalam memory. Variabel merupakan
unsur yang penting dalam pemrograman.

4.1.1    Penamaan Variabel
         Dalam penggunaan variabel harus diberi nama. Aturan penamaan variabel yaitu :
            • Harus diawali dengan huruf. Bisa kombinasi angka dan huruf tetapi karakter
               pertama adalah huruf.
            • Tidak terlalu panjang, maksimal 255 karakter. (lebih baik antara 8 dan 15
               karakter)
            • Tidak boleh kembar.
            • Harus jelas
            • Jangan gunakan kata-kata kunci yang telah dimiliki oleh VB
            • (Optional ) Gunakan singkatan dua atau tiga karakter sesuai dengan tipe data

     Deklarasi variabel pada bagian deklarasi di suatu form, standard atau class module, dari
pada dalam suatu procedure, membuat variabel itu berlaku untuk semua procedure dalam
module tersebut.
     Pendeklarasian variabel dengan menggunakan keyword Public membuatnya berlaku
pada keseluruhan aplikasi anda. Deklarasi suatu variabel lokal dengan menggunakan
keyword Static akan menyimpan nilainya ketika suatu procedure berakhir.

              Keyword                     Digunakan pada
          Public           Berlaku pada level modul
          Private          Berlaku pada level modul
          Dim              Berlaku pada level modul dan Procedure
          Static           Berlaku pada level Procedure

4.1.2 Pendeklarasian Variabel
      Untuk mendeklarasikan suatu variabel harus diawali dengan kata cadangan Dim
(Dimension). Deklarasi ini akan memesan tempat di memory untuk variabel tersebut.

Syntax         : Dim nmvariabel As typedata

Contoh         : Dim strNama As String
                 Dim nGaji As Double

       Pendeklarasian suatu variabel biasanya terletak pada bagian General atau di dalam
suatu sub procedure (Seperti gambar di bawah ini)

                                                             Bagian General


                                                             Bagian Sub Procedure



       Untuk membuat beberapa variabel dengan type data yang sama penulisan dim hanya
cukup sekali saja, tetapi harus dipisahkan dengan koma “,”

         Contoh : Dim nTotal As Double, nGaji As Double, nBayar As Double
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                        Hal : 33
     Jika kita tidak ingin terkait dengan type data maka gunakan saja Variant. Cara
pemakaian yaitu

        Syntax : Dim nmvariabel
        Contoh       : Dim strNama

4.1.3  Penggunaan Option Explicit
       Jika kita menggunakan suatu variabel yang belum pernah kita deklarasikan
sebelumnya maka program akan mengalami syntax error. Misalnya kita deklarasikan variabel
cNama, setelah itu kita gunakan Nama=”Andy”. Maka program akan menunjuk ke variabel
Nama karena variabel tersebut belum dideklarasikan.
       Untuk menangani hal yang demikian maka kita gunakan Option Explicit pada awal dari
suatu program yaitu pada bagian GENERAL yang teratas.

4.1.4Deklarasi Implicit
     Pendeklarasian model ini         lebih   simple   karna   tanpa   penulisan      Dim   untuk
mendeklarasikan suatu variabel.

        Contoh :    Uang@ = 6000

     Tanda tersebut unik untuk masing-masing tipe data, bahkan ada yang tidak perlu
menggunakan tanda. Selengkapnya dapat dilihat dalam tabel berikut :

                          Tipe Data         Tanda
                       Integer                %
                       Long                   &
                       Single                 !
                       Double                 #
                       Currency               @
                       String                 $
                       Byte              Tanpa Tanda

        Tabel dibawah ini menampilkan jenis type data dasar pada lingkungan VB.
         Type Data    Jangkauan                                            Ukuran
         Integer      -32.768 s.d 32.767                                   2   Byte
         Long         -2.147.483.648 s.d 2.147.483.647                     4   Byte
         Single       -3.403823E38 s.d 3.403823E37                         4   Byte
         Double       -1.79769313486232E308                            s.d 8   Byte
                      1.79769313486232E307
         Currency     -922,337,203,685,477.5808                        s.d 8 Byte
                      922,337,203,685,477.5807
         String       0 s.d 65.500 Karakter (Win 31) (Win95)               1 Byte/ Kar
         Boolean      True atau False                                      2 Byte
         Date         1 Jan 100 s.d 31 Des 9999                            8 Byte
         Object       Referensi Objek                                      4 Byte
         Byte         0 s.d 255                                            1 Byte
         Variant      Semua tipe data                                      16 Byte

4.1.5 Tipe Data Buatan Sendiri (Struktur)
      Jika suatu ketika kita ingin menggunakan data khusus yang belum ditentukan oleh VB,
maka kita bisa membuatnya sendiri. Namun tipe data yang bisa kita buat adalah tipe
gabungan dari yang telah ada. Caranya adalah dengan perintah Type.


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 34
Contoh :
       Private Type Karyawan
               cNama As String
               cAlamat As String
               bSex As Boolean
       End Type

        Dim recKaryawan As Karyawan

        Cara pemanggilannya untuk data cNama yaitu dengan cara :

        recKaryawan.cNama = “Aldyan Amik”

4.1.6Pengkonversian Tipe Data
     Dari satu jenis tipe data kita bisa mengubahnya menjadi tipe data lainnya dengan
menggunakan fungsi yang ada dalam VB, seperti terlihat dalam tabel.

                           Nama         Tipe Tujuan
                      Cbool            Boolean
                      Cbyte            Byte
                      Ccur             Currency
                      Cdate            Date
                      CDbl             Double
                      Cint             Integer
                      CLng             Long
                      CSng             Single
                      CStr             String
                      CVar             Variant
                      CVErr            Error

Contoh pemakaian :
      Dim a, b As Single
      a = 22
      b=7
      Phi1 = a/b
      Phi2 = CDbl(a/b)

      Kode program diatas akan menghasilkan Phi1 sebesar 3.142857 dan Phi2 sebesar
3.14285707473755. perhatikan bahwa Phi2 lebih teliti dari Phi1 sebab Phi2 bertipe data
Double, yaitu Single yang telah dikonversi oleh Fungsi CDbl() menjadi Double.

4. 2 KONSTANTA
       Konstanta adalah variabel yang nilainya tetap. Banyak sifat konstanta yang mirip
dengan variabel. Perbedaan utama adalah nilai tetap dan kecepatan proses. Konstanta
diproses lebih cepat, sebab tidak menunggu tahap pengisian data.
       Sekali kita menetapkan nilai konstanta, selanjutnya kita tidak bisa mengubahnya lagi,
karena nilainya konstan.

Aturan penamaan konstanta
       • Diawali dengan kata cadangan Const
       • Untuk nilai bertipe String dan Date, gunakan pasangan tanda petik (“)atau tanda
          pagar (#) untuk mengapit nilainya.
       • Kalau perlu kita juga bisa menambahkan tipe datanya, dengan memakai kata As
          setelah nama konstanta.

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 35
    Ada dua jenis konstanta, yaitu :

        1. Intrinsic atau System-define konstanta yang di sediakan oleh suatu aplikasi atau
           control. Konstanta Visual Basic terdaftar pada Visual Basic(VB), Visual Basic for
           Application (VBA), dan Data Access (DAO).

        2. Symbolic atau User-defined konstanta adalah konstanta yang dideklarasikan
           sendiri oleh pemakai dengan menggunakan kata cadangan Const.

4.2.1   Pendeklarasian Konstanta
        Cara mendeklarasikan sebuah konstanta adalah dengan cara :

        Syntax : [Public | Private] Const ContantName [ As Type ] = expression

        Contoh :      Const Komen = “Nama anda adalah Aldyan”
                      Public Const Pi = 3.14

       Visual Basic juga banyak menyediakan konstanta siap pakai yang bisa kita pakai
disaat mengubah suatu propertis suatu objek baik didalam program ataupun di tahap design.
Misalnya konstanta pemberian warna (ForeColor) dan banyak lagi.

        Contoh :      Label1.ForeColor = VbRed

4. 3 OPERATOR
     Visual Basic mengenal beberapa macam operator seperti Operator Aritmatika,
Komparasi dan Logika.

4.3.1Operator Aritmatika
     Operator matematika adalah operasi yang menghasilkan perhitungan. Jadi operator
matematika adalah yang paling sering digunakan dalam pemrograman.

                    Operasi            Operator
             Penambahan                   +
             Pengurangan                  -
             Perkalian                    *
             Pembagian                    /
             Pembagian Integer            \
             Modulus                     Mod
             Perpangkatan                 ^

Contoh :       c=2+4                ‘ Hasilnya adalah 6
               c=2*4                ‘ Hasilnya adalah 8
               c=4-2                ‘ Hasilnya adalah 2
               c=4/3                ‘ Hasilnya adalah 1.333333
               c=4\3                ‘ Hasilnya adalah 1
               c = 20 Mod 3 ‘ Hasilnya adalah 2

        Selain itu VB juga menyediakan operator untuk penggabungan seperti contoh berikut :

        C=2&4                ‘ Hasil C yang di dapat adalah 24




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                  Hal : 36
4.3.2 Operator Komparasi
      Digunakan untuk membandingkan sebuah persamaan. Biasanya diikuti dengan
statement IF.

                            Operasi                    Operator
               Sama                                       =
               Tidak Sama                                 <>
               Kurang Dari                                <
               Lebih Dari                                 >
               Kurang dari atau sama dengan               <=
               Lebih dari atau sama dengan                >=
               Like                                      Like

         Hasil dari operasi ini adalah nilai Boolean yaitu True atau False.

Contoh     :    If A >= 5 Then
                       Print “Nilai A lebih besar atau sama dengan 5”
                Else
                       Print “Nilai A lebih kecil dari 5”
                Endif

4.3.3 Operator Like
      Merupakan operator pencocokan pola pada string yang akan sangat membantu
programer.

         Syntax :    result = string Like pattern

                Karakter
                                           Penyamaan dalam string
               Dalam Pola
                   ?         Sembarang karakter Tunggal
                    *        Nol atau lebih Karakter
                   #         Sembarang digit tunggal (0-9)
                [charlist]   Sembarang karakter yang berada dalam charlist
                             Sembarang karakter yang tidak berada dalam
                [charlist]
                             charlist

         Contoh :       Hasil = “aBBBa” Like “a*a”             ‘ Hasilnya adalah True
                        Hasil = “F” Like “[A-Z]”               ‘ Hasilnya adalah True
                        Hasil = “F” Like “[!A-Z]”              ‘ Hasilnya adalah False

4.3.4    Tingkat Derajat Operator
         Tingkat/urutan suatu operator dapat dilihat di dalam tabel berikut ini :

                Operator                            Urutan
                             Nilai didalam tanda kurung selallu dievaluasi terlebih
               ( )
                             dahulu
               ^             Pangkat dievaluasi kedua
               -             Negasi (membuat angka negatif) dievaluasi ketiga
               * /           Perkalian dan Pembagian dievaluasi keempat
               \             Pembagian Integer dievaluasi kelima
               Mod           Sisa pembagian dievaluasi keenam
               + -           Penjualan dan pengurangan dievaluasi terakhir
               &             Penggabungan String

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 37
                                        BAB V
                                 FUNGSI & DIALOG BOX

5.1     Fungsi
        Microsoft Visual Basic menyediakan banyak fungsi untuk mengolah data. Di antaranya
yaitu fungsi String, Tanggal, Waktu dll.

5.1.1    Fungsi Tanggal
         Fungsi ini untuk mengambil data tanggal.
        • Date.
           Menghasilkan tanggal dari sistem.
           Contoh : cTanggal = Date
        • Day(Date).
           Menghasilkan tanggal dari suatu data tanggal.
           Contoh : cTanggal = Day(Date)
        • Month(Date).
           Menghasilkan bulan dari suatu data tanggal.
           Contoh : cBulan = Month(Date)
        • Year(Date).
           Menghasilkan tahun dari suatu data tanggal.
           Contoh : cTahun = Year(Date)

Program Praktek
   Form Design                                     Propertis
                                               Object    Property       Setting
                                             Form1      Name        FrmDate
                                                        Caption     Fungsi Tanggal
                                             Text1      Name        TxtTanggal
                                             Text2      Name        TxtTanggal2
                                             Text3      Name        TxtBulan
                                             Text4      Name        TxtTahun
                                             Command1 Name          CmdClose
                                                        Caption     &Close
Listing Program
        Private Sub cmdClose_Click()
          Unload Me ' keluar Dari VB
        End Sub

        Private Sub Form_Activate()
          txtTanggal.Text = Date ' Menampilkan Tanggal
          txtTanggal2.Text = Day(Date) ' Menampilkan Tanggal dari tanggal
          txtBulan.Text = Month(Date) ' Menampilkan Bulan dari Tanggal
          txtTahun.Text = Year(Date)   ' Menampilkan Tahun dari Tanggal
        End Sub

      Simpanlah Program tersebut dengan Nama Project yaitu Project Date. Jalankanlah
program tersebut di atas dengan menekan F5

5.1.2    Fungsi Waktu
         Fungsi ini untuk mengambil data Waktu.
        • Time.
           Menghasilkan tanggal dari sistem.
           Contoh : cWaktu = Time


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 38
        •Now
         Menghasilkan Tanggal waktu System
         Contoh : cWaktu = Now
      • Minute(Time)
         Menghasilkan Menit dari system.
         Contoh : cMenit = Minute (Time)
      • Hour(Time)
         Menghasilkan Jam dari system.
         Contoh : cJam = Hour(Time)
Program Praktek
     Form Design                          Propertis
                                           Object         Property       Setting
                                           Form1          Name           FrmTime
                                                          Caption        Fungsi Waktu
                                                 Text1    Name           TxtWaktu
                                                 Text2    Name           TxtTanggal
                                                 Text3    Name           TxtMenit
                                                 Text4    Name           TxtJam
                                                 Command1 Name           CmdClose
                                                          Caption        &Close

        Listing Program

         Private Sub cmdClose_Click()
           Unload Me ' keluar Dari VB
         End Sub

      Private Sub Form_Activate()
         txtWaktu.Text = Time           ' Menampilkan Waktu
         txtTanggal.Text = Now          ' Menampilkan Tanggal & Jam System
         txtmenit.Text = Minute(Time)   ' Menampilkan Menit dari Waktu
         txtJam.Text = Hour(Time)       ' Menampilkan Jam dari Waktu
      End Sub
   Simpanlah Program tersebut dengan Nama Project yaitu Project Time. Jalankanlah
   program tersebut di atas dengan menekan F5

5.1.3   Fungsi String
        Merupakan fungsi yang disediakan oleh Microsoft Visual basic untuk mengolah data
string, antara lain :

        •   &      untuk penggabungan String
            Contoh:
                Private Sub Form_Activate()
                       Dim cText1 As String, cText2 As String, cText3 As String
                       cText1 = “Kartika”
                       cText2 = “Jaya”
                       cText3 = cText1 & cText2
                       MsgBox cText3
                End Sub

        •   Len(Text)   untuk menghitung panjang karakter dari suatu string.
            Contoh:
                Private Sub Form_Activate()
                       Dim cText1 As String
                       cText1 = “Kartika Jaya”
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 39
                MsgBox “Panjang Karakter : “ & Len(cText1)
          End Sub

     •   Left(String, n)   untuk mengambil sejumlah karakter yang dihitung mulai dari kiri
         kalimat(String) sebanyak n karakter.
         Contoh:
              Private Sub Form_Activate()
                      Dim cText1 As String
                      cText1 = “Kartika Jaya”
                      MsgBox Left(cText1, 4)    ‘ Hasilnya adalah “Kart”
              End Sub

     •   Right(String, n)    untuk mengambil sejumlah karakter yang dihitung mulai dari
         kanan kalimat(String) sebanyak n karakter.
         Contoh:
             Private Sub Form_Activate()
                     Dim cText1 As String
                     cText1 = “Kartika Jaya”
                     MsgBox Right (cText1, 6)    ‘ Hasilnya adalah “a Jaya”
             End Sub

     •   Mid(String, PosMid, n)    untuk mengambil sejumlah karakter yang dihitung dari
         PosMid sebanyak n karakter.
         Contoh:
             Private Sub Form_Activate()
                     Dim cText1 As String
                     cText1 = “Kartika Jaya”
                     MsgBox Mid(cText1, 3, 5) ‘ Hasilnya adalah “rtika”
             End Sub

     •   Trim(String)    Mengabaikan spasi awal dan akhir suatu string.
         Contoh:
             Private Sub Form_Activate()
                      Dim cText1 As String
                      MsgBox Len(Trim(“ Kartika Jaya    ”)
             End Sub

     •   Str(Number)     mengkoversi tipe data Numerik menjadi data Karakter atau String
         Contoh:
              Private Sub Form_Activate()
                     Dim cText1 As String
                     Dim n1 As Byte, n2 As Byte
                     n1 = 1000
                     n2 = 1500
                     cText1 = Str(n1) + Str(n2)
                     MsgBox cText1               ‘Hasilnya : 1000 1500
              End Sub

     •   StrConv(Kalimat, typekonversi)     Mengubah Kalimat ke bentuk character yang
         diinginkan.

         Keterangan :
         - vbLowerCase      : mengubah seluruh karakter menjadi format non kapital
         - vbUpperCase      : mengubah seluruh karakter menjadi format kapital
         - vbProperCase     : setiap karakter satu huruf pertamanya diubah ke format kapital

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                       Hal : 40

         Contoh:
                Private Sub Form_Activate()
                       MsgBox StrConv(“Kartika Jaya”, vbLowerCase)
                       MsgBox StrConv(“kartika jaya”, vbUpperCase)
                       MsgBox StrConv(“kartika jaya”, vbProperCase)
                End Sub

5.2   Dialog Box
      Microsoft Visual Basic menyediakan dua buah dialog yang berguna untuk
menginputkan & menampilkan pesan.

5.2.1  Input Box
       Merupakan sebuah kotak masukan yang disediakan oleh VB. Melalui dialog inilah
pemakai dapat memasukkan data dan selanjutnya data yang diinput tersebut dapat diproses
sesuai kebutuhan program.

      Syntax : nmVar = InputBox( Prompt, [Title], [Default], [XPos], [YPos]) As string

Keterangan :
     • NmVar : Tempat untuk menampung nilai yang di masukkan
     • Prompt : Isi pesan sebagai yang ditampilkan untuk User
     • Title : Judul Pesan
     • Default : Nilai yang selalu muncul saat Input Box di gunakan
     • Xpos : Posisi koordinat dari Input Box untuk Colom (Horizontal)
     • Ypos : Posisi koordinat dari Input Box untuk Baris (Vertical)
     • As string        : Type data yang diinputkan adalah string walaupun isinya Angka.


Program Praktek
Design Form




                                       Hasil di Program di jalankan (Lay Out Program)
      Listing Program

  Private Sub Form_Activate()
    Dim x As String      ' Mendeklarasikan variabel x dgn type String
    x = InputBox("Inputkan Nama Anda ? ", "Input Nama") ' menginputkan nilai x
    Text1.Text = x      ' memberikan nilai x ke TextBox1
  End Sub

  Simpanlah Program tersebut dengan Nama Project yaitu Project InputBox.
  Jalankanlah program tersebut di atas dengan menekan F5


5.2.2    Message Box
         Yaitu kotak dialog yan berguna sebagai informasi kepada pemakai(user).

         Syntax : nmVar = MsgBox(Prompt,Button,Title)


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 41
    Keterangan :
       • NmVar : Tempat untuk menampung nilai yang di masukkan
       • Prompt : Isi pesan sebagai yang ditampilkan untuk User
       • Title : Judul Pesan

      Buka Program Input Box diatas dan tambahkan program di bawah sebelum statement
End Sub.

       MsgBox "Nama Anda : " & x, vbInformation + vbOKOnly, "Nama"

Sehingga menjadi berikut ini

       Private Sub Form_Activate()
             Dim x As String      ' Mendeklarasikan variabel x dgn type String
             x = InputBox("Inputkan Nama Anda ? ", "Input Nama") ' menginputkan nilai x
             Text1.Text = x      ' memberikan nilai x ke TextBox1
             MsgBox "Nama Anda : " & x, vbInformation + vbOKOnly, "Nama"
       End Sub

       Simpanlah Program tersebut dengan cara menekan Ctrl + S, atau Click Icon Disket.
       Kemudian jalankanlah program tersebut dengan menekan F5

Hasil Running Program




Ganti Statement berikut  :
             MsgBox "Nama Anda : " & x, vbInformation + vbOKOnly, "Nama"
Dengan
             MsgBox "Apakah anda bernama " & x & " ?", vbQuestion + vbYesNo, "Nama"


Jalankan program kembali & lihat hasilnya.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                 Hal : 42
                                       BAB VI
                                  STRUKTUR KENDALI

       Program adalah proses yang sambung menyambung. Untuk mencapai tujuan program
harus melalui tahap-tahap tertentu, sehingga diperlukan alur program yang jelas dan efisien.
Visual Basic mengenal beberapa tipe alur seperti pencabangan, perulangan ataupun
pelompatan.

6.1    Struktur Keputusan (Percabangan)
       Struktur keputusan terdapat dua yaitu If dan Case yang masing-masing mempunyai
kelebihan tersendiri.

6.1.1   Percabangan IF
        Berguna menyeleksi suatu syarat/kondisi.

        • If…Then (If Tunggal)
        Struktur If…Then berguna untuk menilai satu kondisi yang bernilai benar saja misalnya
        :
        Syntax :      If cKondisi Then Statement

        Contoh :      If cSex = “P” Then Komen = “Perempuan”
                      If cSex = “L” Then Komen = “Laki-Laki”

        • If…Then…Else (If Ganda)
        Struktur If…Then berguna untuk menilai satu atau dua kondisi misalnya :
        Syntax : If cKondisi Then
                      Statement1              Bagian TRUE
                      Statement2
               Else
                      Statemen3               Bagian FALSE
               End If

        Contoh :
              If cSex = “P” Then
                     Komen = “Perempuan”         ‘ bagian True (Benar)
              Else
                     Komen = “Laki-Laki” ‘ bagian False (Salah)
              End If

               Atau penulisan yang lain
               If cSex = “P” Then Komen = “Perempuan” Else Komen = “Laki-Laki”

        Anda perhatikan jika bentuk penulisan yang kedua tidak menggunakan End If.

        • If…Then…ElseIf…Then…Else… (If Majemuk)
        Struktur If…Then…ElseIf…Then…Else… berguna untuk menilai tiga atau lebih kondisi
        misalnya :

        Syntax : If cKondisi1 Then
                      Statement1
                 ElseIf cKondisi2 Then
                              Statemen2
                      ElseIf cKondisi2 Then
                              Statemen3
                          ElseIf cKondisiN Then

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                    Hal : 43
                           Statemen4
            End If

Contoh : If Angka=1 Then
              Komen = “Satu”
         ElseIf Angka=2 Then
                 Komen = “Dua”
              Else
                 Komen = “Empat”
         Endif

Program Praktek
1. Designlah form berikut ini :
                                                Listing Program

                                                Private Sub cmdProses_Click()
                                                  Dim ket As String

                                                    ket = "GAGAL"
                                                    If txtNilai.Text >= 60 Then ket = "LULUS"
                                                    txtKet.Text = ket

                                                End Sub

  Jalankanlah program tersebut.                 Private Sub Form_Activate()
                                                  txtNilai.Text = ""
                                                  txtKet.Text = ""
                                                End Sub

2. Designlah form berikut ini :

                                                     Nama Program : Project IF Lat 61
                                                     Nama Form : Frm Lat IF 61




 Listing Program
  Private Sub cmdProses_Click()                            Private Sub Form_Activate()
        IF txtNilai.Text >= 80 Then                          txtNPM.Text = ""
              txtNHuruf.Text = "A"                           txtNama.Text = ""
        ElseIf txtNilai.Text >= 70 Then                      txtMatakuliah.Text = ""
                  txtNHuruf.Text = "B"                       txtNilai.Text = ""
             ElseIf txtNilai.Text >= 60 Then                 txtNHuruf.Text = ""
                       txtNHuruf.Text = "C"                  txtNPM.SetFocus
                  ElseIf txtNilai.Text >= 50 Then          End Sub
                            txtNHuruf.Text = "D"
                       Else
                            txtNHuruf.Text = "E"
        Endif
  End Sub
  Jalankan program tersebut.

 ☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                 Hal : 44
  Private Sub txtNilai_KeyPress(KeyAscii As Integer)        Jika kita ingin tidak mengclick
    IF KeyAscii = 13 Then                                   command        proses     untuk
                                                            memproses nilai huruf maka
        IF txtNilai.Text >= 80 Then                         kita bisa juga menggunakan
              txtNHuruf.Text = "A"                          event      Keypressed      yang
        ElseIf txtNilai.Text >= 70 Then                     diletakkan pada txtNilai.
                  txtNHuruf.Text = "B"
             ElseIf txtNilai.Text >= 60 Then                Sekarang coba tambahkan
                       txtNHuruf.Text = "C"                 program disamping ini pada
                  ElseIf txtNilai.Text >= 50 Then           program
                            txtNHuruf.Text = "D"
                       Else                                    Jalankan program
                            txtNHuruf.Text = "E"               tersebut.
        Endif

   End If
  End Sub

3. Desiglah Program Berikut (menggunakan Fungsi Mid, Left, Right )

                                                    Nama Program : Project IF Lat 62
                                                    Nama Form : Frm Lat IF 62




  Listing program
  Private Sub cmdProses_Click()
     Dim x As String
     txtTahun.Text = “20” & Left(txtNPM.Text, 2) ‘ Mencari Tahun Masuk
     x = Mid(txtNPM.Text, 3, 1)      ' Mencari jenjang Studi
     If x = "1" Then
         txtJenjang.Text = "Diploma I"
     ElseIf x = "3" Then
                txtJenjang.Text = "Diploma III"
           ElseIf x = "4" Then
                    txtJenjang.Text = "Strata I"
     End If

    x = Mid(txtNPM.Text, 4, 2) ' Mencari Jurusan
    If x = "01" Then
        txtJurusan.Text = "Manajemen Informatika"
    ElseIf x = "02" Then
               txtJurusan.Text = "Sistem Informasi"
          ElseIf x = "03" Then
                   txtJurusan.Text = "Teknik Komputer"
               ElseIf x = "04" Then
                        txtJurusan.Text = "Akuntansi"
    End If
    txtNomor.Text = Right(txtNPM.Text, 3) ' Mencari Nomor Urut
  End Sub

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                          Hal : 45
  Private Sub Form_Activate()
    txtNPM.ToolTipText = "Maxsimal NPM 9 Character"
    txtNPM.Text = ""
    txtJenjang.Text = ""
    txtJurusan.Text = ""
    txtTahun.Text = ""
    txtNomor.Text = ""
  End Sub

  Jalankan Program tersebut. Pada Text Box NPM isikan datanya 04402009 kemudian klik
  proses. Lihat hasilnya.

  Sekarang rubah NPM dengan 02301191
  Lihat hasilnya.


6.1.2  Pencabangan Case
       Struktur ini digunakan sebagai alternatif pengganti dari struktur If…Then…Else.
Penulisan pada Select Case lebih mudah & efisien dan mudah dibaca/dipahami oleh
pemrogram. Jika alternatif suatu kondisi sedikit kita bisa menggunakan pencabangan If.
Namun bila pilihannya banyak, akan lebih mudah jika kita menggunakan pencabangan Case.

        Syntax :      Select Case Variabel
                      Case Value1
                             Statement1
                      Case Value2
                             Statement2
                      Case Value3
                             Statement3
                      ..
                      ..
                      ..
                      End Select

Program Praktek
Designlah form berikut ini :

                                                Nama Program : Project Case Lat 61
                                                Nama Form : Frm Lat Case 61




 ☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 46
Listing Program

  Private Sub cmdProses_Click()                 Private Sub Form_Activate()
    txtNHuruf.Text = ""                           txtNPM.Text = ""
    Select Case txtNilai.Text                     txtNama.Text = ""
       Case Is >= 80                              txtMatakuliah.Text = ""
         txtNHuruf.Text = "A"                     txtNilai.Text = ""
       Case 70 To 79                              txtNHuruf.Text = ""
         txtNHuruf.Text = "B"                     txtNPM.SetFocus
       Case 60 To 69                            End Sub
         txtNHuruf.Text = "C"
       Case 50 To 59
         txtNHuruf.Text = "D"
       Case Is <= 49
         txtNHuruf.Text = "E"
    End Select
  End Sub


6.2     Perulangan (Looping)
        VB menyediakan beberapa macam tipe perulangan diantaranya :
              Do…Loop
              While…Wend
              For…Next.

6.2.1 Do…Loop
      Perulangan ini sangat bermanfaat karena kita tidak tahu berapa kali kita harus
mengulang suatu statemen.

  Syntax 1 :      Do Until Kondisi    Syntax 2 :    Do While Kondisi
                  Statement1                        Statement1
                        Statement2                        Statement2
                        …                                 …
                        StatementN                        StatementN
                  Loop                              Loop

Program Praktek

Design Form         Hasil Program Listing Program




        Maka I akan berulang sebanyak 10 kali. Untuk keluar dari perulangan Do…Loop maka
kita harus menggunakan kata cadangan Exit Do.


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 47
    Contoh :        Dim I As Integer
           I=0
           Do While I < 10
                    I=I +1
                    Print “Loop Ke” ; I
                    If I = 5 Then Exit Do
           Loop
    Maka jika nilai I telah mencapai 5 maka perulangan Do…Loop akan terhenti.

6.2.2 For…Next
      Perulangan For…Next akan mengulang sebanyak yang kita tentukan. Penentuan ini
berupa nilai awal, nilai akhir dan nilai selang. Nilai selang bisa berupa penambahan atau
pengurangan.

Syntax :      For nmVariabel = nAwal To nAkhir Step nSelang
                    Statement1
                    Statement2
                    …
                    StatementN
              Next nmVariabel

Program Praktek
Design Form       Hasil Program    Listing Program




        Selama nSelang tidak disebutkan maka default nSelang akan bernilai 1. Untuk keluar
dari perulangan For diwaktu nilai nAwal belum sampai ke nAkhir maka bisa kita gunakan kata
cadangan Exit For.

6.2.3  While…Wend
       Perulangan ini akan dikerjakan selama nilai kondisinya bernilai True atau benar.
Pernyataan while akan mengevaluasi suatu kondisi ekspresi pada awal proses, jika suatu
batas telah tercapati maka perulangan akan dihentikan oleh Wend.

        Contoh :     Dim I As Integer
              I=0
              While I < 10
                     I=I+1
                     List1.AddItem “MBPSU”
              Wend




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                         Hal : 48
Tugas Praktikum
1. Buatlah program untuk mencari Pembayaran Rekening Air jika di ketahui ketentuan-
   ketentuan program sebagai berikut :
       - Kode Pelanggan terdiri atas :
          “A1”      Maka Jenis Pelanggan      : “Pelanggan Pabrik”
                           Biaya Beban        : 35000
                           Harga per Kubik    : 1525,-
          “A2”      Maka Jenis Pelanggan      : “Pelanggan Supermarket/Swalayan”
                           Biaya Beban        : 27900
                           Harga per Kubik    : 1125,-
          “A3”      Maka Jenis Pelanggan      : “Pelanggan Toko/Pasar”
                           Biaya Beban        : 21900
                           Harga per Kubik    : 755,-
          “A4”      Maka Jenis Pelanggan      : “Pelanggan Biasa/Normal”
                           Biaya Beban        : 17500
                           Harga per Kubik    : 525,-
       - Isikan Juga Nama, Alamat & Pemakaian Air
       - Pembayaran = Pemakaian * Harga per Kubik + Biaya Beban.
   Simpan project dengan nama Project Tugas 61 dan Frm Tugas 61

2. Designlah Form berikut ini.




Dengan Ketentuan Proses yaitu :          Nama Program : Project Case Lat 61
  a. Kode Komputer yaitu :               Nama Form : Frm Lat Case 61
     “P205” Jenis Komputer : Pentium II 500 Mega Hz          Harga Satuan : 3.500.000
     “P308” Jenis Komputer : Pentium III 800 Mega Hz         Harga Satuan : 4.100.000
     “P310” Jenis Komputer : Pentium III 1.0 Giga Hz         Harga Satuan : 4.500.000
     “P415” Jenis Komputer : Pentium IV 1.5 Giga Hz          Harga Satuan : 5.900.000
     “P417” Jenis Komputer : Pentium IV 1.7 Giga Hz          Harga Satuan : 7.000.000
     “P419” Jenis Komputer : Pentium IV 1.9 Giga Hz          Harga Satuan : 7.500.000
  b. Harga Penjualan = Jumlah Jual * Harga Satuan
  c. Discount didapat dari
      Jika Harga Penjualan >20.000.000 maka Discount = 5 % * Harga Penjualan
      Jika Harga Penjualan >18.000.000 maka Discount = 3.5 % * Harga Penjualan
      Jika Harga Penjualan >14.000.000 maka Discount = 2 % * Harga Penjualan
      Jika Harga Penjualan >10.000.000 maka Discount = 1.5 % * Harga Penjualan
  d. Harga Bayar = Harga Penjualan - Discount
 ☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                             Hal : 49
3. Designlah Form berikut ini.




     Ketentuan :
     1. Mencari Nama Jurusan, Uang Kuliah
             Kode         Nama Jurusan           Uang Kuliah
          MIK        Manajemen Informatika           205000
          TIK        Teknik Informatika              250000
          TK         Teknisi                         150000
          OP         Operasional Komputer            100000
     2. Pembayaran = Denda * Uang Kuliah
     3. Command Clear berguna menghapus Isian TextBox
        Command Selesai berguna keluar dari program
        Command Proses berguna memproses Pembayaran




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 50
                                    BAB VII
                        CONTROL STANDARD II & PROCEDURE


7.1    Line & Shape
Line berguna untuk pembuatan garis sedangkan Shape
berfungsi untuk membuat objek typical seperti
pembuatan kotak, lingkaran, dll. Bentuk-bentuk shape
antara lain (Properti Shape) antara lain Rectangle,
Square, Oval, Circle dll.


7.2    HScrollBar & VScrollBar
       Horizontal ScrollBar dan Vertical ScrollBar
digunakan untuk memungkinkan pemakai melakukan
pemasukkan data secara analog, dengan melakukan
penggeseran ataupun penekanan tombol (kiri, kanan,
atas, bawah).

        Properti yang perlu di perhatikan yaitu :
        Max     Nilai Tertinggi.
        Min    Nilai terendah.
        SmallChange         Kelipatan nilai Scrollbar tersebut.


7.3    Timer
       Merupakan object non visual yang bekerja terus-menerus berdasarkan interval waktu
yang diberikan.
       Properti yang perlu di perhatikan yaitu :
       Interval    berguna untuk mengatur jarak waktu.
       Enabled     menyatakan bahwa timer aktif dan tak aktif (True / False)

7.4    Procedure
       Procedure di gunakan untuk memadatkan tugas-tugas berulang ataupun proses yang
digunakan bersama, seperti perhitungan yang sering dilakukan, text dan manipulasi kontrol,
serta operasi Database.

        Keuntungan menggunakan procedure :
        • Memungkinkan kita untuk memecah program anda pada unit logika yang lebih,
           kecil sehingga dapat dengan mudah melakukan proses debug dari pada jika
           keseluruhan program tanpa menggunakan procedure.
        • Procedure yang digunakan dalam suatu program dapat bertindak sebagai suatu
           blok yang dibangun untuk program lain dengan sedikit perubahan atau tanpa
           perubahan sama sekali.

        Jenis-jenis Procedure dalam VB :
        • Sub Procedure yang tidak mengembalikan nilai.
        • Function Procedure yang mengembalikan nilai.
        • Property Procedure yang dapat mengembalikan nilai dan diisi nilai yang mengacu
           pada suatu object

7.4.1   Sub Procedure
        Merupakan blok kode yang dijalankan sebagai tanggapan atas terbentuknya kejadian
(event).


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                     Hal : 51
    Syntax :   [ Private | Public ] [Static] Sub namaProsedur (argumen)
                       Statement1
                       Statement2
                       Statement3
               End Sub

        Setiap kali prosedur dipanggil maka pernyataan/statement-statemen yang ada dalam
prosedur (antara Sub dan End Sub) tersebut akan di eksekusi. Argumen pada procedure
adalah nilai yang akan dilewatkan saat pemanggilan procedure yang mirip deklarasi variabel,
yaitu pemakaian nilai tertentu saat prosedur di panggil.

        Sub procedure dapat ditempatkan pada standard module, class module dan form
module. Secara default, scope Sub procedure adalah Public untuk semua module, sehingga
bisa dipanggil dari bagian manapun di dalam program.

        Pada VB6 ada dua jenis prosedur utama, yaitu :
        • General Procedure
                  Bertugas memberi tahu aplikasi cara penyusunan tugas-tugas tertentu.
           Sekali didefinisikan , general procedure akan dijalankan oleh aplikasi. Tidak
           demikian dengan Event Procedure, yang dijalankan hanya jika ada event dari
           pemakai. Contoh :

                Sub CenterSCR( x As Form )
                      x.Top = (Screen.Height – x.Height) \ 2
                      x.Left = (Screen.Width – x. Width) \ 2
                End Sub

                ‘ memanggil sub CenterSCR dengan nilai argumen yaitu Me (Form)
                Private Sub Form_Load()
                       Call CenterSCR( Me )
                End Sub

        •   Event Procedure
            Procedure ini akan dijalankan bila ada event dari pemakai. Contoh :

                ‘ Event yang terjadi adalah Load
                Private Sub Form_Load()
                        Call CenterSCR( Me )
                End Sub

7.4.2  Function Procedure
       VB6 menyediakan fungsi-fungsi yang jumlahnya banyak dan gunanya bermacam-
macam. Misalnya : Sqr, Cos, Chr, etc. Fungsi-fungsi yang tersedia tersebut bersifat umum
dan kadang-kadang tidak memenuhi kebutuhan programer, untuk keperluan tersebut anda
dapat menciptakan fungsi-fungsi sendiri.

Syntax :    [ Private | Public ] [Static] Function namaFunction (argumen) [As Type ]
                 Statement1
                 Statement2
                 Statement3
            End Sub




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 52
Contoh :

  ‘ fungsi ini diletakkan pada sebuah Module
  Function fMonth(x As Date) As String          ‘ pemanggilan fungsi dapat dalam module
     Select Case Month(x)                       ‘ Form atau yang lainnya.
       Case 1: fMonth = "Januari"               Private Sub CmdProses_Click ()
       Case 2: fMonth = "Februari"                    Dim cBulan As String
       Case 3: fMonth = "Maret"                       cBulan = fMonth( Date )
       Case 4: fMonth = "April"                       Msgbox cBulan
       Case 5: fMonth = "Mei"                   End Sub
       Case 6: fMonth = "Juni"
       Case 7: fMonth = "Juli"
       Case 8: fMonth = "Agustus"
       Case 9: fMonth = "September"
       Case 10: fMonth = "Oktober"
       Case 11: fMonth = "November"
       Case 12: fMonth = "Desember"
     End Select
 End Function

   Ada tiga perbedaan antara procedure dan function.
   • Function memiliki Type data seperti suatu variabel. Ini menentukan type yang dari nilai
      yang di kembalikan.
   • Nilai kembali dimasukkan ke nama function itu sendirinya, dan suatu function dapat
      menjadi bagian dari suatu ekspresi yang panjang.
   • Umumnya anda dapat memanggil suatu function dengan mengikutkan nama function
      sisi kanan dari statement atau ekspresi.
      Contoh : cBulan = fMonth( Date )

Bahan Praktek
1. Rancanglah suatu form dengan bentuk seperti dibawah ini. Simpan nama Project dengan
   nama Project Shape 1.
   Design Form




   Propertis
    Object            Properties      Setting
    Form              Name            FrmShape
                      Caption         Manipulasi Object Shape
    Shape1            -               -
    Command1          Name            CmdRectangle
                      Caption         Rectangle
    Command2          Name            CmdSquare
                      Caption         Square
    Command3          Name            CmdOval
                      Caption         Oval
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                          Hal : 53
    Command4         Name           CmdCircle
                     Caption        Circle
    Command5         Name           CmdRRectangle
                     Caption        Rounded Rectangle
    Command6         Name           CmdRSquare
                     Caption        Rounded Square

Listing Program

    Private Sub CmdCircle_Click()   Private Sub CmdRRectangle_Click()
      Shape1.Shape = 3                Shape1.Shape = 4
    End Sub                         End Sub

    Private Sub CmdOval_Click()     Private Sub CmdRSquare_Click()
      Shape1.Shape = 2                Shape1.Shape = 5
    End Sub                         End Sub

    Private Sub                     Private Sub CmdSquare_Click()
    CmdRectangle_Click()              Shape1.Shape = 1
      Shape1.Shape = 0              End Sub
    End Sub



2. Rancanglah suatu form dengan bentuk seperti dibawah ini. Simpan nama Project dengan
   nama Project Timer 1.
   Form Design




   Properties
    Object        Properties   Setting
    Form          Name                       FrmTimer
                  Caption      Form Text Bergerak/Moving
     Frame1       Caption      Empty
     Command1     Name         CmdGerak1
                  Caption      Text Moving 1
     Command2     Name         CmdGerak2
                  Caption      Text Moving 2
     Timer1       Enabled      False
                  Interval     200
     Timer2       Enabled      False
                  Interval     200
     Label1       Name         LblText


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 54
                   Caption      Sekolah Tinggi Manajemen Informatika
                                Komputer STMIK Jln. Sudirman No 008
                                Telp. 061-08098888
    Notes :Untuk label1 anda pastikan untuk menyusun tulisan tersebut agar letaknya di
    tengah tengah, dengan cara memberikan spasi.

    Listing Program
    Dim i As Integer
    Private Sub                  Private Sub Timer1_Timer()
    CmdGerak1_Click()              i=i+1
       Timer1.Enabled = True       lblText.Top = lblText.Top - i
       Timer2.Enabled = False      If i > 90 Then
       i=1                             lblText.Top = 3000
       lblText.Top = 3060              i=1
       lblText.Left = 90           End If
    End Sub                      End Sub

                                 Private Sub Timer2_Timer()
    Private Sub                    i=i+1
    CmdGerak2_Click()              lblText.Left = lblText.Left + i
      Timer2.Enabled = True        If i > 128 Then
      Timer1.Enabled = False           lblText.Left = -3500
      i=1                              i=1
      lblText.Left = -3500         End If
      lblText.Top = 1000         End Sub
    End Sub


3. Designlah form berikut ini

                                          Propertis tidak ada yang dirubah kecuali Caption
                                          Form1 & Label1 (seperti terlihat)




   Listing program
   Private Sub cmdExit_Click()             Private Sub HScroll1_Change()
      Unload Me                              Label1.Left = HScroll1.Value
   End Sub                                 End Sub

   Private Sub Form_Activate()             Private Sub VScroll1_Change()
     VScroll1.Max = Me.Height - 1000         Label1.Top = VScroll1.Value
     HScroll1.Max = Me.Width - 1700        End Sub
   End Sub


   Simpanlah program terlebih dahulu dengan nama Project : Project VHScrollBar dan
   Form : Frm VHScroll (Pilih File kemudian Save Project untuk menyimpan). Jalankahlah
   Program (Tekan F5)


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 55
4. Buatlah Form Berikut ini :

                                        Aturlah properti dari object tersebut sesuai dengan
                                        yang telah kita pelajari (penamaan suatu Object)



    Listing Program
    Function fMonth(x As Date) As String
      Select Case Month(x)
         Case 1: fMonth = "Januari"
         Case 2: fMonth = "Februari"
         Case 3: fMonth = "Maret"
         Case 4: fMonth = "April"
         Case 5: fMonth = "Mei"
         Case 6: fMonth = "Juni"
         Case 7: fMonth = "Juli"
         Case 8: fMonth = "Agustus"
         Case 9: fMonth = "September"
         Case 10: fMonth = "Oktober"
         Case 11: fMonth = "November"
         Case 12: fMonth = "Desember"
      End Select
    End Function

    Private Sub CmdProses_Click()
      txtBulan.Text = fMonth(txtTanggal.Text)
    End Sub

    Private Sub Form_Activate()
      txtTanggal.Text = ""
      txtBulan.Text = ""
      txtTanggal.SetFocus
    End Sub

   Simpanlah program terlebih dahulu dengan nama Project : Project Fungsi
   dan Form : Frm Fungsi (Pilih File kemudian Save Project untuk menyimpan)

5. Buatlah Form Berikut ini :




    Propertis
    Object               Properti          Setting
    Form1                Name              FrmPassword
                         Caption           Password
    Timer                Interval          15000
                         Enabled           True
    Label1               Caption           Enter your password within 15
                                           seconds

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 56
    Text1                Name              TxtPassword
                         Text              (Kosongkan)
                         PasswordChard     *
    Command1             Name              CmdTry
                         Caption           Try &Password

   Listing Program
   Private Sub cmdTryPassword_Click()
      ‘ membandingkan jika kita mengetikkan aldyan
      If txtPassword.Text = "Aldyan" Then
            Timer1.Enabled = False                      ‘ menonaktifkan timer1
                   MsgBox "Welcome to the system !"     ‘ menampilkan kotak pesan
             End                                        ‘ berhenti dari program
      Else
             MsgBox "Sorry, Friend, I don't now you."   ‘ menampilkan kotak pesan
      End If
   End Sub

   Private Sub Timer1_Timer()
     MsgBox "Sorry, your time is up."                   ‘menampilkan kotak pesan
     End
   End Sub

Tugas Praktikum
1. Berdasarkan program di bawah ini buatlah suatu Function untuk mencari Total Harga.
   (procedure di panggil dari Command Proses)

                                                   Simpan project dengan nama Project
                                                   Tugas 71 dan Frm Tugas 71




2. Buatlan Fungsi untuk mencari Bulan (Angka) berdasarkan Bulan(Huruf)

                                                  Simpan project dengan nama Project
                                                  Tugas 72 dan
                                                  Frm Tugas 72




   Notes : Gunakan Fungsi IF untuk membuat Fungsi

3. Buatlah program untuk menampilkan Jam dengan menggunakan label.

                                     Simpan project dengan nama Project Tugas 73
                                     dan Frm Tugas 73




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                           Hal : 57
                                     BAB VIII
                               INTEGRASI PROGRAM

8.1 Menu Editor
      Jika program yang kita buat sudah cukup besar dan kompleks, maka kita perlu
membuat menu program untuk mengintegrasikan program-program anda, sehingga pemakai
program tidak kesulitan menggunakan prgoram yang kita buat. VB menyediakan sarana
pembuatan menu yang disebut Menu Editor, yaitu sarana yang amat mudah digunakan,
namun canggih karena serba bisa.




  Keterangan :
   Perintah       Keterangan
   Caption        Judul menu yang akan ditampilkan sebagai MainMenu (Menu Utama)
                  dan Kita dapat menggunakan symbol ("&") pada Judul menu untuk
                  membuat Shortcutnya.
   Name           Nama control dari judul menu, yang kelak dipakai untuk mengakes
                  suatu code perintah.
   Index          Bernilai angka sebagai urutan dari untuk satu Item MainMenu
   ShortCut       Memilih ShortCut Keyboard untuk mengakses SubMenu yang ada
                  dalam MainMenu
   HelpContextI   Bernilai angka untuk membuat ID dari suatu menu yang bersifat unik
   D
   NegotiatePo    Mengatur posisi dari menu yang dirancang
   sition
   Checked        Menentukan apakah menu memakai keadaan cek atau tidak
   Enabled        Menentukan apakah menu memakai keadaan Aktif atau tidak
   Visible        Menentukan apakah menu memakai keadaan Tampil atau tidak
                  tampil
   WindowList     Menentuka apakah menu mengenal dapat membuka objek yang lain
                  dalam keadaan MDIChild True atau tidak
                  Mengurangi Level menu

                  Menambah Level menu
                  Memindahkan menu ke atas
                  Memindahkan menu ke bawah
                  Memindahkan posisi menu ke posisi lain



☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 58
                  Menambah menu selanjutnya

                  Menghapus menu yang diklik
                  Memastikan menu yang dibuat terbentuk dan keluar dari Menu Editor

                  Membatalkan menu yang dibuat dan keluar dari Menu Editor


       Dengan Menu Editor kita bisa dengan mudah menyusun menu bar, perintah-perintah
menu, pemisah (separator), kunci pemercepat ataupun jenis menu pop up. Dalam pembuatan
sebuah Menu Utama pada Visual Basic, terdapat dua jenis yaitu :
       1. SDI (Single Document Interface)
       2. MDI (Multiple Document Interface)
       Menu Utama yang berbentuk MDI sering digunakan untuk berbagai jenis aplikasi
karena mempunyai kelebihan-kelebihan sebagai berikut :
       1. Form-form yang lain akan berada dalam tampilan form MDI karna form MDI akan
          sebagai induknya
       2. Tertata rapi.
       3. Jika kita memanggil lebih dari satu form maka form-form yang kita panggil akan
          teratur letaknya.

    Single Document Interface(SDI)
8.1.1
    Langkah-langkahnya :
    1. Buatlah suatu project baru dengan cara pilih File | New Project kemudian pilih
       Standard Project
    2. Pilihlah form yang terbentuk pada project baru tersebut dan rubahlah setting
       properties pada Form tersebut dengan
       Name         : MenuSDI (untuk pemberian suatu name tidak boleh ada spasi)
       Caption      : Menu Utama        Daftar Mahasiswa Sekolah Tinggi Manajemen
                          Informatika dan Komputer
       WindowsState        :      Maximized
    3. Kemudian click Tools | Menu Editor atau Ctrl + E dan muncul dialog Menu Editor.
    4. Ketiklah menu dan sub menu dibawah ini
        Caption            Name         Keterangan
        &File              MnFile       Menu
        ….&Form1           mnF1         Sub menu
        ….-                mnFSep1      Sub menu
        ….F&orm2           mnF2         Sub menu
        ….-                mnFSep2      Sub menu
        ….Fo&rm3           mnF3         Sub menu
        ….-                mnFSep3      Sub menu
        ….E&xit            mnFExit      Sub menu
        &Laporan           mnLaporan Menu
        ….For&m4           mnLap4       Sub menu
        ….                 mnLap5       Sub menu, Sub menu
        ….For&m5
        ….-                mnLSep1      Sub menu
        ….Form&6           mnLap6       Sub menu
    Keterangan :
       - Untuk membuat sub menu maka kita harus click             sehingga muncul ….
            (sebanyak 4 buah) yang menandakan sebagai sub menu
       - Untuk membuat dia menjadi menu, …. tersebut kita hilangkan menjadi normal
            kembali (click Panah Kiri)
       - Yang perlu diperhatikan yaitu Name untuk masing-masing caption tidak boleh
            sama.
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                         Hal : 59
    5. Setelah menu dan sub menu tersebut telah selesai lalu Click Ok. Dan sekarang
       anda telah melihat pada Form tersebut terbentuklah suatu menu. Jika pada saat
       click Ok akan terdapat suatu kesalahan maka pastikan name untuk tiap-tiap
       caption tidak boleh sama.
    6. Simpanlah Form ini dengan nama MenuSDI, dan project dengan nama Project
       Menu SDI
    7. Selanjutnya jalankanlah program MenuSDI

8.1.2   Multiple Document Interface(MDI)
        Langkah-langkahnya :

        1. Buatlah suatu project baru dengan cara pilih File | New Project kemudian pilih
           Standard Project
        2. Click menu Project | Add MDI Form
        3. Lalu akan muncul tampilan dialog New MDI Form, click Open
        4. Pilihlah form yang terbentuk pada project baru tersebut dan rubahlah setting
           properties pada Form tersebut dengan :
                   Name            : MenuMDI
                   Caption         : Menu Utama Daftar Mahasiswa Sekolah Tinggi
                                     Manajemen Informatika dan Komputer
                   WindowsState : Maximized

        5. Kemudian click Tools | Menu Editor atau Ctrl + E dan muncul dialog Menu Editor.
        6. Ketiklah menu dan sub menu yang berada pada SDI sebelumnya.
           Notes : Untuk aturan apakah dia menjadi menu atau sub menu sama dengan
           pembuatan pada menu SDI

        7. Setelah menu dan sub menu tersebut telah selesai lalu Click Ok. Dan sekarang
           anda telah melihat pada MDI Form tersebut terbentuklah suatu menu. Jika pada
           saat click Ok akan terdapat suatu kesalahan maka pastikan name untuk tiap-tiap
           caption tidak boleh sama.

        8. Simpanlah Form ini dengan nama MenuMDI, dan project dengan nama Project
           Menu MDI
        9. Selanjutnya jalankanlah program MenuMDI tersebut.


8.2     PopUp Menu
        Pada dasarnya model menu terdiri atas dua macam yang :
        • Pull Down menu (telah kita bahas sebelumnya)
        • Pop Up Menu
                                              Gambar disamping merupakan sebuah
                                              tampilan dari Pop Up Menu. Menu ini hanya
                                              dapat di aktifkan jika kita menggunakan Click
                                              Kanan pada sebuah Form.
                                              (Coba anda Click kanan pada layar VB anda)




        Cara pembuatan PopUp menu ini sebenarnya sama saja dengan menu Pull Down.


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                 Hal : 60
    Aktifkan Form Menu SDI yang telah anda buat sebelumnya kemudian aktifkan
    MenuEditor kembali dan tambahkan menu & sub menu di bawah ini.
     Caption                 Name            Keterangan
     &Operation              mnOperation     Menu
     ….&Copy                 mnCopy          Sub menu
     ….&Paste                mnPaste         Sub menu

      Setelah itu anda Click menu Operation, lihat option Visible. Pada option ini anda
      hilangkan Checklistnya, kemudian click OK.

      Untuk bisa menggunakan menu Pop Up ini anda harus buat sedikit program untuk
      menampilkan menu ini yaitu :




      Maksud dari Button=2 yaitu hanya bekerja jika kita lakukan Click Kanan

Bahan Praktek.
1. Ketiklah menu dan sub menu dibawah ini (disarankan MDI)
    Caption                  Name           Ket
    &File                    mnFile         Menu
    ….&Mahasiswa             mnFMhs         Sub menu
    ….-                      mnFSep1        Sub menu
    ….&Dosen                 mnFDosen Sub menu
    ….-                      mnFSep2        Sub menu
    ….Mata &Kuliah           mnFMTK         Sub menu
    ….-                      mnFSep3        Sub menu
    ….E&xit                  mnFExit        Sub menu
    &Isi KRS/KHS             mnIsi          Menu
    ….&Pengisian KRS         mnIsiKRS       Sub menu
    ….-                      mnIsiSep1 Sub menu
    ….Pengisian &KHS         mnIsiKHS       Sub menu

    Setelah semua menu & sub menu diatas telah di buat maka anda tambahkan satu buah
    Form. Sehingga di dalam project terdapat 3 Form (1 MDI & 2 Form)

    Caption dari MenuUtama yaitu : Menu Utama Sekolah Tinggi Manajemen Informatika dan
    Komputer

    Aktifkan Menu Kita (double click form MDI) kemudian click File | Exit, sehingga akan
    muncul program berikut :
    Private Sub mnFExit_Click()
          End       ‘ keluar dari keseluruhan program
    End Sub

    Kemudian lakukan hal sama pada File | Mahasiswa
    Private Sub mnFMhs_Click()
         Form1.Show        ‘ memanggil Form 1
    End Sub




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                         Hal : 61
  Kemudian lakukan hal sama pada File | Dosen
  Private Sub mnFMhs_Click()
       Form2.Show        ‘ memanggil Form 2
  End Sub

   Simpanlah program terlebih dahulu dengan nama Project : Project MenuSTMIK dan Form
   : FrmMenu (Pilih File kemudian Save Project untuk menyimpan). Jalankahlah Program
   (Tekan F5)




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 62
                                      BAB IX
                                 CONTROL LANJUTAN

9.1 Menambahkan Component
        Component yang berada pada Project yang berjenis Standard Exe, pada dasarnya
sangatlah sedikit (berjumlah sekitar 20 Component). Ada kalanya pada saat-saat tertentu kita
tidak bisa untuk menggunakan sebuah Control di karenakan Control tersebut tidak ada pada
ToolBox.
        Langkah-langkah Menambahkan Component
        • Click Menu Project | Component (Ctrl + T), sehingga muncul dialog.




       •   CheckListlah kotak kecil di sebelah kiri pada sebuah komponen yang akan kita
           gunakan.
       •   Langkah terakhir Click OK


9.2 ToolBar, StatusBar & ImageList
      Jika Control ini tidak ada anda dapat menambahkan dengan cara diatas anda cari
komponen di bawah ini. Kemudian click OK.




ToolBar yaitu Kontrol yang terdiri dari beberapa kumpulan icon yang dapat kita access
      dengan cara mengclick object tersebut, dimana pada saat kita mengclick object
      tersebut maka akan dikerjakan sekumpulan perintah yang langsung dieksekusi.

StatusBar yaitu object yang dapat diisi suatu keterangan, mengenai keadaan Jam, Capslock,
      Insert, Tanggal, dll.

ImageList yaitu object yang berisi daftar Icon yang nantinya akan di kaitkan dengan kontrol
      ToolBar.


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                          Hal : 63
Langkah penggunaan Toolbar, Status Bar & Image List, yaitu :
       Terlebih dahulu anda harus membuat suatu program menu utama, disini yang akan
digunakan yaitu Bahan Praktek Menu Utama MDI yang di bahas bab sebelumnya.

   1. Bukalah project dari menuMDI yang kita buat sebelumnya.
      (jika tidak ada di sarankan anda membuah program Bahan Praktek Bab IX)
   2. Desainlah form dengan tampilan dibawah ini.


                                                                          ToolBar



                                                                           ImageList




                                                                          StatusBar

   3. Untuk object ToolBar berilah Namenya : Tools.

   4. Click Kanan pada ImageList pilih Properties maka akan muncul suatu kotak dialog
      propertis page, seperti dibawah ini.
                                                        Notes : untuk Images yang ada
                                                        kita tidak perlu sama.




   5. Pada kotak Image yang ada masih kosong, sehingga kita akan menginsert image
      dengan cara click command Insert Picture. Maka akan muncul dialog Select Picture
      yang menginstruksikan kita agar memilih picture diatas. Kemudian carilah directory
      dimana icon kita tersimpan.

   6. Masukkanlah Icon sebanyak 6 Icon (setiap memilih satu icon click open. Kalau bisa
      seperti gambar diatas). Kegunaan dari Remove Picture yaitu untuk menghapus
      gambar yang tidak kita inginkan. Jika jumlah icon telah cukup, maka click tombol OK.
   7. Kemudian click kanan pada ToolBar dan pilih Properties. Maka akan muncul
      Property Page

      Pada Tab General isilah :
         - ImageList       : ImageList1
            Kegunaan          Mengkaitkan Toolbar kepada ImageList agar kita bisa
            menggunakan Icon pada Toolbar

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                 Hal : 64
       - Appearance : 1 – cc3D
          Kegunaan  Toolbar dan menu terpisah oleh garis 3 dimensi
       - Style       : 1 – tbrFlat
          Kegunaan  Agar tampilan ToolBar sama rata dengan menu .

      Pada Tab Buttons isilah :
      Terlebih dahulu kita harus menginsert sebanyak 8 buah button.
      Dan tiap button aturlah :

       Index   Caption          Tool Tip Text           Style                   Image
         1     Mahasiswa        Input Data              0 – tbrDefault             1
                                Mahasiswa
          2    Dosen            Input Data Dosen        0 – tbrDefault             2
          3    Mata Kuliah      Input Data Mata         0 – tbrDefault             3
                                Kuliah
          4    (Empty)          (Empty)                 3 – tbrSeparator        (Empty)
          5    Isi KRS          Pengisian KRS           0 – tbrDefault             4
          6    Isi KHS          Pengisian KHS           0 – tbrDefault             5
          7    (Empty)          (Empty)                 3 – tbrSeparator        (Empty)
          8    Exit             Keluar dari Aplikasi    0 – tbrDefault             6

   8. Setelah selesai pada Toolbar maka kita akan atur property dari Status Bar dengan
      cara Click Kanan dan pilih Properties dan akan muncul kotak dialog Property Pages.
      Click tab Panels dan Insert lah sebanyak 3 buah panel. Kemudian aturlah setting
      properti dibawah ini

       Index   Text                      Alignment      Style            AutoSize
         1     Copy Rigth by (your       0 - sbrLeft    0 – sbrText      1 – sbrSpring
               name)
         2     (empty)                   2 – sbrRight   6 – sbrDate      0 – sbrNoAutoSize
         3     (empty)                   2 – sbrRight   5 – sbrTime      0 – sbrNoAutoSize

   9. Jangan lupa untuk menyimpan project. Jika project sebelumnya telah tersimpan maka
      untuk menyimpan yang berikutnya cukup dengan menekan Ctrl-S.

   10. Buatlah program dibawah ini

          ‘ Click menu File| Exit
          Private Sub mnFile6_Click()
            End
          End Sub

      ‘ Double Click ToolBar tersebut.
      Private Sub Tools_ButtonClick(ByVal Button As MSComctlLib.Button)
         Select Case Button.Index
            Case 1
                  ‘ Pemanggilan Form Mahasiswa
              MsgBox "Form Mahasiswa"
            Case 2
             ‘ Pemanggilan Form Dosen
              MsgBox "Form Dosen"
            Case 3
             ‘ Pemanggilan Form Matakuliah
              MsgBox "Form Matakuliah"
            Case 5
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 65
             ‘ Pemanggilan Form Pengisian KRS
              MsgBox "Form Pengisian KRS"
            Case 6
             ‘ Pemanggilan Form Pengisian KHS
              MsgBox "Form Pengisian KHS"
            Case 8
             ‘ Pemanggilan sub menu Exit pada menu File
              Call mnFile6_Click
         End Select
       End Sub

   11. Tahap terakhir jalankanlah project tersebut (tekan F5).


9.3 PictureBox & Image
                                        Kontrol ini bertujuan untuk menampilkan gambar
                                        dengan ekstensi yang tak terbatas.
                                        • Picture       : Untuk memasukkan gambar.
                                        • Stretch       : True (ukuran gambar dapat diubah)
                                        False (gambar sesuai dengan ukuran aslinnya).




   Untuk menampilkan gambar
   Syntax : Kontrol.Picture = LoadPicture(“Path dan FileName”)
   Contoh : Image1.Picture = LoadPicture(“c:\Windows\WinLogo.Gif”)
             Picture1.Picture = LoadPicture(“c:\Windows\WinLogo.Gif”)


9.4 DriveListBox, DirListBox & FileListBox
       Merupakan kontrol-kontrol yang digunakan jika kita ingin membuat sebuah aplikasi
Explorer.
                                           DriveListBox     untuk menunjukkan Drive-drive
                                           apa saja yang terhubung pada komputer kita
                                           DisListBox     menunjukkan sejumlah Direktory-
                                           direktory yang ada pada Drive yang aktif
                                           FileListBox      menunjukkan file-file yang ada
                                           yang terdapat dalam sebuah direktory aktif
                                           Propertis Pattern berguna untuk menampilkan
                                           file sesuai ekstensi yang diinginkan.




9.5 SSTab
      Merupakan Kontrol yang berbentuk lembaran-lembaran. Setiap lembaran dapat berisi
sekelompok informasi, sehingga kontrol ini biasanya di pakai untuk menampilkan data dengan
banyak informasi, dengan cara membagi informasi ke dalam beberapa kelompok, sehingga
pengguna program dapat menampilkan data sesuai dengan kebutuhan.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 66


                                                 •   TabOrientation     Mengatur arah dari
                                                     tab(atas, bawah, kanan, kiri).
                                                 •   Style    Mengatur jenis dari tab.
                                                 •   Picture      Menampilkan Icon dari
                                                     setiap tab.
                                                 •   Caption     Menulis Text pada Tab
                                                 •   Tabs     mengatur jumlah Tab



Jika SSTab tidak ada pada ToolBox maka tambahkan Komponen di bawah ini.




9.6 CommonDialog
                                     Commondialog control merupakan suatu kontrol untuk
                                     menampilkan kotak dilog yang berhubungan dengan
                                     manipulasi teks.


   Properties yang paling sering digunakan lewat kode program
   • Action      Mengatur jenis kotak yang tampil
   • CancelError      Mengatur kesalahan tombol jika Cancel ditekan.

Jika CommodDialog tidak ada pada ToolBox maka tambahkan Komponen di bawah ini.




9.7 RichTextBox
                                            Berguna untuk pengetikan sebuah file-file text
                                     yang sederhana. Propertis FileName menentukan
                                     nama file text yang ditampilkan.

                                     Propertis yang digunakan
                                        • FileName     Untuk membuka file Text atau File
                                          RTF.
                                        • ScrollBar    untuk memunculkan ScrollBar.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                       Hal : 67
    Jika RichTextBox tidak ada pada ToolBox maka tambahkan Komponen di bawah ini.




9.8 ListView
                                         Merupakan sebuah kontrol untuk menampilkan
                                         sebuah informasi yang berbentuk suatu record.
                                         Kontrol sangat bermanfaat dan sering kita jumpai
                                         dalam windows, mis pada Explorer, dll.




      Untuk memunculkan NPM, Nama, Jurusan dll. Akan lebih mudah jika menggunakan
Kode Program.

      Propertis yang sering di gunakan pada kontrol ini.
         ColoumnHeaders.Add         Menambahkan Colom pada Object ListView
         Contoh
             ListView1.ColumnHeaders.Add , , "Nip", 1000
             Nip         : Caption Data Colom (Title Colom)
             1000        : Lebar dari Colom
         ListView.View      Menentukan Style dari ListView


               Ex.



  Terdapat beberapa pilihan pada saat di ketikkan “=”
         ListView.GridLines    Mengaktifkan ListView yang berbentuk Baris jika di berikan
         nilai True
         Contoh
             ListView1.GridLines = True (pilihan hanya 2 True / False)

         ListView1.ListItems.Add
         Berguna untuk menambahkan nilai pertama kedalam Colom yang pertama
         Contoh
             Set itmX = ListView1.ListItems.Add(, , txtNip.Text)

         itmX.SubItems(n) = Text
         Menambahkan Text kedalam Colom yang ke kedua dan seterusnya (nilai yang
         ditunjukkan di dalam kurung )
         Contoh
             itmX.SubItems(1) = txtNama.Text




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                       Hal : 68
    Jika ListView tidak ada pada ToolBox maka tambahkan Komponen di bawah ini.




9.9 UpDown
                      Merupakan sebuah kontrol untuk menaikkan atau menurunkan suatu
                      bilangan.
                      Min    Nilai minimal suatu bilangan.
                      Max     nilai Maximal suatu bilangan.

       Event yang di pakai untuk menaikkan dan menurunkan suatu bilangan yaitu
DownClick dan UpClick(). Jika ListView tidak ada pada ToolBox maka tambahkan Komponen
Microsoft Windows Common Control-2 6.0.


9.10 DTPicker1
                                   Merupakan kontrol yang sangat berguna untuk
                                   menampilkan Data Tanggal atau menampilkan Data
                                   Waktu.
                                   Untuk merubah kontrol tersebut menjadi tanggal atau
                                   waktu adalah propertis Format. Jika kontrol ini tidak
                                   terdapat dalam ToolBox maka anda bisa menambahkan
                                   komponen Windows Common Control 6.0
Bahan Latihan
1. Rancanglah form berikut ini. (ada dua Form yang diinginkan)


                       Picture1




    Properties Object Form 1
    Object         Properties         Setting
    Form1          Name               FrmInputData
                   Caption            Form Pengolahan Picture
                   Icon               Anda Cari Icon yang Cocok
    Drive1                 -                           -
    Dir1                   -                           -

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 69
    File1           MousePointer       99-Custom
    Frame1          Caption            Empty
    Command1        Name               CmdSelesai
                    Caption            &Selesai
    Command2        Name               CmdBesar
                    Caption            &Preview
    Note : Setelah selesai merubah setting untuk form 1 maka tambahkan satu form baru

    Properties Object Form 2
    Object          Properties         Setting
    Form            Name               FrmPriview
                    BorderStyle        0-None
                    MousePointer       99-Custom
                    MouseIcon          Pilih Cursor Tangan/Hand

Listing Program di bawah ini untuk Form 1 :

   Private Sub cmdBesar_Click()
     frmPriview.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
     frmPriview.Width = Picture1.Picture.Width
     frmPriview.Height = Picture1.Picture.Width
     frmPriview.WindowState = 2
     frmPriview.Show
   End Sub

   Private Sub File1_Click()
     On Error Resume Next
     Picture1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
   End Sub

   Private Sub File1_DblClick()
     Call cmdBesar_Click
   End Sub

   Private Sub Drive1_Change()
     Dir1.Path = Drive1.Drive
   End Sub

   Private Sub cmdSelesai_Click()
     Unload Me
   End Sub

   Private Sub Dir1_Change()
     File1.Path = Dir1.Path
   End Sub

Listing program di bawah ini untuk Form 2 :
        Private Sub Form_DblClick()
           Unload Me
        End Sub

   Simpanlah program terlebih dahulu dengan nama Project : Project Picture 91 dan Form :
   Frm Picture 91 (Pilih File kemudian Save Project untuk menyimpan). Jalankahlah
   Program (Tekan F5)


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 70
2. Rancanglah form berikut ini.




    Notes : pengaturan propertis untuk Form, TextBox, ComboBox & Command Button
    seperti biasa, tidak ada perubahan, untuk Frame cukup di rubah captionnya dan tidak
    perlu di beri Nama begitu juga dengan ListView

Listing Program
Dim itmX As ListItem   ' mendeklarasikan untuk daftar Item pada bagian General

Private Sub Form_Activate()
     Call cmdBatal_Click
     ' membuat Head Colom pada ListView
     ListView1.ColumnHeaders.Add , , "NPM", 1000
     ListView1.ColumnHeaders.Add , , "Nama Mahasiswa", 3000
     ListView1.ColumnHeaders.Add , , "Program Studi", 2000
     ListView1.ColumnHeaders.Add , , "Jenjang Studi", 2000
     ListView1.ColumnHeaders.Add , , "Kelamin", 1500
     ' menjadikan listview sebagai report
     ListView1.View = lvwReport
     ' menampilkan batas basi & kolom
     ListView1.GridLines = True
End Sub

Private Sub cmdProses_Click()
  ' mengisi isian textbox ke ListView
  Set itmX = ListView1.ListItems.Add(, , txtNPM.Text)
  ' mengisi sebagai Sub Item bukan ITEM
  itmX.SubItems(1) = txtNama.Text
  itmX.SubItems(2) = cboProgram.Text
  itmX.SubItems(3) = cboJenjang.Text
  itmX.SubItems(4) = cboSex.Text
  Call cmdBatal_Click ' membersihkan isian TextBox
End Sub

Private Sub cmdBatal_Click()
  'mengosongkan isian textbox NPM, Nama, Program, Jenjang
  txtNPM.Text = ""
  txtNama.Text = ""
  cboProgram.Text = cboProgram.List(0)
  cboJenjang.Text = cboJenjang.List(0)
  cboSex.Text = cboSex.List(0)
  txtNPM.SetFocus 'memfokuskan textbox NPM
End Sub

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 71
Private Sub CmdSelesai_Click()
  Unload Me
End Sub

   Simpanlah program terlebih dahulu dengan nama Project : ProjectListView92 dan Form :
   FrmListView92. Jalankahlah Program (Tekan F5)

3. Kalau anda perhatikan bentuk program kedua di atas, maka kita akan melihat bahwa
   peletakan object pada media form telah begitu banyak. Sehingga form akan menjadi
   besar. Hal ini bisa kita sederhanakan dengan menggunakan SSTab.




   Notes :    - Gambar diatas hanya 1 buah Form saja, karena menggunakan SSTab
              Kontrol.
              - Sewaktu anda membuat object yang berada dalam SSTab, anda tidak boleh
              Double Click pada object di ToolBox tetapi menggambar secara manual. Yaitu
              Click object di Toolbox digambarkan di atas SSTab.
   Propertis SSTab
    Caption          Lama                    Setting Baru
    Style            SsStyleTabbedDialog SsStylePropertyDialog
    Tabs             3                       2
    Tab0             Tab 0                   Isi &Identitas
    Tab1             Tab 1                   &Daftar Mahasiswa

   Untuk listing program sama dengan program diatas tidak ada perubahan.

   Simpanlah program terlebih dahulu dengan nama Project : Project SSTab93 dan Form :
   FrmSSTab93. Jalankahlah Program (Tekan F5)

4. Rancanglah form berikut ini.


                                                         Note
                                                         Kontrol   RichTextBox       &
                                                         Commodialog1 tidak perlu anda
                                                         rubah namanya




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                       Hal : 72
  Listing Program
       Private Sub cmdClose_Click()                  Private Sub cmdSave_Click()
         Unload Me                                     With CommonDialog1
       End Sub                                              .DialogTitle = "Save"
                                                            .CancelError = False
        Private Sub cmdOpen_Click()                         .Filter = "All Files (*.*)|*.*"
          With CommonDialog1                                .ShowSave
              .DialogTitle = "Open"                         If Len(.FileName) = 0 Then
              .CancelError = False                             Exit Sub
              .Filter = "All Files (*.*)|*.*"               End If
              .ShowOpen                                     sFile = .FileName
              If Len(.FileName) = 0 Then               End With
                 Exit Sub                              RichTextBox1.SaveFile sFile
              End If                             End Sub
              sFile = .FileName
            End With
            RichTextBox1.LoadFile sFile
        End Sub

   Simpanlah program terlebih dahulu dengan nama Project : Project NotePaddan Form :
   FrmNotePad Jalankahlah Program (Tekan F5)

5. Rancanglah form berikut ini.




   Propertis
    Object            Properti            Setting
    Form1             Name                FrmAnimasi
                      Caption             Animasi ICON
    Timer             Interval            50
                      Enabled             True
    Image1            Name                Image1
                      Picture             Pilihlah icon di directory C:\Windows
    Command1          Name                CmdStop
                      Caption             &Stop

   Listing Program
   ‘Tahap mendeklarasikan variabel xChange & yChange
   Option Explicit
   Dim xChange As Integer
   Dim yChange As Integer

   Private Sub Form_Load()
     ' set awal variabel
     xChange = 100
     yChange = 100
   End Sub


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                           Hal : 73
  Private Sub cmdStop_Click()
      Unload Me
  End Sub

   Private Sub Form_Unload(Cancel As Integer)
     Timer1.Enabled = False
     End
   End Sub

   Private Sub Timer1_Timer()
      Image1.Left = Image1.Left + xChange         ‘ mengatur posisi icon
      Image1.Top = Image1.Top + yChange

     ‘ melihat kondisi Icon tersebut dan merubah xChange & yChange agar nantinya
     ‘ posisi icon juga ikut berubah
     If Image1.Left > Me.ScaleWidth Then xChange = xChange * -1
     If Image1.Left < 0 Then xChange = xChange * -1
     If Image1.Top > Me.ScaleHeight Then yChange = yChange * -1
     If Image1.Top < 0 Then yChange = yChange * -1
   End Sub

   Simpanlah program terlebih dahulu dengan nama Project : Project Animasi Icon Form :
   FrmIcon. Jalankahlah Program (Tekan F5)

6. Rancanglah form berikut ini.




   Listing Program
   Dim itmX As ListItem

   Private Sub cmdProses_Click()
     ' mengisi isian textbox ke ListView
     Set itmX = ListView1.ListItems.Add(, , txtNama.Text)
     ' mengisi sebagai Sub Item bukan ITEM
     itmX.SubItems(1) = txtHarga.Text
     itmX.SubItems(2) = txtPembeli.Text
     itmX.SubItems(3) = txtTanggal.Value
     itmX.SubItems(4) = txtJumlah.Text
     itmX.SubItems(5) = txtTotal.Text
     ' membersihkan isian TextBox
     Call cmdBatal_Click
   End Sub

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                   Hal : 74
  Private Sub cmdBatal_Click()
    txtNama.Text = ""
    txtPembeli.Text = ""
    txtHarga.Text = ""
    txtTanggal.Value = Date
    txtJumlah.Text = ""
    txtTotal.Text = ""
    txtNama.SetFocus
  End Sub

  Private Sub CmdSelesai_Click()
    Unload Me
  End Sub

  Private Sub Form_Activate()
    Call cmdBatal_Click
    txtJumlah.Text = 1
    ' membuat Head Colom pada ListView
    ListView1.ColumnHeaders.Add , , "Nama Barang", 2500
    ListView1.ColumnHeaders.Add , , "Harga", 800
    ListView1.ColumnHeaders.Add , , "Pembeli", 2500
    ListView1.ColumnHeaders.Add , , "Tanggal", 1000
    ListView1.ColumnHeaders.Add , , "Unit", 800
    ListView1.ColumnHeaders.Add , , "Total Harga", 1500
    ' menjadikan listview sebagai report
    ListView1.View = lvwReport
    ' menampilkan batas basi & kolom
    ListView1.GridLines = True
  End Sub

  Private Sub UpDown1_DownClick()
    txtJumlah.Text = txtJumlah.Text - 1
    If txtJumlah.Text < 1 Then txtJumlah.Text = 1
    Totalkan
  End Sub

  Private Sub UpDown1_UpClick()
    txtJumlah.Text = txtJumlah.Text + 1
    Totalkan
  End Sub

  Sub Totalkan()
    txtTotal.Text = txtJumlah.Text * txtHarga.Text
  End Sub

  Simpanlah program terlebih dahulu dengan nama Project : Project Lat96 Form :
  FrmLat96. Jalankahlah Program (Tekan F5)




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                  Hal : 75
                                      BAB X
                               PENGENALAN DATABASE

10.1 Database
         Database dapat diartikan sebagai kumpulan data yang terdiri atas satu atau lebih tabel
yang terintegrasi satu sama lain, di mana setiap pemakai (user) diberi wewenang untuk dapat
mengakses (mengubah, menghapus, menganalisis, menambah, memperbaiki) data dalam
tabel-tabel tersebut.
         Tabel itu berfungsi untuk menyimpan data dan merupakan suatu kumpulan data yang
berhubungan dengan topik tertentu, misalnya daftar pembelian dan tabel penjualan. Tabel
terdiri atas baris yang disebut record dan kolom yang disebut field.




Keterangan.
   • Table/File    yaitu kumpulan dari record-record yang berguna untuk menyimpan data.
   • Record       merupakan kumpulan lebih dari satu Field yang menjelaskan suatu area
       Data/Informasi.
   • Field     Tempat tersimpannya suatu data/
   • Data      Sesuatu yang mengandung suatu arti/makna.

10.2 Visdata
      Merupakan kepanjangan dari Visual Data Manajer yang berfungsi untuk membuat,
membangun dan mengelola database. Cara memanggil Visual Data Manager yaitu pilih menu
Add-Ins | Visual Data Manager pada menu utama MS-Visual Basic 6.0, sehingga akan
muncul tampilan seperti berikut ini.




 ☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 76
10.2.1 Menciptakan Database
        MS-Visual Basic 6.0 dapat menangani bermacam-macam format database, yaitu
format database Mcrosoft Access, Microsoft Excel, DBASE, Forxro, Paradox, ODBC dan file
text. Pada pembahasan ini kita akan menggunakan format database Microsoft Access saja.

      Adapun langkah-langkah dalam membuat database adalah :
      1. Buka Visual Data Manager
      2. Pilih menu File | New kemudian pilih Microsoft Access | Version 7.0 MDB lalu akan
         muncul kotak dialog seperti dibawah.




      3. Pada kotak dialog diatas kita dianjurkan untuk menentukan lokasi directory tempat
         kita akan menyimpan Database nanti. Setelah kita dapat directorynya (buat
         directori baru dengan nama DataBase04 di Directory C), maka kita menuliskan
         Nama File : STMIK kemudian pilih Save.

10.2.2 Membuat Table
       Setelah kita menciptakan sebuah Database (STMIK.Mdb) maka kita bisa membuat
Table untuk dapat menyimpan data yang akan kita inputkan nantinya. Adapun langkah-
langkah membuat suatu Table adalah :

      1. Buka Visdata.
      2. Pilih menu File | Open Database, lalu pilih Microsoft Access sehingga muncul
         suatu kotak dialog yang mirip gambar diatas.
      3. Kemudian cari file database yang ingin dibuka (pilih directory kerja kita lalu pilih
         STMIK.Mdb), lalu click Open.
      4. Kalau database tersebut telah kita buka lalu Click tulisan Properti lalu Click
         Kanan, sehingga muncul menu tambahan lalu pilih New Table sampai muncul
         dialog Table Structure.
      5. Pada Table Name buat nama table yaitu : Mahasiswa
      6. Klik Add Field pada untuk menambahkan Field (kolom) sehingga muncul dialog
         Add Field.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                         Hal : 77
    7. Maka ketikkan struktur dari field di bawah ini.
        Name            Type         Size       Perhatian : Setiap kita selesai mengetikkan satu
                                                            field name dan kita ingin membuat
        NPM              Text           8
                                                            field name yang lain kita harus pilih
        Nama             Text          35                   OK
        Alamat           Text          80
        Program          Text          25
        Jenjang          Text          10
        Sex              Text           8

       8. Setelah kita selesai mengetikkan semua field-field tersebut lalu kita pilih Close.
       9. Langkah terakhir yaitu kita Click Build The Table.
       10. Maka akan terbentuk table baru dengan nama Mahasiswa.

10.2.3 Membuat Index
       Untuk mempercepat akses, banyak database menggunakan index. Data tabel yang
terindex berurut akan lebih cepat pencariannya dibandingkan dengan tabel. Setiap isi index
menjunjuk ke posisi di tabelnya. Index data adalah urutan data pada suatu tabel database.
Index data diperlukan terutama untuk pencarian data dengan cepat dan pengelompokan data.

       Cara membuat suatu Index.
       1. Buka Visual Data Manager.
       2. Pilih menu File | Open Database, lalu pilih Microsoft Access sehingga muncul
          suatu kotak dialog yang mirip gambar diatas.
       3. Kemudian cari file database yang ingin dibuka (pilih directory kerja kita lalu pilih
          STMIK), lalu click Open.
       4. Click Tabel yang ingin kita buat index (Table Mahasiswa) lalu click kanan pilih
          Design, sampai muncul dialog Table Structure.
       5. Click Add Index sehingga muncul kota dialog Add Index to Mahasiswa.




       6. Buatlah index di bawah ini
          Perhatian : untuk Available fileds kita click sekali sehingga muncul di kolom
                      Indexed Fields       lalu pada name kita harus mengetikkan nama
                      index, kemudian checklist optionnya, lalu pilih OK. Begitu juga jika
                      ingin membuat index selanjutnya.

            Available Fields Index Name Option (CheckList)
            NPM                  NPMIDX        Primary, Unique, Ignore Nulls
            Nama                 NamaIDX       Ignore Nulls
           Notes :
           • Primary        membuat satu Field Kunci diantara Field-field yang ada. Yang
              artinya field-field yang lain akan mempunyai ketergantungan terhadap field
              kunci.


 ☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 78
          •   Unique    dalam satu Field data tidak di perbolehkan ada 2 Data yang sama.
              Misalnya NPM Mahasiswa 04401003 telah ada maka kita membuat NPM yang
              sama kembali. Ini tidak diizinkan jika kita memilih option ini.
          •   Ignore Nulls    Field Data yang diindex tidak akan membiarkan field tersebut
              disimpan dalam keadaan kosong(empty).

      7. Setelah kita selesai membuat semua index maka kita pilih Close.
      8. Langkah terakhir yaitu kita Click Close.
      9. Lalu tutup tabel MDB kita dengan cara pilih File | Exit.

Bahan Praktek
       Buatlah file database dengan nama CahayaAbadi.MDB dimana tabel-tabel yang kita
inginkan adalah sebagai berikut.
        Table Name Field Name        Type     Size
        Pelanggan       KodeP          Text       4
                        Nama           Text      35
                        Alamat         Text      35
                        Telp           Text      11
        Barang          KdBrg          Text       6
                        Nama           Text      30
                        Satuan         Text      15
                        Hbeli         Double      8
                        Hjual         Double      8
                        Jumlah        Double      8
        Penjualan       NoTrans        Text       4
                        Tanggal        Date       8
                        KdBrg          Text       6
                        KodeP          Text       4
                        Jumlah        Double      8

      Indexlah table tersebut, dengan index name dibawah ini
           Table         Available
                                        Index Name           Option (CheckList)
          Source           Field
       Pelanggan       KodeP           KodePIDX      Primary, Unique, Ignore Nulls
                       Nama            NamaPIDX      Ignore Nulls
       Barang          KdBrg           KdBrgIDX      Primary, Unique, Ignore Nulls
                       Nama            NamaIDX       Ignore Nulls
       Penjualan       NoTrans         NoTransIDX    Ignore Nulls


10.3 Data Kontrol dan DBGrid Kontrol
      Data merupakan suatu kontrol standard yang disediakan pada VB untuk digunakan
dalam membuat suatu aplikasi database sederhana. Data kontrol merupakan suatu lapisan
yang menghubungkan data dengan user interface.

                                                Sedangkan     DBGrid   dipakai untuk
                                                menampilkan tabel/query dalam bentuk
                                                kolom dan baris dari suatu Recordset
                                                Object Data Kontrol.

                                                Jika Control DBGrid ini tidak ada dalam
                                                ToolBox,    maka     anda     tambahkan
                                                komponen Microsoft Data Bound Grid
                                                Control 5.0

☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                        Hal : 79
              Tabel 10.1 Properti Data Kontrol yang sering digunakan
    Properti          Keterangan/Kegunaan
    Name              Sda
    Caption           Sda
    Access            Menentukan jenis software database yang akan digunakan
    DatabaseName      Menentukan path dan nama database file yang akan digunakan
                      sebagai sumber data
    RecordSetType     Menentukan jenis recordset yang akan digunakan
    RecordSource      Menentukan sumber data untuk recordset, dapat berupa nama
                      tabel maupun bahasa SQL


               Tabel 10.2 Properti DBGrid Kontrol yang sering digunakan
      Properti        Keterangan/Kegunaan
      Name           Sda
      Caption        Sda
      DataSource     Menghubungkan ke Data mana yang akan
                     digunakan



Bahan Praktek
1. Designlah Form Berikut ini.




   Properties
    Object            Properti           Setting
    Form              Name               FrmTesData
                      Caption            Table Mahasiswa
     Data1            Name               DBSTMIK
                      DataBaseName       Click … lalu cari DataBase
                                         STMIK.mdb (C:\DataBase04)
                    RecordSetType        Table
                    RecordSource         Mahasiswa
     DBGrid1        Caption              Data Mahasiswa
                    DataSource           DBSTMIK
    Kemudian Click Kanan pada DBGrid1 dan pilih Retrieve Fields yang berguna untuk
    memunculkan Field-field yang ada dalam table.

    Simpanlah program terlebih dahulu dengan nama Project : Project Tes Data 1 dan Form
    : Frm TesData1 (Pilih File kemudian Save Project untuk menyimpan)




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 80
2. Designlah Form berikut ini.




   Properties
    Object           Properti           Setting
    Form             Name               FrmDataMhs
                     Caption            Tes Data Mahasiswa
    Data1            Name               DBSTMIK
                     DataBaseName       Click … lalu cari DataBase
                                        STMIK.mdb (C:\DataBase04)
                     RecordSetType      Table
                     RecordSource       Mahasiswa
    DBGrid1          Caption            Data Mahasiswa
                     DataSource         DBSTMIK
    Text1            Name               TxtNPM
                     DataSource         DBSTMIK
                     DataField          NPM
    Text2            Name               TxtNama
                     DataSource         DBSTMIK
                     DataField          Nama
    Notes : Selanjutnya pengaturan untuk Properti TextBox seperti biasa, yang
    harus anda perhatikan DataFieldnya harus disesuaikan dengan Field yang
    digunakan.

   Listing Program
   Private               Sub Private Sub cmdNew_Click()
   cmdClose_Click()             DBSTMIK.Recordset.AddNew
      Unload Me                 txtNPM.Text = ""
   End Sub                      txtNama.Text = ""
                                txtAlamat.Text = ""
   Private               Sub    cboSex.Text = ""
   cmdDelete_Click()            cboProgram.Text = ""
     DBSTMIK.Recordset.Delete   cboJenjang.Text = ""
     DBSTMIK.Refresh            txtNPM.SetFocus
   End Sub                    End Sub


   Simpanlah program terlebih dahulu dengan nama Project : Project DataMhs1 dan Form :
   Frm DataMhs 1(Pilih File kemudian Save Project untuk
   menyimpan)




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                           Hal : 81
Tugas Praktikum
1. Buatlah Program dengan Form di bawah ini.




    Dengan Table Structure seperti dibawah ini
    Nama Database : dianjurkan Database STMIK, hanya menambah tabel Dosen
    Nama Table : Dosen
      Field Name   Type Size       Index Name Option
      KdDosen       Text     3     KdDosenIDX Primary, Unique, Ignore
                                                Nulls
      Nama          Text    35     NamaIDX      Ignore Nulls
      Alamat        Text    80           -                   -
      Tamatan       Text    40           -                   -
      Jenjang       Text    10           -                   -
      Sex           Text     8           -                   -
    Simpanlah program terlebih dahulu dengan nama Project : Project DBDosen1 dan Form
    : Frm DBDosen 1(Pilih File kemudian Save Project untuk menyimpan)

2. Buatlah Program di bawah ini.




    Untuk Databasenya dianjurkan dalam STMIK.Mdb (hanya melanjutkan saja) sedangkan
    Table Structure anda rancang sendiri sesuai dengan kebutuhan.

    Simpanlah program terlebih dahulu dengan nama Project : Project DBMatakuliah1 dan
    Form : Frm DBMatakuliah 1(Pilih File kemudian Save Project untuk menyimpan)




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                 Hal : 82
                                BAB XI
                 ACCESS DATABASE MELALUI KODE PROGRAM

11.1 Operasi Dasar Database
      Ada dua cara untuk menggunakan/membuka database yaitu :
      1. Menggunakan Object Data atau ADODC (tanpa menulis kode program, telah di
         gunakan pada bab sebelumnya)
      2. Menggunakan Kode program.

      Selain itu kita juga bisa menggunakan kedua metode tersebut untuk membuka file-file
database yang berlainan.

11.1.1 Penanganan Database
       • Membuka Database lewat kode Program

          Langkah-langkahnya adalah sebagai berikut :
          1. Deklarasikan sebuah variabel database. Bisa pada bagian General(letaknya
             paling atas dari sebuah modul) atau di bagian lain, tetapi disini akan digunakan
             di General (tidak pada level procedure).

             Dim NmVarDatabase As Database
             Example : Dim dbSTMIK As Database

             Notes :   Jika perintah diatas tidak dikenal, terlebih dahulu anda dapat
                       menambahkan dahulu objeck Data dari Toolbox ke dalam form.
                       Object tersebut tidak perlu di kaitkan atau digunakan, karena hanya
                       sebagai syarat untuk memunculkan Database pada saat
                       pendeklarasian diatas

          2. Deklarasikan sebuah variabel Recordset,            yang   terletak   di   bawah
             pendeklarasian database yang pertama.

             Dim NmVarRecord As Recordset
             Example : Dim rMahasiswa As Recordset

          3. Setelah kita mendeklarasikan variabel database & recordset maka kita dapat
             menggunakan perintah untuk membuka database tersebut pada suatu
             procedure, yang kita buat pada procedure Form_Activate. Penulisannya
             adalah sebagai berikut :

             Set nmvarDatabase = OpenDatabase(“Path + nama Data base kita”)
             Example :
                   Set dbKartika = OpenDatabase(“C:\Database04\STMIK.Mdb”)

             Notes : Nama Database harus lengkap, direktory dicantumkan juga.

          4. Setelah itu kita menentukan tabel yang akan kita buka. Misalnya table Dosen.
             Set nmVarRecord = nmVarDatabase.OpenRecordset(“nama table”)

             Example :
             Set rMahasiswa = dbSTMIK.OpenRecordset(“Mahasiswa”)

          5. Sampai disini kita telah menuliskan secara lengkap perintah untuk membuka
             database. Kalau dilihat secara utuh maka dapat dilihat seperti di bawah ini.


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 83




      •   Menutup Database lewat kode Program
          Untuk menutup database yaitu terlebih dahulu kita harus menutup semua Table
          atau Recordset yang kita buka, baru kemudian kita menutup Databasenya.

          Syntax :   nmVariRecord.Close
                     nmVariDatabase.Close

             Private Sub CmdClose_Click()
                    rMahasiswa.Close
                    dbSTMIK.Close
             End Sub

11.1.2 Penanganan Record/Table
       • Menambah Record
          Untuk menambah record baru dalam tabel data kita menggunakan perintah
          AddNew, seperti berikut ini :

             Syntax : nmVarRecord.AddNew
             Example : rDosen.AddNew

          Record dari tabel data tersebut masih kosong maka kita harus mengisi field
          datanya dengan cara :

             Syntax : nmVarRecord!nmFieldData = <Data yang dimasukkan>
             Example :   rMahasiswa!NPM = txtNPM.Text
                         rMahasiswa!Nama = txtNama.Text

          Setelah suatu record telah ditambahkan maka kita perlu mengupdate record
          tersebut dengan memberikan perintah :

             Syntax : nmVarRecord.Update

            Example : rMahasiswa.Update
          Sehingga penulisan di atas akan menjadi seperti ini :

                                                                  Notes : … bermaksud
                                                                  untuk mengisi data ke
                                                                  dalam    field-field yang
                                                                  lainnya.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                       Hal : 84
     •   Mengedit Record
         Coba anda perhatikan program diatas. Untuk mengedit suatu record dalam
         database kita hanya perlu merubah AddNew menjadi Edit dengan syntax :

         Syntax : nmVarRecord.Edit
         sehingga penulisan program akan menjadi seperti di bawah ini.




     •   Menghapus Record
         Untuk menghapus record kita dapat menggunakan metode Delete. Penulisannya
         adalah sebagai berikut :

         Syntax nmVarRecord.Delete       Example : rDosen.Delete

         Sehingga penulisan program seperti di bawah ini.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                          Hal : 85
Bahan Praktek.
1. Rancanglah sebuah form dengan bentuk berikut

   Struktur Database & Tabel          Design Form
   Database Name : CVIrian
   Table Name        : Barang
    Field           Type     Size
    KdBarang          Text     6
    Nama              Text    40
    Satuan            Text    15
    Harga           Doubl      8
                        e
    Jumlah          Doubl      8
                        e


  Listing Program

   Dim dbIrian As Database                        Private Sub cmdClose_Click()
   Dim rBarang As Recordset                          Unload Me
                                                  End Sub
   Sub HapusTextBox()
     txtKdBarang.Text = ""                        Private Sub cmdSimpan_Click()
     txtNama.Text = ""                                rBarang.AddNew
     txtSatuan.Text = ""                              rBarang!KdBarang = txt KdBarang.Text
     txtHarga.Text = ""                               rBarang!Nama = txtNama.Text
     txtJumlah.Text = ""                              rBarang!Satuan = txtSatuan.Text
     txtKdBarang.SetFocus                             rBarang!Harga = txtHarga.Text
    End Sub                                           rBarang!Jumlah = txtJumlah.Text
                                                      rBarang.Update
                                                      Call HapusTextBox
                                                  End Sub
  Private Sub Form_Activate()
   Set dbIrian = OpenDatabase(App.Path + "\CVIrian.Mdb")
   Set rBarang = dbIrian.OpenRecordset("Barang")
   Call HapusTextBox
  End Sub


  Simpanlah program terlebih dahulu dengan nama Project : Project CVIrian1 dan Form :
  FrmIrian1 (Pilih File kemudian Save Project untuk menyimpan)


Tugas Praktikum.
1. Ubahlah program Tugas Praktikum pada Bab X menjadi seperti bentuk di atas. Yang
   mana program-program tugas praktikum masih menggunakan Kontrol Data & Kontrol
   Dbrid anda rubah pengaksesan database dengan melalui kode-kode program seperti
   program latihan di atas.(ada dua Program yaitu Dosen & Matakuliah)




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 86
2. Rancanglah sebuah form dengan bentuk berikut




   Notes : Untuk pengaturan propertis sama seperti pelajaran terdahulu. Anda harus
   memperhatikan Frame untuk Kontrol ini di harapkan tidak perlu di berikan nama karena
   kontrol tersebut jarang sekali di proses. Begitu juga untuk Kontrol Data1 tidak perlu di
   berikan nama dan tidak perlu di setting, karna disini kita akan membuka database melalui
   kode-kode program.

   Listing Program

   Dim dbSTMIK As Database                          Private Sub cmdClose_Click()
   Dim rMahasiswa As Recordset                        rMahasiswa.Close
                                                      dbSTMIK.Close
   Private Sub cmdBatal_Click()                       Unload Me
     txtNPM.Text = ""                               End Sub
     txtNama.Text = ""
     txtAlamat.Text = ""                            Private Sub cmdSimpan_Click()
     cboProgram.Text = ""                             With rMahasiswa
     cboJenjang.Text = ""                                .AddNew
     cboSex.Text = ""                                    !NPM = txtNPM.Text
     txtNPM.SetFocus                                     !Nama = txtNama.Text
   End Sub                                               !Alamat = txtAlamat.Text
                                                         !Program = cboProgram.Text
   Private Sub cmdBaru_Click()                           !Jenjang = cboJenjang.Text
     Call cmdBatal_Click                                 !Sex = cboSex.Text
   End Sub                                               .Update
                                                      End With
                                                      Call cmdBatal_Click
                                                    End Sub

   Private Sub Form_Activate()
     Set dbSTMIK = OpenDatabase(App.Path + "\STMIK.Mdb")
     Set rMahasiswa = dbSTMIK.OpenRecordset("Mahasiswa")
     Call cmdBatal_Click
   End Sub


  Simpanlah program terlebih dahulu dengan nama Project : Project Mahasiswa2 dan Form
  : FrmMahasiswa2 (Pilih File kemudian Save Project untuk menyimpan)



☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                             Hal : 87
                                    BAB XII
                          MENGENAL VALIDASI & NAVIGASI

12.1 VALIDASI
     Validasi dalam database, biasanya dilakukan pada saat pemasukan atau pengubahan
data yang berguna untuk menghidari kesalahan pada saat kita memasukkan/input atau
pengubahan/update data di lakukan dengan melihat apakah data yang akan dimasukkan atau
diubah sudah memenuhi kriteria atau syarat yang diinginkan.

     Misalnya validasi dapat dengan menampilkan pilihan-pilihan tertentu atau bisa juga
dengan memberikan petunjuk-petunjuk tertentu.

•  Menampilkan data
      Data yang telah kita inputkan ada kalanya ingin kita tampilkan kembali dan biasanya
menggunakan TextBox atau Kontrol lainnya, yang sesuai dengan data yang akan di
tampilkan.
Syntax penulisannya adalah sebagai berikut :
      nmKontrol.Text = nmVarRecord!nmFieldData
      Contoh : txtNPM.Text = rMahasiswa!NPM

        Pada saat menampilkan suatu data
akan lebih bagus jika kita membuah suatu sub
rutin. Yang di dalam sub rutin tersebut berisi
semua data yang akan kita tampilkan.

•   Membatasi Penginputan Data
    - Hanya Angka


    Seperti yang anda lihat di atas pada TextBox Gaji tersebut, data yang inputkan harus
    berupa Angka (0-9) tidak boleh Huruf seperti Rp. 1.000.000 (salah) maka untuk
    mengatasi kendala tersebut kita bisa membuat suatu program seperti dibawah ini




    - Berpindah TextBox

    Kita kadang kesulitan dalam menginputkan data karna tidak bisa menggunakan tombol
    Enter untuk berpindah dari TextBox Nama ke TextBox Gaji. Maka untuk mengatasi
    kendala tersebut kita dapat membuat program seperti berikut ini.




    Program diatas berkerja saat kita menekan tombol Enter pada TextBox Nama dan akan
    berpindah ke TextBox Gaji


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                             Hal : 88
  - Huruf Besar
  Sering kita temui pada aplikasi-aplikasi lain menggunakan huruf besar untuk suatu data
  tertentu. Disini kita akan menggunakan data Nama. Sehingga saat menginputkan nama
  tersebut maka input yang kita masukkan tersebut akan menjadi huruf Besar. Seperti
  program berikut :




•   Pengecekan Data
       Sering saat kita menjalankan program kita memasukkan data yang sama untuk kode
yang sama pula. Hal ini akan mengakibatkan data menjadi error, karena data yang telah kita
inputkan telah tersimpan di dalam database. Untuk mengatasi kendala ini maka kita membuat
sebuah program untuk mengecek apakah data yang kita inputkan telah ada atau belum.

       Langkah-langkahnya adalah :
       1. Menggunakan/mengaktifkan Index
          Syntax     : nmVarRecord.Index = “nmFieldIndexData”
          Mis : rMahasiswa.Index = “NPMIDX”

       2. Mencari Data dalam Index Data (field yang diindex 2)
          Syntax     : nmVarRecord.Seek “=”, nmVariabelData
          Mis : rMahasiswa.Seek “=”, txtNPM.Text

       3. Mencari Data dalam Index Data (field yang diindex 2)
          Syntax       : nmVarRecord.Seek “=”, nmVariabelData, nmVariabelData2
          Mis : rGaji.Seek “=”, txtNIK.Text, txtBulan.Text

       4. Membandingkan data sama atau tidak
          Syntax  : nmVarRecord.NoMatch
          Mis :    If Not rMahasiswa.NoMatch Then
                         Call ShowMhs
                   Else
                         ‘ BuatBaru
                   Endif


       Sehingga program di atas bila disatukan akan terlihat seperti berikut ini.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                          Hal : 89
12.2 NAVIGASI
       Merupakan suatu proses dalam menunjukkan posisi record misalnya awal, akhir dari
suatu record dll.
       • Awal Record
                  Syntax : nmVarRecord.MoveFirst
                  Private Sub CmdFirst_Click()
                            rMahasiswa.MoveFirst
                  End Sub

      •   Akhir Record
                 Syntax : nmVarRecord.MoveLast
                 Private Sub CmdLast_Click()
                           rMahasiswa.MoveLast
                 End Sub

      •   Record Selanjutnya
             Syntax : nmVarRecord.MoveNext
                Private Sub CmdLast_Click()
                           rMahasiswa.MoveNext
                End Sub

      •   Record Sebelumnya
             Syntax : nmVarRecord.MovePrevious
                Private Sub CmdLast_Click()
                          rMahasiswa.MovePrevious
                End Sub


      Bila prosedur-prosedur diatas di jadikan sebuah function




     Notes : Akan lebih bagus jika kita membuat sebuah Fungsi untuk Navigasi di mana
     argumen yang kita kirimkan ada 2 yaitu Posisi Record & Nama TableRecord. Ini
     berguna jika kita membuat aplikasi yang lain kita tinggal memanggil fungsi yang kita
     buat tersebut. Seperti Contoh berikut :


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                      Hal : 90
   Anda tambahkan sebuah Modul (pilih Project | Add Module)sehingga muncul modul1
   dan pada modul tersebut buat program di atas.

     Sebelum kita memanggil fungsi tersebut maka harus membuat kontrol berikut ini.



       Setelah ini baru kita bisa memanggil fungsi tersebut yaitu dengan cara




Bahan Praktek.
1. Design sebuah form mahasiswa seperti berikut ini.




   Notes : untuk DataBase tidak perlu anda buat kembali karna kita hanya modifikasi
   tampilan dari program yang sebelumnya. Program ini agak lebih kompleks jadi diharapkan
   anda harus memperhatikan nama-nama dari setiap kontrol.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                   Hal : 91
  Listing program
  Dim dbSTMIK As Database
  Dim rMahasiswa As Recordset

  Private Sub Form_Activate()
    Set dbSTMIK = OpenDatabase(App.Path + "\STMIK.Mdb")
    Set rMahasiswa = dbSTMIK.OpenRecordset("Mahasiswa")
    Call cmdCancel_Click
  End Sub

  Sub ChangeCMD(L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean, L4
  As Boolean)
    cmdNew.Enabled = L0
    cmdSave.Enabled = L1
    cmdDelete.Enabled = L2
    cmdUpdate.Enabled = L3
    cmdCancel.Enabled = L4
  End Sub

  Sub SimpanDB(log As Boolean)
    With rMahasiswa
      If log Then .AddNew Else .Edit
      !NPM = txtNPM.Text
      !Nama = txtNama.Text
      !Alamat = txtAlamat.Text
      !Program = cboProgram.Text
      !Jenjang = cboJenjang.Text
      !Sex = cboSex.Text
      .Update
    End With
    Call cmdFirst_Click
  End Sub

  Sub ShowMhs()
    With rMahasiswa
      txtNPM.Text = !NPM
      txtNama.Text = !Nama
      txtAlamat.Text = !Alamat
      cboProgram.Text = !Program
      cboJenjang.Text = !Jenjang
      cboSex.Text = !Sex
    End With
  End Sub

  Sub HapusText()
    txtNPM.Text = ""
    txtNama.Text = ""
    txtAlamat.Text = ""
    cboProgram.Text = ""
    cboJenjang.Text = ""
    cboSex.Text = ""
    txtNPM.SetFocus
  End Sub



☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                              Hal : 92
  Private Sub cmdDelete_Click()
    If rMahasiswa.RecordCount = 0 Then Exit Sub
    x = MsgBox("Data ini dihapus ?", vbCritical + vbOKCancel, "Delete")
    If x = vbOK Then
        rMahasiswa.Delete
        Call cmdFirst_Click
    End If
  End Sub

   Private Sub cmdSave_Click()
     x = MsgBox("Data ini di simpan ?", vbInformation + vbOKCancel, "Simpan Data")
     If x = vbOK Then Call SimpanDB(True)
     Call cmdCancel_Click
   End Sub

   Private Sub cmdUpdate_Click()
     SimpanDB False
   End Sub

   Private Sub cmdCancel_Click()
     Call HapusText
     ChangeCMD True, False, True, True, False
     Call cmdFirst_Click
     Frame3.Enabled = True
   End Sub

   Private Sub cmdNew_Click()
     ChangeCMD False, True, False, False, True
     Frame3.Enabled = False
     HapusText
   End Sub

   Private Sub cmdClose_Click()
     rMahasiswa.Close
     dbSTMIK.Close
     Unload Me
   End Sub

   Private Sub txtNPM_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
        rMahasiswa.Index = "NPMIDX"
        rMahasiswa.Seek "=", txtNPM.Text
        If Not rMahasiswa.NoMatch Then
           Call ShowMhs
           MsgBox "Ma'af...Data ini telah ada Mas ?", vbInformation + vbOKOnly, "Ada Data"
           ChangeCMD True, False, True, True, False
           Frame3.Enabled = True
        Else
           Call cmdCancel_Click
        End If
     End If
   End Sub




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                        Hal : 93
  Private Sub cmdFirst_Click()
    If PosisiRec(rMahasiswa, 0) Then ShowMhs
  End Sub

   Private Sub cmdLast_Click()
     If PosisiRec(rMahasiswa, 3) Then ShowMhs
   End Sub

   Private Sub cmdNext_Click()
     If PosisiRec(rMahasiswa, 1) Then ShowMhs
   End Sub

   Private Sub cmdPrevious_Click()
     If PosisiRec(rMahasiswa, 2) Then ShowMhs
   End Sub

   Kemudian anda tambahkan sebuah Modul (pilih Project | Add Module)sehingga muncul
   modul1 dan pada modul tersebut buat program di bawah ini.




   Simpanlah program terlebih dahulu dengan nama Project : Project Mahasiswa 3 dan
   Form : Frm Mahasiswa 3 (Pilih File kemudian Save Project untuk menyimpan)

Tugas Praktikum.
Ubahlah program Tugas Praktikum pada Bab X menjadi seperti bentuk di atas. (ada dua
Program yaitu Dosen & Matakuliah)




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 94
                               BAB XIII
                           CRYSTAL REPORT

        Untuk menampilkan sebuah informasi dalam bentuk suatu laporan/Document secara
keseluruhan, VB menyediakan banyak sarana untuk yang demikian. Adapun sarana sarana
yang dipergunakan yaitu :
        • Kontrol Grid atau ListView yang telah di pergunakan sebelumnya.
        • DataReport
        • Menggunakan kode-kode program.
        • Crystal Report.
        Dari beberapa sarana diatas yang paling mudah digunakan yaitu Crytal Report, dan
hasil yang diperoleh sangat bagus. Crystal Reports merupakan sebuah produk dari Seagate
yang didesain khusus untuk membuat suatu Laporan.

13.1 Menggunakan Crystal Report.
   Sebelum menggunakan Crystal Report ini kita harus memastikan fasilitas ini telah terinstal
pada komputer kita yaitu dengan melihat pada Start | Program | Microsoft Visual Studi |
Seagate Crystal Report. Jika file tersebut ada maka kita buka sebuah project kita. Misalnya
Entry Data Mahasiswa (Bahan Praktek Bab IX Nomor 1).

                                                   Setelah project kita terbuka maka click
                                                   menu Project | More ActiveX Designers...,
                                                   Crystal Reports 7. Akan muncul dialog
                                                   berikut ini.
                                                   Kita pilih Empty Report. Click ganda pada
                                                   CrystalReport1 untuk mengaktifkan report
                                                   designer dan akan muncul sebuah Form
                                                   Report yang kosong, seperti gambar di
                                                   bawah.




   •   Report Header     merupakan Kepala dari laporan kita.
   •   Page Header     merupakan Tampilan atas dari Halaman/Page Report
   •   Detail  disini nanti akan tampil data-data dari Database yang tersimpan.
   •   Report Header     merupakan bawah dari laporan kita.
   •   PageFooter      merupakan Tampilan bawah dari Halaman/Page Report
   •   DatabaseField     untuk menambah database.

       Langkahnya adalah
       1. Click kanan pada DatabaseField pilih Add Database to Report…
☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                            Hal : 95
    2. Muncul Dialog Choose Database file, pilihlah database yang ingin dihubungkan,
       misalnya STMIK kemudian Open. (ingat file STMIK yang kita gunakan pada latihan
       sebelumnya harus ada).
    3. Muncul dialog Select Tables, kliklah nama tabel yang ingin dimasukkan dalam
       report (anda dapat menekan control untuk memilih tabel lebih dari satu). Lalu klik
       tombol OK 2 (dua) kali.
    4. Kliklah tanda expanse (+) pada tabel Database (Mahasiswa)untuk melihat field-
       field suatu tabel lalu draglah field-field itu pada baris Detail di dalam report
       designer. Hingga anda melihat tampilan seperti di bawah ini.




           Untuk membuat “LAPORAN DATA MAHASISWA”, Garis & Kotak, anda gunakan
           kontrol dibawah ini.
             Kontrol                   Kegunaan
                       Box Object     untuk menggambar Kotak

                       Line Object    untuk menggambar garis

                       Text Object    untuk membuat Tulisan

       5. Simpan program tersebut. Untuk melihat hasil sementara tekan F5.
       6. Setelah program anda jalankan, maka anda pasti akan tahu kekurangan-
          kekurangan yang ada. Dan anda hanya tinggal melengkapi saja.

   •   Special Field      field pendukung yang tidak terdapat pada database kita. Time, Date,
       NoUrut, No Halaman, dsb. Anda dapat mengambil field dengan cara click kanan pilih
       Insert | Special Field.

   •   Formula Fields     digunakan untuk membuat field proses, seperti perhitungan Total
       Harga, Menyeleksi kondisi suatu data mis : jika data “P” akan ditampilkan “Pria”

       Langkah membuat field proses
       1. Click kanan pada Formula Field pilih New. Ketikkan nama dari formula yang akan
          kita buat. Misalnya. Kelamin.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                             Hal : 96
    2. If Then Else anda ambil dari sebelah kanan cari pada Other.
       {Mahasiswa.Sex} anda click pada Table Mahasiswa.
       =”P” , “Pria” & “Wanita” anda ketikkan.
       Note : statement diatas akan bekerja jika Mahasiswa.Sex bernilai “P” maka akan
       ditampilkan sebagai Pria atau sebaliknya.
    3. Untuk menyimpan formula ini click icon Disket atau Ctrl+S . Otomatis akan
       tersimpan dan menutup formula field kalau tidak ditemukan kesalahan pada
       formula tersebut.
    4. Selanjutnya dapat anda click + Formula Fields untuk melihat field kelamin tersebut
       dan dapat anda drag ke dalam bagian Detail jika ingin di tampilkan.

Bahan Praktek
      Buatlah Struktur DataBase berikut :
      Database      : Macan
      Table Name : Karyawan
       Field         Type      Size Index              Option
       NIK           Text        5     NIKIDX          Primary, Ignore Nulls, Unique
       Nama          Text        40    NamaIDX         Ignore Nulls
       Sex           Text         1
       Jabatan       Text        25
       Gaji          Double       8
       Tunjangan Double          8

      Inputkan secara manual Data Karyawan berikut ini :
       NIK       Nama             Sex Jabatan            Gaji     Tunjangan
       11101     Anton              P   Manajer            750000    200000
       11102     Susi Sri Indah    W    Sekretaris         550000    100000
       11103     Basuki             P   Satpam             350000    100000
       11104     Aldyan             P   Administrasi       400000    100000
       11105     Suki Otawa         P   Manajer            700000    200000
       11106     Putri Diah        W    Administrasi       400000    100000

      Setelah data tersebut telah diinputkan. Maka buatlah suatu project baru.
      1. Kemudian Click menu Project | More ActiveX Designers..., Crystal Reports 7.0,
         pilih Empty Report.
      2. Click Kanan pada Database Fields, pilih Add Database to Report... cari Database
         Macan yang telah anda buat sebelumnya.
      3. Buatlah sebuah Formula Field dengan nama KELAMIN dan buatlah perintah di
         bawah ini.



          Untuk menyimpan Formula di atas tekan Ctrl+S.

      4. Buatlah sebuah Formula Field kembali dengan nama TotalGaji dan buatlah
         perintah di bawah ini.


          Untuk menyimpan Formula di atas tekan Ctrl+S.

      5. Kemudian pada table Karyawan, anda ambil Field-field tersebut (Drag) masukkan
         ke dalam Bagian Detail begitu juga Formula Field (Kelamin & Total)yang telah
         anda buat. Sehingga tampilan akan menjadi seperti berikut ini.


☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                               Hal : 97
    Notes : Untuk Number(No), dengan Tanggal(PrintDate) bisa anda Insert melaluli
    Insert | Special Fields , untuk Tanggal anda pilih Print Date, dan Number anda pilih
    Record Number.




       6. Jalankanlah Program tersebut (Tekan F5) dan lihat hasilnya seperti berikut ini :


       7. Tambahkanlah Kotak & Garis.




☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                             Hal : 98
                                    BAB XIV
                            SETUP PROGRAM APLIKASI

      Setelah kita selesai membuat program secara longkap, maka mungkin kita ingin
menggunakan program kita pada komputer lain, misalnya kita membuat dan menyelesaikan
program di rumah, kemudian ingin menggunakan program tersebut di kantor atau tempat lain.
      Untuk keperluan tersebut, VB menyediakan fasilitas pembuatan file setup program.

      Adapun langkah-langkahnya adalah sebagai berikut :
      1. Click Start | Program | Microsoft Visual Studio | Microsoft Visual Basic Tools |
         Package and Deployment Wizard. Sehingga akan muncul form berikut ini.




      2. Kemudian Click Browse. Cari file yang akan dibuat setup Disk. Sebagai contoh
         Program Menu Utama MDI (Bahan Praktek Bab 8)
      3. Setelah itu anda Click Package, sehingga muncul seperti gambar berikut.




      4. Anda Click Compile agar dia mengcompile dahulu file program latihan kita dan
         tunggu beberapa saat kemudian sehingga muncul dialog berikut ini.




      5. Selanjutnya click Next dan akan muncul dialog berikut ini. Pada dialog ini
         disarankan anda membuat Direktori Setup dengan cara Click New Folder, dan
         buat directori Setup MenuSTMIK di C: . Kemudian anda click Next.



☺ MESRAN, S.KOM
MODUL PRAKTIKUM : Pemrograman VB I                                                Hal : 99




       6. Selanjutnya click Next kemudian OK, selanjutnya Next dan pilih Multiple Cabs.
          Kemudian Next. Ketikkan Project Menu Utama STMIK lalu Next sebanyak 4 kali
          dan terakhir Finish. Dan tunggu beberapa saat.

       7. Langkah terakhir click Close. Sekarang anda buka Direktory C:/Setup
          MenuSTMIK, dan lihat hasilnya. Dalam direktori tersebut terdapat beberapa file
          yang berkapasitas besar. Untuk menggunakan file Setup tersebut, kita hanya Click
          file yang bernama Setup, selanjutnya komputer akan memproses layaknya seperti
          Instalasi program yang baru.

        Seperti yang anda lihat hasil yang terdapat pada direktori tersebut. File yang ada
terlalu banyak sehingga akan menimbulkan kesulitan kalau kita akan melakukan Setup pada
komputer yang lain karena akan membutuhkan beberapa disket. Tentu akan sangat repot
sekali.

       Untuk menghindari hal yang demikian, VB menyediakan sarana Make Exe program.
Yang artinya program yang ada hanya di jadikan Executable program yaitu bisa langsung
diakses tanpa membuka VB. Tetapi syarat untuk membuka file Executable tersebut tentunya
harus tersedia file-file pendukung yang di miliki oleh VB.

       Cara membuat Executable Program yaitu :
       1. Buka file proyek kita yaitu Menu Utama MDI (bahan praktek Bab 8)
       2. Pastikan file ini tidak ada lagi Error (kesalahan). Setelah itu pilih File | Make
          Project , buat nama file kita. Dan tunggu hasilnya beberapa saat kemudian.
       3. Setelah itu lihat file Exe yang telah terbentuk. Sangat kecil kapasitasnya. Tetapi
          kendalanya adalah jika menggunakan file Exe ini pada komputer yang lain. Kita
          harus memastikan komputer tersebut telah terinstal VB.




☺ MESRAN, S.KOM

								
To top