Skip to main content

Tugas 4 Pemrograman

1. Program RadioButton

Membuat RadioButton dengan isi pasangan hidup dengan Suami jika jenis kelamin Wanita dan status kawin, isi dengan Istri jika jenis kelamin pria dan status kawin.

Berikut hasilnya :
dan listingya :

Public Class Form1

    Private Sub Rdbkawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rdbkawin.CheckedChanged
        TextBox1.Text = ""
        If Rdbpria.Checked = True Then
        Else
            TextBox1.Text &= "Suami"
        End If
        If Rdbwanita.Checked = True Then
        Else
            TextBox1.Text &= "Istri"
        End If
    End Sub

    Private Sub Rdbblmkawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rdbblmkawin.CheckedChanged
        TextBox1.Text = ""
        If Rdbpria.Checked = True Then
        Else
            TextBox1.Text &= ""
        End If
        If Rdbwanita.Checked = True Then
        Else
            TextBox1.Text &= ""
        End If
    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

Untuk Mendownload Program RadioButton : http://www.ziddu.com/download/20856200/programradiobuton.zip.html









2. Program ListBox

Membuat ListBox dengan ketentuan sbb :
Isi → Mengisi list1 dengan isian yang ada pada text1
1-10 → Mengisi list1 dengan angka dari 1 - 10
Satu > → Memasukan satu pilihan yang dipilih dari list1 ke list2
Beberapa > → Memasukan beberapa pilihan yang sedang dipilih dari list1 ke list2
Semua > → Memasukan semua pilihan yang ada di list1 ke lis2
Hapus Satu → menghapus satu pilihan dari list2 yang sedang dipilih
Hapus Beberapa → Menghapus beberapa pilihan dari list2 yang sedang dipilih
Hapus Semua → Menghapus semua pilihan yang ada di list2


 Berikut Hasilnya :
dan Listingnya:

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)
    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 Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox2.SelectionMode = SelectionMode.One

        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.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 Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.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

 untuk mendowload list box :
http://www.ziddu.com/download/20856207/programlistbox.zip.html

Comments

Popular posts from this blog

Aplikasi Penghitung Rumus Kubus.

Pemrograman Visual.... Kali ini saya mau bagi bagi info tentang aplikasi penhitung rumus kubus... siapa tau akan berguna buat kawan - kawan semua. aplkasi yang saya buat ini menggunakan sofware microsoft visual video 2010.. dengan listing program seperti ini...  Namun sebelumnya kawan - kawan harus membuat boton - boton dan text box... yang kemudian baru di singkronisaskan dengan listing prog di atas. nah.... contoh boton nya ada di sini.... setelah di run akan keluar aplikasi... dan siap di gunakan....... selamat mencoba. Untuk file yang sudah jadi.. bisa anda download di  http://www.ziddu.com/download/20597226/VisualBasic.zip.htm

APLIKASI MIKROKONTROLER ATMEL ATmega8515 SEBAGAI PEMBANGKIT DAN PENGHITUNG FREKUENSI

I.    P ENDAHULUAN 1.1  Latar Belakang Perkembangan teknologi elektronika  dewasa ini  sangatlah  pesat  dipicu  dengan  ditemukannya transistor menyebabkan terjadinya revolusi teknologi dibidang  elektronika.  Hal  ini  dibuktikan  dengan banyaknya  diciptakan  alat  baru  yang  memudahkan manusia menyelesaikan pekerjaannya, salah satunya adalah dengan diciptakannya mikrokontroler sebagai alat      bantu      pengendali      otomatis.      Dengan mikrokontroler maka penggunaan peralatan yang dulu hanya bisa dikendalikan secara manual sekarang bisa dikendalikan  hanya  dengan  menggunakan  IC  yang berukuran  kecil  ini.  Atmel  merupakan  salah  satu perusahaan   pembuat   chip   mikrokontroler   ...

Tugas Pertemuan 7

MDI FORM Pada Visual Studio 2010 Aplikasi Sederhana mengenai MDI Form pada Visual Studio 2010 (Menu, Tool, MDI Form) 1.          Buka Microsoft Visual Studio 2010 2.    Desain Form pertama 3.          Lengkapi Desain Form 1 seperti dibawah ini         Buatlah 3 form( form 1, form2, form3) 4.          Gunakan MenuStrip untuk mendesain File, Latihan, Tugas, dll 5.          Ubah Properti IsMDIContainer pada form 1   menjadi true 6.          Tambahkan Standar bar dengan menggunakan ToolStrip Gunakan Dock pada propertis Untuk memindahkan tempat standar bar dikiri, kanan, atas atau tengah. *Untuk menggabungkan antara form1 dan form yan...