Kumpulan Tugas VB

1. http://herunmalilangberbangkit.blogspot.com/2013/01/koneksi-database-dengan-visual-basic.html
2. http://herunmalilangberbangkit.blogspot.com/2012/12/function-dengan-return-value-berupa.html
3. http://herunmalilangberbangkit.blogspot.com/2012/12/tugas-ke-7_3354.html
4. http://herunmalilangberbangkit.blogspot.com/2012/10/perualangan.html
5. http://herunmalilangberbangkit.blogspot.com/2012/10/analisa-dan-memperbaiki-program.html
6. http://herunmalilangberbangkit.blogspot.com/2012/10/analisa-program-praktikum-ke-2.html
7. http://herunmalilangberbangkit.blogspot.com/2012/10/tugas-pemrograman-1-aplikasi-penghitung.html

Koneksi database dengan visual basic 2010

Koneksi Data Base dengan Visual Basic 2010

salam sejahtea untuk kita semua, pada kesemapatan yang baik ini, kami akan berbagi tentang koneksi data base dengan visual basic 2010.

semoga bermanfaat untuk kita semua.

salah satu yang harus diperhatikan sebelum kita membuat program ini adalah, kita sudah meyakinkan diri bahwa kita sudah menyiapkan data base yang nantinya akan dikoneksikan dengan visual basic 2010.

langsung saja, mari kita perhatikan antarmuka program yang akan kita buat, dibawah ini.

baik, dapat kita lihat bersama, bahwa pada gambar tersebut dapat dilihata bahwa antarmuka aplikasi tersebut terbangun atas beberapa tool yang ada pada visual basic 2010.

kemudian, langsung saja, mari kita lihat aplikasi apabila dijalankan.

================================================================================================================================================

listing program :

