Dasar Visual Basic Part II

Setelah teman-teman memahami struktur program, tipe data & variabel, input & outpout, Message Box & Comand Button yang sudah dijelaskan pada [Belajar Bareng] Dasar Visual Basic Part I. Kali ini saya akan menjelaskan pengenalan "Fungsi IF Then atau Perintah Bersyarat" yang kita sebut saja [Belajar Bareng] Dasar Visual Basic Part II.
Beberapa Perintah Bersyarat pada VB:

• Struktur If Then
• Struktur If Then Else
• Struktur If Then Else Majemuk
• Struktur If Then Else Tersarang

Yang akan saya bahas pada Topik kali ini adalah Struktur If Then Else Majemuk, karena jika teman-teman semua sudah memahami Struktur If Then Else Majemuk, mudah-mudahan untuk perintah bersyarat lainnya akan lebih mudah dipahami.
Langkah-Langkah Membuat Program: >> Program Yang Saya Buat "Nilai Akhir Mahasiswa" <<

• Buat 1 form pada VB
• Gunakan 1 Comand Button
• Klik 2x pada Comand Button
• Isikan Code Berikut >> Lihat Source Code 1

Public Class Form1

        'Name: Janggawareng
        'Home-Base: www.nyit-nyit.net
        'Date: 5 December 2011 (07:38 AM)
        'Desc: VB Tutorial Part 2 "Program Menghitung Nilai Akhir Mahasiswa"

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

                '//Pendeklarasian Tipe data & Variabel//
                Dim Nilai_UTS As Integer, Nilai_UAS As Integer, Nilai_Kuis As Integer
                Dim Nilai_Tugas As Integer, Nilai_Akhir As Integer

                Try

                        '//Peng-Inputan Data dengan Range Nilai = 0 s/d 100
                        Nilai_UTS = InputBox("Berapa Nilai UTS Anda ??")
                        Nilai_UAS = InputBox("Berapa Nilai UAS Anda ??")
                        Nilai_Kuis = InputBox("Berapa Nilai Kuis Anda ??")
                        Nilai_Tugas = InputBox("Berapa Nilai Tugas Anda ??")

                        '//Proporsi Nilai_UTS = 30%
                        '//Proporsi Nilai_UAS = 40%
                        '//Proporsi Nilai_Kuis = 20%
                        '//Proporsi Nilai_Tugas = 10%
                        '//Total Proporsi = 100%

                        '//Proses Data
                        Nilai_Akhir = (Nilai_UTS * 0.3) + (Nilai_UAS * 0.4) + (Nilai_Kuis * 0.2) + (Nilai_Tugas * 0.1)

                        '//Memainkan Fungsi If
                        If Nilai_Akhir >= 80 Then
                                MsgBox("Nilai Akhir Anda = " & Nilai_Akhir & " dengan Predikat A")

                        ElseIf Nilai_Akhir >= 65 And Nilai_Akhir < 80 Then
                                MsgBox("Nilai Akhir Anda = " & Nilai_Akhir & " dengan Predikat B")

                        ElseIf Nilai_Akhir >= 55 And Nilai_Akhir < 65 Then
                                MsgBox("Nilai Akhir Anda = " & Nilai_Akhir & " dengan Predikat C")

                        ElseIf Nilai_Akhir >= 45 And Nilai_Akhir < 55 Then
                                MsgBox("Nilai Akhir Anda = " & Nilai_Akhir & " dengan Predikat D")

                        Else
                                MsgBox("Nilai Akhir Anda = " & Nilai_Akhir & " dengan Predikat E (Tidak Lulus)")
                        End If

                Catch ex As Exception
                End Try

        End Sub

End Class

 Semoga dapat membantu teman-teman semua, jika ada hal yang ingin ditanyakan silahkan kita diskusikan disini.
Untuk selanjutnya akan bersambung ke Dasar Visual Basic Part 3 yaitu "Pengulangan atau Looping".


Dasar Visual Basic Part I
Dasar Visual Basic Part II
Dasar Visual Basic Part III