Console membuat aplikasi rasa dengan menjadikan input ke lower case (huruf kecil) secara otomatis

Ini tugas anak SI untuk membuat aplikasi rasa.
menjadikan semua input dibaca menjadi lower case(huruf kecil) walaupun diinput dengan huruf besar.

Imports System.Console

Module Module1

Sub Main()
Dim bumbu, rasa As String
WriteLine("Aplikasi Rasa")
WriteLine("=============")
ReadLine()
Write("Masukan nama bumbu: ")
bumbu = LCase(ReadLine())

If bumbu = "gula" Then
rasa = "Manis"
ElseIf bumbu = "garam" Then
rasa = "Asin"
ElseIf bumbu = "cuka" Then
rasa = "Asam"
ElseIf bumbu = "cabe" Then
rasa = "Pedas"
Else
rasa = "Maaf tapi Data base belum ada bumbu " & bumbu

End If

Write("Rasanya : " & rasa)
ReadLine()
WriteLine("Terimakasih")
ReadLine()

End Sub

End Module



Perhatikan bedanya dan silahkan dicoba input yang dimasukan dengan huruf besar maupun kecil akan tetap terbaca oleh program.