Public Class Form1
    Dim urut As Integer = 1

    Private Sub TbmhsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmhsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TbmhsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)

    End Sub

    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 'DbherunDataSet.tbmhs' table. You can move, or remove it, as needed.
        Me.TbmhsTableAdapter.Fill(Me.DbherunDataSet.tbmhs)
        Dim hidup As Windows.Forms.Control
        For Each hidup In Me.Panel1.Controls
            If (hidup.GetType.Name <> "Label") Then
                hidup.Enabled = False
            End If
        Next

    End Sub

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

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If (TbmhsBindingSource.Count = 0) Then

            MsgBox("Untuk sementara tidak ada data yang tersedia", vbOKOnly + vbInformation, "Peringatan")
        Else
            Dim search As String
            search = InputBox("Insert Name", "Search Name")
            If (TbmhsBindingSource.Find("Nama", search)) > -1 Then
                MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
                Me.TbmhsBindingSource.Position =
                    TbmhsBindingSource.Find("Nama", search)
                urut = TbmhsBindingSource.Find("Nama", search) + 1
            Else
                MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
            End If
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim mex As Integer = TbmhsBindingSource.Count
        If (mex = 0) Then
            MsgBox("Untuk Sementara belum ada data yang tersedia", vbOKOnly + vbInformation, "Peringatan")
        Else
            If (urut = mex) Then
                MsgBox("Ini adalah data yang terakhir", vbOKOnly + vbInformation, "Peringatan")
            Else
                TbmhsBindingSource.MoveNext()
                urut += 1
            End If
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If (TbmhsBindingSource.Count = 0) Then
            MsgBox("Untuk sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
        Else
            If (urut = 1) Then
                MsgBox("Ini adalah data yang pertama", vbOKOnly + vbInformation, "Peringatan")
            Else
                TbmhsBindingSource.MovePrevious()
                urut -= 1
            End If

        End If
    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If (TbmhsBindingSource.Count = 0) Then
            MsgBox("Untuk sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
        Else
            TbmhsBindingSource.MoveFirst()
            urut = 1
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If (TbmhsBindingSource.Count = 0) Then
            MsgBox("Untuk sementara belum ada data yang diisikan", vbOKOnly + vbInformation, "Peringatan")
        Else
            TbmhsBindingSource.MoveLast()
            urut = TbmhsBindingSource.Count
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hidup As Windows.Forms.Control
        For Each hidup In Me.Panel1.Controls
            If (hidup.GetType.Name <> "Label") Then
                hidup.Enabled = True
            End If
        Next
        TbmhsBindingSource.AddNew()
        Button2.Enabled = True
        Button1.Enabled = False
        NIMTextBox.Focus()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If urut = TbmhsBindingSource.Count Then
            urut -= 1
        End If
        If (TbmhsBindingSource.Count = 0) Then
            MsgBox("Untuk Sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
        Else
            If (MsgBox("Apakah anda yakin akan mengahapus data tersebut ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")) = vbYes Then
                TbmhsBindingSource.RemoveCurrent()
                Me.Validate()
                Me.TbmhsBindingSource.EndEdit()
                Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
            End If

            End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            urut = TbmhsBindingSource.Count
            Me.Validate()
            Me.TbmhsBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
            Dim hidup As Windows.Forms.Control
            For Each hidup In Me.Panel1.Controls
                If (hidup.GetType.Name <> "Label") Then
                    hidup.Enabled = False
                End If
            Next
            Button1.Enabled = True
            Button2.Enabled = False
        Catch ex As Exception
            MsgBox("NIM sudah ada", vbOKOnly + vbCritical, "Peringatan")
            NIMTextBox.Focus()
            TbmhsBindingSource.RemoveCurrent()
            Me.Validate()
            Me.TbmhsBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
            Button1.Enabled = True
            Button3.Enabled = False
            urut -= 1
        End Try
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If (ComboBox1.Text = "Admin") Then
            Label2.Visible = True
            TextBox1.Visible = True
        ElseIf (ComboBox1.Text = "User Biasa") Then
            Dim hidup As Windows.Forms.Control
            For Each hidup In Me.Panel1.Controls
                If (hidup.GetType.Name <> "Label") Then
                    hidup.Enabled = False
                End If
            Next
            Label2.Visible = False
            TextBox1.Visible = False
            GroupBox1.Enabled = False

        End If
    End Sub

   
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If (TextBox1.Text = "herun") Then
            GroupBox1.Enabled = True
        Else
            GroupBox1.Enabled = False
        End If
    End Sub
End Class

demikian semoga bermanfaat untuk kita semua.

amin...

Function dengan return value berupa array, overloading dan fungsi bawaan pada visual basic.

Function dengan return value berupa array, Overloading Function

dan Fungsi bawaan pada Visual Basic 2010.

Penjelasan Program

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

·         Baris koding di atas menunjukan pendeklarasian sebuah sub program berupa function dengan variabel fstat. Deklarasi function di atas menggunakan paramater ByVal yang berarti melewatkan parameter secara nilai dan bertipe data Single (bulat).

·         Deklarasi di atas hanya bisa diekanali di lokal form. Itu dapat dilihat dari penyebutan private di awal deklarasi.

Dim hasil(3) As Single

Dim i As Integer

·         Baris koding diatas adalah sebuah pendeklarasian variabel dengan nama hasil. 3, merupakan jumlah teratas pada array atau Ubound. Dan tipe data yang digunakan adalah Single.

·         Dim i As Integer bermaksud, pendeklarasian variabel bernama i dengan tipe data integer.

For i = 0 To UBound(args)

·         Koding diatas menjelaskan perulangan untuk i=0 sampai batas teratas dari Array (Ubound)

hasil(0) = hasil(0) + args(i)

·         Dapat dijelaskan bahwa hasil(0)=hasil(0) kerena perulangan belum dimulai dan args(i)= nilai dari indeks array ke i

If i=0 Then

·         Artinya jika i=0, maka lakukan perintah

hasil(1)=args(i)

·         hasil1 = nilai dari indeks ke i

hasil(2)=args(i)

·         hasil2 = nilai dari indeks ke i

End If

·         perintah diakhiri apabila i tidak sama dengan 0

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

·         jika hasil 1 lebih besar dari nilai i maka hasil 1 dari indeks ke i

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

·         jika hasil 2 lebih kecil dari nilai i maka hasil 2 dari indeks ke i

Next i

Return hasil

·         Kembali ke hasil

End Function

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

·         Method pada button1_Click

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

·         Pendeklarasian variabel dengan nama statistik dengan tipe data single. Dan nilai array pada indeks ke 0=1.

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

·         Textbox satu sampai ke tiga akan bernilai statistik dari indeks ke 0

End Sub

Saat Program dijalankan

Kode Program secara lengkap

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)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

    End Sub

End Class

==========================================================================================================================================================================================

Overloading Function

Contoh 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)

    End Sub

End Class

Penjelasan Program:

Pada contoh program di atas, ada dua sub program yang sama namun masing-masing memiliki variabel yang berbeda.

cara kerjanya adalah:

hasil yang akan diberikan di atas tergantung dari berapa variabel yang kita berikan saat memangil sub program.

pada contoh di atas, saya berikan 2. yang artinya, program akan mengksekusi function yang pertama. namun apa bila kita pesan pada pemanggilan sub progaram sejumlah 3, maka sub program yang akan di eksekusi adalah yang ke 2.

==========================================================================================================================================================================================

Macam-macam fungsi bawaan pada Visual basic 2010 

1. Fungsi Numerik

Fungsi pembulatan angka.

Contoh penggunaan program :

2. Fungsi Matematika

- fungsi-fungsi yang berkaitan dengan tujuan matematis terdapat dalam class math.

- pemanggilan fungsi ini harus diawalai (prefiks) math.

Contoh fungsi matematika:

3. Fungsi string

Adalah fungsi yang digunakan untuk operasi string.

a. Fungsi String Lcase() dan Ucase()

- Lcase()

akan mengembalikan suatu string dalam tipe huruf kecil (lowercse)

- Ucase()

akan mengembalikan suatu string dalam tipe huruf besar (upercase)

- Contoh

Dim inStr As String ="Ikut Kuliah Pak Nandang"

Dim outStr As String

‘mengembalikan "ikut kuliah pak nandang"

outStr = LCase(inStr)

‘mengembalikan "IKUT KULIAH PAK NANDANG"

outStr = Ucase(inStr)

b. Fungsi String Left(), Mid() dan Right()

Ketiga  fungsi  ini  mengembalikan  substring dengan  jumlah  karakter  yang  telah  ditentukan dari  suatu  argumen. 

Pengambilan  karakter  ini dimulai dari sisi paling kiri (Left), dari sisi paling kanan (Right), atau dari urutan tertentu.

- Contoh

Dim inString As String = “Hai, Dunia!”

‘mengembalikan "Hai"

Left(inString, 3)

‘mengembalikan "Dunia!"

Right(inString, 6 

‘mengembalikan "Hai"

Mid(inString, 1, 3)

‘mengembalikan "Dun"

Mid(inString, 6, 8)

c.  Fungsi String  Len()

Mengembalikan nilai integer yang merupakan panjang string

- Contoh 

Dim inStr As String = "Hai, Dunia!"

'mengembalikan 11

Dim outStr As Integer = Len (inStr)

d. Fungsi String Ltrim(), Rtrim(), Trim()

- mengembalikan suatu string tanpa menyertakan spasi yang terletak sebelumnya (LTrim), spasi yang terletak setelahnya (RTrim), atau spasi yang terletak sebelum dan setelahnya (Trim).

- Contoh

Dim inStr As String = " <-Alpro-> "

Dim outStr As String

outStr = LTrim(inStr)

outStr = RTrim(inStr)

outStr = LTrim(RTrim(inStr))

outStr = Trim(inStr)

e. Fungsi string Replace()

Mengembalikan suatu string dimana suatu substring pada argumen tersebut telah digantikan oleh substring yang lain.

- Contoh

Dim inString As String = "Shopping List"

Dim outString As String = _

Replace (inString, "o", "i")

f. Fungsi string StrComp()

Mengembalikan -1,0 atau 1 berdasarkan hasil dari perbandingan dua string. Opsi metode perbandingan dapat menggunkan text (lower atau upercase dihirraukan) atau binary (lower atau upercse diperhatikan).

- Contoh

Dim inStr1 As String = "ABCD"

Dim inStr2 As String = "abcd"

Dim inStr3 As String = 

outStr = StrComp (inStr1, inStr2, _ CompareMethod.Text)

outStr = StrComp (inStr1, inStr2, _ CompareMethod.Binary)

outStr = StrComp (inStr1, inStr2)

g. Fungsi String StrReverse()

Mengembalikan suatu string yang mempunyai karakter sama dengan argumen, tetapi dengan urutan yang berkebalikan.

- Contoh 

Dim inStr As String = "ABCDEFG"

Dim outStr As String = StrReverse (inStr)

h. Fungsi String StrDup()

Mengembalikan suatu string yang terdiri dari karakter yang berulang. Karakter yang diulang ini merupakan karakter awal dari string yang menjadi argumen.

- Contoh

Dim inStr As String = "Hai, Dunia !"

Dim outStr As String

outStr = StrDup (9, "s")

tugas ke 7

bismillah...
kali ini kita akan belajar membuat.....
kita lihat aja langsung...
ni tampilan awalnya...
jreng jreng jreng...

nah... kira-kira gimanaya buatnya,,,,

nyok kita simak bareng--------

pertama yang harus kita sadari adalah... tampilan tersebut muncul karena... adanya tambahan library..

apakah librarynya... DotNetBarSetupTrial.msi. ini bentuknya .msi jadi harus diinstal terlbih dahulu.

tapi kalo yang ekstensinya .dll si ga usah diinstal... tinggal dipasangin aja...

kalo udah sukses tu ya.. lihat ditoolboxnya.
kira-kira kaya gini..

nah kan.........

oke deh.... kita langsung buat projectnya. tentunya sudah pada tahu donk gimana caranya buat project baru.

1. buat project baru dengan nama terserah kamu

2. setelah muncul form baru

3. tambahkan ribbon control yang ada pada toolbox bagian DotNetBar

udah to yo...

4. setalah udah ditari itu ribbom control.. tinggal deh diatur-atur sesuai kebutuhan.

5. udah to... sekaran untuk membuat BubbleBarnya...

udah kan...

sekarang kita akan membuat agar form tersusun vertikal, horizontal dan cescade.

namun terlabih dahulu.. di properties form pilih isMDIcontainer kemudian set menjadi true ya,

let's go.

1. membuat form menjadi veritkal

codingnya :

Me.LayoutMdi(MdiLayout.TileVertical)



2. membuat horizontal form set

Codingnya :

Me.LayoutMdi(MdiLayout.TileHorizontal)
3. membuat cescade form set

 codingnya :

Me.LayoutMdi(MdiLayout.TileCescade)
4. selanjutnya kita buat coding untuk memanggil form-form yang kita telah buat.
saya beri contoh satu..

Form2.MdiParent = MeForm2.Show()
itu artinya form dipanggil dan akan ada di dalam Mdinya...

cukup sekian semoga bermanfaat.