Documents
Resources
Learning Center
Upload
Plans & pricing Sign in
Sign Out

Praktikum Pemrograman Visual I Visual Basic

VIEWS: 1,247 PAGES: 8

									PYK - Praktikum Pemrograman Visual I (Visual Basic 6.0)          3.    Simpan form tersebut dengan nama Form1.frm dan
                                                                       projectnya bernama Latihan.vbp dalam folder C:\LAB B
           Pertemuan 1 – Pengenalan Visual Basic 6.0                   SORE\NIM-NAMA !

Konsep Object Oriented Programming Language                      4.    Alur logika program:
   1. Class (objek)                                                    a. Ketika program dijalankan user harus mengisikan
   2. Property (atribut)                                                    nama di Text1 dan password di Text2.
   3. Method/event                                                     b. Jika Command1 diklik maka nama user di Text1 akan
                                                                            tampil di caption Form1 dan muncul pesan “Password
Komponen-komponen Visual Basic 6.0                                          Anda adalah xxx”, sesuai dengan password yang
   1. Project                                                               diketik di Text2.
   2. Form dan kontrol                                                 c. Jika Option1 diklik maka Shape1 berubah bentuknya
   3. Modul                                                                 menjadi oval dan berwarna hijau.
   4. Data Environment                                                 d. Jika Option2 diklik maka Shape1 berubah bentuknya
   5. Data Report                                                           menjadi square dan berwarna kuning.

Workspace Visual Basic 6.0                                       Kode program selengkapnya
   1. Title bar dan menu bar
   2. Tool bar                                                        Private Sub Command1_Click()
   3. Toolbox                                                             Me.Caption = Text1.Text
   4. Form designer                                                       MsgBox "Password Anda adalah " +
   5. Project window
                                                                           Text2.Text, _
   6. Property window
   7. Form layout window
                                                                            vbOKOnly, "Informasi"
   8. Status bar                                                      End Sub

Latihan                                                               Private Sub Command2_Click()
                                                                          Unload Me
1.    Buatlah sebuah project baru dan desainlah tampilan form-        End Sub
      nya seperti gambar dibawah ini!
                                                                      Private Sub Option1_Click()
                                                                          Shape1.Shape = 2
                                                                          Shape1.FillColor = vbGreen
                                                                      End Sub

                                                                      Private Sub Option2_Click()
                                                                          Shape1.Shape = 1
                                                                          Shape1.FillColor = vbYellow
                                                                      End Sub

                                                                 Pertanyaan
                   Shape1                                            1. Apa yang dimaksud dengan objek, property (atribut)
                                                                         dan method (event)?
                                                                     2. Berikan contoh objek, property (atribut) dan method
                                                                         (event) pada Visual Basic 6.0!
                                                                     3. Bagaimana cara mengubah nilai property suatu objek
                                                                         di form pada saat mendesain tampilan program pada
                                                                         Visual Basic 6.0?
2.    Aturlah nilai property dari objek-objek di Form1 dengan        4. Bagaimana cara mengakses nilai property suatu objek
      nilai yang ditunjukan pada tabel dibawah ini!                      melalui kode program?
                                                                     5. Apa ekstensi file form Visual Basic 6.0?
     No.     Object           Property              Nilai            6. Apa ekstensi file project Visual Basic 6.0?
      1    Form1         BorderStyle         1 – Fixed Single
      2    Label1        Caption             Nama User
      3    Label2        Caption             Password
      4    Text1         Text                (Kosongkan)
                         Text                (Kosongkan)
     5     Text2
                         PasswordChar        *
     6     Command1      Caption             &Login
     7     Command2      Caption             E&xit
     8     Shape1        FillStyle           0 – Solid
     9     Option1       Caption             Oval
     10    Option2       Caption             Square
