MODUL VII VISUAL BASIC

MODUL VII VISUAL BASIC Tujuan 1. Praktikan dapat mengetahui apa itu pemrogaman berbasis objek (OOP) 2. Praktikan dapat mengetahui IDE pada Visual Basic 3. Praktikan dapat memahami struktur project pada Visual Basic. 4. Praktikan dapat membuat aplikasi sederhana menggunakan Visual Basic Visual Basic Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM), Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat, Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda. Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan. Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java. Visual Basic merupakan bahasa yang mendukung Pemrograman berorientasi objek (Object Oriented Programming / OOP) , namun tidak sepenuhnya, Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module, Polymorphism secara terbatas bisa dilakukan dengan mendeklarasikan class module yang memiliki Interface tertentu. Visual Basic (VB) tidak bersifat case sensitif.

Membuat Project Baru 1. Jalankan Aplikasi Visual Basic 2. Klik menu File > New Project, atau melalui ikon New Project, atau melalui kombinasi tombol Ctrl+N. 3. Pada kotak dialog New Project, pilih Windows Forms Application pada template Visual Basic, kemudian klik OK.

Mengenal IDE Visual Basic IDE (Integrated Development Environment), atau juga disebut sebagai Integrated Design/Debugging Environment, adalah perangkat lunak komputer yang berfungsi untuk membantu pemrogram dalam mengembangkan perangkat lunak. Singkatnya, IDE merupakan suatu lingkungan pengembangan aplikasi yang terintegrasi; lengkap dengan beragam tools atau utilitas pendukung.

Dalam upaya memudahkan pembuatan aplikasi, maka diperlukan pemahaman yang baik mengenai IDE (Integrated Decelopment Environment) Visual Basic.

Interface

Keterangan

Menu Bar

Menu standar pada visual Basic

Toolbar

Daftar tool yang digunakan untuk menjalankan perintah yang sering digunakan

Toolbox

Daftar control yang tambahkan ke dalam program sebagai interface

Form Design

Digunakan untuk mengedit tampilan form serta mengatur posisi control pada form

Solution

Digunakan untuk mengolah file dan project

Explorer Properties

Digunakan untuk mengedit property dari form dan control yang sedang diedit

Error List

Digunakan untuk menampilkan pesan error jika terjadi kesalahan

Control pada ToolBox Ada yang banyak pilihan control yang terdapat pada ToolBox VB .NET, berikut adalah fungsi masing-masing control: a. PictureBox : digunakan untuk menampilkan gambar atau image b. Label : digunakan untuk menampilkan teks yang tidak dapat diubah oleh pengguna jika project sudah di-compile menjadi file EXE. c. TextBox : digunakan untuk menampilkan teks yang bisa diubah oleh pengguna. d. Frame, GroupBox, Panel : digunakan untuk mengelompokan control-kontrol yang dianggap memiliki fungsi sejenis. e. Command Button, Button : digunakan untuk memulai proses tertentu pada saat pengguna melakukan klik. f. CheckBox : digunakan untuk memberikan pilihan kepada pengguna. g. Option Button : fungsinya hampir sama dengan CheckBox. Bedanya, pada CheckBox biasanya pengguna bisa memilih lebih dari satu pilihan. h. ListBox : digunakan untuk memberikan pilihan dalam bentuk daftar. i. ComboBox : fungsinya hampir sama dengan dengan ListBox, hanya saja pengguna bisa memasukan pilihan lain. j. HscrollBar : digunakan untuk menggeser layar secara horizontal. k. VscrollBar : digunakan untuk menggeser layar secara vertical. l. Timer : digunakan untuk mengatur proses pada program dalam interval waktu tertentu. m. DriveListBox : digunakan untuk menampilkan drive yang ada. n. DirListBox : digunakan untuk menampilakan direktori pada drive. o. Shape : digunakan untuk menampilkan bentuk-bentuk tertentu. p. Line digunakan untuk menampilkan garis. q. Image : digunakan untuk menampilkan image, tetapi tidak bisa berfungsi sebagai container. r. Data, DataGridViewer, DataGrid : digunakan untuk menghubungkan program ke database. s. OLE : digunakan untuk menghubungkan form dengan program lain.

Membuat MessageBox 1. Drag and Drop Button dari Toolbox ke Form 2. Edit BackColor, Font, ForeColor, dan Text pada Properties

3. Klik 2 kali pada Button tadi, maka kita akan masuk ke source code Button tersebut 4. Tambahkan source code berikut pada function Button1.Click :

5. Jalankan Aplikasi dengan Klik Start pada Toolbar

