MODUL PRAKTIKUM PEMROGRAMAN VISUAL BASIC

Fakultas Teknik Praktikum 10

MODUL PRAKTIKUM PEMROGRAMAN VISUAL BASIC

Moh. Anshori Aris Widya, S.Kom UNIPDU (Universitas Pesantren Tinggi Darul Ulum) 2013-2014

UNIPDU | Komplek Pondok Pesantren Tinggi Darul ‘Ulum Peterongan Jombang 61481

2014

PRAKTIKUM 10 IMAGE CONTAINER dan APLIKASI MULTI FORM

A. Tujuan - Mengenal Image Container di Visual Basic 2008 - Praktikum Aplikasi Multi Form di Visual Basic 2008 B. Perangkat Lunak (Software) - Microsoft Visual Basic 2008 C. Dasar Teori Pada saat pembuatan aplikasi, kita sering menggunakan gambar-gambar sebagai icon pada tombol, toolbar, menu, tab control dan lain sebagainya. Untuk memungkinkan hal tersebut kita sering menggunakan Property Image pada control-control tersebut. Pada saat kita mengakseses Property Image tersebut, terdapat 2 pilihan yaitu : 1. Local Resource Local Resource adalah salah satu cara peng-inputan gambar pada Property Image yang memungkinkan sebuah gambar diinputkan ke sebuah control. Cara ini paling sering digunakan karena paling mudah dipelajari dan mudah dilakukan.

Walaupun cara ini paling mudah dan dan sering digunakan, cara ini memiliki kelebihan dan kekurangan. Kelebihan : - Mudah dipelajari dan dilakukan - Setelah sebuah control yang telah diinputkan gambar dengan cara ini berhasil maka saat control tersebut di-copy ke project lainnya, gambar akan tetap ada pada control tersebut. Dikarenakan gambar yang telah diinputkan dengan cara ini akan diubah menjadi meta data sehingga kemanapun control tersebut di-copy maka gambar akan tetap ada pada control tersebut. 1 | Pemrograman Visual Basic UNIPDU 2013-2014

Kelemahan

: - Cara ini hanya mampu menyimpan meta data dari sebuah gambar saja. 2. Project Resources File Project Resources File salah satu cara peng-inputan gambar pada Property Image yang memungkinkan sebuah gambar ke sebuah control. Perbedaannya dengan Local Resource adalah dengan cara ini gambar yang akan diinputkan secara fisik akan disimpan ke dalam folder bernama Resources didalam Project tersebut dan bukan lagi disimpan dalam meta data. Kemudian setelah kita memilih gambar-gambar tersebut maka akan terbuat daftar gambar-gambar tersebut pada file Resources.resx. Jika dalam Local Resource kita hanya diperbolehkan memilih satu gambar, maka pada Project Resources File kita boleh memilih lebih dari satu gambar. Kelebihan : - File Fisik gambar ikut tersimpan - Dapat menyimpan banyak gambar, kita dapat memilih gambar mana yang akan diinputkan kedalam control. Kelemahan : - Cara ini tidak menyimpan gambar secara meta data, melainkan menyimpan secara fisik. Jadi saat sebuah control yang telah diinputkan gambar dengan cara ini berhasil maka saat control tersebut di-copy ke project lainnya, gambar akan hilang dari control tersebut. Dikarenakan gambar yang telah diinputkan dengan cara ini akan tidak diubah menjadi meta data. - Jika salah satu gambar dihapus dari resources, maka daftar gambar yang ada pada Resources.resx harus diedit secara manual.

Selain menggunakan cara diatas dalam peng-inputan gambar, kita dapat memanfaatkan sebuah control yang memiliki fungsi khusus sebagai Image Container (Penampung Gambar). Control tersebut adalah ImageList. Dalam ImageList gambar yang dipilih akan diubah ke dalam meta data dan dapat menyimpan lebih dari satu gambar. Sehingga dengan kata lain control ini merupakan solusi bagi kelemahan pada cara-cara diatas.

2 | Pemrograman Visual Basic UNIPDU 2013-2014

D. Praktikum Membuat Aplikasi Windows 1. Konsep Project a. Aplikasi Multi Form 2. Buat Project baru 3. Untuk menambahkan control-control ke dalam Form Design, ikuti perintah langsung saat perkuliahan. 4. Desain sedemikian rupa sehingga menjadi gambar dibawah ini