PYK - Praktikum Pemrograman Visual I (Visual Basic 6.0)        2.    Aturlah nilai property dari objek-objek di Form2 dengan
                                                                     nilai yang ditunjukan pada tabel dibawah ini!
           Pertemuan 2 – Tipe Data dan Operator
                                                                    No.     Object       Property                Nilai
Tipe data bilangan bulat (numeric integer)                           1    Form2         BorderStyle     1 – Fixed Single
    1. Byte (ukuran 1 byte, 0 s.d 255)                                                                  Operasi Data
    2. Integer (ukuran 2 byte, -32768 s.d 32767)                    2     Frame1        Caption
                                                                                                        Numerik
    3. Long/long integer (ukuran 4 byte, -2147483648 s.d            3     Label1        Caption         Nilai 1
         2147483647)                                                4     Label2        Caption         Nilai 2
                                                                    5     Label3        Caption         Hasil
Tipe data bilangan pecahan (numeric real)                           6     txtNil1       Text            (Kosongkan)
    1. Single (ukuran 4 byte, 1.5E-45 s.d 3.4E+38, 7-8 digit        7     txtNil2       Text            (Kosongkan)
         signifikan)
                                                                    8     txtHasil      Text            (Kosongkan)
    2. Double (ukuran 8 byte, 5.0E-324 s.d 1.7E+308, 15-16
                                                                    9     cmdTambah     Caption         +
         digit signifikan)
                                                                    10    cmdKurang     Caption         -
Tipe data string/text                                               11    cmdKali       Caption         *
    1. String                                                       12    cmdBagi       Caption         /
    2. String * n (String dengan panjang n karakter)                13    cmdPangkat    Caption         ^
                                                                    14    cmdMod        Caption         MOD
Operator aritmatika                                                 15    cmdReset      Caption         &Reset
   +       Operasi penjumlahan (Addition)                           16    Frame2        Caption         Operasi Data String
   -       Operasi pengurangan (Substraction)                       17    Label4        Caption         String 1
   *       Operasi perkalian (Multiplication)                       18    Label5        Caption         String 2
   /       Operasi pembagian (Division)                             19    Label6        Caption         Gabungan
   \       Integer division (pembagian bilangan bulat)              20    txtStr1       Text            (Kosongkan)
   ^       Operasi pangkat (Exponentiation/Power)                   21    txtStr2       Text            (Kosongkan)
   Mod Menghitung sisa bagi                                         22    txtGab        Text            (Kosongkan)
                                                                    23    cmdGab1       Caption         +
Operator penggabungan string (concatenation) adalah + dan &.        24    cmdGab2       Caption         &&
                                                                                        Caption         &S E L E S A I
Latihan                                                             25    cmdQuit       Style           1 - Graphical
                                                                                        Picture         (Silahkan pilih)
1.   Buka project Latihan.vbp dan tambahkan sebuah form
     kemudian desainlah form tersebut seperti gambar dibawah   3.    Simpan form tersebut dengan nama Form2.frm dalam
     ini!                                                            folder C:\LAB B SORE\NIM-NAMA !

                                                               4.    Alur logika program:
                                                                     a. Ketika dijalankan user mengisi Nilai 1 dan Nilai 2.
                                                                     b. Jika user mengklik tombol + maka hasil
                                                                          penjumlahannya muncul di textbox Hasil. Demikian
                                                                          juga jika user mengklik -, *, /, ^, dan MOD.
                                                                     c. Jika user mengklik tombol Reset maka textbox Nilai 1,
                                                                          Nilai 2 dan Hasil akan kosong.
                                                                     d. User mengisikan String 1 dan String 2. Jika user
                                                                          mengklik tombol + atau & maka hasil penggabungan
                                                                          String 1 dengan String 2 muncul di textbox
                                                                          Gabungan.
                                                                     e. Jika user mengklik tombol S E L E S A I maka
                                                                          program berhenti.

                                                               5.    Deklarasikan variabel-variabel yang sesuai pada bagian
                                                                     General di Form2!

                                                               Pertanyaan

                                                                     1.   Apa perbedaan data numerik dengan data string?
                                                                     2.   Apa perbedaan data numerik real dengan numerik
                                                                          integer?
                                                                     3.   Bagaimana cara mendeklarasikan variabel?
                                                                     4.   Sebutkan operator aritmatika dan fungsinya!
                                                                     5.   Sebutkan operator string dan fungsinya!
                                                                     6.   Apa perbedaan operator / dengan \ ?
                                                                     7.   Dimana kita dapat mendeklarasikan variabel?
                                                                     8.   Apa yang dimaksud dengan “Option Explicit” ?
