Forum CNTT4A - Anh Sang College
Bạn nên đăng nhập để:
- Mọi người biết bạn là thành viên của CNTT4A
- Bạn có quan tâm đến Forum
- Bạn có thể download tài liệu thỏa thích
- Bạn có thể trao đổi, viết bài đóng góp cho Forum
Nếu bạn chưa có tài khoản, hãy Đăng ký ngay nhé!

Join the forum, it's quick and easy

Forum CNTT4A - Anh Sang College
Bạn nên đăng nhập để:
- Mọi người biết bạn là thành viên của CNTT4A
- Bạn có quan tâm đến Forum
- Bạn có thể download tài liệu thỏa thích
- Bạn có thể trao đổi, viết bài đóng góp cho Forum
Nếu bạn chưa có tài khoản, hãy Đăng ký ngay nhé!
Forum CNTT4A - Anh Sang College
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

You are not connected. Please login or register

Forum CNTT4A - Anh Sang College » FORUM ASCNTT4A » ÔN THI TỐT NGHIỆP K4 » VB - TAXI (code)

VB - TAXI (code)

Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

1VB - TAXI (code) Empty VB - TAXI (code) 20/9/2012, 11:27 pm

hieunp

hieunp

Visual Basic
Dạng 1: Taxi
Đóng góp: hieunp

VB - TAXI (code) 110

Code:
Private Sub CmdRESET_Click()      (OK)
 TxtKM.Text = ""
 TxtTIEN.Text = ""
 TxtKM.SetFocus
End Sub
 
Private Sub CmdTINH_Click()
    If Val(TxtKM.Text) <= 1 Then TxtTIEN.Text = “5000”
    If Val(TxtKM.Text) >1 And Val(TxtKM.Text) <= 30 Then
TxtTIEN.Text = 5000 + (((Val(TxtKM.Text) – 1)*1000)/200) * 1000
            End if
    If Val(TxtKM.Text) > 30 Then TxtTIEN.Text = 150000 + (Val(TxtKM.Text) - 30) * 3000
End Sub



Được sửa bởi hieunp ngày 26/9/2012, 5:29 pm; sửa lần 9.

2VB - TAXI (code) Empty Re: VB - TAXI (code) 26/9/2012, 11:07 am

hieunp

hieunp

editing

Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Forum CNTT4A - Anh Sang College » FORUM ASCNTT4A » ÔN THI TỐT NGHIỆP K4 » VB - TAXI (code)

Similar topics

-

» up lai vb taxi
» VB - QLSV (code)

Permissions in this forum:
Bạn không có quyền trả lời bài viết