Tùy chọn
Xếp phòng thi
- Xếp phòng thi
-
Xếp phòng thi
bằng lăng > 20-09-18, 04:37 PM
Em đã xếp xong SBD nhưng không biết viết code chia phòng thi như thế nào, mong a/c dành chút tg giúp đỡ. Chân thành cám ơn
Quy tắc xếp phòng thi như sau:
- Số thí sinh tối đa trong phòng nhập vô trước khi xếp phòng thi (frm_Chiaphongthi)
- Phòng thi phải được xếp dựa theo 2 tiêu chí: khu vực và mã môn dự thi
- Số thí sinh còn lại nếu lớn hơn số phòng tối đa nhưng nhỏ hơn số phòng tối đa nhân đôi thì chia bình quân cho 2 phòng
Ví dụ: Khu vực 1, mã môn thi 01 có 81 thí sinh và số thí sinh tối đa trong 1 phòng là 24
thì chia như sau:
+ Phòng 1: 24 + Phòng 2: 24
+ Còn lại 33 thí sinh (24 < 33 < 24x2) thì ta chia: Phòng 3: 17 và Phòng 4: 16
Tương tự vây tiếp cho khu vực 2, mã môn 01 và qua các môn khác
https://drive.google.com/open?id=1MPkcmA...orCmtiIESg -
RE: Xếp phòng thi
bằng lăng > 24-09-18, 07:36 AM
Không cao thủ nào giúp mình được sao
-
RE: Xếp phòng thi
duynamvnn1208 > 24-09-18, 09:50 AM
Haizz...
Của bạn đây:
Private Sub cmdphongthi_Click()
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim normalClass As Integer
Dim specialClass As Integer
Dim dcount As Integer
Dim class As Integer
Set rst1 = CurrentDb.OpenRecordset("tblmamon")
Do While Not rst1.EOF
Set rst2 = CurrentDb.OpenRecordset("SELECT * FROM tblDisplay WHERE mamon = '" & rst1!mamon & "'")
rst2.MoveLast
normalClass = rst2.RecordCount / Me.txtsots
specialClass = (rst2.RecordCount Mod Me.txtsots + Me.txtsots) / 2 + 1
rst2.MoveFirst
class = 1
dcount = 0
Do While Not rst2.EOF
If class < normalClass Then
rst2.Edit
rst2!Phong = Format(class, "00")
rst2.Update
dcount = dcount + 1
If dcount = Me.txtsots Then
class = class + 1
dcount = 0
End If
Else
rst2.Edit
rst2!Phong = Format(class, "00")
rst2.Update
dcount = dcount + 1
If dcount = specialClass Then
class = class + 1
dcount = 0
End If
End If
rst2.MoveNext
Loop
rst1.MoveNext
Loop
End Sub -
RE: Xếp phòng thi
bằng lăng > 24-09-18, 11:35 AM
Nhưng qua môn kế tiếp số phòng không đánh tiếp mà trở lại bắt đầu là 01 rồi duynamvnn1208? -
RE: Xếp phòng thi
duynamvnn1208 > 24-09-18, 12:05 PM
Đấy là ngay từ đầu bạn không nói rõ, thôi mình code đến đó thôi bạn tự làm nốt đi -
RE: Xếp phòng thi
bằng lăng > 24-09-18, 03:02 PM
Đã giúp thì giúp cho trót đi bác. E cũng đã cố gắng sửa mà chưa có kq
-
RE: Xếp phòng thi
duynamvnn1208 > 24-09-18, 04:20 PM
Mình ngồi trên cty nên tranh thủ giúp bạn tí thôi
chứ phải làm việc mà
về rồi thì máy tính lại ko có access
Bó tay đấy. Mà gần được rồi còn gì. Sửa và dòng code, để mấy biến ra ngoài vào trong là được mà.
Đây là cơ hội để bạn học đấy. Gì cũng giúp thì không nên -
RE: Xếp phòng thi
bằng lăng > 24-09-18, 04:25 PM
Dạ cám ơn bác. E sẽ cố gắng -
RE: Xếp phòng thi
bằng lăng > 24-09-18, 05:17 PM
Code của bác duynamvnn1208 chạy qua đến môn thứ 2 trở đi nó chia sai phòng thi rồi bác ơi, không đúng yêu cầu nữa. Nó gắn khu vực 1 và 2 vô cùng 1 phòng (mã môn 02, phòng 3). Nhờ bác xem lại dùm. Cám ơn -
RE: Xếp phòng thi
bằng lăng > 25-09-18, 08:28 AM
Có cao thủ nào giúp mình được không, mình đang rất cần