Menghitung biaya sewa kamar - Visual Besic

Tampilan program akan seperti ini :

Atur popertinya seperti berikut :

Kode program : 

Public Class Form1       Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load         Me.Text = "Selamat Datang Dipenginapan Kami"     End Sub       Private Sub txtlama_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtlama.TextChanged         Dim aa, bb, cc As New Double         aa = Val(txtlama.Text)         bb = Val(txthari.Text)         cc = bb * aa         txtsewa.Text = cc     End Sub       Private Sub txthari_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txthari.TextChanged         Dim aa, bb, cc As New Double         aa = Val(txtlama.Text)         bb = Val(txthari.Text)         cc = bb * aa         txtsewa.Text = cc     End Sub       Private Sub txtbayar_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtbayar.TextChanged         Dim aa, bb, cc As New Double         aa = Val(txtsewa.Text)         bb = Val(txtbayar.Text)         cc = bb - aa         txtkembali.Text = cc     End Sub       Private Sub btbuka_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btbuka.Click         Me.txtlama.Clear()         Me.txtbayar.Clear()     End Sub       Private Sub bttutup_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bttutup.Click         Close()     End Sub End Class

Hasil tampilan & contoh sudah terisi :

Berbagi :