PYK - Praktikum Pemrograman Visual I (Visual Basic 6.0)                   9     Label9         Caption         No. Faktur
                                                                          10    txtKode        Text            (Kosongkan)
     Pertemuan 3 – Fungsi Standar String dan Matematika                   11    txtNama        Text            (Kosongkan)
                                                                          12    txtJumlah      Text            (Kosongkan)
Fungsi standar string dan matematika                                      13    txtHarga       Text            (Kosongkan)
                                                                                               Text            (Kosongkan)
      1.   Val(“string”), mengubah nilai string menjadi numerik.          14    txtTotal
                                                                                               Locked          True
      2.   Str(nilai), mengubah nilai numerik menjadi string.                                  Text            (Kosongkan)
      3.   Format(ekspresi, “kode format”), menjadikan nilai              15    txtFaktur
                                                                                               Locked          True
           ekspresi sesuai dengan kode format yang ditentukan.
                                                                          16    Timer1         Enabled         True
      4.   Left(“string”, n), mengambil n karakter mulai dari awal
                                                                                               Interval        1000
           string.
      5.   Mid(“string”, x, n), mengambil n karakter dari string          17    cmdHitung      Caption         &Hitung Total Bayar
           dimulai dari posisi ke-x.                                      18    cmdReset       Caption         &Reset
      6.   Right(“string”, n) mengambil n karakter mulai dari
           akhir string.                                             3.     Simpan form tersebut dengan nama Form3.frm dalam
      7.   Now( ), untuk mengetahui tanggal dan jam sistem                  folder C:\LAB B SORE\NIM-NAMA !
           saat ini.
                                                                     4.     Alur logika program:
Latihan                                                                     a. Ketika dijalankan jam dan tanggal tampil di Label1
                                                                                 dan Label2 secara otomatis, kemudian user mengisi
1.    Buka project Latihan.vbp dan tambahkan sebuah form                         Kode Barang, Nama Barang, Jumlah Beli dan
      kemudian desainlah form tersebut seperti gambar dibawah                    Harga Barang.
      ini!                                                                  b. Jika user mengklik tombol Hitung Total Bayar maka
                                                                                 hasil perkalian Harga Barang dengan Jumlah Beli
                                                                                 muncul di textbox Total Bayar dan No. Faktur tampil
                                                                                 dengan struktur “FJ-MM-yy-kk-nn” (FJ-bulan-tahun-
                                                                                 kode-nama).
                                                                            c. Jika user mengklik tombol Reset maka semua textbox
                                                                                 akan kosong dan kursor fokus di Kode Barang.

                                                                     Kode Program Selengkapnya

                                                                          Dim faktur, kode, nama, tanggal As String
                                                                          Dim jumlah As Byte
                                                                          Dim harga, total As Currency

                                                                          Private Sub cmdHitung_Click()
                                                                             Let kode = txtKode.Text
                                                                             Let nama = txtNama.Text
                                                                             Let tanggal = Format(Now(), "dd/MM/yy")

                                                                            Let faktur = "FJ" & "-" & Mid(tanggal, 4, 2) & "-" & _
                                                                               Right(tanggal, 2) & "-" & Left(kode, 2) & "-" & _
                                                                               Left(nama, 2)

                                                                            Let jumlah = Val(txtJumlah.Text)
                                                                            Let harga = Val(txtHarga.Text)
                                                                            Let total = jumlah * harga
                                                                            Let txtTotal.Text = Format(total, "Rp #,###.#0")
                                                                            Let txtFaktur.Text = UCase(faktur)
                                                                          End Sub

                                                                          Private Sub cmdReset_Click()
