Visual Basic - Program Penghitungan Nilai

Image Source : Planet Source Code

Visual Basic - Program Penghitungan Nilai menggunakan Visual Basic

Fungsi If Else dalam Visual Basic juga dapat diterapkan dengan banyak kondisi. Contoh program penggunaan IF Else dengan banyak kondisi diterapkan dalam Contoh Program Pengitungan Nilai Index. Berikut adalah sintaks programnya

Option Explicit On
Imports System
Module latmod3a
Sub Main()
Dim Nama As String
Dim NIM As Integer
Dim UTS As Integer
Dim UAS As Integer
Dim Quiz As Integer
Dim Jumlah As Integer
 
Console.WriteLine("PROGRAM PENGHITUNGAN NILAI")
Console.WriteLine("--------------------------")
Console.Write("NIM : ")
NIM=Console.ReadLine()
Console.Write("Nama : ")
Nama=Console.ReadLine()
Console.Write("Nilai UTS : ")
UTS=Console.ReadLine()
If UTS >= 100  Then
Console.WriteLine("Error! Nilai Harus 0 s/d 100")
End If
 
Console.Write("Nilai UAS   : ")
UAS=Console.ReadLine()
If UAS >= 100  Then
Console.WriteLine("Error! Nilai Harus 0 s/d 100")
End if
 
Console.Write("Nilai Quiz  : ")
Quiz=Console.ReadLine()
If Quiz >= 100  Then
Console.WriteLine("Error! Nilai Harus 0 s/d 100")
End If
 
Jumlah = 0.35*UTS+0.35*UAS+0.30*Quiz
Console.WriteLine("Rata-Rata : " & Jumlah)
If (Jumlah >= 80) And (Jumlah <= 100) Then
Console.WriteLine("Nilai Index = A")
Elseif (Jumlah >= 70) And (Jumlah <= 80) Then
Console.WriteLine("Nilai Index = B")
Elseif (Jumlah >= 60) And (Jumlah <= 70) Then
Console.WriteLine("Nilai Index = C") 
Elseif (Jumlah >= 50) And (Jumlah <= 60) Then
Console.WriteLine("Nilai Index = D")
Elseif (Jumlah <= 50) Then
Console.WriteLine("Niali Index = E")
End If
Console.ReadLine()
End Sub
End Module


Dan hasilnya seperti berikut View Image