CheckBox dan RadioButton 1. Buat project baru, dengan nama Praktikum2. 2. Desain Tampilan form seperti gambar berikut ini :

3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut: Object

Properties

Nilai

Form1

Name

Form1

Text

CheckBox dan RadioButton

Name

Lbl_Font

Autosize

False

BorderStyle

Fixed3D

Font

Microsoft Sans Serif, 16

TextAlign

Center

Text

CheckBox dan RadioButton

GroupBox1

Text

Efek

GroupBox2

Text

Font Style

CheckBox1

Text

StrikeOut

CheckBox2

Text

Underline

RadioButton1

Text

Regular

RadioButton2

Text

Italic

RadioButton3

Text

Bold

RadioButton4

Text

BoldItalic

Label1

4. Klik ganda pada CheckBox1, kemudian ketikkan kode program berikut ini :

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Strikeout)

End Sub

5. Klik ganda pada CheckBox2, kemudian ketikkan kode program berikut ini :

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Underline)

End Sub

6. Klik ganda pada RadioButton1, kemudian ketikkan kode program berikut ini :

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Regular)

End Sub



Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Italic)

End Sub



Lbl_Font.Font = New Font("Microsoft sans Serif", _ Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold)

End Sub



Lbl_Font.Font = New Font("Microsoft sans Serif", _ Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold Xor FontStyle.Italic)

End Sub

10. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 11. Simpan aplikasi Anda.

Operator 1. Tambahkan Form baru, dengan nama Form3. 2. Desain Tampilan form seperti gambar berikut ini :

3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object

Properties

Nilai

Form3

Name

Form3

Text

Operator

Label1

Text

Nilai1

Label2

Text

Operator

Label3

Text

Nilai2

Label4

Text

Hasil

TextBox1

Name

TxtNilai1

ComboBox1

Name

CmbOperator

TextBox2

Name

TxtNilai2

TextBox3

Name

TxtHasil

Button1

Name

BtnProses

Text

Proses

4. Klik ganda pada Form3, kemudian ketikkan kode program berikut ini :

CmbOperator.Items.Add("+") CmbOperator.Items.Add("-") CmbOperator.Items.Add("x") CmbOperator.Items.Add("/") CmbOperator.Items.Add("Sisa") CmbOperator.Items.Add("Pangkat") CmbOperator.Items.Add("<>") CmbOperator.Items.Add("<") CmbOperator.Items.Add(">") CmbOperator.Items.Add("<=") CmbOperator.Items.Add(">=") CmbOperator.Items.Add("Like") CmbOperator.Items.Add("Not") CmbOperator.Items.Add("&")

5. Klik ganda pada tombol Proses, lalu ketikkan kode program berikut ini :

Select Case CmbOperator.Text Case "+" TxtHasil.Text = Val(TxtNilai1.Text) + Val(TxtNilai2.Text) Case "-" TxtHasil.Text = Val(TxtNilai1.Text) - Val(TxtNilai2.Text) Case "x" TxtHasil.Text = Val(TxtNilai1.Text) * Val(TxtNilai2.Text) Case "/" TxtHasil.Text = Val(TxtNilai1.Text) / Val(TxtNilai2.Text)

Case "Sisa" TxtHasil.Text = Val(TxtNilai1.Text) mod Val(TxtNilai2.Text) Case "Pangkat" TxtHasil.Text = Val(TxtNilai1.Text) ^ Val(TxtNilai2.Text)

Case "<>" TxtHasil.Text = TxtNilai1.Text <> TxtNilai2.Text Case "<" TxtHasil.Text = TxtNilai1.Text < TxtNilai2.Text Case ">" TxtHasil.Text = TxtNilai1.Text > TxtNilai2.Text Case "<=" TxtHasil.Text = TxtNilai1.Text <= TxtNilai2.Text Case ">=" TxtHasil.Text = TxtNilai1.Text >= TxtNilai2.Text Case "Like" TxtHasil.Text = TxtNilai1.Text Like TxtNilai2.Text Case "Not" TxtHasil.Text = Not TxtNilai1.Text = TxtNilai2.Text Case "&" TxtHasil.Text = TxtNilai1.Text & TxtNilai2.Text End Select


Pencabangan IF.. , IF.. ELSE, CASE.. 1. Buat form baru. 2. Desain Tampilan form seperti gambar berikut ini :


Properties

Nilai

Form1

Name

Form1

Text

Pencabangan IF

Name

Btn_if

Text

IF.. ENDIF

Name

Btn_if_else

Text

IF.. ELSE.. ENDIF

Name

Btn_case

Text

CASE.. ENDCASE

Button1

