Penggabungan antara Visual Basic 2010 dengan Ms. Access

Nama : Eka Yunita H S

Kelas : TI 11 C

Nim : 11.11.2498

Assalamu'alakum wr wb

          Kali ini saya akan membuat bagaimana hasil dari penggabungan antara Visual Basic dengan Ms. Access.

Untuk mempersingkat kata-kata saya langsung saja saya perlihatkan..

1. Buatlah pada Ms. Access sebuah tabel yang diberi nama (contoh : DbMahasiswa)

2. Isikan tabel tersebut dengan beberapa data.

3. Bukalah Visual Basicnya, dan gabungkan dengan Ms. Acces.

• Setelah tergabungkan dan diDebug Maka akan muncul gambar seperti dibawah ini :

• ini adalah Buttons yang berfungsi dalam form, saya akan tampilkan gambar dari button Lanjutan, Terakhir, Add, dan Add Save :

 

 *Untuk add, semua isian akan hilang menjadi kosong. sebab kita akan memasukan data-data pada Coloum.

*Setelah data dimasukan maka data akan masuk atau terdaftar pada coloum dan klikan save untuk menyimpan data tersebut.

*Data dengan Nama " Siti Fatonah" telah terhapus saat klik delete.

• Untuk gambar Selanjutnya :

1.  Data Ditemukan jika saya klikan nama Eka Yunita H S (Nama yang telah terdaftar) pada textbox Nama Mahasiswa, kemudian klikan Seacrh.

       2.    Begitu pula untuk data yang tidak ditemukan :

Untuk hasil seperti diatas, ketikan Listing Program dibawah ini :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'DbMahasiswaDataSet.TbMahasiswa' table. You can move, or remove it, as needed.

Me.TbMahasiswaTableAdapter.Fill(Me.DbMahasiswaDataSet.TbMahasiswa)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TbMahasiswaBindingSource.MoveFirst()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TbMahasiswaBindingSource.MovePrevious()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

TbMahasiswaBindingSource.MoveNext()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TbMahasiswaBindingSource.MoveLast()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

TbMahasiswaBindingSource.AddNew()

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Me.Validate()

Me.TbMahasiswaBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Me.Validate()

Me.TbMahasiswaBindingSource.RemoveCurrent()

Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

Me.TbMahasiswaBindingSource.Filter = "Nama_Mahasiswa=' " & Nama_MahasiswaTextBox.Text & "'"

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

If TbMahasiswaBindingSource.Find("Nama_Mahasiswa", Nama_MahasiswaTextBox.Text) >= 0 Then

MsgBox("Data Ditemukan")

Else

MsgBox("Data Tidak Ditemukan")

End If

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

Me.Close()

End Sub

End Class

    Berakhir sudah postingan saya kali ini, terimakasih untuk kunjungan anda pada blog saya..
Maaf jika ada kesalahan tataan bahasa. :)

Return Value Function, Overloading Function & Beberapa Function Bawaan Visual Basic

RETURN VALUE FUNCTION

Buatlah Program dengan Tampilan Form seperti Gambar diatas, dan setelah itu Tuliskan Coding dibawah ini :

Public Class Form1

Private Function fstat(ByVal ParamArray args() As Object) As Single()

Dim Hasil(3) As Single

Dim i As Integer

For i = 0 To UBound(args)

Hasil(0) = Hasil(0) + args(i)

If i = 0 Then

Hasil(1) = args(i)

Hasil(2) = args(i)

End If

If Hasil(1) > args(i) Then Hasil(1) = args(i)

If Hasil(2) < args(i) Then Hasil(2) = args(i)

Next

Return Hasil

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)

TextBox1.Text = statistik(0)

TextBox2.Text = statistik(1)

TextBox3.Text = statistik(2)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Dari pengkodean diatas kita akan memperoleh hasil gambar yang menunjukan hasil pengeksekusian dari yang terbesar 1 dan terkecil 10 yang seharusnya terbesar 10 dan terkecil 1. Untuk mendapatkan hasil yang tepat dan benar, ketikan sintak dibawah ini dengan tampilan form yang sama.

Public Class Form1

Private Function fstat(ByVal ParamArray args() As Object) As Single()

Dim Hasil(3) As Single

Dim i As Integer

