TUGAS 4

PEMROGRAMAN VISUAL

• Membuat Program Fibonanci               

Buatlah desain Form seperti di bawah ini :

• Lalu setelah dibuat isikan coding di bawah ini ke dalam Listbox1 :

Public Class Form1

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

        Dim fibo(19) As Integer

        Dim ulang As Integer

        fibo(0) = 1

        fibo(1) = 1

        For ulang = 2 To 19

            fibo(ulang) = fibo(ulang - 2) + fibo(ulang - 1)

        Next

        For ulang = 0 To 19

            ListBox1.Items.Add(fibo(ulang))

        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVale As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

End Class

• Setelah itu isikan Button Proses dengan koding di bawah ini :

Public Class Form1

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

        Dim fibo(19) As Integer

        Dim ulang As Integer

        fibo(0) = 1

        fibo(1) = 1

        For ulang = 2 To 19

            fibo(ulang) = fibo(ulang - 2) + fibo(ulang - 1)

        Next

        For ulang = 0 To 19

            ListBox1.Items.Add(fibo(ulang))

        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVale As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

End Class

Setelah selesai, coba Run project tersebut

,dan akan keluar gambar seperti di bawah ini

Cobalah klik Proses, dan akan keluar hasil seperti di bawah ini

• Membuat Program Checkbox bahasa

Buatlah sebuah desain Form seperti dibawah ini :

lalu isikan Button proses dengan listing program di bawah ini.

Public Class Form1

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

        Dim control As Windows.Forms.CheckBox

        TextBox1.Text = ""

        For Each control In Me.GroupBox1.Controls

            If control.Checked = True Then

                TextBox1.Text &= control.Text & ","

            End If

        Next

        TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)

    End Sub

Setelah itu, coba RUN program tersebut, dan akan keluar program seperti di bawah

lalu coba pilih bahasa , ex: seperti gambar dibawah lalu klik Proses

• Membuat Program dengan menggunakan RadioButton

Buatlah desain form seperti di bawah ini

lalu isikan koding seperti dibawah ini

Public Class Form1

    Private Sub RbKawin_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles RbKawin.CheckedChanged

        TextBox1.Text = ""

        If RbPria.Checked = True Then

        Else

            TextBox1.Text &= "Istri"

        End If

        If RbWanita.Checked = True Then

        Else

            TextBox1.Text &= "Suami"

        End If

    End Sub

  

    Private Sub RbTdkwin_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles RbTdkwin.CheckedChanged

        TextBox1.Text = ""

        If RbPria.Checked = True Then

        Else

            TextBox1.Text &= ""

        End If

        If RbWanita.Checked = True Then

        Else

            TextBox1.Text &= ""

        End If

    End Sub

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

        Me.Close()

    End Sub

lalu coba RUN program ,akan keluar gambar seperti di bawah ini

coba pilih salah satu pilihan ,ex: seperti gambar di bawah ini

• Membuat Listbox

Buatlah desain form seperti di bawah ini

lalu masukkan coding di bawah pada button isi

Public Class Form1                        

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

        Dim control As Windows.Forms.ListBox

        TextBox1.Text = TextBox1.Text

        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)

    End Sub

setelah itu masukkan coding pada button 1-10 seperti di bawah ini

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

        For bil = 1 To 10

            ListBox1.Items.Add(bil)

        Next

    End Sub

masukkan koding ini pada button satu>

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

        ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)

    End Sub

masukkan koding ini pada button beberapa>

  Private Sub Bt_Beberapa_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Beberapa.Click

        ListBox1.SelectionMode = SelectionMode.MultiExtended

        Dim i, j As Integer

        j = ListBox1.Items.Count

        For i = 0 To j - 1

            Try

                ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(i)))

            Catch ex As Exception

                j -= 1

            End Try

        Next

    End Sub

masukkan koding ini pada button semua>

Private Sub Bt_Semua_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Semua.Click

        ListBox1.SelectionMode = SelectionMode.MultiExtended

        Dim Jumlah As Integer = ListBox1.Items.Count

        For i = 0 To Jumlah - 1

            ListBox2.Items.Add(ListBox1.Items(i))

        Next

    End Sub

masukkan koding ini pada button hapus satu

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

        ListBox2.SelectionMode = SelectionMode.One

        ListBox2.Items.Remove(ListBox2.SelectedItem)

    End Sub

masukkan koding ini pada button hapus beberapa

  Private Sub Bt_Hapus_Beberapa_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Hapus_Beberapa.Click

        ListBox2.SelectionMode = SelectionMode.MultiExtended

        Dim i, j As Integer

        j = ListBox2.Items.Count

        For i = 0 To j - 1

            Try

                ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)

            Catch ex As Exception

                j -= 1

            End Try

        Next

    End Sub

masukkan koding di bawah ini pada button hapus semua

Private Sub Bt_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Hapus_Semua.Click

        ListBox2.Items.Clear()

    End Sub

masukkan koding ini pada button keluar

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

        Me.Close()

    End Sub

setelah itu RUN program tersebut,dan akan keluar program seperti di bawah ini

lalu coba isikan ,ex: seperti gambar di bawah ini