SMART SYSTEM BY SMART MALING

Membuat e budgeting?
Apa susahnya?
Berikut contoh Smart e budgeting sederhana...

'Membuat variabel
'================
Dim HargaLemAibon_Wajar As Long
Dim HargaLemAibon_Maling As Long

Dim TanyaMaling As Char
Dim InputHarga As String

Dim Keterangan As String

'Mengeset harga MarkUp Lem Aibon
'===============================
HargaLemAibon_Maling = 8280000000

'Login awal
'==========
Console.Write("Apakah Anda Maling? Y/N ")
TanyaMaling = Console.ReadLine()

'Menginput Harga Wajar Lem Aibon
'===============================
Console.Write("Harga Wajar Lem Aibon : ")
InputHarga = Console.ReadLine()

'Konversi tipe data
'===============================
HargaLemAibon_Wajar = Long.Parse(InputHarga)

'Mengecek apakah User termasuk Maling?
'=====================================
If TanyaMaling = "Y" Or TanyaMaling = "y" Then

'Jika user Maling, membuat Peringatan kalo Maling salah ketik
'============================================================
Keterangan = "Anda SALAH KETIK!" & vbCrLf &
             "Sistem akan otomatis megubah harga" & vbCrLf &
             "dari " & HargaLemAibon_Wajar & " menjadi " & HargaLemAibon_Maling

Else

'Jika orang Naif, membuat orang naif menjadi maling
'==================================================
Keterangan = "Anda TERLALU NAIF!" & vbCrLf &
            "Sistem akan otomatis megubah harga" & vbCrLf &
            "dari " & HargaLemAibon_Wajar & " menjadi " & HargaLemAibon_Maling

End If

'Inti Smart sistem Bekerja
'==============================
HargaLemAibon_Wajar = HargaLemAibon_Maling

'Menampilkan Hasil
'=================
Console.WriteLine()
Console.WriteLine(Keterangan)
Console.WriteLine()
Console.WriteLine("Harga Lem : " & HargaLemAibon_Wajar)

Console.ReadLine()

'Contoh program bisa di download di sini