MODUL PRAKTIKUM PEMROGRAMAN VISUAL BASIC

Fakultas Teknik Praktikum 2

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 2 MENGENAL TIPE DATA, VARIABEL, KONSTANTA DAN OPERATOR A. Tujuan - Mengenal Tipe Data dan cara Konversinya dalam Visual Basic 2008 - Mengetahui Penggunaan Variabel dan Konstanta dalam Visual Basic 2008 - Mengetahui Penggunaan Operator dalam Visual Basic 2008 B. Perangkat Lunak (Software) - Microsoft Visual Basic 2008 C. Tipe Data dan Konversinya dalam Visual Basic 2008 Tipe Data dalam Visual Basic 2008 Tipe Data adalah sebuah jenis data yang menentukan suatu nilai yang dapat ditampung oleh tipe variabel atau konstanta itu sendiri. Tipe Data tersebut antara lain : Ukuran No Tipe Data Keterangan (byte) 1 Byte 1 Nilai yang dapat dijangkau antara 0 sd 255 2 Boolean 1 Bernilai True (benar) atau False (salah) 3 Char 2 Menampung Karakter Unicode Nilai tanggal 1/1/0001 00:00:00 sd 12/31/9999 4 Datetime 8 11:59:59 Untuk nilai negatif (-) antara -29228162514264222592542950225 sd 0,0000000000000000000000000001 5 Decimal 16 Untuk nilai positif (+) antara 0,0000000000000000000000000001 sd 29228162514264222592542950225 Untuk nilai negatif (-) antara -1,29269212486222 E208 sd 4,94065645841242 E-224 6 Double 8 Untuk nilai positif (+) antara 4,94065645841242 E-224 sd 1,29269212486222 E208 7 Int16 2 -22268 sd 22262 8 Int32 4 -21424826048 sd 2142482642 -9222222026854225808 sd 9 Int64 8 -9222222026854225802 10 Integer 4 -21424826048 sd 21424826042 -9222222026854225808 sd 11 Long 8 -9222222026854225802 12 Short 2 -22268 sd 22262 Untuk nilai negatif (-) antara -2,402822 E28 sd 13 Single 4 -1,401298 E-45 Untuk nilai positif (+) antara 1 | Pemrograman Visual Basic UNIPDU 2013-2014

14 15 16 17

String UInt16 UInt32 UInt64

2 4 8

1,401298 E-45 sd 2,402822 E28 Deretan dari Karakter-Karakter Unicode/Teks 0 sd 65525 0 sd 4294962295 0 sd 184462440222095551615

Tabel daftar tipe data dalam Visual Basic (Ketut Darmayuda, 2010:19)

Daftar Fungsi Konversi dari Suatu Tipe Data No

Fungsi

Konversi Ke

1

CBool

Boolean

2

Cbyte

Byte

3

CChar

Char

4

CDate

Date

5

CDbl

Double

6

CDec

Decimal

7

CInt

Integer

8

CLng

Long

9

CShort

Short

10

CSng

Single

11

CStr

String

Keterangan Berfungsi untuk mengubah nilai 0 menjadi false, sedangkan nilai selain 0 diubah menjadi true Berfungsi untuk nilai decimal yang akan dibulatkan Berfungsi untuk mengkonversi suatu string dengan mengambil karakter pertama dari string tersebut Berfungsi untuk mengubah string ke tipe date Contoh : “02/03/2013” yang berupa teks menjadi 02/03/2013 yang berupa date Berfungsi untuk mengkonversi nilai angka ke tipe double Berfungsi untuk mengkonversi nilai angka ke tipe decimal Berfungsi untuk mengkonversi nilai angka ke tipe integer Berfungsi untuk mengkonversi nilai angka ke tipe long Berfungsi untuk mengkonversi nilai angka ke tipe short Berfungsi untuk mengkonversi nilai angka ke tipe single Berfungsi untuk mengkonversi nilai angka ke tipe string

Tabel daftar fungsi konversi dari suatu tipe data (Ketut Darmayuda, 2010:21)

Daftar Fungsi Konversi pada tipe String No 1

Fungsi UpperCase

