Tugas 9 Visual Basic

Tugas 9

Cara membuat aplikasi database menggunakan Visual Basic dan SQL server, langkah-langkahnya yaitu :

1.      Membuat dbmahasiswa menggunakan sql server, yg seperti dibawah ini,

2.      isilah tabel berukut pada dbmahasiswa,

3.      kemudian kita buat form pada Visual Basic, yang hasilnya seperti dibawah ini,

4.      Lalu setelah kita buat kita masukkan codingnya seperti ini,

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

        Me.Close()

    End Sub

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

        TbmahasiswaBindingSource.AddNew()

    End Sub

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

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

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

        TbmahasiswaBindingSource.MoveNext()

    End Sub

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

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

        TbmahasiswaBindingSource.MoveLast()

    End Sub

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

        TbmahasiswaBindingSource.RemoveCurrent()

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        Me.Validate()

    End Sub

End Class

5.      Setelah kita buat lalu hubungkan dengan sql server melalui klik data lalu pilih add new data source,

  Setelah selesai, lalu jalankan aplikasi tersebut dan hasilnya seperti ini :

TUGAS 8

langkah pertama dalam membuat form adalah buka dan masuk visual basic dan buat form baru. Katakanlah form 1. Dalam form 1 , masukan 1 button , 3 label dan 3 text box. Atur sesuai perintah.

 

Kodingnya sebagai berikut :

Public Class Form1

    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 Function fstat(ByVal ParamArray arg() As Object) As Single()

        Dim hasil(3) As Single

        Dim i As Integer

        For i = 0 To UBound(arg)

            hasil(0) = hasil(0) + arg(i)

            If i = 0 Then

                hasil(1) = arg(i)

                hasil(2) = arg(i)

            End If

            If hasil(1) < arg(i) Then hasil(1) = arg(i)

            If hasil(2) > arg(i) Then hasil(2) = arg(i)

        Next i

        Return hasil

    End Function

End Class

Pada If hasil(1) > arg(i) Then hasil(1) = arg(i)

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

Akan menghasilkan hasil yang salah bahkan terbalik, ditemukannya adalah nilai terbesarnya 1 dan terkecilnya 10, maka dari itu koding di atas d rubah jadi begini

If hasil(1) < arg(i) Then hasil(1) = arg(i)

If hasil(2) > arg(i) Then hasil(2) = arg(i)

  

Dan akan terlihat hasilnya seperti ini :

 

 

 

Kemudian yang overloading function :

Buat form baru dan di dalam form ada 1 label , 1 text box dan 1 button

Public Class Form4

    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

    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

 

End Class

Dan hasilnya seperti ini :

 

 

 

 

Artinya, saat di tekan button hitung makan akan keluar hasilnya = 6.

Dikarenakan menjumlahkan bil1+bil2+bil3.

Penjelasan sedikit mengenai fungsi :

Nmfu : nama function

Byrev : melewatkan parameter secara referensi

Byval : melewatkan parameter secara nilai

Optional : nilai parameter boleh tidak diisi

Paramarray : parameter berupa array

Namapara : nama parameter

Overloading function : beberapa function punya nama sama tp beda parameter.

Macam-macam function :

Function adalah sekumpulan statement dari visual basic yang diberi nama yang menghasilkan nilai balik.  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.

1)      Fungsi Numerik

a)      Fungsi konversi integer

b)      Fungsi konversi tipe data

c)      Fungsi konversi matematika

2)      Fungsi String

a)      Fungsi tanggal dan waktu

b)      Fungsi penghitung usia