2.    Aturlah nilai property dari objek-objek di Form2 dengan
                                                                             Dim ctrl As Control
      nilai yang ditunjukan pada tabel dibawah ini!
                                                                            For Each ctrl In Me
     No.     Object        Property                Nilai                       If TypeName(ctrl) = "TextBox" Then _
                          BorderStyle     1 – Fixed Single                        Let ctrl.Text = ""
     1     Form2
                          Caption         Fungsi Standar                    Next ctrl
                                          Toserba “SEMUA
     2     Label1         Caption                                           txtKode.SetFocus
                                          ADA”
     3     Line1          BorderWidth     2                               End Sub
     4     Label4         Caption         Kode Barang
                                                                          Private Sub Timer1_Timer()
     5     Label5         Caption         Nama Barang
                                                                             Let Label2.Caption = Format(Now(), "hh:mm:ss")
     6     Label6         Caption         Jumlah Beli                        Let Label3.Caption = Format(Now(), "dd/MM/yyyy")
     7     Label7         Caption         Harga Barang                    End Sub
     8     Label8         Caption         Total Bayar
 PYK - Praktikum Pemrograman Visual I (Visual Basic 6.0)         8.    Ketika tombol Reset diklik maka semua textbox dan
                                                                       combo box kosong serta tidak ada option button yang
                  Pertemuan 4 – Latihan                                terpilih.

1.   Buatlah sebuah project baru dengan nama file                9.    Ketika tombol Tutup diklik akan muncul pesan seperti
     LatihanVB.vbp dan simpan di C:\LAB B SORE\NIM-                    gambar dibawah ini:
     NAMA!

2.   Buatlah sebuah form dengan tampilan seperti gambar
     dibawah ini dan simpan dengan nama file
     FormLatihan1.frm!




                                                                       Ketika tombol OK diklik maka program akan berhenti.

                                                                 Kode program selengkapnya:

                                                                      Dim harga As Currency

                                                                      Private Sub cmdHitung_Click()
                                                                         Dim total As Currency

                                                                        Let total = harga * Val(txtJumlah.Text)
                                                                        Let txtTotal = Format(total, "#,###.#0")
                                                                      End Sub

                                                                      Private Sub cmdReset_Click()
3.   Ketika option button pilihan Jurusan diklik maka muncul
                                                                         Let Option1.Value = False
     harga tiket di textbox Harga Rp. dengan ketentuan
                                                                         Let Option2.Value = False
     sebagai berikut:
                                                                         Let Option3.Value = False
     a) Jakarta – Solo             = 150,000.00                          Let Option4.Value = False
     b) Jakarta – Yogyakarta       = 200,000.00
     c) Jakarta – Cirebon          = 125,000.00                         Let txtHarga.Text = ""
     d) Jakarta – Bandung          = 175,000.00                         Let txtJumlah.Text = ""
                                                                        Let txtTotal.Text = ""
     Catatan: Harga tampil dalam bentuk human readable.               End Sub

4.   Combo box Nama Bus berisi pilihan sebagai berikut:               Private Sub cmdTutup_Click()
     - Lorena                                                            MsgBox "Terima kasih.", vbInformation, _
     - Fajar                                                                       "Agen Bus"
     - Hiba Utama
                                                                        Unload Me