Button2

Button3

4. Klik ganda pada Btn_if, kemudian ketikkan kode program berikut ini : Private Sub Btn_if_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click Dim usia As String, nilai As Single, thn As Integer usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0) nilai = Val(usia) If nilai >= 55 Then

thn = nilai - 55 MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Sub

5. Klik ganda pada Btn_if_else, kemudian ketikkan kode program berikut ini : Private Sub Btn_if_else_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if_else.Click Dim usia As String, nilai As Single, thn As Integer usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0) nilai = Val(usia) If nilai >= 55 Then thn = nilai - 55 MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) Else thn = 55 - nilai MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) MessageBox.Show("Keterangan : Pegawai akan pensiun " & thn & " lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Sub

6. Klik ganda pada Btn_case, kemudian ketikkan kode program berikut ini : Private Sub Btn_case_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_case.Click Dim isian As String, usia As Integer

isian = InputBox("Usia anda saat ini?", "Status Anda") usia = Val(isian) MessageBox.Show("Usia Anda saat ini : " & usia & " tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) Select Case usia Case 1 To 4 MessageBox.Show("Anda sekarang tergolong balita", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) Case 5 To 16 MessageBox.Show("Anda sekarang tergolong anak-anak", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) Case 17 To 24 MessageBox.Show("Anda sekarang tergolong remaja", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) Case 25 To 55 MessageBox.Show("Anda sekarang tergolong dewasa", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) Case Is >= 56 MessageBox.Show("Anda sekarang tergolong manula", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) Case Else MessageBox.Show("Anda salah memasukkan usia", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) End Select End Sub


Array

1. Tambahkan Form baru, dengan nama FormArray. 2. Desain Tampilan form seperti gambar berikut ini :

1. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object

Properties

Nilai

Form1

Name

Form1

Text

Array Satu Dimensi

Label1

Text

NIM

Label2

Text

Nama

Label3

Text

Prodi

TexBox1

Name

TxtNIM

TexBox2

Name

TxtNama

TexBox3

Name

TxtAsal

ListView1

Name

ListView1

Button1

Name

BtnTambah

Text

Tambah

2. Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini : ListView1.GridLines = True ListView1.View = View.Details ListView1.Columns.Add("NIM") ListView1.Columns.Add("NAMA", 115) ListView1.Columns.Add("ASAL", 110) TxtNim.Text = 1 TxtNama.Focus()

3. Klik ganda pada BtnTambah, kemudian ketikkan kode program berikut ini :

Dim Arr(2) As String Arr(0) = TxtNim.Text Arr(1) = TxtNama.Text Arr(2) = TxtAsal.Text

Dim listitem As ListViewItem listitem = New ListViewItem listitem = ListView1.Items.Add(Arr(0)) listitem.SubItems.Add(Arr(1)) listitem.SubItems.Add(Arr(2))

TxtNim.Text = TxtNim.Text + 1 TxtNama.Text = "" TxtAsal.Text = "" TxtNama.Focus()

4. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 5. Simpan aplikasi Anda.

FORM LOGIN 1. Buat project baru, dengan nama Prak4. 2. Desain Tampilan form seperti gambar berikut ini :


Properties

Nilai

Form1

Name

Form1

Text

Pencabangan IF

Label1

Text

User Name

Label2

Text

Password

TextBox1

Name

TxtUserName

TextBox2

Name

TxtPassword

PasswordChar

*

Name

BtnLogin

Text

Login

Name

BtnCancel

Text

Cancel

Button1

Button2

4. Klik ganda pada BtnLogin, kemudian ketikkan kode program berikut ini : If TxtPassword.Text = "" And TxtUserName.Text = "" Then

MessageBox.Show("User name dan Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question) TxtUserName.Focus() ElseIf TxtPassword.Text = "" Then MessageBox.Show("Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question) TxtPassword.Focus() ElseIf TxtUserName.Text = "" Then MessageBox.Show("User name harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question) TxtUserName.Focus() ElseIf TxtUserName.Text = "undip" And TxtPassword.Text = "undip" Then MessageBox.Show("Password dan User Name Benar", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question) FormArray.Show ()

Else MessageBox.Show("Password dan User Name Anda Salah, ulangi lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question) TxtUserName.Text = "" TxtUserName.Text = "" TxtUserName.Focus()

End If End Sub

5. Klik ganda pada BtnCancel, kemudian ketikkan kode program berikut ini :

End

6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start 7. Debugging di toolbar, atau melalui menu Debug > Start Debuging. 8. Simpan aplikasi Anda.

MODUL VII VISUAL BASIC

Recommend Documents