PRAKTIKUM 1 MICROSOFT VISUAL BASIC 2010 Visual Basic 2010 merupakan suatu program yang digunakan untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .net framework. Dengan dikembangkannya program ini para programmer dapat membangun aplikasi dekstop (Windows Form), aplikasi web berbasis ASP.NET dan juga aplikasi command line (console). Membuka Program VB 2010 Langkah-langkahnya: 1. Klik Start pada windows taksbar. 2. Klik menu All Programs Microsoft Visual Studio 2010 hingga muncul tampilan gambar 1 berikut.
Gambar1. Tampilan Microsoft Visual Studio 2010 3. Selanjutnya klik menu File New Project Windows Windows Form Applications, lalu ketikkan nama aplikasi praktikum1 pada name. Lalu klik button OK. Untuk lebih jelasnya lihat gambar 2 berikut.
Praktikum Rekayasa Perangkat Lunak – Nur Wakhidah, S.Kom, M.Cs | 1
Gambar 2. New Project 4. Setelah memilih project selesai kemudian akan tampil bidang kerja VB 2008 seperti gambar dibawah ini. 1 2 4 3 5
6
7
Gambar 3. Bidang kerja VB 2010 Penjelasan mengenai elemen-elemen yang terdapat pada bidang kerja VB 2010, dapat dibaca dibawah ini. 1. Menu Bar, adalah suatu menu yang terdiri dari beberapa menu utama, masing-masing memiliki sub menu dan perintah lengkap dengan shortcut key.
Praktikum Rekayasa Perangkat Lunak – Nur Wakhidah, S.Kom, M.Cs | 2
2. Toolbar Standart adalah suatu baris menu yang mempunyai fungsi yang sama pada setiap tool standart pada umumnya, seperti fungsi untuk menyimpan, mengcopy, menambah project baru, dll. 3. Form Design adalah lembar form yang berfungsi untuk merancang tampilan aplikasi secara visual dengan menempatkan kontrol-kontrol yang diperlukan. 4. Toolbox adalah suatu jendela yang berfungsi untuk menampung komponen-komponen standart. 5. Solution explorer adalah suatu jendela yang berfungsi untuk menampilkan object yang anda gunakan untuk membuat aplikasi seperti form, class dan object lainnya. 6. Properties Windows adalah suatu jendela yang berfungsi untuk mengatur nilai properties masing-masing komponen yang digunakan. 7. Error list adalah suatu jendela yang berfungsi untuk menampilkan setiap kesalahan dari pembuatan kode program suatu aplikasi.
LATIHAN APLIKASI SEDERHANA 1. Klik ganda Form1, maka jendela kode program akan tampil. Selain klik ganda pada komponen untuk menampilkan jendela kode dapat menggunakan klik icon view code pada jendela solution explorer atau tekan tombol F7. 2. Lalu ketikkan kode program pada komponen Form1 dan event Load, seperti berikut. Dim nama = InputBox("masukkan nama anda", "input") Me.Text = "selamat datang " + nama
Gambar 4. Jendela kode program Event Load digunakan untuk memiliki aksi ketika aplikasi dijalankan kode tersebut yang pertama kali dieksekusi. 3. Untuk menjalankan aplikasi cukup mudah anda tinggal klik icon start debugging atau tekan tombol F5, dan lihat hasil running programnya. 4. Untuk menyimpan aplikasi tersebut, klik icon Save All, atau pilih menu File Save All. Kemudian ketikkan nama file dan tentukan drive penyimpanannya melalui browse.
Praktikum Rekayasa Perangkat Lunak – Nur Wakhidah, S.Kom, M.Cs | 3
Mengenal Form, Label, Textbox dan RadionButton
Kode program : Public Class Form1 Dim A, B As Single Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged 'Dim A, B As Single A = TxtA.Text B = TxtB.Text Txthasil.Text = A + B End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged 'Dim A, B As Single A = TxtA.Text B = TxtB.Text Txthasil.Text = A - B End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged 'Dim A, B As Single A = TxtA.Text B = TxtB.Text Txthasil.Text = A * B End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged ' Dim A, B As Single A = TxtA.Text B = TxtB.Text Txthasil.Text = A / B End Sub End Class
Praktikum Rekayasa Perangkat Lunak – Nur Wakhidah, S.Kom, M.Cs | 4
Mengenal Form, Label, Textbox, ComboBox, ListBox, dan Button
Public Class Form1 Dim abon, tlokal, tsljj, tplokal, tpsljj, jumlah, total As Single Private Sub cmbArea_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbArea.SelectedIndexChanged If cmbArea.Text = "024" Then txtkota.Text = "Semarang" ElseIf cmbArea.Text = "021" Then txtkota.Text = "Jakarta" ElseIf cmbArea.Text = "022" Then txtkota.Text = "Bandung" ElseIf cmbArea.Text = "0274" Then txtkota.Text = "Jogjakarta" ElseIf cmbArea.Text = "0271" Then txtkota.Text = "Solo" End If txtnomor.Focus() End Sub Private Sub cmbGol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGol.SelectedIndexChanged If cmbGol.Text = "bisnis" Then txtabon.Text = 75000 abon = txtabon.Text tlokal = 800 tsljj = 1200 ElseIf cmbGol.Text = "rumah tangga" Then txtabon.Text = 50000 abon = txtabon.Text tlokal = 500 tsljj = 750 End If txtplokal.Text = tlokal * txtlokal.Text txtpsljj.Text = tsljj * txtsljj.Text tplokal = txtplokal.Text tpsljj = txtpsljj.Text jumlah = abon + tplokal + tpsljj total = jumlah + (jumlah * 0.1) txtjumlah.Text = jumlah txttotal.Text = total End Sub
Praktikum Rekayasa Perangkat Lunak – Nur Wakhidah, S.Kom, M.Cs | 5
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click ListBox1.Items.Add("Kuitansi Pembayaran Tagihan Telepon") ListBox1.Items.Add("--------------------------------------------------------") ListBox1.Items.Add("Nama : " + txtnama.Text) ListBox1.Items.Add("nomor : " + cmbArea.Text + " " + txtnomor.Text) ListBox1.Items.Add("Kota : " + txtkota.Text) ListBox1.Items.Add("Abonemen : " + txtabon.Text) ListBox1.Items.Add("Pulsa lokal : " + txtplokal.Text) ListBox1.Items.Add("Pulsa sljj : " + txtpsljj.Text) ListBox1.Items.Add("Jumlah : " + txtjumlah.Text) ListBox1.Items.Add("Total : " + txttotal.Text) End Sub End Class
LATIHAN Buatlah suatu aplikasi data pegawai yang memiliki informasi tentang NIP, Nama, Alamat, Jabatan, Golongan, Masa Kerja, Poto, gaji, potongan, total gaji. Buatlah asumsi sendiri untuk melengkapi aplikasi tersebut.
Praktikum Rekayasa Perangkat Lunak – Nur Wakhidah, S.Kom, M.Cs | 6
