Skip to main content

Posts

Showing posts from November, 2019

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 sala