Program Sederhana Pemrograman .Net

Berikut adalah program sederhana perhitungan porsi makan di warung angkringan [almost impossible to be realized :D ]

Listing program :

Public Class frmangkringan

    Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click
        bayar.Text = "Rp. " & Val(txtnasi.Text) * 1000 + Val(txtgoreng.Text) * 500 + Val(txtsate.Text) * 1000 +
            Val(txtes.Text) * 2000 + Val(txtanget.Text) * 2000 + Val(txtjaesu.Text) * 2500 & ",-"
    End Sub

    Private Sub btreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btreset.Click
        txtnasi.ResetText()
        txtgoreng.ResetText()
        txtsate.ResetText()
        txtes.ResetText()
        txtanget.ResetText()
        txtjaesu.ResetText()
        bayar.ResetText()
        txtnasi.Focus()
    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
        If MsgBox("Temenan Ora Pesen Maning?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then Me.Close()
    End Sub
End Class

Screenshot :

Download Full [with solution manager]

Read More