Faculty of Information Technology

My faculty in Satya Wacana Christian University. Mini Indonesia.

Photobucket

The Amazing RPG Game

Defence of the Acients or DotA is my favorite RPG games. You have to try it.

My lovely Notebook Product

Compaq is the best Notebook produk. I'm very like it. That's my first Notebook.

Pages

Friday 20 July 2012

BELAJAR VB.NET : CONTROL RADIO BUTTON DALAM GROUPBOX

Dalam posting sebelumnya tentang Checkbox, saya sudah memberikan pemahaman bahwa control Checkbox itu biasanya digunakan untuk menampilkan data seperti Hobi, Jenis Makanan, dan lainnya. Sekarang kita akan berbicara tentang control Radio Button, yang biasanya digunakan untuk data tunggal seperti Jenis Kelamin, Golongan Darah, Kewarganegaraan, atau data-data yang hasil pilihannya cuma satu.

Langkah-langkahnya yakni : 
   1. Siapkan Form
   2. Buat sebuah GroupBox, 4 RadioButton, dan sebuah Button

Disini, saya akan membuat pilihan berdasarkan Golongan Darah, seperti yang kita tahu, golongan darah itu umumnya ada 4 yakni A, AB, B, dan O.
Dan asumsinya, saat tombol di klik, akan muncul MessageBox yang menampilkan pilihan yang kita pilih.









Setelah itu, ganti property Text dari masing-masing kontrol seperti berikut ini :
   3. Setelah selesai, klik kanan di Form dan pilih View Code
    Kemudian ketikkan kode berikut ini : 
Private Function PilihGolonganDarah() As String
        For Each RadioButton As Control In Me.GroupBox1.Controls
            If CType(RadioButton, RadioButton).Checked Then
                Return CType(RadioButton, RadioButton).Text
            End If
        Next
        Return ""
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Pilihan As String = PilihGolonganDarah()

        MsgBox("Golongan Darah : " & Pilihan)

    End Sub

Setelah selesai, coba Run program tadi. Setelah di Run, pilih salah satu dari pilihan Golongan Darah dan klik tombol Tampilkan Pilihan, maka hasilnya akan seperti ini :













Sekian tutorialnya, selamat mencoba dan semoga berhasil..... ^_^

BELAJAR VB.NET : CONTROL CHECKBOX DALAM GROUPBOX

Apa itu Checkbox ?? Checkbox dalam Visual Basic .Net adalah sebuah control yang biasanya digunakan sebagai informasi untuk data-data yang banyak, contohnya seperti data Hobi, jenis makanan, minuman, dan lain-lain. Disini saya akan membahas tentang bagaimana menampilkan Checkbox yang telah dipilih.

Kasus : Bagaimana menampilkan hasil pilihan Checkbox dalam Groupbox melalui MessageBox..??

Caranya yaitu : 
  1. Siapkan Form
  2. Siapkan control Groupbox dan buat di Form. Ada di bagian containers












   3.  Kemudian masukkan beberapa Checkbox ke dalam Groupbox. Dan buat 1 Button













  4. Setelah itu, ubah property Text pada Groupbox, dan masing-masing Checkbox. Disini saya menggunakan Jenis Makanan.
   GroupBox1 ubah property Text jadi Jenis Makanan
   CheckBox1 ubah property Text jadi Nasi Goreng
   CheckBox2 ubah property Text jadi Mie Goreng
   CheckBox3 ubah property Text jadi Soto
   Button1 ubah property Text jadi Tampilkan Pilihan

  5. Kemudian, saat nya ber-Coding...!!! Klik kanan pada Form kemudian pilih View Code












  6. Langkah selanjutnya yakni membuat code. Ketikkan kode di bawah ini :
  Private Function Makanan() As String

        Dim InfoMakanan As New System.Text.StringBuilder
        For Each Control As Control In Me.GroupBox1.Controls
            If CType(Control, CheckBox).Checked Then
                InfoMakanan.Append(CType(Control, CheckBox).Text & vbCr)
            End If
        Next

        Return InfoMakanan.ToString
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim PilihanMakanan As String = Makanan()

        MsgBox("Pilihan Makanan : " & vbCr & _
        PilihanMakanan)
    End Sub

  7.  Setelah selesai, coba programnya dijalankan, maka akan tampil seperti ini :


Silahkan download programnya di sini.
Sekian tutorialnya, selamat mencoba dan semoga berhasil.... ^_^

Followers