5.   Ketika option button Kelas dipilih maka pada textbox Kode        End Sub
     Bus muncul kode dengan ketentuan sebagai berikut:
     a) Ekonomi = XX-EKO-YY                                           Private Sub opteko_Click()
     b) VIP        = XX-VIP-YY
                                                                         Let txtkode.Text = UCase(Left(cmbnama.Text, _
     c) VVIP       = XX-VVIP-YY
                                                                            2) & "-EKO-" & Right(cmbnama.Text, 2))
     Keterangan:                                                      End Sub
     XX adalah dua karakter pertama dari Nama Bus.
     YY adalah dua karakter terakhir dari Nama Bus.                   Private Sub Option1_Click()
                                                                         Let harga = 150000
     Catatan:                                                            Let txtHarga.Text = Format(harga, _
     Kode bus muncul dengan semua karakternya huruf besar.                  "#,###.#0")
                                                                      End Sub
6.   Masukan jumlah tiket pada textbox Jumlah.
                                                                      Private Sub Option2_Click()
7.   Ketika tombol Hitung diklik maka total harga muncul di              Let harga = 200000
     textbox Total Rp. dalam bentuk human readable dengan                Let txtHarga.Text = Format(harga, _
     ketentutan sebagai berikut:                                            "#,###.#0")
                                                                      End Sub
                   Total = Jumlah x Harga
Private Sub Option3_Click()
   Let harga = 125000
   Let txtHarga.Text = Format(harga, _
      "#,###.#0")
End Sub

Private Sub Option4_Click()
   Let harga = 175000
   Let txtHarga.Text = Format(harga, _
      "#,###.#0")
End Sub

Private Sub optvip_Click()
   Let txtkode.Text = UCase(Left(cmbnama.Text, _
      2) & "-VIP-" & Right(cmbnama.Text, 2))
End Sub

Private Sub optvvip_Click()
   Let txtkode.Text = UCase(Left(cmbnama.Text, _
      2) & "-VVIP-" & Right(cmbnama.Text, 2))
End Sub
PYK - Praktikum Pemrograman Visual I (Visual Basic 6.0)                 Yogyakarta    175,000.00      200,000.00      225,000.00
                                                                        Cirebon       125,000.00      150,000.00      175,000.00
            Pertemuan 5 – Percabangan/Seleksi Kondisi                   Bandung       175,000.00      200,000.00      225,000.00

1.       Buka project Latihan.vbp kemudian tambahkan sebuah               c)   User memasukan jumlah tiket dan total harga muncul.
         form dan desainlah form tersebut seperti gambar dibawah               User hanya bisa memasukan angka di textbox jumlah.
         ini!                                                             d)   User memasukan uang bayar dan uang kembali
                                                                               muncul di textbox kembali. Jika uang bayar yang
                                                                               dimasukan kurang maka textbox kembali tetap
                                                                               kosong, tetapi jika uang bayar lebih dari atau sama
                                                                               dengan total maka uang bayar akan tampil.
                                                                          e)   Jika user mengklik tombol reset maka semua textbox
                                                                               kosong dan tidak ada option button tidak ada yang
                                                                               terpilih.
                                                                          f)   Jika user mengklik tombol tutup maka akan muncul
                                                                               pesan:




                                                                               Jika mengklik OK maka program berhenti, tetapi jika
                                                                               user mengklik Cancel maka program tetap berjalan.

2.       Atur property dari object-object pada form tersebut seperti   Kode Program Selengkapnya
         ditunjukan oleh tabel dibawah ini!
                                                                        Dim h, t As Currency
 No.          Object        Property                Nilai
                          Caption         Sistem Penjualan Tiket        Private Sub cmdReset_Click()
     1      Form5
                          BorderStyle     1 – Fixed Single                 Dim ctrl As Control
     2      Label1        Caption         Sistem Penjualan Tiket
     3      Frame1        Caption         Jurusan                         For Each ctrl In Me
     4      Option1       Caption         Jakarta – Solo                     If (TypeName(ctrl) = "TextBox") Then _
     5      Option2       Caption         Jakarta – Yogyakarta                   ctrl.Text = ""
     6      Option3       Caption         Jakarta – Cirebon                  If (TypeName(ctrl) = "OptionButton") Then _
     7      Option4       Caption         Jakarta – Bandung                      ctrl.Value = False
     8      Frame2        Caption         Kelas dan Nama Bus              Next ctrl
                          Style           2 – Dropdown List             End Sub
                                          Lorena
     9      cmbNama
                          (List)          Hiba Utama                    Private Sub cmdTutup_Click()
                                          Fajar                            Dim tombol As Byte
     10     optEko        Caption         Ekonomi
     11     optBisnis     Caption         Bisnis                          Let tombol = MsgBox("Akhiri aplikasi", _
     12     optVIP        Caption         VIP                                  vbOKCancel + vbQuestion, "Konfirmasi")
     13     txtKode       Locked          True                            If (tombol = vbOK) Then Unload Me
     14     txtHarga      Locked          True                          End Sub
     15     txtKembali    Locked          True
                                                                        Private Sub optBisnis_Click()
