Skip to main content

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
Labels:

Comments

Post a Comment

Popular posts from this blog

Daftar Stasiun Kereta Api - Jalur Utara

Kalo di artikel sebelumnya kita bicara soal jalur selatan Kereta Api di Jawa, kali ini kita akan membahas mengenai jalur utara. Di jalur utara ini melintas kereta Argo Bromo Anggrek. Kereta ini dikenal sebagai raja di antara semua kereta api yang ada di Indonesia. Disebut raja karena ketika kereta api ini lewat, baik dari berlawanan arah atau arah yang sama, semua kereta akan berhenti untuk memberinya kesempatan berjalan terlebih dahulu. Mau tahu lintasan yang dilaluinya? Berikut ini disajikan nama-nama stasiun yang dilewati Kereta Api jika Anda bepergian menggunakan jalur utara (dari Gambir sampai dengan Surabaya Pasar Turi). Stasiun yang dicetak dengan huruf besar termasuk kategori staiun besar. GAMBIR Gondangdia Cikini Manggarai JATINEGARA Cipinang Klender Klender Baru Cakung Rawa Bebek Kranji BEKASI Tambun Cibitung Cikarang Lemah Abang Tanjung Baru Kedung Gedeh KERAWANG Klari Kosambi Dawuan CIKAMPEK Tanjung Rasa Pabuaran Pringkasep Pasir Bungur Cikaum Pagaden Baru Cipunegara Haurg...
4 comments
Read more

Daftar Stasiun Kereta Api - Jalur Selatan

Kita mungkin kenal dengan Jakarta, Cirebon, Purwokerto, Yogyakarta, Solo, Madiun, Surabaya. Ya, semua itu adalah nama kota di Jawa. Tapi tahukah Kaliwedi, Butuh, Luwung Gajah, Kemiri, Bagor? Saya yakin tidak semua orang mengenalnya. Jika Anda sering bepergian dengan Kereta Api melewati jalur selatan maka Anda akan menemukan stasiun dengan nama di atas. Dengan mengetahui perkiraan letaknya maka Anda bisa mengetahui posisi Anda sedang berada di dekat kota mana. Berikut ini disajikan nama-nama stasiun yang dilewati Kereta Api jika Anda bepergian melalui jalur selatan (dari Pasar Senen sampai dengan Surabaya Gubeng). Stasiun yang dicetak tebak terbasuk kategori stasiun besar. Tut tut tut ... PASAR SENEN Gangsentiong Kramat Pondok Jati JATINEGARA Cipinang Klender Buaran Klender Baru Cakung Rawabebek Kranji BEKASI Bekasi Timur Tambun Cibitung Telaga Murni Cikarang Lemahabang Kedunggedeh KERAWANG Klari Kosambi Dawuan CIKAMPEK Tanjung Rasa Pabuaran Pringkasap Pasirbungur Cikaum Pagaden B...
10 comments
Read more

Belajar dari Kegagalan Si Burung Besi Oranye

Hampir dua bulan ini sejumlah burung besi yang didominasi warna oranye dan berlogo manusia bersayap yang tengah siap terbang itu tidak menyambangi langit biru yang menjadi rute penerbangannya. Ya, sejak 19 Maret 2008 pesawat Adam Air memang tidak mengangkasa, akibat dibekukan izin terbangnya (operation specification). Selain itu, karena banyaknya persoalan yang kini masih dalam penyidikan hukum, Adam Air tinggal mengantongi tiket Airline Operating Certificate (Izin Operasional Terbang) yang terancam akan dicabut jika tiga bulan mendatang belum ada perbaikan atas masalah yang terjadi. Konsumen, regulator, pelaku industri penerbangan, dan karyawan PT Adam Sky Connection Airlanes (Adam Air) menuding persoalan kompleks menjadi biang keladi kejatuhan perusahaan itu. Padahal, kalau kita tengok ke belakang, perkembangan bisnis Adam Air cukup mengesankan. Lihatlah, di awal operasi pada 19 Desember 2003, Adam Air hanya menerbangkan dua pesawat Boeing 737 sewaan dari GE Capital Aviation Ser...
Post a Comment
Read more