Code bài Bảng tính tiền điện nè !!

Đây là bài bảng tính tiền điện, mình up lên cho mấy bạn tham khảo, có thể có sai xót, các bạn xem rồi chỉ lại mình nha





----------------------------------------------------------------------------------------------
Private Sub cmdoff_Click() ' xu li nut "Thoat"
End
End Sub
----------------------------------------------------------------------------------------------
Private Sub cmdtinhmoi_Click() ' xu li nut "Tinh Moi"
txttenkh.Text = ""
txtdiachi.Text = ""
txtmakh.Text = ""
txtchisomoi.Text = ""
txtchisocu.Text = ""
txtdinhmuc.Text = ""
txtdongia.Text = ""
txttieuthu.Text = ""
txtthanhtien.Text = ""
txtthue.Text = ""
txttongcong.Text = ""
End Sub

---------------------------------------------------------------------------------------------

Private Sub txtchisocu_Change() ' xu li change cho txttieuthu, khi chi so cu thay doi thi tieu thu cung thay doi theo


If CLng(Val(txtchisomoi.Text)) < CLng(Val(txtchisocu.Text)) Then
txttieuthu.Text = 0
Else
txttieuthu.Text = CLng(Val(txtchisomoi.Text)) - CLng(Val(txtchisocu.Text))
End If

End Sub
--------------------------------------------------------------------------------------------
Private Sub txtchisocu_keypress(keyascii As Integer)
If (keyascii < 48 Or keyascii > 57) And keyascii 8 Then
keyascii = 0
End If
End Sub
----------------------------------------------------------------------------------------------
Private Sub txtchisomoi_Change() 'xu li change cho txttieu thu, neu chi so moi doi thi tieu thu
se doi theo


If CLng(Val(txtchisomoi.Text)) < CLng(Val(txtchisocu.Text)) Then
txttieuthu.Text = 0
Else
txttieuthu.Text = CLng(Val(txtchisomoi.Text)) - CLng(Val(txtchisocu.Text))
End If
End Sub
----------------------------------------------------------------------------------------------
Private Sub txtchisomoi_keypress(keyascii As Integer)
If (keyascii < 48 Or keyascii > 57) And keyascii 8 Then
keyascii = 0
End If
End Sub
------------------------------------------------------------------------------------------------
Private Sub cboloaikh_click() 'Xu li phan change cua ComboBox, dinh muc, don gia
If cboloaikh.ListIndex = 0 Then
txtdinhmuc.Text = "300"
txtdongia.Text = "1000"
Else
If cboloaikh.ListIndex = 1 Then
txtdinhmuc.Text = 500
txtdongia.Text = 1700

Else
If cboloaikh.ListIndex = 2 Then
txtdinhmuc.Text = 100
txtdongia.Text = 550

Else
If cboloaikh.ListIndex = 3 Then
txtdinhmuc.Text = 400
txtdongia.Text = 1050
End If
End If
End If
End If
End Sub
------------------------------------------------------------------------------------------------------

Private Sub txtdongia_Change() ' Xu li change cho phan "Thanh tien", khi don gia thay doi thi thanh tien cung thay doi


txtthanhtien.Text = CLng(Val(txttieuthu.Text)) * CLng(Val(txtdongia.Text))
End Sub
--------------------------------------------------------------------------------------------------------

Private Sub txttieuthu_Change() 'Xu li change cho "Thanh Tien"

txtthanhtien.Text = CLng(Val(txttieuthu.Text)) * CLng(Val(txtdongia.Text))

End Sub

----------------------------------------------------------------------------------------------------------


Private Sub txtthanhtien_Change() ' Xu li change cho "Thue"

txtthue.Text = (CLng(Val(txtthanhtien.Text)) * 10) / 100

End Sub

-------------------------------------------------------------------------------------------------------------

Private Sub txtthue_Change() 'Xu ly change cua "tong cong"

txttongcong.Text = CLng(Val(txtthanhtien.Text)) + CLng(Val(txtthue.Text))

End Sub
****************************************************


Đây là project của bài, mình làm thiếu phần tăng giá gấp đôi nếu vượt quá giá định mức , các bạn xem của bạn Khanhnhat nhé
Link mediafire đây nè, mình để lâu ùi, nhưng chắc nhỏ quá, khó thấy

me oi ... up lun cai project lun di...>"<

Code:

Private Sub cmb_Click()'dùng select case se don gian hon
Select Case cmb.ListIndex
Case 0
txtdm.Text = 300
txtdg.Text = 1500
Case 1
txtdm.Text = 500
txtdg.Text = 1700
Case 2
txtdm.Text = 100
txtdg.Text = 550
Case 3
txtdm.Text = 400
txtdg.Text = 1050
End Select
End Sub

Code:

Private Sub txttthu_Change()'theo de bai neu (Kwh) vượt định mức thì tính với giá gấp đôi
Dim tthu As Long
Dim dmuc As Long
Dim dg As Long 'đơn giá
Dim vdm As Long 'vươt định mức
dg = Val(txtdg.Text)
tthu = Val(txttthu.Text)
dmuc = Val(txtdm.Text)
If (tthu > dmuc) Then
vdm = tthu - dmuc
txtttien.Text = dmuc * dg + vdm * dg * 2
Else
txtttien.Text = tthu * dg
End If
End Sub

may U up cai project len lun cho anh em de lam an !

sr nha tui hok bit cach up

vao trang mediafire.com dang ki 1 tai khoan. Up len ... share link . ok