I saw someone posting an example of simple calculation in C++ in some forum the other day. It is basically counting the amount of money needed based on holiday package chosen and number of person going.
I was bored and i did my own version using vb.net.
Module Module1
Dim no1, no2, total As Integer
'Dim total As Double = 0
Dim pakej As String
Dim orang As String
Sub Main()
Do While (True)
Console.WriteLine("-----------------------")
Console.WriteLine("Promosi Pakej Percutian")
Console.WriteLine("-----------------------")
Console.WriteLine("")
Console.WriteLine("--------Pakej----------")
Console.WriteLine("")
Console.WriteLine("1. P.Langkawi = Rm300")
Console.WriteLine("2. P.Tioman = Rm400")
Console.WriteLine("3. P.Perhentian = Rm500")
Console.WriteLine("4. P.Redang = Rm600")
Console.WriteLine("-----------------------")
Console.WriteLine("")
Console.WriteLine("Sila pilih pakej pilihan anda.")
Console.WriteLine("")
Dim pakej = Console.ReadLine()
Console.WriteLine("")
Console.WriteLine("Pakej pilihan = " & pakej)
Console.WriteLine("")
Console.WriteLine("Sila masukkan bilangan orang.")
Console.WriteLine("")
Dim orang = Console.ReadLine()
Console.WriteLine("")
Console.WriteLine("Bilangan orang = " & orang)
Console.WriteLine("")
no1 = pakej
no2 = orang
If pakej = 1 Then
no1 = 300
ElseIf pakej = 2 Then
no1 = 400
ElseIf pakej = 3 Then
no1 = 500
ElseIf pakej = 4 Then
no1 = 600
Else
Console.WriteLine("Invalid package")
Stop
End If
total = (no1 * no2)
Console.WriteLine("Jumlah bayaran = Rm " & total)
Console.WriteLine("")
Console.WriteLine("Press any button to continue.")
Console.ReadLine()
Loop
End Sub
End Module
