Tugas 4 Pemrograman Visual VB 2010

Artikel terkait : Tugas 4 Pemrograman Visual VB 2010

TUGAS 4 PEMROGRAMAN VISUAL MENGGUNAKAN VB 2010

Pada posting ini berisi tentang program menggunakan tool program checkbox,radiobutton dan Listbox,dimana dari masing-masing program tersebut mempunyai kode tersendiri yang akan di aplikasikan pada program yang akan di buat di post ini dan juga merupakan salah satu tugas matakuliah "pemrograman visual" di kampus saya. ^_^

CHECKBOX

ok langsung saja untuk program yang pertama menggunakan tools "checkbox".

dimana tool checkbox ini akan di aplikasikan pada program pemilihan bahasa dengan ketentuan proses :
1. semua bahasa yang di pilih user ditampilakan pada textbox "kemampuan bahasa".
contoh : jika user memilih indonesia dan sunda makan tertulis : indonesia,sunda

berikut screenshoot desain dan kode programnya :

screenshoot kode pada vb 2010

screenshoot output program pemilihan bahasa

Source Code Program Pemilihan Bahasa :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    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

Download Aplikasi Kemampuan Bahasa

RADIOBUTTON

pada progran kedua adalah menggunakan radiobutton dimana radio button merupakan sebuah control yang digunakan untuk daftar pilihan yang sifat pilihannya mempengaruhi radiobutton yang lain.

program di bawah ini merupakan program yang cukup simple kodenya dengan ketentuan proses sebagai berikut :

1. isi pasangan hidup dengan dengan "Suami" JIka jenis kelamin "wanita" dan status "kawin" . dan isi dengan istri jika jenis kelamin "pria" dan status "kawin" .

screenshoot kode program vb 2010

screenshoot output program "pasangan hidup"

Source Code Program "Pasangan Hidup" :

Public Class Form1

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

    Private Sub btpria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpria.CheckedChanged

        If btpria.Checked And btkawin.Checked = True Then
            TextBox1.Text = "Istri"
        ElseIf btpria.Checked And bttdakkawin.Checked Then
            TextBox1.Text = "Belum ada"
        End If

    End Sub

    Private Sub btwanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btwanita.CheckedChanged
        If btwanita.Checked And btkawin.Checked = True Then
            TextBox1.Text = "Suami"
        ElseIf btwanita.Checked And bttdakkawin.Checked Then
            TextBox1.Text = "Belum ada"
        End If

    End Sub


    Private Sub btkawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkawin.CheckedChanged

    End Sub

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

Download Program "Pasangan Hidup"

LISTBOX

Program berikutnya merupakan program yang menggunakan tools listbox dimana listbox itu sendiri merupakan control yang digunakan untuk menampilkan pilihan yang jumlahnya relatif banyak.

program berikut berisi ketentuan proses dibawah ini :

screenshoot program listbox

Sourcce Code Program Listbox :

Private Sub btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisi.Click
        Dim isi As String
        isi = txtisi.Text
        ListBox1.Items.Add(isi)
    End Sub



    Private Sub btangka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btangka.Click
        Dim ulang As Integer
        Dim bil(9) As Integer
        bil(0) = 1
        For ulang = 1 To 9
            bil(ulang) = ulang + 1
        Next
        For ulang = 0 To 9
            ListBox1.Items.Add(bil(ulang))
        Next
    End Sub

    Private Sub btsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsatu.Click
        Dim satu As String
        satu = ListBox1.Text
        ListBox2.Items.Add(satu)
    End Sub

    Private Sub btbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbeberapa.Click
        Dim A, B As Integer
        B = ListBox1.Items.Count
        For A = 0 To B - 1
            Try
                ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(A)))
            Catch ex As Exception
                B -= 1
            End Try
        Next
    End Sub

    Private Sub btsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsemua.Click
        Dim Jumlah As Integer = ListBox1.Items.Count
        For A = 0 To Jumlah - 1
            ListBox2.Items.Add(ListBox1.Items(A))
        Next
    End Sub

    Private Sub bthapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapussatu.Click
        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

    Private Sub bthapusbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapusbeberapa.Click
        Dim A, B As Integer
        B = ListBox2.Items.Count
        For A = 0 To B - 1
            Try
                ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
            Catch ex As Exception
                B -= 1
            End Try
        Next
    End Sub

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

    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click
        Me.Close()

    End Sub

Download Program Listbox

Sekian Terimakasih ...

semoga bermanfaat . ^_^ osh