MACAM - MACAM FUNCTION BAWAAN

h3 style="text-align: justify;">

Function bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

Adapun cara untuk

mendeklarasikan atau syntax penulisan dari function procedure adalah sebagai berikut :

Private/Publik function nmfu (byref/byval/optional/paramarray nmparam as type)type data
..........baris perintah.........
End Function

Cara pemanggilan sebuah fungsi dapat dilakukan melalui beberapa cara, yaitu;

• Variabel = nama Function Procedure
• Call NamaFunctionProcedure (Parameter)
• NamaFunctionProcedure (Parameter)

Macam-macam fungsi bawaan

Dalam VB juga terdapat fungsi-fungsi bawaan yang bisa digunakan secara langsung. Ada sejumlah fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu Textbox menjadi tipe data Numeric agar dapat digunakan untuk operasi perhitungan.

Fungsi yang berkaitan dengan matematika diantaranya:

Fungsi untuk mengkonversi ke integer
Ada tiga macam fungsi yang melakukan konversi ke tipe integer,antara lain

• Int()            Yaitu pembulatan kebawah suatu nilai decimal
• Fix()           Yaitu pemotongan suatu nilai desimal menjadi integer
• Cint()          Yaitu pembulatan nilai desimal 0.5 atau lebih ke integer yang lebih dekat

contoh pendeklarasian pada Int

Dim bil As Double
        bil = Int(Val(TextBox1.Text))
        TextBox2.Text = bil

contoh diatas berlaku juga untuk Fix dan Cint

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-fungsi matematika

• Abs()        Mengembalikan nilai Absolut dari argumen
• Atn()         Mengembalikan nilai arc tangen dari argumen dalam bentuk radian
• Cos()         Mengembalikan nilai cosinus dari argumen dalam radian
• Exp()         Mengembalikan nilai Eksponensial dari argumen
• Log()         Mengembalikan nilai logaritma dari argumen
• Sin()           Mengembalikan nilai sinus dari argumen dalam radian
• Sqr()          Mengembalikan nilai akar dari argumen
• Tan()          Mengembalikan nilai tangen dari argumen dalam radian

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
• Time()                               mengambil waktu dari system komputer
• TimeValue(str)                   konversi string ke variable date 
• D(Date),M(Date),Y(Date) memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun
• H(Date),M(Date),S(Date) memberikan nilai integher dari variable date untuk jm, menit dan deik

Sekian penjelasan dari beberapa macam-macam function bawaan yang terdapat dalam VB yang sering kita gunakan.

 

TUGAS 8

!--[if !mso]>

FUNCTION DENGAN RETURN VALUE BERUPA ARRAY

    Ø LISTING PROGRAM

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 i

        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)

       End Sub

       End Class

     Ø  TAMBAHAN CODING

        Tambahkan listing program berikut ini di button 1

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

 

   Ø DESAIN FORM

                   

SEBELUM DI RUN

     

SETELAH DI RUN

Penjelasan:

                Sub Program “Function” ini memberikan umpan balik berbentuk nilai, sehingga bisa mendapatkan hasil sesuai dengan isi programnya yang ingin dibuat.

Keterangan :

1.   ParamArray args() As Object) As Single()

   

         Pada kata “args()” adalah sebuah nama parameter array. Dan pada kata “single()” adalah sebuah type data ( semua itu adalah lambang dari array, dan harus di tambahkan jika menggunakan array)

2.      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)

        Pada kata “ hasil(3)” merupakan sebuah parameter, terdapat 3 parameter, yaitu 0,1, dan 2

3.    

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

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

       Menentukan Terbesar dan Terkecil

4.     Return hasil

        Memanggil hasil

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

       Kata “single()” menunjukan bahwa tipe data digunakan lebih lebih dari 1 / untuk penggunaan array.

6.   TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

 Deklarasi program untuk menampilkan di textbox.

       

OVERLOADING FUNCTION

Ø    LISTING PROGRAM

Public Class Form2

    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

Ø    Tambahan Coding

Tambahkan listing program berikut ini di button 1

        TextBox2.Text = hitung(1, 2)

        TextBox3.Text = hitung(0, 1)

      Ø   DESAIN FORM

SEBELUM  DI RUN

SETELAH DI RUN

(sebelumnya masih kosong di bagian  textboxnya , lalu klik Button1) maka akan muncul form berikut ini

DAFTAR TUGAS VISUAL BASIC

NAMA  : TITIK YULI S
NIM      : 11.11.2605
KELAS : TI 11 D

TUGAS 1
TUGAS 2
TUGAS 3
TUGAS 4
TUGAS 5
TUGAS 8 bagian 1
TUGAS 8 bagian 2
TUGAS 9

DAFTAR TUGAS VISUAL BASIC

NAMA  : TITIK YULI S
NIM      : 11.11.2605
KELAS : TI 11 D

TUGAS 1
TUGAS 2
TUGAS 3
TUGAS 4
TUGAS 5
TUGAS 8 bagian 1
TUGAS 8 bagian 2
TUGAS 9

TUGAS 9

MENGKONEKSIKAN DATABASE dengan VB 2010

1. Sebelum kitamengkoneksikan  sistem database kedalam visual basic 2010 kita harus memiliki program pengolah database terlebih dahulu kali ini  menggunakan MSQL Server 2005.
2. Buka SQL Server 2005 kemudian login -> conect.
3. Buat datadase baru, klik kanan pada database -> new database -> beri nama dan pilih lokasi penyimpanan -> ok. seperti gambar berikut.

4. Pada database datamahasiswa buat tabel baru. klik kanan pada tabel -> pilih new table. seperti gambar berikut.

 

5. klik kanan pada tabel yang baru dibuat pilih modify. isikan seperti gambar dibawah.

 6. Isi tabel, klik kanan -> open table. isi seperti berikut. Kemudian save beri nama tabel.

7. Buka Visual Basic 2010, buat project baru. pilih menu data -> add new data source -> database -> dataset.

8. New conection pilih SQL server 2005. Isikan seperti berikut.




9. Centang pada tabel.



10. Maka akan tampil data sources. pada jurusan pilih combobox.

11. Drag and drop data sources kedalam form kemudian hapus tombol-tombol navigasinya.

 

12. Desain form seperti berikut. Juga tambahkan button-button yang diperlukan

.

Coding program :

-> Button "Pertama"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TbmahasiswaBindingSource.MoveFirst()
    End Sub

-> Button "Sebelumnya"
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TbmahasiswaBindingSource.MovePrevious()
    End Sub

-> Button "Selanjutnya"
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TbmahasiswaBindingSource.MoveNext()
    End Sub

-> Button "Terakhir"
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.TbmahasiswaBindingSource.MoveLast()
    End Sub

-> Button "Tambah"
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.TbmahasiswaBindingSource.AddNew()
    End Sub

-> Button "Simpan"
    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.DatamahasiswaDataSet)
    End Sub

-> Button "Hapus"
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.TbmahasiswaBindingSource.RemoveCurrent()
    End Sub

-> Button "Pencarian nama"
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim carinama As String
        Dim posisi As Integer = 1

        carinama = InputBox("Masukkan Nama", "Cari Nama")

        If (TbmahasiswaBindingSource.Find("Nama", carinama)) > -1 Then
            MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
            Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)
            posisi = TbmahasiswaBindingSource.Find("Nama", carinama) + 1
        Else
            MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
        End If
    End Sub

-> Button "Keluar"
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If (MsgBox("Anda yakin ingin keluar ?", vbQuestion + vbYesNo + vbDefaultButton2, "Keluar")) = vbYes Then
            Me.Close()
        End If
    End Sub