Tùy chọn
Nhờ Giúp Code Cộng trừ nhân chia
- Nhờ Giúp Code Cộng trừ nhân chia
-
RE: Nhờ Giúp Code Cộng trừ nhân chia
DooHoaangPhuuc > 21-12-19, 10:39 PM
Cộng:
Private Sub Cong_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Hình như code trên cho phép cộng này là phép nối chuỗi
Sử dụng gán biến
-----------------------------
Private Sub Cong_Click()
Dim x As Double, y As Double
x = So1.Value
y = So2.Value
Sum = (x + y)
Ketqua = Sum
End Sub
Private Sub Tru_Click()
Dim x As Double, y As Double
x = So1.Value
y = So2.Value
Sum = (x - y)
Ketqua = Sum
End Sub
Private Sub Nhan_Click()
Dim x As Double, y As Double
x = So1.Value
y = So2.Value
Ketqua.Value = x * y
End Sub
Private Sub Chia_Click() (thêm if để loại bỏ So2 = 0 nếu cần)
Dim x As Double, y As Double
x = So1.Value
y = So2.Value
Ketqua.Value = x / y
End Sub -
RE: Nhờ Giúp Code Cộng trừ nhân chia
tranthanhan1962 > 22-12-19, 01:00 AM
(21-12-19, 10:39 PM)DooHoaangPhuuc Đã viết: Cộng:
Vấn đề gán biến không cần thiết trong trường hợp này vì gán biến là thừa, gán biến làm máy tính phải xử lý thêm thuật toán không cần thiết.
Private Sub Cong_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Hình như code trên cho phép cộng này là phép nối chuỗi
Sử dụng gán biến
-----------------------------
Private Sub Cong_Click()
Dim x As Double, y As Double
x = So1.Value
y = So2.Value
Sum = (x + y)
Ketqua = Sum
End Sub
Private Sub Tru_Click()
Dim x As Double, y As Double
x = So1.Value
y = So2.Value
Sum = (x - y)
Ketqua = Sum
End Sub
Private Sub Nhan_Click()
Dim x As Double, y As Double
x = So1.Value
y = So2.Value
Ketqua.Value = x * y
End Sub
Private Sub Chia_Click() (thêm if để loại bỏ So2 = 0 nếu cần)
Dim x As Double, y As Double
x = So1.Value
y = So2.Value
Ketqua.Value = x / y
End Sub
Nếu xử lý cho đầy đủ thì phải viết code báo tất cả các lỗi, viết thêm các Msgbox lỗi nhập thiếu dữ liệu số cho các textbox So1, So2, lỗi So2 có giá trị =0 ở phép chia. Nhưng lười nên chỉ viết báo lỗi chung, khi nhập liệu sai, người nhập tự tìm lỗi
-
RE: Nhờ Giúp Code Cộng trừ nhân chia
Nguyen SVN > 23-12-19, 08:50 AM
(20-12-19, 05:59 PM)tranthanhan1962 Đã viết:
(20-12-19, 05:30 PM)ongke0711 Đã viết:
(20-12-19, 05:13 PM)tyov Đã viết: Anh chị nào có file Access vè tính tổng 2 số cho em xin ! Cảm ơn !
Phải rự lực cánh sinh một phần chứ bạn.
Cái form có 3 cái textbox và 1 nút lệnh mà bạn không tự làm được thì tính gì tới code nữa đây.
Thôi mà ông kẹ! Tội nghiệp em nó.
Vứt bỏ luôn cái code Japan kia đi nó cổ quá rồi, có 2 cái textbox: 2 textbox Số 1 và Số 2, vậy cái tổng hiện thị ở đâu, Nó phải có 3 textbox: So1, So2 và KetQua (Kết quả)
4 nút lệnh: Cong, Tru, Nhan, Chia.
Cộng:
Private Sub Cong_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Trừ
Private Sub Tru_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value - So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Nhân
Private Sub Nhan_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value * So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Chia:
Private Sub Chia_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Nếu có dính đến table thì đưa RecordSource và ControlSource vào.
Chấm hết.
A kiểm tra lại xem đoạn phép chia đúng hay sai ạ ? -
RE: Nhờ Giúp Code Cộng trừ nhân chia
tranthanhan1962 > 23-12-19, 12:12 PM
(23-12-19, 08:50 AM)Nguyen SVN Đã viết:
Sorry(20-12-19, 05:59 PM)tranthanhan1962 Đã viết:
(20-12-19, 05:30 PM)ongke0711 Đã viết:
(20-12-19, 05:13 PM)tyov Đã viết: Anh chị nào có file Access vè tính tổng 2 số cho em xin ! Cảm ơn !
Phải rự lực cánh sinh một phần chứ bạn.
Cái form có 3 cái textbox và 1 nút lệnh mà bạn không tự làm được thì tính gì tới code nữa đây. Thôi mà ông kẹ! Tội nghiệp em nó.
Vứt bỏ luôn cái code Japan kia đi nó cổ quá rồi, có 2 cái textbox: 2 textbox Số 1 và Số 2, vậy cái tổng hiện thị ở đâu, Nó phải có 3 textbox: So1, So2 và KetQua (Kết quả)
4 nút lệnh: Cong, Tru, Nhan, Chia.
Cộng:
Private Sub Cong_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Trừ
Private Sub Tru_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value - So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Nhân
Private Sub Nhan_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value * So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Chia:
Private Sub Chia_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Nếu có dính đến table thì đưa RecordSource và ControlSource vào.
Chấm hết.
A kiểm tra lại xem đoạn phép chia đúng hay sai ạ ?
Private Sub Chia_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value / So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub