Visual Basic.net

Program Sederhana VB.net

Kali ini saya akan menjelaskan Langkah-Langkah pembuatan Program sederahana menentukan Nilai kelulusan Pada Visual Basic.. Materi ini Merupakan bahan ajar untuk UAS Kuliah pada mata kuliah Visual Basic. Disini saya Menggunakan program Visual Basic 2010.

Langkah pertama:

1. Buka program Visual Basic ,(Disini saya Menggunakan Aplikasi VB.net 2010)
2. Siapkan Toolbox Berikut:
• 6 Label 
1. Label1 (NPM)
2. Label2 (NAMA)
3. Label3 (JENIS KELAMIN)
4. Label4 (Nilai)
5. Label5 (KETERANGAN)
6. Label6 (75-Lulus)

• 4 TextBox
1. TextBox1 = Text TextBox1
2. TextBox2 = Text TextBox2
3. TextBox3 = Text Box3
4. TextBox4 = TextBox4

• 2 RadiButton
1. RadioButton1 (Laki-Laki)
2. RadioButton2 (Perempuan)

• 1 Button
1. Button1 (Simpan)

• ListBox

     3. kemudian setelah Selesai tersusun seperti pada Gambar diatas maka Langkah selanjutnya Yaitu 

         Memasukkan Cooding dibawah ini.

Public Class Form1

    Dim xJenisKelamin As String

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

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

        If Val(TextBox4.Text) >= 75 Then

            TextBox5.Text = "lulus"

        ElseIf Val(TextBox4.Text) <= 75 Then

            TextBox5.Text = "tidak lulus"

        End If

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

        Select Case Val(TextBox4.Text)

            Case Is >= 75

                TextBox5.Text = " LULUS"

            Case Else

                TextBox5.Text = "GAGAL"

        End Select

    End Sub

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

        ListBox1.Items.Add(TextBox1.Text & " - " & TextBox2.Text & " - " & xJenisKelamin & " - " & TextBox3.Text & " - " & TextBox4.Text)

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        xJenisKelamin = "Laki-Laki"

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        xJenisKelamin = "Perempuan"

    End Sub

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

    End Sub

End Class

"SEMOGA BERMANFAAT"