5.

Dari gambar screenshoot tersebut diketahui bahwa terdapat 2 menu utama yaitu Menu dan Aplikasi. Pada Menu terdapat Menu Keluar sedangkan pada Aplikasi terdapat Menu Stopwatch.


6.

Listing programnya adalah Public Class Form1 Private Sub mnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnkeluar.Click Close() End Sub Private Sub mnstopwatch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnstopwatch.Click Form2.ShowDialog() End Sub End Class

7.

Setelah selesai lanjutkan ke langkah berikutnya


8. Kemudian Buat Form Baru. 9. Konsep Aplikasi (Membuat Aplikasi Stopwatch sederhana) 10. Tambahkan control-control berikut ke dalam Form Design. No

Object

Property Name Text FormBorderStyle StartPosition MaximizeBox MinimizeBox

Nilai frmStopwatch Aplikasi Stopwatch Buatan Sendiri FixedSingle CenterScreen False False

Name Enabled Interval

tmrHitung False 10

Name ImageSize ColorDepth Images

ListIcon - Width = 48 - Height = 48 Depth32Bit (Sesuai Instruksi saat Praktikum)

Label

Name Font Text TextAlign AutoSize Dock

lblstopwatch Calibri, 36 00:00:00:00 MiddleCenter False Top

Button

Name ImageAlign Text TextAlign ImageList ImageKey

btnmulai MiddleLeft Mulai MiddleRight ListIcon player_play.png

Button


btnpause MiddleLeft Pause MiddleRight ListIcon player_pause.png

Button


btnstop MiddleLeft Stop MiddleRight ListIcon player_stop.png

1

Form

2

Timer

3

4

5

6

7

ImageList

11. Desain sedemikian rupa sehingga menjadi gambar dibawah ini


12. Setelah selesai men-design silahkan menuju listing program


13. Berikut ini listing aplikasi tersebut Public Class Form2 Dim AngkaJam, AngkaMenit, AngkaDetik, AngkaMilidetik As Integer Dim J, M, D, MD As String Sub Jam() If AngkaJam < 10 Then J = "0" & CStr(AngkaJam) Else J = CStr(AngkaJam) End If End Sub Sub Menit() If AngkaMenit = 60 Then AngkaMenit = 0 AngkaJam += 1 End If If AngkaMenit < 10 Then M = "0" & CStr(AngkaMenit) Else M = CStr(AngkaMenit) End If End Sub Sub Detik() If AngkaDetik = 60 Then AngkaDetik = 0 AngkaMenit += 1 End If If AngkaDetik < 10 Then D = "0" & CStr(AngkaDetik) Else D = CStr(AngkaDetik) End If End Sub Sub Milidetik() AngkaMilidetik += 1 If AngkaMilidetik = 100 Then AngkaMilidetik = 0 AngkaDetik += 1 End If If AngkaMilidetik < 10 Then


MD = "0" & CStr(AngkaMilidetik) Else MD = CStr(AngkaMilidetik) End If End Sub Private Sub tmrhitung_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrhitung.Tick Call Jam() Call Menit() Call Detik() Call Milidetik() lblstopwatch.Text = String.Format("{0}:{1}:{2}:{3}", J, M, D, MD) End Sub Private Sub btnmulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmulai.Click tmrhitung.Enabled = True End Sub Private Sub btnpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpause.Click tmrhitung.Enabled = False End Sub Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click tmrhitung.Enabled = False AngkaJam = 0 AngkaMenit = 0 AngkaDetik = 0 AngkaMilidetik = 0 lblstopwatch.Text = "00:00:00:00" End Sub End Class

14.Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 15.Analisa dan perhatikan apakah project yang dibuat telah sesuai konsep yang telah ditentukan (konsep akan diterangkan pada saat praktikum). 16.Simpan Project anda (untuk penjelasan mengenai Listing Program akan diterangkan pada saat praktikum). E. Referensi - Drs. Daryanto. Belajar Komputer Visual Basic, Bandung: Yrama Widya, 2004. - Ir. Suryanto Thabrani, MM. Mudah & Cepat Menguasai Visual Basic, Jakarta: Mediakita, 2008. - Soetam Rizky. Learning By Sample Visual Basic 2008, Jakarta: Prestasi Pustaka, 2010.


MODUL PRAKTIKUM PEMROGRAMAN VISUAL BASIC

Recommend Documents