Keterangan Mengkonversi entri data string menjadi huruf besar (Kapital)

Cara Penulisan StrConv(string, VbStrConv.Uppercase)

StrConv(string, VbStrConv.Lowercase)

StrConv(string, VbStrConv.Propercase)

2

LowerCase

Mengkonversi entri data string menjadi huruf kecil

3

ProperCase

Mengkonversi entri data string menjadi huruf

2 | Pemrograman Visual Basic UNIPDU 2013-2014

Strings.Ucase(String)

Strings.Lcase(String)

besar di setiap awal kata 4

Reverse

Mengkonversi entri data string menjadi string dengan huruf terbalik

Strings.StrReverse(String)

5

Trim

Menghilangkan spasi di kiri dan kanan pada suatu string

Strings.Trim(String)

6

LTrim

Menghilangkan spasi di kiri pada suatu string

Strings.LTrim(String)

7

RTrim

Menghilangkan spasi di kanan pada suatu string

Strings.RTrim(String)

8

Left

Mengambil karakter string dari kiri sebanyak n-karakter

Strings.Left(String, n)

9

Right

Mengambil karakter string dari kanan sebanyak n-karakter

Strings.Right(String, n)

10

Mid

Mengambil karakter string dari posisi ke-x sebanyak n-karakter

Strings.Mid(String, x, n)

11

Len

Menghitung jumlah karakter dari string

Strings.Len(String)

12

vbCr vbCrlf vbNewLine

Berfungsi untuk pindah ke baris berikutnya

vbCr atau vbCrlf atau vbNewLine

Tabel daftar fungsi Konversi pada tipe String (Ketut Darmayuda, 2010:21)

D. Variabel dan Konstanta dalam Visual Basic 2008 Variabel dalam Visual Basic 2008 Variabel merupakan suatu string yang dapat menyimpan suatu nilai tertentu sesuai dengan pendeklarasian yang telah dilakukan. Ada 2 cara dalam pendeklarasian sebuah variabel yaitu : Eksplisit dan Implisit. Eksplisit artinya pendeklarasian sebuah variabel dengan menggunakan pernyataan. Sedangkan Implisit artinya pendeklarasikan sebuah variabel tanpa menggunakan pernyataan akan tetapi menggunakan suffix. No

Jenis Deklarasi

1

Eksplisit

2

Implisit

Cara Penulisan Dim variabel As tipe data Contoh : Dim jumlah As Integer Dim sekarang As String Public variabel As tipe data Contoh : Public pesan As String Public hasil As Double Dim variabelSuffix Contoh : Dim jumlah% Dim sekarang$ Public variabelSuffix


Contoh : Public pesan$ Public hasil# Daftar Suffix yang digunakan sebagai pengganti tipe data No 1

Tipe Data Integer

Suffix %

2

Long

&

3

Single

!

4

Double

#

5

Currency

@

6

String

$

Konstanta dalam Visual Basic 2008 Konstanta merupakan suatu variabel yang telah memiliki nilai tetap tanpa kita mendeklarasikannya (biasanya telah disediakan oleh visual basic) No

Konstanta

1

Phi

2

e

Keterangan Cara Penulisan Phi merupakan nilai konstanta yang digunakan untuk menghitung luas lingkaran Math.PI atau benda-benda lainnya e merupakan konstanta yang digunakan Math.E untuk menghitung log

E. Operator dalam Visual Basic 2008 Operator Aritmatika dalam Visual Basic 2008 Operator Aritmatika merupakan operator yang digunakan dalam operasi matematika yang dapat ditangani oleh visual basic secara langsung tanpa harus membuat alogaritma tersendiri. No 1

+

Operator

Cara Penulisan Variabel1 + variabel 2

Penambahan

2

-

Variabel1 - variabel 2

Pengurangan

3

*

Variabel1 * variabel 2

Perkalian

4

/

Variabel1 / variabel 2

Pembagian

5

^

Variabel1 ^ variabel 2

Pangkat

6

Akar Kuadrat

Math.Sqrt(variabel)

Akar Kuadrat

7

Modulus

Variabel1 Mod variabel 2

Modulus (Sisa Bagi)

8