3.       Simpan form tersebut dengan nama Form5.frm!                       If Option1.Value = True Then
                                                                              Let h = 150000
4.       Alur logika program:                                              ElseIf Option2.Value = True Then
         a) User harus menentukan jurusan dan memilih nama                    Let h = 175000
              bus.
                                                                           ElseIf Option3.Value = True Then
         b) Harga tiket dan kode bus tampil saat user mengklik
                                                                              Let h = 125000
              kelas bus (ekonomi, bisnis atau VIP) dengan
              ketentuan sebagai berikut:                                   ElseIf Option4.Value = True Then
                                                                              Let h = 175000
 Kelas /                                                                   End If
                         Ekonomi         Bisnis            VIP
 Jurusan
 Solo                 150,000.00      175,000.00       200,000.00          Let txtHarga.Text = Format(h, "#,###.#0")
  Let txtKode.Text = _                             End Sub
       UCase(Left(cmbNama.Text, 2) & "-BIS-" & _
       Right(cmbNama.Text, 2))                     Private Sub txtUang_KeyPress(KeyAscii As Integer)
End Sub                                               If ((KeyAscii < 47) Or (KeyAscii > 58)) And _
                                                          (KeyAscii <> 8) Then KeyAscii = 0
Private Sub opteko_Click()                         End Sub
   If Option1.Value = True Then
      Let h = 125000
   ElseIf Option2.Value = True Then
      Let h = 150000
   ElseIf Option3.Value = True Then
      Let h = 100000
   ElseIf Option4.Value = True Then
      Let h = 150000
   End If

  Let txtHarga.Text = Format(h, "#,###.#0")
  Let txtKode.Text = _
       UCase(Left(cmbNama.Text, 2) & _
       "-EKO-" & Right(cmbNama.Text, 2))
End Sub

Private Sub optvip_Click()
   If Option1.Value = True Then
      Let h = 175000
   ElseIf Option2.Value = True Then
      Let h = 200000
   ElseIf Option3.Value = True Then
      Let h = 150000
   ElseIf Option4.Value = True Then
      Let h = 200000
   End If

  Let txtHarga.Text = Format(h, "#,###.#0")
  Let txtKode.Text = _
       UCase(Left(cmbNama.Text, 2) & "-VIP-" & _
       Right(cmbNama.Text, 2))
End Sub

Private Sub txtJumlah_Change()
   Dim j As Byte

  Let j = Val(txtJumlah.Text)
  Let t = j * h
  Let txtTotal.Text = Format(t, "#,###.#0")
End Sub

Private Sub txtJumlah_KeyPress(KeyAscii As
Integer)
   If ((KeyAscii < 47) Or (KeyAscii > 58)) And _
       (KeyAscii <> 8) Then KeyAscii = 0
End Sub

Private Sub txtUang_Change()
   Dim b, k As Currency

  Let b = Val(txtUang.Text)
  If (b >= t) Then
      Let k = b - t
      Let txtKembali.Text = Format(k, _
           "#,###.#0")
  Else
      Let txtKembali.Text = ""
  End If

								
To top