VNIT

Too lazy to think of a slogan

Trang chủ » Diễn Đàn » Hỏi đáp Tin học » SQL và Cơ sở dữ liệu » Tạo biểu mẫu tính diện tích tam giác trong access

Chủ đề đã bị khóa, bạn không thể xóa, sửa hay trả lời trong chủ đề này!

First Page Previous Page  1  Next Page Last Page
Locked Tạo biểu mẫu tính diện tích tam giác trong access
0
question Gởi bởi suxedung (19:55 14-11-2011)
Bài: 5 / Điểm VCS: 9 /

Thầy em ra đề tạo biểu mẫu( form) nhập vào 3 cạnh a,b,c của một tam giác. kiểm tra điều kiện của 3 cạnh. Nếu đúng thì tính chu vi và diện tích tam giac. Nếu sai thì thông báo nhập sai và đưa con trỏ trở về chỗ nhập cạnh a.
Đoạn code em viết như thế này mà không biết sai chỗ nào.

Option Compare Database

Private Sub TINH_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim P As Double
Dim S As Double
txta = a
txtb = b
txtc = c
txtP = P
txts = S
If (txta + txtb) <= txtc Or (txta + txtc) <= txtb Or (txtb + txtc) <= txta Or txta = 0 Or txtb = 0 Or txtc = 0 Then
MsgBox "BAN NHAP SAI DU LIEU"
a = Null
b = Null
c = Null
S = Null
P = Null
a.SetFocus
End If
P = (txta + txtb + txtc) / 2
S = Sqr(P * (P - txta) * (P - txtb) * (P - txtc))
End Sub
Locked Re: Tạo biểu mẫu tính diện tích tam giác trong access
0
answer Gởi bởi Thành Bá Nguyễn (0:59 15-11-2011)
Bài: 18,319 / Điểm VCS: 17,795 /

Coi như công thức và điều kiện bạn kiểm tra đúng, thì đoạn code của bạn vẫn có vấn đề là: dữ liệu nhập vào bạn lấy từ đâu? Nhìn vào đoạn code của bạn thì không thấy bạn lấy dữ liệu nhập vào ở đâu hết!
Locked Re: Tạo biểu mẫu tính diện tích tam giác trong access
0
answer Gởi bởi duongtiendungtv (20:17 21-11-2011)
Bài: 57 / Điểm VCS: 51 /

Tui xin góp ý bạn nhé! Bạn phải sửa dòng gán giá trị lại.
a = txta
với txta là tên của text box trên form của bạn!
à quên, bạn phải chuyển kiểu dữ liệu nữa, chứ nó hiểu là kiểu text thôi
First Page Previous Page  1  Next Page Last Page

Thống kê

Hiện tại web site có 85,806 thành viên. Xin chào đón thành viên mới nhất nightt.

Các thành viên đã tạo 62,822 chủ đề và 241,950 bài viết trong 30 box.

Hiện có 0 thành viên và 1 khách đang trực tuyến.

Template by styleshout / Icons by Tango Icon Library and FamFamFam.