Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 1 of 45
Fikom-Unika Santo Thomas
MODUL
PRAKTIKUM PEMOGRAMAN
VISUAL I
Disusun Oleh :
1. Sorang Pakpahan,S.Kom,M.Kom
LABORATORIUM KOMPUTER
FAKULTAS ILMU KOMPUTER
UNIVERSITAS KATOLIK SANTO THOMAS SU
MEDAN
2 0 1 6
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 2 of 45
Fikom-Unika Santo Thomas
Universitas Katolik Santo
Thomas SU
Fakultas Ilmu Komputer
Laboratorium Komputer
SISTEM
PENJAMINAN
MUTU
ISO ...........
No. Dokumen ..... Tanggal
Revisi 0 Halaman
Mata Kuliah Praktikum : Praktikum Pemrograman Visual I
Kode Mata Kuliah Praktikum :
SKS : 1
Program Studi : Sistem Informasi/S1
Semester : 2 (Dua)
DIBUAT OLEH DIKETAHUI OLEH
TIM DOSEN
1. Sorang Pakpahan,S.Kom,M.Kom
KEPALA LABORATORIUM
Parasian D. P. Silitonga,S.Kom,M.Cs
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 3 of 45
Fikom-Unika Santo Thomas
KATA PENGANTAR
Puji syukur penyusun panjatkan kehadirat Tuhan Yang Maha Kuasa atas penyusunan
modul praktikum Pemrograman Visual I ini dapat diselesaikan dengan baik. Modul
ini disusun sebagai acuan bagi mahasiswa dalam melaksanakan matakuliah
praktikum Pemrograman Visual I. Pembahasan pada modul ini meliputi program
visual studio 2010 (VB.Net), Database SQL Server 2008 dan Crystal Report
13.Penyusun menyadari bahwa masih terdapat banyak kekurangan dalam modul ini,
oleh karenanya penyusun sangat mengharapkan kritik dan saran demi
penyempurnaan modul ini. Meski masih terdapat berbagai kekurangan, penyusun
berharap semoga modul ini bermanfaat dalam membantu mahasiswa memahami dan
mempraktikkan mata kuliah Pemrograman Visual I.
Pada akhirnya penyusun mengucapkan banyak terimakasih kepada semua pihak yang
telah membantu penyelesaian modul aplikasi komputer ini.
Medan, Oktober 2016
Penyusun
.
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 4 of 45
Fikom-Unika Santo Thomas
DAFTAR ISI
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 5 of 45
Fikom-Unika Santo Thomas
Modul 1 Pengenalan Visual Studio 2010
I. TUJUAN
- Memahami platform Microsoft .NET;
- Mengenal Integrated Development Environment (IDE) Visual Studio 2010;
- Memahami struktur project Visual Studio 2010
- Memahami jenis-jenis aplikasi .NET;
- Mampu membangun Graphical User Interface (GUI) menggunakan Visual
Studio 2010;
II. ALAT DAN BAHAN
- Microsoft Visual Studio 2010
III. TEORI SINGKAT
A. Platform .NET Framework
Microsoft .NET yang awalnya disebut Next Generation Windows Services (NGWS)
adalah suatu platform untuk membangun dan menjalankan generasi penerus aplikasi-
aplikasi terdistribusi. Microsoft.NET merupakan framework (kerangka)
pengembangan yang menyediakan antarmuka pemrograman baru untuk layanan
Windows dan API (Application Programming Interface).Microsoft .NET merupakan
strategi Microsoft untuk menghubungkan sistem, informasi, dan alat (device),
sehingga orang dapat berkomunikasi serta berkolaborasi dengan lebih efektif.
Teknologi .NET terintegrasi penuh melalui produk-produk Microsoft, dan
menyediakan kemampuan untuk mengembangkan solusi dengan menggunakan Web
service. Platform Microsoft .NET terdiri dari lima komponen utama yang tersusun
dalam tiga lapisan (layer). Lapisan paling bawah adalah sistem operasi;lapisan kedua
terdiri dari tiga komponen; lapisan teratas adalah Visual Studio .NET.
B. Visual Studio .NET
Microsoft Visual Studio .NET merupakan kumpulan lengkap tools pengembangan
untuk membangun aplikasi Web ASP.NET, XML Web Services, aplikasi dekstop,
dan aplikasi mobile. Di dalam Visual Studio inilah bahasa-bahasa pemrograman
.NET seperti Visual Basic, Visual C++, Visual C# (CSharp), dan Visual J# (JSharp).
Semuanya menggunakan lingkungan pengembangan terintegrasi atau IDE yang sama
sehingga memungkinkan untuk saling berbagi tools dan fasilitas.
C. Visual Studio 2010
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 6 of 45
Fikom-Unika Santo Thomas
Visual Basic .NET (atau VB.NET) merupakan salah satu bahasa pemrograman yang
bisa digunakan untuk membangun aplikasi-aplikasi.NET di platform Microsoft
.NET. Tidak seperti generasi sebelumnya Visual Basic versi 6.0 ke bawah yang lebih
difokuskan untuk pengembangan aplikasi desktop, Visual Basic .NET
memungkinkan para pengembang membangun bermacam aplikasi, baik desktop
maupun aplikasi web. Seiring dengan perkembangan aplikasi perangkat lunak yang
semakin kompleks, saat ini Visual Basic .NET terbaru (Visual Basic 2012).
D. 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.
Untuk memudahkan dalam penggunaan IDE, maka diperlukan pemahaman yang
baik tentang IDE Visual Studio 2010 seperti pada gambar 1.
Gambar 1 Tampilan Visual Studio 2010
IV. Prosedur Praktikum
Membuat Project Baru
Project merupakan kerangka dasar aplikasi yang sangat menentukan jenis aplikasi
yang akan dibuat. Untuk memulai pembuatan project dengan langkah-langkah
sebagai berikut:
1. Jalankan Visual Basic 2010 Ultimate.
2. Klik menu File > New Project, atau melalui ikon New Project, atau melalui
kombinasi tombol Ctrl+N.
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 7 of 45
Fikom-Unika Santo Thomas
3. Pada kotak dialog New Project, pilih template Windows Form Application,
seperti pada gambar 2.
4. Kemudian klik OK.
Gambar 1 Windows Forms Aplication
Windows ( Windows Form, Concole, Class Library, WPF dll)
Web (ASP Web Application, ASP.Net Web Servis dll)
Smart Divice (Smart Device Project)
Database (Access dan SQL Server)
Report (Report Application dan Crystal Report)
WCF (Windows Communication Foundation) dll.
Membuat Aplikasi Console
1. Buat project baru, pilih template Console Application, kemudian klik OK.
2. Lengkapi kode programnya seperti berikut:
Imports System.Console
Module Module1
Sub Main()
WriteLine("SELAMAT BELAJAR")
WriteLine("PEMROGRAMAN VISUAL I")
ReadLine()
End Sub
End Module
3. Tekan F5 untuk menjalankan aplikasi.
4. Simpan aplikasi Anda.
V. LATIHAN
Buatlah program untuk menampilkan biodata pribadi.
VI. HASIL PRAKTIKUM
VII. ANALISA HASIL
VIII. KESIMPULAN
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 8 of 45
Fikom-Unika Santo Thomas
MODUL 2
TIPE DATA, VARIABEL, KONSTANTA DAN PERATOR
I. TUJUAN
- Memahami dan mengenal Tipe Data, Variabel, Konstanta dan Operator
- Dapat membuat aplikasi sederhana dengan menggunakan Tipe Data, Variabel,
Konstanta dan Operator.
II. ALAT DAN BAHAN
- Microsoft Visual Studio 2010
III. DASAR TEORI
Tipe Data
Tipe data merupakan suatu bentuk penggolongan jenis data berdasarkan kategori
data, ukuran dan kegunaan data yang dapat ditampung oleh sebuah variabel. Tipe
data pada visual basic 2008 dapat dilihat pada table berikut ini :
Tipe Data .Net Tipe Ukuran Jangkauan
Decimal System.Decimal 12 Bytes 0 – 28 bilangan decimal
Byte System.Byte 1 Bytes 0 – 255
Double System.Double 8 Bytes Bilangan negative antara :
-1.79769313486232e+308
sampai -4.94065645841247E-324
Bilangan posotif antara :
4.94065645841247E-324 sampai
1.79769313486232e+308
Long System.Int64 4 Bytes -9.223.372.036.854.775.808 sampai
9.223.372.036.854.775.808
Single System.Single 4 Bytes Bilangan negative antara :
-3.402823E sampai -1.401298E
Bilangan posotif antara :
1.401289E-45 sampai 3.402823e
Integer System.Int32 4 Bytes -2.147.483.648 sampai -2.147.483.647
Boolean System.Boolean 2 Bytes True or False
Date System.DateTim 2 Bytes 1 Januari 0001 sampai 31 Desember 9999
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 9 of 45
Fikom-Unika Santo Thomas
e
Short System.Int16 2 Bytes -32.768 – 32.767
Char System.Char 2 Bytes 0 to 65535
String System.String 10 Bytes +
(2 x
jumlah
karakter
0 sampai kira-kira 2 milyar karakter Unicode
Object System.Object 4 Bytes Semua Tipe, jenis
Konversi Tipe Data
Konversi Tipe data adalah sebuah fungsi yang digunakan untuk mengkonversi (
mengubah tipe dari satu tipe ke tipe data yang lain). Konversi tipe data dapat dilihat
pada table berikut ini :
Konversi Tipe Data Keterangan
CInt Integer Integer
cBool Boolean Nilai 0 false, selain 0 true
cByte Byte Pembulatan nilai decimal
cLng Long Pembulatan nilai decimal
cCur Currency Money
cShort Short Pembulatan nilai decimal
cSng Single Pembulatan nilai decimal
cDate Date DateTime
CStr String Karakter Unicode
cDbl Double
cDec Decimal Bilangan decimal
cObj Object Object
Variabel
Variabel adalah merupakan tempat penyimpanan data dalam memori computer yang
mengandung data atau nilai sementara dari sebuah proses pada suatu pemrograman.
Deklarasi Variabel
Deklarasi Variabel adalah merupakan fungsi untuk mengenal suatu variabel berikut
dengan tipe data yang pakai pada variabel tersebut. Pendeklarasian variabel di bagi
menjadi dua kategori antara lain :
1. Deklarasi Ekplisit
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 10 of 45
Fikom-Unika Santo Thomas
Suatu pendeklarasian umum yang sangat sering dilakukan dengan memberikan
kata kunci as.
Bentuk umum :
{Private | Public | Dim | …} Nama_Var [{As Tipe data}]
Contoh :
Dim Nim as Integer
Dim Nama as String
2. Deklarasi Emplisit
Deklarasi Emplisit adalah suatu pendeklarasian yang tidak memberikan kata
kunci As pada semua variabel tersebut. Melainkan memberikan satu karakter atau
symbol di akhir variabel. Tabel symbol deklarasi emplisit.
Karakter / Simbol Tipe Data
% Integer
$ String
& Long
@ Currency
! Single
# Double
Contoh :
Dim NIM% ‘mewakili tipe data integer
Dim Nama$ ‘ mewakili tipe data string
Ruang Lingkup Variabel
Ruang lingkup variabel sangat mempengaruhi sampai dimana nama variabel
tersebut dapat dikenali oleh aplikasi. Ruang Lingkup Variabel dapat digolongkan
menjadi :
1. Local Variabel
Local variabel merupakan suatu pendeklarasian variabel di dalam ruang
lingkup objek saja. Tidak dapat digunakan di dalam objek lain.
2. Global Variabel
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 11 of 45
Fikom-Unika Santo Thomas
Global variabel adalah merupakan suatu pendeklarasian variabel tidak hanya
di dalam ruang lingkup objek saja. Tetapi mencakup semua presedure dan
objek.
Konstanta
Konstanta merupakan suatu variabel yang mempunyai nilai tetap dan tidak dapat
diubah nilainya.
Deklarasi Konstanta
Deklarasi konstanta :
{Const} Nama_Var [{AS tipedata}]=<nilai>
Contoh :
Const nama_bidang as string=”persegi_panjang”
Public const Panjang As Integer=8
Private const Lebar As Integer=5
Private const luas As Integer=Panjang*Lebar
Private const Keliling As Integer=2*(Panjang+Lebar)
Deklarasi Konstanta Enumerasi
Deklarasi Konstanta Enumerasi merupakan pendeklarasian daftar konstanta yang
bersipat global . Dengan deklarasi konstanta enumerasi dapat membuat daftar
konstanta sendiri dapam bentuk seperti modul kelas dan dapat diakses oleh projek
lain.
Format penulisannya :
{Private | Public | …. }[enum] Nama_Variabel_konstanta
Contoh :
Const nama_bidang as string=”persegi_panjang”
Private const Panjang As Integer=8
Private const Lebar As Integer=5
Private const luas As Integer=Panjang*Lebar
Private const Keliling As Integer=2*(Panjang+Lebar)
Public enum Hitung
Luas = Luas
Keliling=Keliling
end Enum
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 12 of 45
Fikom-Unika Santo Thomas
A=Hitung.Luas ‘menggunakan variabel enum luas
B=Hitung.Kelilin ‘ menggunakan variabel enum keliling
Operator
Operator Aritmatika
Operator Aritmatika adalah merupakan suatu operator perhitungan matematika yang
digunakan untuk proses perhitungan matematika. Operator aritmatika dapat dilihat
pada table berikut ini :
Operator Fungsi
+ Penjumlahan
- Pengurangan
* Perkalian
/ Pembagian
Mod Sisa hasil pembagian
^ Perpangkatan
Operator Perbandingan
Operator perbandingan adalah merupakan suatu operator yang menyatakan suatu
kondisi itu benar atau salah. Operator perbandingan dapat dilihat pada table berikut
ini :
Operator Fungsi
<> Tidak sama dengan
< Lebih kecil
> Lebih besar
>= Lebih besar sama dengan
<= Lebih kecil sama dengan
Like Ciri yang sama
Is keterangan
Operator Logika
Operator Logika adalah merupakan suatu operator yang dapat membandingkan dua
ekspresi atau lebih data logika (Boolean) dan menghasilkan data logika (Boolean)
baru. Operator logika dapat dilihat pada table berikut ini:
Operator Fungsi
NOT Tidak
AND Dan
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 13 of 45
Fikom-Unika Santo Thomas
OR Atau
XOR Ekslusif atau
Operator Penugasan
Operator penugasan adalah merupakan operator yang bertugas untuk menentukan
nilai yang dikeluarkan oleh suatu variabel terhadap kondisi tertentu.
Operator Fungsi
= Sama dengan
Operator Penggabungan (Concatenation)
Operator Penggabungan adalah merupakan suatu operator yang dapat digunakan
untuk menggabungkan dua buah string atau lebih. Operator Penggabungan dapat
dilihat pada table berikut ini :
Operator Fungsi
+ Plus
& Dan
IV. PRAKTIKUM
a. Program untuk operator Aritmatika, Logika dan Perbandingan dengan
deklarasi variabel local
1. Buat project baru, dengan nama Praktek2a.
2. Tuliskan kode program dengan console Aplication seperti berikut :
Imports System.Console
Module Module1
Dim bil1, bil2, hasil As Integer Dim hasil2 As Boolean
Sub Main()
Write("Bilangan Pertama :")
bil1 = ReadLine()
Write("Bilangan Kedua :")
bil2 = ReadLine()
WriteLine("Program Operator Aritmatika")
WriteLine("================================")
hasil = bil1 + bil2
WriteLine(bil1 & " + " & bil2 & " = " & hasil) hasil = bil1 Mod bil2
WriteLine(bil1 & " mod " & bil2 & " = " & hasil) WriteLine("================================")
WriteLine("Program Operator Logika")
WriteLine("================================")
hasil = bil1 And bil2
WriteLine(bil1 & " and " & bil2 & " = " & hasil) hasil = bil1 Or bil2
WriteLine(bil1 & " or " & bil2 & " = " & hasil) WriteLine("================================")
WriteLine("Program Operator Perbandingan")
WriteLine("================================")
hasil2 = bil1 > bil2
WriteLine(bil1 & " > " & bil2 & " = " & hasil2)
hasil2 = bil1 < bil2
WriteLine(bil1 & " < " & bil2 & " = " & hasil2)
WriteLine("================================")
ReadLine
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 14 of 45
Fikom-Unika Santo Thomas
End Sub
End Module
3. Tekan tombol F5 untuk melihat hasil program
b. Program untuk menghitung luas lingkaran dengan variable global
1. Buat project baru, dengan nama Praktek2b.
2. Tambahkan kontrol dalam form seperti pada gambar berikut :
3. Pengaturan propertinya seperti pada tabel 1.
Tabel 1. Pengaturan Properties
Object Properties Nilai
Form1 Name
Text
FormLingkaran
Form Menghitung Luas Lingkaran
Textbox1 Name
Text
TxtJari2
Textbox2 Name
Text
TxtLuas
Button1 Name
Text
BtProses
Proses
4. Pilih Menu View dan Klik code, kemudian ketikkan kode program berikut ini :
Public Class FormLingkaran
Dim jari, luas As Single
End Class
5. Klik ganda pada BtProses, kemudian ketikkan kode program berikut ini :
jari = CSng(TxtJari2.Text) luas = Math.PI * jari ^ 2
TxtLuas.Text = luas
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon
Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan aplikasi dalam folder masing-masing.
V. LATIHAN
Rancanglah Form dan program untuk menghitung luas persegi panjang
VI. HASIL PRAKTIKUM
VII. ANALISA HASIL
VIII. KESIMPULAN
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 15 of 45
Fikom-Unika Santo Thomas
MODUL 3
PERCABANGAN
I. TUJUAN
- Memahami dan mengenal Pencabangan (if … then dan Select Case ….)
- Dapat membuat aplikasi sederhana dengan menggunakan Pencabangan (if
… then dan Select Case …)
II. ALAT DAN BAHAN
- Microsoft Visual Studio 2010
III. TEORI SINGKAT A. Struktur Percabangan
Kondisi percabangan yakni suatu kondisi yang hanya dapat dikerjakan karena
memenuhi kriteria. Bila kondisi pertama benar maka jalankan perintah blok pertama, jika kondisi pertama salah maka jalankan perintah blok kedua dan selanjutnya.
a. Bentuk kondisi percabangan yang dapat ditemui antara lain: If**..End If If**..Else**..End If If**..ElseIf**End If If**..ElseIF*...Else**..EndIF
b. Bentuk penulisan perintah SELECT adalah sebagai berikut :
SELECT CASE testexpression CASE expressionlist-n statements-n CASE ELSE else statement END SELECT IV. Praktikum
a. Program untuk memberikan pesan berdasarkan pilihan untuk
Administrator atau Operator menggunakan percabangan IF-THEN
1. Buat project baru, dengan nama Praktek3a.
2. Tambahkan kontrol dalam form seperti pada gambar berikut :
3. Pengaturan propertinya seperti pada tabel berikut :
Object Properties Nilai
Form1 Name FormIF_THEN
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 16 of 45
Fikom-Unika Santo Thomas
Text Form SELEKSI dengan IF THEN
RadioButton1 Name Text
RbAdmin Administrator
RadioButton2 Name Text
RBOperator Operator
Button1 Name Text
BtOk OK
4. Tuliskan kode program berikut pada form Active :
RbAdmin.Checked = False
RbOperator.Checked = False
5. Tuliskan kode program berikut dengan event klik pada BtOk :
If RbAdmin.Checked = True Then
MessageBox.Show("Anda sedang Login Administrator")
ElseIf RbOperator.Checked = True Then
MessageBox.Show("Anda sedang Login Operator")
Else
MessageBox.Show("Pilih salah satu")
End If b. Program untuk menentukan bulan berdasarkan criteria berikut :
Kode Bulan Bulan
1 JANUARI
2 PEBRUARI
3 MARET
dst….. DESEMBER
1. Buat project baru, dengan nama Praktek3b.
2. Tambahkan kontrol dalam form seperti pada gambar berikut :
3. Pengaturan propertinya seperti pada tabel berikut :
Object Properties Nilai
Form1 Name
Text
Form_SELECT_CASE
Form Seleksi dengan Select CASE
Label1 Text Masukkan Bulan [1..12]
Label2 Text NAMA BULAN
TextBox1 Name Txtangka
Textbox2 Name TxtBulan
4. Tuliskan kode program berikut dengan event Textchanged pada txtangka :
Dim AngkaBulan As Byte
If Txtangka.Text <> "" Then
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 17 of 45
Fikom-Unika Santo Thomas
AngkaBulan = CInt(Txtangka.Text) Select Case AngkaBulan
Case 1 : txtbulan.Text = "JANUARI"
Case 2 : txtbulan.Text = "PEBRUARI"
Case 3 : txtbulan.Text = "MARET"
Case 4 : txtbulan.Text = "APRIL"
Case 5 : txtbulan.Text = "MEI"
Case 6 : txtbulan.Text = "JUNI"
Case 7 : txtbulan.Text = "JULI"
Case 8 : txtbulan.Text = "AGUSTUS"
Case 9 : txtbulan.Text = "SEPTEMBER"
Case 10 : txtbulan.Text = "OKTOBER"
Case 11 : txtbulan.Text = "NOPEMBER"
Case 12 : txtbulan.Text = "DESEMBER"
Case Else
txtbulan.Text = "SALAH"
End Select Else
txtbulan.Text = ""
End If
V. LATIHAN
Rancanglah Form dan program untuk menghitung Gaji Bersih seorang
Pegawai berdasarkan ketentuan sebagai berikut :
Input : NIP, Nama, Golongan, Status_Menikah, Jumlah_Anak
Proses :- Gaji Pokok berdasarkan Golongan :
Golongan Gaji Pokok
A 1500000
B 1000000
C 800000
D 500000
- Tunjangan Pasangan adalah 15% dari Gaji Pokok
- Tunjangan Anak adalah 15% dari Gaji Pokok dan terhitung sampai 3
orang anak saja
- Pajak adalah 5% dari Gaji Pokok
- Gaji Bersih adalah Gaji Pokok + Tunjangan Pasangan + Tunjangan
Anak –Pajak
Output : Gaji Pokok, Tunjangan Pasangan, Tunjangan Anak, Pajak, dan Gaji
Bersih
VI. HASIL PRAKTIKUM
VII. ANALISA HASIL
VIII. KESIMPULAN
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 18 of 45
Fikom-Unika Santo Thomas
MODUL 4
PERULANGAN
I. TUJUAN
- Memahami dan mengenal Perulangan (For … Next, While, Do While)
- Dapat membuat aplikasi sederhana dengan menggunakan Perulangan
(For … Next, While, Do While)
II. ALAT DAN BAHAN
- Microsoft Visual Studio 2010
III. TEORI SINGKAT
Perintah perulangan adalah merupakan control perulangan yang berfungsi untuk
melakukan proses perulangan (iterasi) dari suatu blok program secara berulang-ulang
dengan batas yang ditentukan.
For … Next
For … Next merupakan suatu control perulangan yang mempunayi nilai tetap,
jumlah perulangan telah diketahui sebelumnya. Format penulisannya adalah sebagai
berikut :
For Counter = niali_awal To nilai_akhir Step Pertambahan Pernyataan() Next (Counter)
For Each … In … Next
Merupakan suatu control yang digunakan untuk perulangan yang jumlah
pengulangannya sesuai dengan jumlah elemen dari suatu koleksi objek dan biasanya
tidak diketahui dengan pasti berapa jumlahnya. Koleksi merupakan kumpulan data
atau objek yang didefinisikan dengan kode program.
Format Penulisannya :
For Each elemen In Group Pernyataan
Next [elemen]
While …
While merupakan suatu control perulangan yang berfungsi untuk melakukan
perulangan yang memiliki satu syarat tertentu. Dan akan terus dijalankan selama
syarat tersebut terpenuhi dan begitupun sebaliknya jika syarat tidak terpenuhi maka
pernyataan tidak akan dijalankan.
Format Penulisannya :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 19 of 45
Fikom-Unika Santo Thomas
While (kondisi) Pernyataan …
End While
DO While … LOOP
Merupakan suatu control perulangan yang melakukan perulangan terlebih dahulu dan
bentuk pengujian dilakukan belakangan atau sebaliknya.
Format penulisannya :
DO While (kondisi)
Pernyataan [Exit Do] Pernyataan
LOOP
Bentuk 2
DO Pernyataan
[Exit Do] Pernyataan LOOP While (kondisi)
DO UNTIL
Jika Do While melakukan perulangan selama kondisi memenuhi (kondisi bernilai
true) sedangkan until akan melakukan perulangan hingga kondisi bernilai true.
Selama kondisi tidak memenuhi (kondisi bernilai false), loop akan dijalankan terus.
Format penulisannya :
DO
Pernyataan LOOP UNTIL
IV. PRAKTIKUM
a. Program menampilkan tanggal, bulan dan tahun dengan Perulangan FOR
1. Buat project baru dengan nama Prak4.
2. Desain Tampilan form seperti gambar berikut ini :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 20 of 45
Fikom-Unika Santo Thomas
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya
seperti tabel berikut:
Object Properties Nilai
Form1 Name
Text
Form1
Perulangan FOR
Label1 Text Tgl/Bln/Thn
ComboBox1 Name CbTgl
ComboBox2 Name CbBln
ComboBox3 Name CbThn
4. Klik ganda pada Form1, kemudian ketikkan kode program berikut ini :
Dim tgl, thns As Integer Dim thn As Long
thns = Microsoft.VisualBasic.Year(Now())
For tgl = 1 To 31
If (tgl <= 31) Then
CbTgl.Items.Add(tgl)
If (tgl <= 12) Then
CbBln.Items.Add(tgl)
End If End If Next For thn = 1900 To thns
CbThn.Items.Add(thn)
Next thn
5. Jalankan aplikasi
6. Simpan aplikasi Anda.
b. Program menampilkan kelipatan dua dari 100 s/d 500 dengan Perulangan
WHILE
1. Tambahkan Form baru, dengan nama Form2.
2. Desain Tampilan form seperti gambar berikut ini :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 21 of 45
Fikom-Unika Santo Thomas
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya
seperti tabel berikut:
Object Properties Nilai
Form2 Name
Text
Form2
Form Kelipatan Dua dari 100 s/d 500
ListBox1 Name ListKelipatan
4. Klik ganda pada Form2, kemudian ketikkan kode program berikut ini :
Dim i As Short i = 100
While (i <= 500)
ListKelipatan.Items.Add(i) i = i + 2
End While
5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon
Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
6. Simpan aplikasi Anda.
c. Program menampilkan Huruf A s/d Z dan Z s/d A Perulangan DO
WHILE…LOOP dan DO … LOOP WHILE
1. Tambahkan Form baru, dengan nama Form3.
2. Desain Tampilan form seperti gambar berikut ini :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 22 of 45
Fikom-Unika Santo Thomas
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya
seperti tabel berikut:
Object Properties Nilai
Form2 Name
Text
Form3
Form Menampilkan Huruf A-Z dan Z-A
ListBox1 Name ListA_Z
ListBox2 Name ListZ_A
4. Klik ganda pada Form3, kemudian ketikkan kode program berikut ini :
Dim i, j As Byte
ListA_Z.Items.Clear() i = Asc("A")
Do While i <= Asc("Z")
ListA_Z.Items.Add("Huruf " & Chr(i)) i = i + 1
Loop
ListZ_A.Items.Clear() j = Asc("Z")
Do
ListZ_A.Items.Add("Huruf " & Chr(j)) j = j - 1
Loop While j >= Asc("A")
5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon
Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
6. Simpan aplikasi Anda.
Perulangan FOR EACH … IN…NEXT
1. Tambahkan Form baru, dengan nama Form4.
2. Desain Tampilan form seperti gambar berikut ini :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 23 of 45
Fikom-Unika Santo Thomas
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya
seperti tabel berikut:
Object Properties Nilai
Form5 Name
Text
Form4
Perulangan FOR EACH … IN…NEXT
Button1 Name
Text
Button1
Button1
Button2 Name
Text
Button2
Button2
Button3 Name
Text
Proses
Button3
4. Klik ganda pada Proses, kemudian ketikkan kode program berikut ini :
For Each ctrl In Controls
ctrl.Text = "Tombol"
Next
5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon
Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
6. Simpan aplikasi Anda.
V. LATIHAN
Rancanglah Form dan program untuk menghitung deret berikut :
1 + 3+5+7+9+.........N
VI. HASIL PRAKTIKUM
VII. ANALISA
VIII. KESIMPULAN
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 24 of 45
Fikom-Unika Santo Thomas
Struktur pengulangan atau Loop digunakan untuk mengulang suatu blok perintah sampai kondisi tertentu. Proses pengulangan ini dapat dikendalikan jumlahnya oleh aplikasi yang dibuat pada kondisi tertentu. Perulangan yang digunakan terdiri dari FOR-NEXT, dan Do Loop While, While-Wend, dan Do Loop Until
IX. PELAKSANAAN PRAKTIKUM a. Program untuk menghitung umur berdasarkan tanggal lahir seperti berikut :
Public Class Form2
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
Dim x As Integer
For x = 1 To 31
If x <= 12 Then
ComboBox2.Items.Add(x)
End If
ComboBox1.Items.Add(x)
Next
For x = Year(Microsoft.VisualBasic.Now) To 1950 Step -1
ComboBox3.Items.Add(x)
Next
End Sub
Private Sub ComboBox3_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles ComboBox3.TextChanged
TextBox1.Text = Year(Microsoft.VisualBasic.Now) -
Val(ComboBox3.Text)
End Sub
End Class
Hasil Program adalah :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 25 of 45
Fikom-Unika Santo Thomas
b. Program untuk menghitung nilai Tertinggi, Terndah, Rata-rata dan Keterangan
seperti berikut : Public Class Form1
Dim BRS As Integer
Dim ipk() As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
DataGridView1.RowCount = DataGridView1.RowCount + 1
DataGridView1.Item(0, BRS).Value = BRS + 1
DataGridView1.Item(1, BRS).Value = TextBox1.Text
DataGridView1.Item(2, BRS).Value = TextBox2.Text
DataGridView1.Item(3, BRS).Value = TextBox3.Text
BRS = BRS + 1
End Sub
Sub JUDULGRID()
DataGridView1.ColumnCount = 5
DataGridView1.RowCount = 1
DataGridView1.Columns(0).HeaderText = "NO."
DataGridView1.Columns(0).Width = 50
DataGridView1.Columns(1).HeaderText = "NPM."
DataGridView1.Columns(1).Width = 100
DataGridView1.Columns(2).HeaderText = "NAMA"
DataGridView1.Columns(2).Width = 250
DataGridView1.Columns(3).HeaderText = "IPK"
DataGridView1.Columns(3).Width = 50
DataGridView1.Columns(4).HeaderText = "KETERANGAN"
DataGridView1.Columns(4).Width = 150
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
JUDULGRID()
BRS = 0
End Sub
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 26 of 45
Fikom-Unika Santo Thomas
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
For I As Integer = 0 To DataGridView1.RowCount - 2
ReDim Preserve ipk(I)
ipk(I) = CSng(DataGridView1.Item(3, I).Value)
If ipk(I) >= 3.5 Then
DataGridView1.Item(4, I).Value = "SANGAT MEMUASKAN"
ElseIf ipk(I) >= 3.0 Then
DataGridView1.Item(4, I).Value = "MEMUASKAN"
ElseIf ipk(I) >= 2.5 Then
DataGridView1.Item(4, I).Value = "CUKUP MEMUASKAN"
Else
DataGridView1.Item(4, I).Value = "BURUK"
End If
Next
Label4.Text = "IPK TERTINGGI =" & Str(ipk.Max)
Label5.Text = "IPK TERENDAH =" & Str(ipk.Min)
Label6.Text = "IPK RATA-RATA =" & Str(ipk.Average)
End Sub
End Class
Hasil Output adalah:
X. LATIHAN a. Berdasarkan bahan praktikum no. 3b. Buat program untuk menentukan IPK
yang paling banyak muncul dan pencarian IPK mahasiswa berdasarkan keterangan
XI. TUGAS
a. Buatlah program untuk menentukan Perkalian 2 buah matriks( menggunakan
Object Datagridview/ListView)
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 27 of 45
Fikom-Unika Santo Thomas
MODUL 5 Sub Procedure, Function Procedure dan Pemrograman Berorientasi
Object
1. TUJUAN
Mahasiswa memahami tentang sub dan function procedure dan membuat membentuk object menggunakan kode program. 2. TEORI SINGKAT Dalam VB ada 3 macam prosedur yaitu : a). Sub Procedure, b). Function Procedure dan c). Event Procedure. A. Procedure
a. Sub Procedure.
Syntax : [Private] [Public] [Static] Sub nama procedure (parameter) ******Blok Perintah***** End Sub Parameter merupakan daftar nama data (variabel) yang dipergunakan pada prosedure tsb dan mirip dg pendeklarasian variabel. Sub Procedure dapat ditempatkan dalam : Standard Module, Class Module dan Form Module.VB menganggap bahwa standar pembuatan Sub Procedure adalah Public, kecuali bila dideklarasikan yang lain. Public artinya bahwa procedure dapat dipanggil dari bagian manapun dalam program. Pemanggilan sub procedure harus dilakukan melalui pernyataan tersendiri (baris terpisah) dengan cara sbb : Call nama prosedur (parameter 1, parameter 2) Atau Nama prosedur parameter 1, parameter 2 1. Pengiriman Parameter secara Nilai
Suatu parameter nyata yang dikirim secara nilai (by value) ke dalam sebuah prosedur, menyebabkan parameter formal pada prosedur tsb bersifat lokal. Jika parameter formal pada prosedur tsb berubah, nilainya tidak akan mempengaruhi nilai parameter nyata.
Pengiriman parameter secara nilai ini bersifat searah, yaitu dari parameter nyata ke parameter formal dan tidak terjadi pengiriman balik nilai dari parameter formal ke parameter nyata. Parameter-parameter yang digunakan pada pengiriman secara nilai ini disebut dengan parameter nilai (Value Parameter). Untuk menunjukan bahwa variabel yang digunakan merupakan parameter byvalue, parameternya harus dipanggil dengan perintah By Val. 2. Pengiriman Parameter Secara Acuan
Parameter nyata yang dikirim secara acuan (by reference) ke dalam sebuah prosedur, menyababkan perubahan-perubahan yang terjadi pada nilai parameter formal.Parameter-parameter ini disebut dengan Variabel Parameter. Sebuah parameter formal dapat dipanggil dengan perintah By Ref agar bisa mengembalikan nilainya keparameter nyata Contoh : Buat sebuah prosedur FORM_Click yang berisi parameter nyata yaitu Variabel NILAI. Selanjutnya buat prosedur hitung yang berisi parameter formal yaitu variabel HASIL yang diberintah By Ref. Buat listing programnya. (Contoh : byref)
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 28 of 45
Fikom-Unika Santo Thomas
b. Function Procedure.
Fungsi prosedur adalah suatu prosedur yang akan mengembalikan suatu nilai. Jenis prosedur ini lebih banyak digunakan pada rutin program untuk berhitung. VB 2010 menyediakan beberapa internal function sehingga pemakai program tidak perlu lagi menuliskan prosedur untuk fungsi tersebut.Contoh-contoh fungsi internal : Str, Ltrim, Cdate, Cdbl, Int, Cbyte dll. Syntax Penulisan : [Private] [Public] [Static] Function nama (parameter) [as type] ****.Pernyataan****. End Function Sebuah Function Procedure dapat dipanggil dengan menggabungkan pernyataan lain, seperti contoh berikut : Variabel = nama_function_procedure Atau : Call nama_function_procedure (parameter) Atau nama_function_procedure parameter c. Event Procedure.
Event Procedure digunakan untuk mengatur kontrol oleh suatu event (kejadian) dari pemakai program. Beberapa event yang sering digunakan seperti :activated, click, Textchanged, drag, doubleclick dan sebagainya. Mengingat tugas event procedure adalah menanggapi event dari pemakai, maka prosedur ini sering mempunyai nama yg sesuai dg eventnya, Form1_load, Button1_Click, Text1_Keypress dll.
B. Mengenal Object Oriented Programming
Konsepnya adalah sebuah mekanisme pemrogramana dimana data dan fungsi digabungkan kedalam sebuah unit yang disebut Object. Penggabungan ini disebut sebagai enkapsulasi Object merupakan representasi dari dunia nyata, dan merupaka hasil cetakan dari sesuatu, yaitu Class. Jika diibaratkan Class sebagai cetakan kue, maka object adalah kue hasil cetakannya. Class mempunyai : Field, Properti, Method dan Event. Setiap Object hasil cetakan juga mempunyai Field, properti, method dan event. Field/properti adalah suatu data atau sesuatu yang dimiliki oleh Class Method : menunjukan apa-apa yang dapat dilakukan oleh sebuah Class Event : adalah segala sesuatu yang dapat dikenakan terhadap sebuah Class
3. PELAKSANAAN PRAKTIKUM c. Program untuk menghitung menentukan nilai Huruf dan bobot seperti berikut :
Module Module1 Public Sub konversi_bobot(ByVal na As Single, ByRef bobot As String) If (na >= 81) Then bobot = 4
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 29 of 45
Fikom-Unika Santo Thomas
ElseIf (na >= 76) Then bobot = 3.5 ElseIf (na >= 71) Then bobot = 3 ElseIf (na >= 66) Then bobot = 2.5 ElseIf (na >= 61) Then bobot = 2 ElseIf (na >= 56) Then bobot = 1 Else bobot = 0 End If End Sub Public Function konversi_huruf(ByVal na As Single) As String If (na >= 81) Then konversi_huruf = "A" ElseIf (na >= 76) Then konversi_huruf = "B+" ElseIf (na >= 71) Then konversi_huruf = "B" ElseIf (na >= 66) Then konversi_huruf = "C+" ElseIf (na >= 61) Then konversi_huruf = "C" ElseIf (na >= 56) Then konversi_huruf = "D" Else konversi_huruf = "E" End If End Function End Module
Public Class Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim HURUF As String HURUF = "E" konversi_bobot(Val(TextBox1.Text), HURUF) TextBox2.Text = HURUF End Sub End Class Public Class Form2 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged TextBox2.Text = konversi_huruf(Val(TextBox1.Text)) End Sub End Class
Hasil Program adalah :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 30 of 45
Fikom-Unika Santo Thomas
d. Program untuk membuat object dengan 3 label, 1 textbox, 1 combobox, 1
listbox, dan 1 button dengan menggunakan kode program sebagai berikut :
Public Class Form1
Dim WithEvents lbl As New Label
Dim WithEvents lbl2 As New Label Dim WithEvents lbl3 As New Label
Dim WithEvents txt As New TextBox Dim WithEvents cbo As New ComboBox
Dim WithEvents list As New ListBox
Dim WithEvents tombol As New Button Dim ArrayControl() As Control = {lbl, txt, lbl2,
cbo, lbl3, list, tombol}
Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Controls.AddRange(Me.ArrayControl) Me.lbl.Location = New Point(50, 20)
Me.lbl.Text = "NPM"
Me.txt.Location = New Point(150, 20) Me.lbl2.Location = New Point(50,
Me.txt.Bottom + 20) Me.lbl2.Text = "Prog. Studi"
Me.cbo.Location = New Point(150,
Me.txt.Bottom + 20) Me.cbo.Items.Add("Teknik Informatika-S1")
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 31 of 45
Fikom-Unika Santo Thomas
Me.cbo.Items.Add("Sistem Informasi-S1") Me.lbl3.Location = New Point(50,
Me.cbo.Bottom + 20)
Me.lbl3.Text = "Kurikulum" Me.list.Location = New Point(150,
Me.cbo.Bottom + 20) Me.tombol.Location = New Point(150,
Me.list.Bottom + 20)
Me.tombol.Text = "&TOMBOL" End Sub
End Class
Hasil Output adalah:
4. LATIHAN
a. Buatlah program untuk membuat object control seperti form berikut:
5. TUGAS
Berdasarkan sola Latihan No. 4a. Buatlah program untuk tombol proses yaitu memindahkan data NMP, NAMA, ALAMAT, dan NO. TELEPON pada object ListBox seperti hasil sbb:
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 32 of 45
Fikom-Unika Santo Thomas
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 33 of 45
Fikom-Unika Santo Thomas
MODUL 6 Object Chart, Pengolahan Data Grafik
1. TUJUAN
Mahasiswa memahami tentang object Chart dan mengolah data kemudian menyajikan informasi dalam bentuk Grafik.
2. TEORI SINGKAT
A. Membuat Chart/Grafik/Kurva Dengan Ms.Chart di VBNET
Hal pertama yang dilakukan adalah menentukan tentang data yang akan dioleh dan informasi yang akan disajikan dalam bentuk grafik. Langkah pertama adalah menambahkan object MS. Chart, ada beberapa komponen yang dapat di download untuk membuat grafik yang trial dan berbayar tetapi komponen MS. Chart dengan gratis. 3. PELAKSANAAN PRAKTIKUM
a. Program untuk menyajikan informasi grafik pendaftaran mahasiswa baru dari
tahun 2010 s/d 2015 seperti berikut : Imports System.Windows.Forms.DataVisualization.Charting Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click With Chart1 '=Nama Group Dim prodi() As String = {"Mahasiswa SI-S1", "Mahasiswa TI-S1"} .Series.Clear() 'Memasukkan Nilai Prodi kedalam char1 For i As Integer = 0 To prodi.Length - 1 .Series.Add(prodi(i)) Next 'Format Series/Chart .ChartAreas(0).AxisX.Interval = 1 .ChartAreas(0).AxisX.IsStartedFromZero = True For Each seri As Series In .Series seri.ChartType = SeriesChartType.Column seri.XValueType = ChartValueType.String seri.YValueType = ChartValueType.Int32 Next 'Isi Nilai Series/Chart (X,Y) .Series(0).Points.AddXY("2010", 29) .Series(0).Points.AddXY("2011", 60) .Series(0).Points.AddXY("2012", 75) .Series(0).Points.AddXY("2013", 100) .Series(0).Points.AddXY("2014", 120) .Series(0).Points.AddXY("2015", 35) .Series(1).Points.AddXY("2010", 30) .Series(1).Points.AddXY("2011", 70) .Series(1).Points.AddXY("2012", 45) .Series(1).Points.AddXY("2013", 67) .Series(1).Points.AddXY("2014", 167)
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 34 of 45
Fikom-Unika Santo Thomas
.Series(1).Points.AddXY("2015", 23) End With End Sub End Class Hasil Program adalah :
4. LATIHAN
Buatlah program untuk pendaftaran mahasiswa baru Fakultas Ilmu Komputer terdiri dari program studi Teknik Informatika-S1 dan Sistem Informasi-S1, Kemudian daftar mahasiswa baru disajikan dalam bentuk grafik (data dalam grafik secara dinamis). 5. TUGAS
Buatlah program untuk membangkitkan data random sebagai angka kelahiran 5 tahun terakhir pada Propinsi Sumatera Utara untuk setiap Kabupaten/Kota (menggunakan object Datagridview atau Listview)
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 35 of 45
Fikom-Unika Santo Thomas
MODUL 7 Database MySql
1. TUJUAN
Mahasiswa memahami tentang basis data, membuat database, tabel, query dan mengkoneksikan dengan pemrograman visual studio (vb.net)
2. TEORI SINGKAT
A. Pengenalan Database
DataBase dapat diartikan sebagai kumpulan data yang terdiri atas satu atau lebih tabel yang terintegrasi satu sama lain, dimana setiap user dapat mengubah, menghapus, menganalisis ,menambah, memperbaiki data dalam tabel-tabel tersebut. Tabel berfungsi menyimpan data dan merupakan suatu kumpulan data yang berhubungan dengan topik tertentu,misalnya daftar penjualan,penilaian dsb. Tabel terdiri atas baris yang disebut record dan kolom yang disebut dengan field.
B. PELAKSANAAN PRAKTIKUM
a. Membuat database menggunakan MySql Langkah-langkah membuat database dengan database MySql adalah sebagai berikut : 1. Pastikan bahwa aplikasi database dengan MySql dan Web Server
sudah diinstal pada komputer 2. Pada browser ketikkan localhost/phpmyadmin dan masukkan user dan
password misalnya user :root dan password : root berlaku untuk AppServ tetapi Xamp tanpa password seperti pada gambar berikut :
3. Pada create new database diisikan dengan DbPenjualan, kemudian klik create, sehingga akan tampil sebagai berikut :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 36 of 45
Fikom-Unika Santo Thomas
4. Berikan nama tabel Tbarang pada Name dan banyaknya field adalah 4 pada Number of field lalu klik go sehingga tampil sebagai berikut :
5. Setelah dituliskan field, type dan length lalu diklik save, sehingga akan terbentuk sebuah tabel dengan nama Tbarang.
b. Latihan. Buatlah tabel serta fieldnya berdasarkan tabel sebagai berikut :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 37 of 45
Fikom-Unika Santo Thomas
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 38 of 45
Fikom-Unika Santo Thomas
MODUL 8 Aplikasi Database
1. TUJUAN
Mahasiswa memahami tentang koneksi database mysql dengan visual Studio (VB. Net) dan mampu membuat program untuk manipulasi data dengan perintah SQL dalam pemrograman Visual.
2. TEORI SINGKAT
B. Koneksi Database MySql dengan Visual Studio
Dalam pembahasan ini mengolah data dalam database menggunakan pemrograman visual sebagai interface dan menyajikan laporan dalam bentuk grafik. Tahap pertama adalah membuat tabel dalam database yang telah dibuat dalam pertemuan sebelumnya yaitu database DBPenjualan dengan nama tabel TPenjualan berdasarkan struktur tabel sebagai berikut :
Dalam koneksi MySql dengan Visual Studio 2010 menggunakan program adalah sebagai berikut : Imports System.Data.Odbc Module Module1
Public koneksi As String Public cn As New Odbc.Odbcconnection Public Sub bukakoneksi()
koneksi = "Driver={MYSQL ODBC 3.51 Driver};database=DBPENJUALAN;server=localhost;uid=root;PWD=root" cn = New Odbc.Odbcconnection(koneksi)
Try cn.Open() MessageBox.Show(" koneksi berhasil")
Catch ex As Exception MessageBox.Show(ex.Message, "error") End
End Try End Sub
End Module
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 39 of 45
Fikom-Unika Santo Thomas
3. PELAKSANAAN PRAKTIKUM
b. Program untuk menyajikan informasi grafik berdasarkan data dalam database
seperti berikut : Imports System.Windows.Forms.DataVisualization.Charting Imports System.Data.Odbc Public Class Form1 Dim cn As OdbcConnection Dim da As OdbcDataAdapter Dim CMD As OdbcCommand Dim CMD2 As OdbcCommand Dim DREADER As OdbcDataReader Dim ds As DataSet Sub refreshtampil() da = New OdbcDataAdapter("SELECT * FROM TBARANG", cn) ds = New DataSet ds.Clear() da.Fill(ds, "BRG") DataGridView1.DataSource = (ds.Tables("BRG")) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load bukakoneksi() On Error GoTo salah cn = New OdbcConnection(koneksi) If cn.State = ConnectionState.Closed Then cn.Open() End If Call refreshtampil() Exit Sub salah: MsgBox(Err.Description) End End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sql As String CMD2 = New OdbcCommand("SELECT * FROM TBARANG WHERE KODE_BRG= '" & TextBox1.Text & "'", cn) DREADER = CMD2.ExecuteReader If DREADER.Read Then MsgBox("DATA SUDAH ADA") Else DREADER.Close() sql = "INSERT INTO TBARANG VALUES( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')" CMD = New OdbcCommand(sql, cn) CMD.ExecuteNonQuery() Call refreshtampil() TextBox1.Focus() End If
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 40 of 45
Fikom-Unika Santo Thomas
DREADER.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim X As Integer With Chart1 '=Nama Group Dim NAMA() As String = {"TV", "KULKAS", "LAPTOP"} .Series.Clear() 'Memasukkan Nilai Prodi kedalam char1 For i As Integer = 0 To NAMA.Length - 1 .Series.Add(NAMA(i)) Next 'Format Series/Chart .ChartAreas(0).AxisX.Interval = 1 .ChartAreas(0).AxisX.IsStartedFromZero = True For Each seri As Series In .Series seri.ChartType = SeriesChartType.Column seri.XValueType = ChartValueType.String seri.YValueType = ChartValueType.Int32 Next 'Isi Nilai Series/Chart (X,Y) X = 0 For I As Integer = 0 To 0 For J As Integer = 0 To DataGridView1.RowCount - 2 If DataGridView1.Item(1, J).Value = "TV" Then X = X + 1 .Series(I).Points.AddXY(DataGridView1.Item(4, J).Value, Val(DataGridView1.Item(3, J).Value)) End If Next Next End With End Sub End Class Hasil Program adalah :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 41 of 45
Fikom-Unika Santo Thomas
4. LATIHAN
Berdasarkan contoh program di atas,buatlah program untuk melengkapi grafik untuk penjualan KULKAS dan LAPTOP dalam 12 bulan. 5. TUGAS
Buatlah program untuk membangkitkan data random sebagai angka kelahiran 5 tahun terakhir pada Propinsi Sumatera Utara yang disimpan dalam database untuk setiap Kabupaten/Kota (menggunakan object Datagridview atau Listview), kemudian menyajikannya dalam bentuk grafik
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 42 of 45
Fikom-Unika Santo Thomas
MODUL 9
Crystal Report
I. TUJUAN
Mahasiswa memahami tentang Crystal Report kemudian menyajikan informasi
dalam bentuk Laporan.
II. ALAT DAN BAHAN
- Microsoft Visual Studio 2010
III. TEORI SINGKAT
A. Pengantar Crystal Report di Visual Studio 2010
Crystal Reports merupakan salah satu reporting tools yang disediakan mulai di
.NET versi pertama keluar yaitu .NET versi 1.0. Sebelum .NET muncul crystal
reports merupakan reporting tools yang harus diinstal secara terpisah dan di refrensi
secara manual library nya apabila ingin digunakan.Hal tersebut sudah tidak berlaku
lagi semenjak kemunculan .NET pertama sehingga crystal reports sudah di include
kan didalam Visual Studio.NET dan tidak perlu diinstal secara terpisah. Crystal
Reports yang terdapat didalam Visual Studio 2010 merupakan crystal reports versi
13.
B. Crystal Reports Item
Untuk membuat crystal reports pada visual studio 2010 terlebih dahulu
menambahkan item baru kedalam project. Berikut adalah contoh bagaimana
menambahkan item crystal reports kedalam project :
1. Buat sebuah Windows Forms Application project template baru, beri nama
Crystal Reports.
Klik project, pilih menu Add – New Item. Pada kotak dialog Add New Item pilih Crystal Reports dan beri nama rptMahasiswa.rpt. IV. PELAKSANAAN PRAKTIKUM
a. Program untuk menyajikan informasi dalam bentuk laporan seperti berikut :
1. Pilih Project � klik Add New Item � Pilih Crystal Reports � ganti nama file
rptMahasiswa, lalu klik Add, maka akan ditampilkan seperti gambar berikut :
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 43 of 45
Fikom-Unika Santo Thomas
2. Pilih Standard � klik OK, lalu pilih root Create New Connection � klik lagi
root OLE DB (ADO) � pilih OLEDB Provider � SQL SERVER Native Client
10 � Klik Next dan mengisikan nama server dan database seperti pada
gambar berikut :
3. Klik Next lalu klik finish maka akan ditampilkan seperti pada gamabar berikut
:
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 44 of 45
Fikom-Unika Santo Thomas
4. Pilih root Store Procedure dan klik ganda SP_TAMPILMHS sehingga
berpindah pada select table lalu klik OK, maka akan menampilkan seperti
pada gambar berikut :
5. Klik root pada Database Fileld pada Field Explorer dan klik SP_TAMPILMHS
dan pindah masing-masing Field pada Section Detail seperti gambar berikut
:
Modul Praktikum Pemrograman Visual I- Prodi Sistem Informasi Page 45 of 45
Fikom-Unika Santo Thomas
6. Selanjutnya menempatkan rptMahasiswa pada form dengan memberikan
nama FormCetak dan menambahkan object CrystalReportViewer pada form
tersebut seperti pada gambar berikut :
V. LATIHAN
a. Buatlah view dan store procedure untuk menampilkan daftar mahasiswa,
matakuliah, dan nilai
b. Buatlah report/laporan untuk menampilkan daftar mahasiswa,
matakuliah, dan nilai berdasarkan NPM.
VI. HASIL PRAKTIKUM
VII. ANALISA
VIII. KESIMPULAN