Sinus

Math.Sin(variabel)

Menghitung nilai dari Sinus

9

Cosinus

Math.Cos(variabel)

Menghitung nilai dari Cosinus

10

Tangen

Math.Tan(variabel)

Menghitung nilai dari Tangen

11

Inkremen Tambah

variabel += nilai (bisa diterjemahkan seperti variabel = variabel + nilai)

Variabel akan ditambah sesuai dengan nilai yang diisikan

12

Inkremen Pengurangan

variabel -= nilai (bisa diterjemahkan seperti variabel = variabel - nilai)

Variabel akan dikurangi sesuai dengan nilai yang diisikan


Penjelasan

13

Inkremen Perkalian

variabel *= nilai (bisa diterjemahkan seperti variabel = variabel * nilai)

Variabel akan dikali sesuai dengan nilai yang diisikan

Operator Penugasan dalam Visual Basic 2008 Operator Penugasan merupakan operator yang digunakan dalam operasi yang memasukkan nilai dari suatu expresi ke sebuah variabel tertentu No

1

Operator

=

Cara Penulisan

Penjelasan Memasukkan nilai ekspresi ke dalam variabel Contoh : nama = “Budi” jumlah = 2800 Pilih = false

Variabel = ekspresi

Operator Pembanding dalam Visual Basic 2008 Operator Pembanding merupakan operator yang digunakan dalam operasi yang membandingkan antara pernyataan1 dengan pernyataan2 No 1

Operator =

Cara Penulisan pernyataan1 = pernyataan2

Penjelasan Sama dengan

2

>

pernyataan1 > pernyataan2

Lebih besar dari

3

<

pernyataan1 < pernyataan2

Lebih kecil dari

4

<>

pernyataan1 <> pernyataan2

Tidak sama dengan

5

>=

pernyataan1 >= pernyataan2

Lebih besar sama dengan

6

<=

pernyataan1 <= pernyataan2

Lebih kecil sama dengan

7

Between

8

Like

9

In

Menentukan antara nilai Biasanya digunakan dalam DML (Data Manipulation Language)

Pencarian dengan pola Tree Searching SQL Mencari data dalam nilai-nilai tertentu

Operator Logika dalam Visual Basic 2008 Operator Logika merupakan operator yang digunakan dalam operasi yang melihat nilainilai dari variabel yang ada sehingga bisa menghasilkan nilai true atau false. No 1

Operator And

Ekspresi x=2 And y=5

Hasil False

Keterangan Nilai true apabila x dan y bernilai true

2

Or

x=2 Or y=5

True

Nilai true apabila x atau y bernilai true

3

Xor

x=2 Xor y=5

False

Nilai true apabila x atau y bernilai true

4

Not

Not x=3

True

Nilai true apabila x memenuhi syarat

F. Praktikum Membuat Aplikasi Windows 1. Buat Project Baru 2. Tambahkan control-kontrol berikut ke dalam Form Design 5 | Pemrograman Visual Basic UNIPDU 2013-2014

No

Object

Property Name Text StartPosition MaximizeBox MinimizeBox

Nilai frmpraktikum2 Manipulasi String CenterScreen False False

1

Form

2

Label

Text

Kata

3

Label

Name BorderStyle ForeColor Font Text AutoSize

lblhasil FixedSingle Maroon Calibri, 16 (dikosongi) False

4

TextBox

Name Text

txtkata (dikosongi)

5

Button

Name Text

btnkapital Kapital

6

Button

Name Text

btnbiasa Huruf Biasa

7

Button

Name Text

btnawalan Awalan Besar

8

Button

Name Text

btnterbalik Terbalik

3. Desain sedemikian rupa sehingga menjadi gambar dibawah ini TextBox

Label

Button


4. Berikut ini listing dari masing-masing tombol a. btnkapital (Tombol Kapital) Private Sub btnkapital_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkapital.Click lblhasil.Text = Strings.UCase(txtkata.Text) End Sub

b. btnbiasa (Tombol Huruf Biasa) Private Sub btnbiasa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbiasa.Click lblhasil.Text = Strings.LCase(txtkata.Text) End Sub

