TUGAS MANDIRI
Membandingkan
Pemrograman VB.Net dengan Oop, .Net Framework
dan Membuat Sebuah Data
dengan Pemrogram VB.Net 2008
Mata Kuliah:
Pemrograman Visual Praktek dan Teori
NamaMahasiswa : Firman Subeki
NIM
: 100110013
Kode Kelas : 111- IS06T-M3 / IS06P-M3
Dosen :
Mauli Siagian, S.Kom
UNIVERSITAS PUTERA
BATAM
2012
Kata Pengantar
Puji syukur penulis panjatkan
kepada Allah SWT Tuhan YME, karena atas petunjuk-Nya akhirnya penulis dapat
menyelesaikan makalah ini tepat pada waktunya.
Makalah ini dibuat oleh penulis guna memenuhi tugas matakuliah “
Pemrograman Visual Teori & Praktek” . Adapun isi dari makalah ini hal yang
berkaitan dengan Mengenal
OOP, .NET Framework dan My.
Penulis
mengucapkan banyak terima kasih kepada berbagai pihak yang telah membantu dalam
proses pembuatan makalah ini. Selain itu penulis memohon maaf apabila masih
terdapat kekurangan dalam penyusunan makalah ini dan penulis mengharapkan
kritik dan saran yang membangun bagi penulis.
Batam, Juni 2012
Penulis
Daftar Isi
Kata Pengantar
|
1
|
Daftar Isi
|
2
|
Mengenal OOP.Net, Framework dan My
|
3
|
1.1 Konsep OOP
|
3
|
1.2 Propertis sebuah object
|
4
|
1.3 Method Sebuah Object
|
5
|
1.4 Membuat Class
|
5
|
1.5 Menambahkan Properties
|
8
|
1.6 Menambahkan Method
|
9
|
1.7 .Net Framework
|
10
|
1.8 Contoh Program
|
10
|
Daftar Pustaka
|
16
|
Mengenal OOP, .NET
Framework dan My
Visual Basic 2008 adalah sebuah bahasa pemrograman yang berorientasi
object (Object Oriented Programming – OOP), sehingga sedikitnya kita
harus memahami konsep OOP untuk lebih memahami Visual Basic 2008.
Saat ini banyak bahasa pemrograman computer yang menggunakan OOP
diantaranya VB, Java, Delphi dan sebagainya. VB sendiri mulai menerapkan konsep
OOP secara keseluruhan mulai dari Visual Basic .NET, sedangkan versi VB sebelumnya yaitu visual Basic 6
belum murni menerapkan OOP secara keseluruhan, hanya sebagian saja.
Dalam pemrograman berbasis obyek (OOP), memahami istilah
object, property, method dan Event
sangat penting.
§ Object : komponen di dalam sebuah program
§ Property : karakteristik yang dimiliki object
§ Method : aksi yang dapat dilakukan oleh object
§ Event : kejadian yang dapat dialami oleh object
1.1 Konsep OOP
Dalam konsep OOP,
semua hal yang kita gunakan dalam Visual Basic dapat kita anggap sebagai sebuah
object, sebagai contoh sebuah komponen Form1 yang kita tambahkan adalah
sebuah object, komponen Button1 yang kita tambahkan juga dapat kita anggap
sebagai sebuah object.
Setiap object pasti
memiliki sebuah Class untuk pembuatan object. Class bias kita anggap
sebagai sebuah cetakan dasar, blue print,template atau sebuah desain untuk
membuat sebuah object. Melalui class tersebut sebuah object yang sama dapat
kita buat berpuluh – puluh kali dan tanpa melalui class sebuah object tidak
akan dapat dibuat karena desain pembuatan object baru ada pada class dari
object tersebut. Sebagai contoh, object TextBox1 dan Object TextBox2 dibuat
berdasarkan dari class system.Windows.Forms.TextBox.
1.2 Propertis Sebuah Object
Setiap object dalam
VB memiliki properties masing- masing dan mungkin berbeda- beda antara
satu sebuah object dengan object VB lainnya. Properties adalah sebuah
karakteristik atau keadaan dari sebuah object. Sebagai contoh object TextBox1
memiliki properties Name, Text, Visible dan sebagainya. Masing- masing
properties dapat memiliki sebuah nilai, sebagai contoh properties Text dari
object TextBox1 dapat bernilai “Visual Basic”, properties Visible dari object
TextBox1 dapat bernilai false dan sebagainya.
Banyaknya properties
yang dimiliki oleh sebuah object ditentukan berdasarkan classnya, class
system.Windows.Forms.TextBox sendiri merupakan salah satu class yang ada
dalam .NET Framework. Sebuah object memiliki properties yang sama dan juga
dapat berbeda- beda dengan object yang lainnya.
Apabila kita membuat
beberapa buah object yang sama, misalnya object TextBox1 dan Object TextBox2,
maka nilai dari sebuah properties dapat sama atau berbeda- beda antara satu
buah object dengan object yang lainnya. Misalnya dua buah object TextBox harus
memiliki properties name yang berbeda- beda satu sama lainnya, textbox yang
pertama bernama TextBox1 dan textbox yang ke dua bernama TextBox2. Namun ada
beberapa properties yang mungkin bernilai sama, sebagai contoh properties Text
diantara kedua object ini dapat bernilai sama ataupun berbeda tergantung pada
kebutuhan.
Untuk mengubah nilai
dari properties sebuah object, dapat dipergunakan pernyataan berikut dibawah
ini :
Object.properties = nilai
Sebagai contoh untuk
mengubah nilai dari properties Text pada object TextBox1, pergunakan pernyataan
dibawah ini :
TextBox1.Text = “Properties Text”
Pernyataan di atas
menyebabkan properties Text dari object TextBox1 menjadi bernilai “Properties
Text”. Sementara untuk mengambil nilai sebuah properties dapat dipergunakan
pernyataan dibawah ini:
Namavariabel = object.properties
Sebagai contoh: hasil = TextBox1.Text
Pernyataan diatas
menyebabkan variable hasil akan menyimpan nilai dari properties Text dalam
object TextBox1.
1.3 Method Sebuah Object
Selain properties,
sebuah object juga memiliki method. Method adalah sebuah metode,
kegiatan atau tingkah laku yang bias dilakukan oleh object tersebut, sebagai
contoh sebuah form memiliki method show, showdialog dan sebagainya.
Seperti halnya sebuah properties, method sebuah object juga akan diturunkan
dari classnya masing- masing.
Method dalam VB akan
menyebabkan sebuah aksi apabila dijalankan, sebagai contoh apabila kita
menjalankan method show seperti dibawah ini :
Form1.show ()
Maka form1 akan
ditampilkan oleh VB. Pada dasarnya method show dari sebuah form merupakan aksi
untuk menampilkan sebuah Form, aksi ini disebut
juga dengan method. Perbedaan antara Properties dan Method dalam sebuah
object, seperti sebuah perbedaan antara kata benda dan kata kerja.
1.4 Membuat Class
Pembuatan class baru
dalam Visual Basic 2008 dapat kita lakukan melalui menu Project > Add Class,
maka akan tampak sebuah jendela seperti dibawah ini :
Dari pilihan yang ada, pastikan kita memilih pilihan
Class. Beri nama class baru ini pada kotak Name dan setelah selesai klik
tombol Add untuk membuatnya; VB akan membuatkan dua buah statement dasar
untuk pembuatan class :
Public
Class ClassSederhana
End class
Pada contoh di atas,
ada 4 buah variable didalam class ClassSederhana yaitu NamaDepan, NamaBelakang,
JenisKelamin dan Pekerjaan. Variable dalam sebuah Class disebut juga dengan
istilah Field.
Kemudian kita
mendefinisikan nilai yang boleh ditambahkan dalam variable JenisKelamin yaitu
nilai pria atau nilai wanita. Selain kedua nilai tersebut, VB tidak akan
menerima nilai lainnya. Perhatikan juga pada contoh di atas, kita menggunakan keyword
public (bukan perintah dim) untuk mendeklarasikan beberapa buah variable. Keyword
public digunakan agar variable- variable di atas dapat diakses di luar
script yang ada dalam class ClassSederhana di atas dan juga agar dapat diakses
pada object yang akan kita buat selanjutnya. Lawan dari keyword public adalah
keyword private yang akan membatasi penggunaan variable hanya dalam
script yang ada pada class tersebut, seperti berikut :
Public Class ClassSederhana
Private
variable1 As String
Private
variable2 As String
...
End Class
Maka kedua
variable di atas hanya dapat digunakan di dalam script yang ada pada class
ClassSederhana.
Selain digunakan dalam sebuah Form, keyword public dan
private juga dipergunakan dalam pembuatan Module. Jadi, apabila kita ingin
mengakses sebuah variable yang ada pada sebuah Module maka variable tersebut
harus dideklarasikan dengan keyword public (bukan Dim).
Setelah sebuah
class selesai kita buat, kita dapat membuat beberapa buah object yang
diperlukan dari class di atas dengan menggunakan keyword New.
Untuk lebih jelas mengenai keyword New, tambahkan sebuah Form
baru dan buat event Load pada form tersebut, tambahkan beberapa
script seperti dibawah ini :
Public Class ClassSederhana
Dim
namaobject As New
namaclass
...
namaobject = New Class
'membuat
object baru bernama obj1 dari class ClassSederhana
Dim
obj1 As New
ClassSederhana
'membuat
object baru bernama obj2 dari class ClassSederhana
Dim
obj2 As ClassSederhana
obj2 = New ClassSederhana
'mengisi
masing- masing variable dari object obj1
obj1.NamaDepan = "Firman"
obj2.NamaBelakang = "Subeki"
obj1.JenisKelamin = ClassSederhana.TipeJenisKelamin.Pria
obj1.Pekerjaan = "Manager"
'mengisi
masing- masing variabel dari object obj2
obj2.NamaDepan = "Syifa"
obj2.NamaBelakang = "Al-fatiha"
obj2.JenisKelamin =
ClassSederhana.TipeJenisKelamin.Wanita
obj2.Pekerjaan = "HRD"
End Class
Dalam pernyataan di atas, kita membuat dua buah object baru
bernama obj1 dan obj2 dari class ClassSederhana sehingga semua variabel,
properties dan Method yang ada pada class ClassSederhana diturunkan pada kedua
object ini.
1.5
Menambahkan Properties
Properti merupakan atribut yang melekat pada suatu kontrol
yang berfungsi untuk menentukan karakerisik dari kontrol. Properti juga
digunakan untuk menentukan cara kerja dan tampilan dari sebuah kontrol Event
suatu kejadian yang dikenakan untuk objek/kontrol.
Untuk
sebuah properties dalam sebuah Class, dapat digunakan pernyataan seperti
dibawah ini;
Property namaproperty() As TipeData
Get
'pernyataan
End
Get
Set(ByVal value As
TipeData)
'pernyataan
End
Set
End Property
1.6
Menambahkan Method
Membuat
method dalam class sama seperti ketika kita membuat sebuah fungsi atau sebuah
procedur karena sebenarnya method bekerja sama seperti sebuah procedur atau
sebuah fungsi yang kan menjalankan perintah tertentu apabila dijalankan.
'membuat
Method AmbilNama
Public Function AmbilNama() As
String
Return
NamaDepan & " " &
NamaBelakang
End Function
Pernyataan di
atas beerguna untuk membuat sebuah method baru atau lebih tepat apabila disebut
dengan fungsi baru bernama “AmbilNama”. Method ini berguna untuk mengembalikan
nilai dari variabel NamaDepan dan NamaBelakang.
Selain
menggunakan fungsi, pembuatan method juga dapat dilakukan menggunakan sebuah
prosedur seperti dibawah ini :
'membuat variabel lokal untuk digunakan
Private TotalGaji As Decimal
...
'membuat method HitungGaji
Public Sub HitungGaji(ByVal
Gaji As Decimal,
ByVal Lembur As
Decimal)
TotalGaji = Gaji + Lembur
MsgBox("Gaji
ditambah lembur menjadi " & TotalGaji & ".")
End Sub
1.7 .NET Framework
Framework adalah sebuah kerangka kerja
yang penggunaannya bertujuan untuk mengurangi overhead (beban) dari
aktivitasaktivitas yang sering dilakukan pada saat pelaksanaan proses
pengembangan web.
Framework biasanya menyediakan pustaka untuk
akses database, templating framework, dan session management serta
menawarkan kode-kode program yang dapat digunakan kembali (reusable).
1.8 Contoh Program
Public Class Form1
Private
Sub btexit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btexit.Click
If
MsgBox("apakah anda yakin ingin keluar???",
MsgBoxStyle.YesNo, "silahkan pilih")
= MsgBoxResult.Yes Then Close()
End
Sub
Private
Sub btproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btproses.Click
llbnama.Text = ("selamat datang: ")
llbjurusan.Text = ("anda memilih jurusan: ")
llbgender.Text = ("anda
adalah seorang: ")
MsgBox("anda sudah terdaftar di system putera batam")
If
cmbjurusan.Text = "sistem informasi
management" Then
llbjurusan.Text = "anda memilih jurusan : SIM"
ElseIf
cmbjurusan.Text = "sistem informasi
akuntansi" Then
llbjurusan.Text = "anda memilih jurusan : SIA"
Else
End
If
If
rbpria.Checked = True Then
llbgender.Text = "Anda adalah seorang : Pria"
Else
If
rbwanita.Checked = True Then
llbgender.Text = "Anda adalah seorang : wanita"
End
If
End
If
If
txtnama.Text = "Firman / Syifa" Then
llbnama.Text = "selamat datang : Firman"
Else
If
txtnama.Text = " Firman / Syifa" Then
llbnama.Text = "selamat datang :Syifa "
End
If
End
If
End
Sub
Private
Sub cmbjurusan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
cmbjurusan.SelectedIndexChanged
End
Sub
Private
Sub btreset_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btreset.Click
txtnim.Text = ""
txtnama.Text = ""
llbnama.Text = " "
llbjurusan.Text = "
"
cmbjurusan.Text = " "
lbjurusan.Text = " "
lbgenre.Text = " "
rbpria.Checked = False
rbwanita.Checked = False
End
Sub
Private
Sub rbpria_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles rbpria.CheckedChanged
If
rbpria.Checked = True Then
lbgenre.Text = "GENDER"
Else
lbgenre.Text = "GENDER"
End
If
End
Sub
Private
Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
cmbjurusan.Items.Add("sistem informasi management")
cmbjurusan.Items.Add("sistem informasi akuntansi")
End
Sub
End Class
·
Harga kamar
Private Sub cmbKdKamar_Click()
Select
Case cmbKdKamar.Text
Case
"KM-001" : txtJenis.Text = "STANDARD"
txtHarga.Text = "180000"
txtNomor.Text = "202"
Case
"KM-002" : txtJenis.Text = "STANDARD +"
txtHarga.Text = "220000"
txtNomor.Text = "302"
Case
"KM-003" : txtJenis.Text = "STANDARD ++"
txtHarga.Text = "260000"
txtNomor.Text = "502"
Case
"KM-004" : txtJenis.Text = "VIP"
txtHarga.Text = "350000"
txtNomor.Text = "202"
Case
"KM-005" : txtJenis.Text = "VVIP"
txtHarga.Text = "500000"
txtNomor.Text = "702"
End
Select
End Sub
Private Sub cmdBayar_Click()
Dim
TMP, X, Y, TOTAL, DISC As Double
If
chkLoundry.Value = 1 Then
X = Val(txtHarga.Text) *
Val(txtLamaInap.Text)
Y = Val(txtLamaInap.Text) *
75000
TMP = X + Y
Else
TMP = Val(txtHarga.Text) *
Val(txtLamaInap.Text)
End
If
If
optKK.Value = True Then
DISC = 0.03 * TMP
TOTAL = TMP + DISC
txtTotal.Text = TOTAL
Else
txtTotal.Text = TMP
End
If
End Sub
Private Sub Form_Load()
cmbKdKamar.AddItem("KM-001")
cmbKdKamar.AddItem("KM-002")
cmbKdKamar.AddItem("KM-003")
cmbKdKamar.AddItem("KM-004")
cmbKdKamar.AddItem("KM-005")
End Sub
·
menentukan usia
Privete Sub
Cmdok_Click ( )
Umur = Inputbox(“Berapa Usia Anda ?”,”Mohon
diisi”,0)
Msgbox “Terima kasih,
Usia anda adalah “ + umur, vbinformation, “Tanggapan”
End Sub
·
penggajian
Private Sub cmdexit_Click()
End
End Sub
Private Sub Cmdinput_Click()
Hitung_Gaji()
End Sub
Sub Hitung_Gaji()
Gaji = InputBox("Masukkan Gaji
Pokok", "Input Gaji")
Tunj = InputBox("Masukkan
Tunjangan", "Input Tunjangan")
Gaber = Val(Gaji) + Val(Tunj)
If Gaji = ""
Or Tunj = ""
Then
MsgBox("Tidak
Ada Angka Yang Dimasukkan")
Exit Sub
Else
MsgBox("Gaji
Bersi = " & Str(Gaber))
End If
End Sub
·
Grate Nilai Mahasiswa
Private Sub cmdhitung_Click()
Dim
NilaiTm As Integer
Dim NilaiMid As Integer
Dim
NilaiFinal As Integer
Dim
NilaiAkhir As Integer
Dim
Grade As String
NilaiTm = Val(Txttm.Text)
Nilaiuts = Val(Txtuts.Text)
Nilaiuas = Val(txtuas.Text)
NilaiAkhir = NilaiTm * 0.2 +
Nilaiuts * 0.3 + Nilaiuas * 0.5
Select
Case NilaiAkhir
Case
Is < 55
Grade = "E"
Case
55 To 64
Grade = "D"
Case
65 To 74
Grade = "C"
Case
75 To 84
Grade = "B"
Case
Else
Grade = "A"
End
Select
lblnilai = NilaiAkhir
lblnilai.FontSize = 16
lblnilai.ForeColor = vbBlue
Lblgrade.Caption = Grade
Lblgrade.FontSize = 16
Lblgrade.ForeColor = vbBlue
End Sub
Daftar Pustaka
·
James Foxall, 2008. Sams Teach
Yourself Visual Basic 2008 in 24 Hours: Complete Starter Kit.Sams
Publishing.
·
Michael Halvorson.2008.Microsoft
Visual Basic 2008 step by step. Microsoft Press.
Terimakasih infonya sangat membantu
BalasHapusSalam dari
Kursus Android