For i = 0 To UBound(args)

Hasil(0) = Hasil(0) + args(i)

If i = 0 Then

Hasil(1) = args(i)

Hasil(2) = args(i)

End If

If Hasil(1) < args(i) Then Hasil(1) = args(i)

If Hasil(2) > args(i) Then Hasil(2) = args(i)

Next

Return Hasil

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)

TextBox1.Text = statistik(0)

TextBox2.Text = statistik(1)

TextBox3.Text = statistik(2)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Mengapa Dengan Coding diatas menghasilkan Hasil seperti itu?
Penjelasanya adalah pada Button1 ( Hasil ) diatas dituliskan sebuah program Array yang jumlahnya ada 10 digit angka, dan terdapat Function Looping, yang menghailkan sebuah informasi Total, Terbesar, dan Terkecil dari Array yang ada pada Button1( Hasil ).

                           
                                                 OVERLOADING FUNCTION

Public Class Form1

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer

hitung = bil1 + bil2

End Function

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer

hitung = bil1 + bil2 + bil3

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = hitung(1, 2, 3)

End Sub

End Class

Hasil setelah di run (F5) untuk source diatas.

Langkah 1

Overloading akan mengecek terlebih dahulu jumlah parameter ketika memanggil fungsi yang dioverload dalam kasus ini fungsi hitung, terutama saya akan membahas yang Dua Parameter.

TextBox1.Text = hitung(1, 2)

Ternyata banyaknya parameter yang digunakan adalah sebanyak 2 parameter yaitu 1 dan 2, maka program akan mencari fungsi "hitung" yang mana yang memiliki jumlah parameter 2 ternyata fungsi "hitung" yang di bawah.

Langkah 2

Setelah melakukan pengecekan banyaknya parameter maka program akan mencocokkan tipe data dari parameter yang dilewatkan, apakah sesuai dengan parameter yang ditentukan atau tidak, jika tidak sesuai maka program akan berusaha untuk mengkonversinya menjadi tipe data yang sudah disyaratkan dalam hal ini parameter sudah ditentukan harus bertipe Integer.

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer

Langkah 3

Setelah dirasa semua syarat terpenuhi maka program akan menjalankan fungsi yang paling mendekati dengan fungsi yang dipanggil dalam kasus ini

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer

hitung = bil1 + bil2

End Function

Maka sudah pasti textbox akan menampilkan angka 3. Tetapi jika fungsi yang dipanggil anda rubah menjadi 3 parameter maka hasilnya akan 6.

FUNCTION BAWAAN VISUAL BASIC 2010

Di dalam visual basic 2010 sebenarnya banyak sekali function-function yang sudah terpadu dalam bahasa pemrograman ini, dan contohnya adalah sebagai berikut :

• Asc()

Mengembalikan nilai integer dari parameter yang berupa karakter, bisa dibilang akan menghasilkan kode ASCII dari karakter yang dijadikan parameter

• AscW()

Sama seperti Asc() hanya saja parameter yang dgunakan adalah bertipe string

• BeginInvoke()

Mengeksekusi sebuah thread secara pesifik

• CallByName()

Mengeksekusi sebuah method dalam sebauah objek, atau mengeset atau mengembalikan sebuah property dari sebuah objek

• CBool()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe boolean

• CByte()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data byte

• CChar()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data character

• CDate()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data date

• CDbl()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data double

• CDec()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data decimal

• Choose()

Memilih dan mengembalikan sebuah nilai dari sekumpulan argument

• Chr()

Mengembalikan sebuah karakter dari kode/parameter yang digunakan.

• ChrW()

sama seperti Chr ( Mengembalikan sebuah karakter dari kode/parameter yang digunakan )

• CInt()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data integer

• cLng()

Mengkonversi sebuah ekspresi / parameternya menjadi tipe data long

• CObj()

Mengkonversi sebuah ekspresi / parameternya menjadi tipe objek

• Contains()

Mengembalikan sebuah nilai apakah control yang dimaksud adalah anak/turunan dari sebuah control

• CreateGraphics()

Membuat System,Drawing.Graphics pada sebuah control

• CSByte()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data SByte

• CShort()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data short

• CSng()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data Single

• CStr()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data String

• CUInt()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data UInteger

• CULng()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data ULong

