Program Penghitungan Jarak pada VB .NET

Assalamu’alaikum wr. wb, Bissmillahirrohmanirrohim, kali ini saya akan sedikit berbagi dengan kawan kawan semua tentang ilmu yang saya dapatkan tadi pagi di mata kuliah Pemrograman .NET

Kita akan membuat program Penghitungan Jarak

Program ini sebenernya sangat sederhana, awalnya saya juga rada bingung sama maksud dari dosennya, tapi ternyata program ini agak gampang, karena program ini cuma pake operator bagi (/) saja, antara Jarak yang bisa ditempuh oleh full tank bensin motor kita. Contohnya : kalau bensin motor kita totalnya 5 liter dan jarak yang ditempuh 400 km, maka 400/5 = 80 km/liter adalah jarak yang dapat ditempuh oleh motor kita

Kalau gitu langsung mulai aja,

Beginilah desain dari Formnya :

Maksud dari txtTank, txtKm, txtJarak, btnKalkulasi, btnClear, dan btnExit adalah penamaan pada Properties masing-masing Toolbox yang kita pakai, kaya gini contoh di Propertiesnya

Di bagian Name lah kita gunakan penulisan txtKm, txtTank dan lain-lain tadi.

btnKalkulasi bakalan kita gunakan untuk memproses bagian km/liter

btnClear bakalan kita gunakan untuk menghapus semua tulisan sebelum kita coba dengan angka angka yang baru

dan btnExit bakalan kita pake buat mengclose program kita

Dan ini contoh sintaksnya :

Public Class Form3


    Private Sub btnKalkulasi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKalkulasi.Click
        txtKm.Text = txtJarak.Text / txtTank.Text & "  km /liter"
    End Sub


    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtJarak.Clear()
        txtKm.Clear()
        txtTank.Clear()
    End Sub


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()

    End Sub
End Class

Silahkan dicoba-coba, semoga tutorial ini bermanfaat bagi yang membutuhkan. Aamiin