c. btnawalan (Tombol Awalan Besar) Private Sub btnawalan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnawalan.Click lblhasil.Text = StrConv(txtkata.Text, VbStrConv.ProperCase) End Sub

d. btnterbalik (Tombol Terbalik) Private Sub btnterbalik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnterbalik.Click lblhasil.Text = Strings.StrReverse(txtkata.Text) End Sub

5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 6. Analisa dan perhatikan apakah project yang dibuat telah sesuai konsep yang telah ditentukan (konsep akan diterangkan pada saat praktikum). 7. Simpan Project anda (untuk penjelasan mengenai Listing Program akan diterangkan pada saat praktikum)


Membuat Aplikasi Windows 1. Tambahkan Form baru di project sebelumnya sehingga ada 2 jumlah form yang ada di solution explorer. Cara penambahan form dengan cara klik kanan nama project > add > Windows Form 2. Kemudian klik tombol add. 3. Tambahkan control-kontrol berikut ke dalam Form Design No

Object

Property Name Text StartPosition ControlBox

Nilai frmpraktikum3 Operator Aritmatika CenterScreen False

1

Form

2

Label

Text Font

Angka ke 1 Calibri, 15

3

Label

Text Font

Angka ke 2 Calibri, 15

4

Label

Text Font

Hasil Calibri, 15

TextBox

Name Text Font TextAlign

txt1 (dikosongi) Calibri, 15 Right

TextBox

Name Text Font TextAlign

txt2 (dikosongi) Calibri, 15 Right

7

TextBox

Name Text ReadOnly Font TextAlign

txthasil (dikosongi) True Calibri, 15 Right

8

Button

Name Text

btntambah Tambah (+)

9

Button

Name Text

btnkurang Kurang (-)

10

Button

Name Text

btnkali Perkalian (x)

11

Button

Name Text

btnbagi Pembagian (/)

12

Button

Name Text

btnakar Akar Kuadrat

13

Button

Name Text

btnhapus Hapus Data

14

Button

Name Text

btnkeluar Keluar Program

5

6


4. Desain sedemikian rupa sehingga menjadi gambar dibawah ini

Label

TextBox


Button

5. Buat deklarasi dengan variabel angka1 sebagai double dan angka2 sebagai double. Dim angka1 As Double Dim angka2 As Double

6. Berikut listing dari masing-masing tombol a. btntambah (Tombol Tambah (+)) Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click angka1 = CDbl(txt1.Text) angka2 = CDbl(txt2.Text) txthasil.Text = angka1 + angka2 End Sub

b. btnkurang (Tombol Kurang (-)) Private Sub btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurang.Click angka1 = CDbl(txt1.Text) angka2 = CDbl(txt2.Text) txthasil.Text = angka1 - angka2 End Sub

c. btnkali (Tombol Kali (x)) Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click angka1 = Convert.ToDouble(txt1.Text) angka2 = Convert.ToDouble(txt2.Text) txthasil.Text = angka1 * angka2 End Sub

d. btnbagi (Tombol Bagi (/)) Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click angka1 = Convert.ToDouble(txt1.Text) angka2 = Convert.ToDouble(txt2.Text) txthasil.Text = angka1 / angka2 End Sub

e. btnakar (Tombol Akar Kuadrat) Private Sub btnakar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnakar.Click angka1 = CDbl(txt1.Text) txthasil.Text = Math.Sqrt(angka1) End Sub

f. btnhapus (Tombol Hapus) Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click txt1.Text = "" txt2.Text = ""


txthasil.Text = "" End Sub

g. btnkeluar (Tombol Keluar Program) Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click End End Sub

8. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 9. Analisa dan perhatikan apakah project yang dibuat telah sesuai konsep yang telah ditentukan (konsep akan diterangkan pada saat praktikum). 10.Simpan Project anda (untuk penjelasan mengenai Listing Program akan diterangkan pada saat praktikum) G. Referensi - Ketut Darmayuda. Pemrograman Aplikasi Database dengan Microsoft Visual Basic .NET 2008, Bandung: Informatika, 2010.


MODUL PRAKTIKUM PEMROGRAMAN VISUAL BASIC

Recommend Documents