Tutorial Membuat Program dengan Visual Basic

Contoh Sederhana program Visual Basic - Hai programer Visual Basic, kali ini saya akan sedikit memberikan sebuah tips dan source kode yang berkenaan dengan pemrograman visual basic tentunya . Langsung saja kawan, kasus yang perlu kita selesaikan adalah :

1. Banyaknya pemakaian dirumuskan dengan angka meter sekarang - meter dahulu
2. Jika pemakaian melebihi 10 maka terdapat 2 perhitungan :
1. Perhitungan pertama yaitu meter 10
2. Perhitungan kedua selebihnya meter pertama
3. Harga ditentukan dengan :
1. Meter pertama berharga 1000 dikali banyak pemakaian meter pertama
2. Meter kedua berharga 1500 dikali banyak pemakaian meter kedua
4. Diskon diberikan kepada pemakai dengan jumlah pemakain hanya kurang dari 20, dengan ketentuan 5% dari jumlah harga pemakain.

Sepertinya mudah kan kawan, mari kita selesaikan dengan source code berikut :

Dim mskg, mdlu, jpk, pkok, lebih As Double Dim byr1, byr2, jumlah, diskon, total As Currency Const x As Integer = 10 Private Sub Command1_Click() Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " Text10.Text = " " End Sub Private Sub Command2_Click() mskg = Text1.Text mdlu = Text2.Text jpk = mskg - mdlu Text3.Text = jpk If jpk > 10 Then pkok = x Text4.Text = pkok lebih = jpk - x Text5.Text = lebih Text6.Text = pkok * 1000 Text7.Text = Text5.Text * 1500 byr1 = pkok * 1000 byr2 = lebih * 1500 jumlah = byr1 + byr2 Text8.Text = jumlah If jpk < 21 Then diskon = (5 / 100) * jumlah Text9.Text = diskon End If total = Text8.Text - diskon Text10.Text = total ElseIf jpk <= 10 Then pkok = 0 Text4.Text = pkok lebih = jpk - 0 Text5.Text = lebih Text6.Text = pkok * 1000 Text7.Text = lebih * 1500 byr1 = pkok * 1000 byr2 = lebih * 1500 jumlah = byr1 + byr2 Text8.Text = jumlah If jpk < 21 Then diskon = (5 / 100) * jumlah Text9.Text = diskon End If total = Text8.Text - diskon Text10.Text = total End If End Sub Untuk visualisasi nya seperti berikut :

Jika ingin memakai program aslinya download di sini

Keyword : 
Tutorial Membuat Program dengan Visual Basic,
Tutorial Membuat Program PDAM dengan Visual Basic,
Tutorial Membuat Program PDAM Sederhana dengan Visual Basic