• CurDir()

Mnegembalikan sebuah string yang menggambarkan sebuah path

• CUShort()

Mengkonversi sebuah ekspresi/parameternya menjadi tipe data UShort

• DoDragDrop()

Memulai aksi drag and drop

• Environ()

Mengembalikan string yang menunjukan operasi sitem yang bekerja

• EOF()

Mengembalikan niai true jika akhir dari file sudah tercapai

• Err()

Memuat informasi tentang Run Time Error

• ErrorToString()

Mengembalikan pesan error yang terkoresponden dengan nomer error

• FreeFile()

Mengembalikan sebuah nilai integer yang menggambarkan nomer urut dari file berikutnya yang tersedia untukdigunakan untuk fungsi FileOpen

• GetChar()

Mengembalikan nilai char dari suatu index sebuah string

• GetTopLevel()

Mengembalikan nilai true jika sebuah control berada pada level tertinggi

• GetType()

Mendapatkan System.Type dari instance yang aktif

• Hex()

Mengembalikan sebuah string yang menampilkan nilai heksadesimal dari parameter yang digunkan

• Hour()

Mengembalika sebuah angka dari 0 hingga 23 yang menandakan jam dalam 1 hari

• Int()

Mengembalikan senuah porsi integer dari sebuah angka

• IsArray()

Mengembalikan sebuah pernyataan apakah parameter merupakan array atau bukan

• IsDate()

Mengembalikan sebuah pernyataan apakah parameter merupakan date atau bukan

• LBound()

Mengembalikan indeks dari batas terbawah sebuah array

• LCase()

Mengembalikan string ataupun character yang sudah diubah ke lowercase

• Len()

Mengembalikan sebuah angka yang menunjukkan panjangnya sebuah string

• Mid()

Mengembalikan string yang berada di tengah kata

• Minute()

Mengembalikan angka dari 1 sampai 59 dalam satu jam

• Month()

Mengembalikan angka dari 1 sampai 12 dalam satu tahun

• MsgBox()

Mengembalikan sebuah objek berupa message box

• Oct()

Mengembalikan sebuah string yang menampilkan nilai octal dari parameter yang digunkan

• QBColor()

Mengembalikan kode warna RGB dari angka pada parameter yang digunakan

• Rnd()

Mengembalikan sebuah angka bertipe single yang telah diacak

Dari contoh diatas dapat dikelompokan menjadi berikut ini :

~ Fungsi String

Left → mengambil karakter dari sebelah kiri

Right → mengambil karakter dari sebelah kanan

Mid → mengambil karakter dari tengah

LTrim → membuang semua semua awal spasi yang ada disebelah kiri

RTrim → membuang semua semua awal spasi yang ada disebelah kanan

Trim → membuang semua spasi yang ada disebelah kiri dan kanan

Len → memberikan nilai balik integer sebagai panjang string

LCase → mengubah string menjadi huruf kecil semua

UCase → mengubah string menjadi huruf besar semua

Str (int) → mengubah bilangan menjadi string (konversi)

Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter

~ Fungsi Matematika

Val (Str) → konversi string menjadi integer

Asc(Char) → konversi karakter menghasilkan nilai ascii

Abs(Number) → memberikan nilai mutlak dari suatu nilai negatif

Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal

Sqr(Number) → memberikan hasil akar kuadrat dari suatu nilai

Tan() → mengembalikan nilai tangen dari argument dalam radian

Cos() → mengembalikan nilai cosinus dari argument dalam radian

Atn() → mengembalikan nilai arc tangen dari argument dalam bentuk radian

Long() → mengembalikan nilai logaritma dari argument

CInt() → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat

Fix() → pemotongan suatu nilai decimal menjadi integer

Int() → pembulatan ke bawah suatu nilai decimal

~ Fungsi Tanggal dan Waktu

Date()               → mengambil tanggal system komputer

IsDate\             → memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal

DateValue\      → konversi string menjadi date

D(Date),M(Date),Y(Date) → memberikan nilai integer dari Variabel Date untuk hari, bulan dan tahun

Time()              → mengambil waktu dari system komputer

H(Date),M(Date),S(Date) → memberikan nilai integher dari variable date untuk jm, menit dan deik

TimeValue(str) → konversi string ke variable date