Program Sewa Kamar Dengan Visual Basic

Buatlah satu Form, tujuh textbox dan empat command botton. Seperti Gambar dibawah ini

Program Sewa Kamar

Codingnya Sbb:

Private Sub cmdbersih_Click()

    txtsewa.Text = " "

    txtbiayaa.Text = " "

    txttotall.Text = " "

    txtdiskon.Text = " "

    txtharga.Text = " "

    txtbayar.Text = " "

    txtkembalian.Text = " "

    txtsewa.SetFocus

End Sub

Private Sub cmdhasil_Click()

    txtkembalian.Text = Val(txtbayar.Text) - Val(txtharga.Text)

End Sub

Private Sub cmdHitung_Click()

    txttotall.Text = Val(txtsewa.Text) * Val(txtbiayaa.Text)

    If txtsewa.Text > 4 Then

        txtdiskon.Text = 0.1 * Val(txttotall.Text)

    Else

        txtdiskon.Text = 0.05 * Val(txttotall.Text)

    

    End If

    txtharga.Text = Val(txttotall.Text) - Val(txtdiskon.Text)

End Sub

Private Sub cmdkeluar_Click()

   Y = MsgBox("benar Anda Ingin Keluar ?", vbYesNo + 16, "Perigatan")

If Y = 6 Then

Unload Me

Else

Cancel = 7

End If

End Sub

Private Sub Timer1_Timer()

Label1 = Time

End Sub

Selengkapnya Download disini 

anda bisa mengubahnya sesuai dengan yang anda inginkan,,  Selamat mencoba