Tugas 4
1.   Program pilih Bahas.

            Pertama buatlah form baru kemudian letakan satu buah Group Box, Text Box, Button di dalam form tersebut, setelah itu letakan enam check Box di dalam Group Box yang berada di dalam form tadi, kemudian Rubah nama Tool Box – Tool Box setelah selesai masukan lsting pada button atau Proses, kemudian jalankan.

a.       a.   Form sebelum di rubah namanya.
b.      b.   Setelah di rubah namanya.

 
c.       c.   Hasil dari pogram.

 Listing Program
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
End Class

2.   Program Pasangan Hidup

             Pertamabuatlah Form baru kemudian masukanlah tiga label, satu panel, empat RadioButton du di antaranya masukan kedalam panel, satu Text Box, dan satu Button, setelah tu rubah nama Tool Box yag berada di dalam Form, Masukanlah listing programnya setelah selesai jalankanlah programnya.
a.       

a. Form sebelum di rubah namanya.


b.      b.   Setelah di rubah namanya


c.       c.    Hasil dari program

  Listing Program
Public Class Form1

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Enabled = False
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rkawin.CheckedChanged
        If rpria.Checked = True Then
            If Rkawin.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Istri"
            End If
        ElseIf Rwanita.Checked = True Then

        End If
        If Rwanita.Checked = True Then
            TextBox1.Text = "Anda Sudah Memiliki Seorang Suami"
        End If


    End Sub

    Private Sub Rblmkawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rblmkawin.CheckedChanged
        If Rblmkawin.Checked = True Then
            If Rblmkawin.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Istri"
            End If
        ElseIf Rwanita.Checked = True Then

        End If
        If Rwanita.Checked = True Then
            TextBox1.Text = "Anda Harus Mencari Seorang Suami"
        End If

    End Sub

    Private Sub rpria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rpria.CheckedChanged
        If Rkawin.Checked = True Then
            If rpria.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Istri"
            End If
        ElseIf Rblmkawin.Checked = True Then

        End If
        If rpria.Checked = True Then
            TextBox1.Text = "Anda Harus Mencari Seorang Istri"
        End If

    End Sub

    Private Sub Rwanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rwanita.CheckedChanged
        If Rkawin.Checked = True Then
            If Rwanita.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Suami"
            End If
        ElseIf Rblmkawin.Checked = True Then
            If Rwanita.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Suami"
            End If
        End If


    End Sub
End Class

3.   Program list Box.

         Buatlah sebuah form baru dan masukan sembilan button, satu Text Box, dan dua list. Rubahlah nama – nama Tool Box yang berada dalam form, masukan listingnya dan jalankan programnya.



a.   Tampilan dari Form sebelum di jalankan .

b.      b.    Hasil dari program


   Listing Program
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.ListBox
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For bil = 1 To 10
            ListBox1.Items.Add(bil)
        Next

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.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

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.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

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ListBox2.SelectionMode = SelectionMode.One

        ListBox2.Items.Remove(ListBox2.SelectedItem)

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.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

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

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

05.21 | Category: | 0 komentar

Comments (0)

Posting Komentar