Perintah Percabangan If else di VB.Net

Tulisan kali ini saya akan menuliskan tentang perintah percabangan if else, untuk pengertian perintah tersebut saya sudah pernah membahasnya pada tulisan di vb.60.
Jika sobat ingin mecoba saya tuliskan program sederhananya dengan menggunakan VB.net.
Untuk mempermudah sobat saya juga memberikan gambaran formnya kira-kira untuk bentuk dari form nya saya gambarkan seperti ini.
Silahkan jika sobat ingin membuat form yang berbeda sesuai dengan keinginan sobat.

Untuk properties dari form diatas saya buat nama dan captionnya seperti dibawah. Namun jika sobat ingin memberikan nama dan caption yang berbeda silahkan, tapi nanti sobat harus mengganti name yang ada di source codenya juga.

Object	Name	Text
Label1	Label1	Menghitung Nilai MahaSiswa
Label2	Label2	Nilai Absen
Label3	Label3	Nilai Tugas
Label4	Label4	Milai UTS
Label5	Label5	Nilai UAS
Label6	Label6	10%
Label7	Label7	20%
Label8	Label8	30%
Label9	Label9	40%
Label10	Label10	Total Nilai
Label11	Label11	Grade
Label12	Label12	Keterangan
TextBox1	Tabsen	Kosongkan
TextBox2	Ttugas	Kosongkan
TextBox13	Tuts	Kosongkan
TextBox4	Tuas	Kosongkan
TextBox5	habsen	Kosongkan
TextBox6	htugas	Kosongkan
TextBox7	huts	Kosongkan
TextBox8	huas	Kosongkan
TextBox9	Ttotal	Kosongkan
TextBox10	Tgrade	Kosongkan
TextBox11	Tket	Kosongkan
Button1	Bhitung	HITUNG
Button2	Bulang	ULANG
Button3	Bkeluar	Keluar

Source codenya saya buat seperti ini sob..

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Me.habsen.Enabled = False
        Me.htugas.Enabled = False
        Me.huts.Enabled = False
        Me.huas.Enabled = False
        Me.Tabsen.Focus()
    End Sub
    Private Sub Tabsen_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tabsen.TextChanged
        Me.habsen.Text = 0.1 * Val(Me.Tabsen.Text)
    End Sub

    Private Sub Ttugas_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ttugas.TextChanged
        Me.htugas.Text = 0.2 * Val(Me.Ttugas.Text)
    End Sub

    Private Sub Tuts_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tuts.TextChanged
        Me.huts.Text = 0.3 * Val(Me.Tuts.Text)
    End Sub

    Private Sub Tuas_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tuas.TextChanged
        Me.huas.Text = 0.4 * Val(Me.Tuas.Text)
    End Sub

    Private Sub Bhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhitung.Click

        'source code untuk menghitung total nilai
        Me.Ttotal.Text = Val(Me.habsen.Text) + Val(Me.htugas.Text) + Val(Me.huts.Text) + Val(Me.huas.Text)

        'perintah percabangan untuk mengetahui hasil Grade
        If Me.Ttotal.Text >= 80 And Me.Ttotal.Text <= 100 Then
            Me.Tgrade.Text = "A"
        ElseIf Me.Ttotal.Text >= 69 And Me.Ttotal.Text <= 79 Then
            Me.Tgrade.Text = "B"
        ElseIf Me.Ttotal.Text >= 56 And Me.Ttotal.Text <= 68 Then
            Me.Tgrade.Text = "C"
        ElseIf Me.Ttotal.Text >= 40 And Me.Ttotal.Text <= 55 Then
            Me.Tgrade.Text = "D"
        Else
            Me.Tgrade.Text = "E"
        End If

        'source code untuk keterangan lulus
        If Me.Tgrade.Text = "A" Or Me.Tgrade.Text = "B" Or Me.Tgrade.Text = "C" Then
            Me.Tket.Text = "LULUS"
        Else
            Me.Tket.Text = "GAGAL"
        End If

    End Sub

    Private Sub Bulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bulang.Click
        Me.Tabsen.Text = ""
        Me.Ttugas.Text = ""
        Me.Tuts.Text = ""
        Me.Tuas.Text = ""
        Me.habsen.Text = ""
        Me.htugas.Text = ""
        Me.huts.Text = ""
        Me.huas.Text = ""
        Me.Ttotal.Text = ""
        Me.Tgrade.Text = ""
        Me.Tket.Text = ""
    End Sub

    Private Sub Bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkeluar.Click
        Dim p As String
        p = MsgBox("Keluar Aplikasi??", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If p = vbYes Then
            Me.Close()
        End If
    End Sub

Sobat suka tulisan ini..?

	Dapatkan Tulisan Gratis Via Email!
Follow Fajar345!