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

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

Tugas VB 7

 MEMBUAT MENU VARIASI DAN FORM MDI PADA 

VB 2010

Pada Post ini saya memosting program membuat menu dan mdi form pada vb 2010,dengan ketentuan sebagai berikut :

1. Pengaturan menu form menggunakan MDI Form,MDI child.

     -Horizontal

     -Vertikal

     -Cascade

2. Membuat tampilan toolstrip di atas menustrip

3.Membuat Menu tambahan menggunakan Library pada VB 2010.

1. Pengaturan menu form menggunakan MDI Form, MDI Child (Horisontal, vertikal, Cascade)

     

Berikut kodenya :

Private Sub SatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SatuToolStripMenuItem.Click

        Form3.Show()

        Form3.MdiParent = Me

    End Sub

    Private Sub DuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DuaToolStripMenuItem.Click

        Form4.Show()

        Form4.MdiParent = Me

    End Sub

    Private Sub TigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TigaToolStripMenuItem.Click

        Form5.Show()

        Form5.MdiParent = Me

    End Sub

    Private Sub EmpatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmpatToolStripMenuItem.Click

        Form6.Show()

        Form6.MdiParent = Me

    End Sub

    Private Sub LimaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimaToolStripMenuItem.Click

        Form7.Show()

        Form7.MdiParent = Me

    End Sub

    Private Sub HorisontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

Hasil 

HASIL

- Cascode 

-Horizontal

-Vertical

2. Membuat tampilan toolstrip di atas menustrip

    -klik kanan toolstripnya 

    -klik send to back

Hasil

Cukup kita lakukan penge-klikan pada Tool Strip dan Menu Strip seperti pada

gambar di atas .Atur posisi sesuai yang anda inginkan pada Dock atau bisa juga   menggunakan
 Anchor

3. Membuat Menu tambahan menggunakan Library pada VB 2010

  Membuat menu ribbon

1. download terlebih dahulu library dengan nama dotnebar, kemudian instal

2. drag and drop file yang berekstensi .dll ke toolbox pada vb.net 2010.maka menu ribbon   muncul di toolbox.

3. buat tampilan sesuka kita.

Tugas VB 5

 MEMBUAT MENU VARIASI DAN FORM MDI PADA 

VB 2010

Pada Post ini saya memosting program membuat menu dan mdi form pada vb 2010,dengan ketentuan sebagai berikut :

1. Pengaturan menu form menggunakan MDI Form,MDI child.

     -Horizontal

     -Vertikal

     -Cascade

2. Membuat tampilan toolstrip di atas menustrip

3.Membuat Menu tambahan menggunakan Library pada VB 2010.

1. Pengaturan menu form menggunakan MDI Form, MDI Child (Horisontal, vertikal, Cascade)

     

Berikut kodenya :

Private Sub SatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SatuToolStripMenuItem.Click

        Form3.Show()

        Form3.MdiParent = Me

    End Sub

    Private Sub DuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DuaToolStripMenuItem.Click

        Form4.Show()

        Form4.MdiParent = Me

    End Sub

    Private Sub TigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TigaToolStripMenuItem.Click

        Form5.Show()

        Form5.MdiParent = Me

    End Sub

    Private Sub EmpatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmpatToolStripMenuItem.Click

        Form6.Show()

        Form6.MdiParent = Me

    End Sub

    Private Sub LimaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimaToolStripMenuItem.Click

        Form7.Show()

        Form7.MdiParent = Me

    End Sub

    Private Sub HorisontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

Hasil 

HASIL

- Cascode 

-Horizontal

-Vertical

2. Membuat tampilan toolstrip di atas menustrip

    -klik kanan toolstripnya 

    -klik send to back

Hasil

Cukup kita lakukan penge-klikan pada Tool Strip dan Menu Strip seperti pada

gambar di atas .Atur posisi sesuai yang anda inginkan pada Dock atau bisa juga   menggunakan
 Anchor

3. Membuat Menu tambahan menggunakan Library pada VB 2010

  Membuat menu ribbon

1. download terlebih dahulu library dengan nama dotnebar, kemudian instal

2. drag and drop file yang berekstensi .dll ke toolbox pada vb.net 2010.maka menu ribbon   muncul di toolbox.

3. buat tampilan sesuka kita.