Membuat Program Perhitungan Kalkulasi Harga Penjualan Tiket

Membuat Program Perhitungan Kalkulasi Harga Penjualan Tiket

Program ini adalah  program yang sederhana tidak serumit judulnya, karena ini hanya penjumlahan antara variable satu dan yang lainnya. Disini juga kita belajar untuk mendeklarasikan variable tertentu dengan tipe data tertentu

Contoh pendeklarasian variable adalah seperti ini :

Dim angka1 As Integer, angka2 As Integer, angka3 As Integer, angka4 As Integer

Untuk lebih jelas dan dapat lebih dimengerti lebih baik kita langsung buat saja programnya, berikut ini tutorialnya :

Buat form seperti berikut ini

Ikuti cara penamaan pada toolbox seperti diatas.

Dan berikut ini adalah contoh sintaksnya :

     Public Class Form4

    Dim angka1 As Integer, angka2 As Integer, angka3 As Integer, angka4 As Integer


'coding pada btnHitung adalah untuk menghitung kalkulasi semu
    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click


        angka1 = txtTiketA.Text
        angka2 = txtTiketB.Text
        angka3 = txtTiketC.Text
        angka4 = txtTiketD.Text


        txtTotalKursi.Text = angka1 + angka2 + angka3 + angka4

        txtTotalHarga.Text = angka1 * 30000 + angka2 * 25000 + angka3 * 20000 + angka4 * 15000

        txtHargaA.Text = angka1 * 30000
        txtHargaB.Text = angka2 * 25000
        txtHargaC.Text = angka3 * 20000
        txtHargaD.Text = angka4 * 15000



    End Sub


'sintaks untuk membersihkan text box pada program ini.
    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        txtHargaA.Clear()
        txtHargaB.Clear()
        txtHargaC.Clear()
        txtHargaD.Clear()
        txtTiketA.Clear()
        txtTiketB.Clear()
        txtTiketC.Clear()
        txtTiketD.Clear()
        txtTotalHarga.Clear()
        txtTotalKursi.Clear()

    End Sub

'sintaks ini berfungsi untuk mengclose program ini.
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()

    End Sub
End Class

Sekian lagi tutorial yang bisa saya bagikan, mohon maaf apabila masih banyak kekurangan, semoga tutorial ini dapat bermanfaat bagi yang membutuhkan. Aamiin