Tutorial Seleksi Kondisi Menggunakan Visual Studio


1. Buat Aplikasi baru  (File | New Project | standard EXE )
2. Masukkan 2 Frame , 2 OptionButton , 2 CheckBox  dan 1 CommandButton
3. Gantilah Properties masing-masing komponen seperti tertera di bawah ini :

Object
Properties
Value
Form1
Caption
Seleksi Kondisi
Frame1 (frm_1)
Caption
Option Button
Frame2 (frm_2)
Caption
Check Box
Option1 (opt_pria)
Caption
Pria
Option1 (opt_wanita)
Caption
Wanita
Check1 (cck_mobil)
Caption
Mobil
Check2 (cck_motor)
Caption
Motor
Command1 (cmd_keluar)
Caption
Keluar

4. Sesuaikan dengan gambar berikut :




5. Masukkan code dibawah ini kedalam Option1 (rdo_pria) :
Private Sub rdo_pria_CheckedChanged(sender As Object, e As EventArgs) Handles rdo_pria.Click

        Dim pesan As String
        Dim pesan2 As String

        If rdo_pria.Checked = True Then

        End If
        If ckk_mobil.Checked = True Then
            pesan = ("Pria mengendarai mobil" & vbCrLf)
        End If
        If ckk_motor.Checked = True Then
            pesan2 = ("Pria mengendarai motor" & vbCrLf)
        End If
        If ckk_mobil.Checked = False And ckk_motor.Checked = False Then
            pesan = ("Pria berjalan kaki ")
        End If


        MsgBox(pesan & pesan2)

    End Sub
6. Masukkan code dibawah ini kedalam Option1 (rdo_wanita) :
  Private Sub rdo_wanita_CheckedChanged(sender As Object, e As EventArgs) Handles rdo_wanita.Click
        Dim pesan As String
        Dim pesan2 As String

        If rdo_wanita.Checked = True Then

        End If
        If ckk_mobil.Checked = True Then
            pesan = ("Wanita mengendarai mobil" & vbCrLf)
        End If
        If ckk_motor.Checked = True Then
            pesan2 = ("Wanita mengendarai motor" & vbCrLf)
        End If
        If ckk_mobil.Checked = False And ckk_motor.Checked = False Then
            pesan = ("Wanita berjalan kaki ")
        End If


        MsgBox(pesan & pesan2)
    End Sub

7.Masukkan code dibawah ini kedalam  CommandButton (cmd_keluar) :
Private Sub btn_keluar_Click(sender As Object, e As EventArgs) Handles btn_keluar.Click
        End
    End Sub
End Class




0 Response to "Tutorial Seleksi Kondisi Menggunakan Visual Studio"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel