【神马排课】（自动版）

李桥贵 · 发表于 2018-8-30 11:45

zopey 发表于 2018-8-30 09:01
假设每天12节课，第1节早读，第6节午休，第11节晚读，第12节晚自习，
尚需提供：
1、每门课程的周课时 ...

非常感谢老师。

李桥贵 · 发表于 2018-8-30 11:45

lsc900707 发表于 2018-8-30 07:01
应该是：
（1）初一：语文、数学、英语、政治、历史、地理、生物、音乐、美术、体育、计算机
（2）初二 ...

非常感谢老师。

carpsd · 发表于 2018-8-30 13:55

非常感谢老师

zopey · 发表于 2018-8-31 11:55

李桥贵发表于 2018-8-30 11:21
1、早读只排英语2节、英语2节、政治1节（而且每个教师一天早上看一个班）；
2、第1节至第4节为上午正课；3 ...

上午课

随机排课3.zip (36.98 KB, 下载次数: 403)

zopey · 发表于 2018-8-31 14:41

1、假定，平均分配原则：同一科目，每天上午只安排一节课。每周5*4 课时。
2、当语文5、数学4、英语4、物理3都分配好了之后，初三年级的上午还有3节化学课，
此时课表上空余的3个位置很可能属于同一天，或者分布在不同的2天，
故无法按照平均分配原则，分配好3节化学课。（化学课空在那里）
3、遇到第2种情况，可以反复尝试，得到正确分配结果。

zopey · 发表于 2018-8-31 15:23

随机排课（平均分配）完整版

随机排课4（上下午）.zip (40.73 KB, 下载次数: 423)

zopey · 发表于 2018-8-31 15:28

'上午课程安排

kk = 2
For kk1 = 1 To k1
For kk2 = 1 To arr(kk1, 2)
kk = kk + 1
haha2:
ReDim xq2(1 To k2)

For i = 1 To k3
sj2 = ""
For j = 1 To k2
If xq2(j) < 4 Then sj2 = sj2 & "," & j
Next
If sj2 = "" Then Exit For Else sj2 = Mid(sj2, 2, 99)

sj3 = Split(sj2, ",")
m = UBound(sj3) + 1
ReDim sj(1 To m)
For ii = 1 To m
sj(ii) = sj3(ii - 1)
Next

'按周课时表安排上午课
If crr(i, kk1 * 2) > 0 Then
If crr(i, kk1 * 2) > m Then
For jj = 1 To k2
   Cells(kk, xq(jj) + 1).ClearContents
   Cells(kk, xq(jj) + 2).ClearContents
   Cells(kk, xq(jj) + 3).ClearContents
   Cells(kk, xq(jj) + 4).ClearContents
Next
GoTo haha2
End If
n = crr(i, kk1 * 2)
ReDim jg$(1 To Application.Combin(m, n), 1 To 1)

k = 0
Call dgZH("", 0, 1)

rnd1 = Application.RandBetween(1, Application.Combin(m, n))
week = Split(jg(rnd1, 1), ",")
For j = 0 To UBound(week)
haha:
rnd2 = Application.RandBetween(1, 4)
If Cells(kk, xq(week(j)) + rnd2) = "" Then
   Cells(kk, xq(week(j)) + rnd2) = crr(i, 1)
   xq2(week(j)) = xq2(week(j)) + 1
Else
   GoTo haha
End If
Next
End If

Next i
Next kk2
Next kk1

李桥贵 · 发表于 2018-8-31 19:18

zopey 发表于 2018-8-31 15:28
'上午课程安排

kk = 2

非常感谢老师，你辛苦了。

李桥贵 · 发表于 2018-8-31 21:02

老师能否把你《神马排课(高级版)》和《随机排课4（上下午）》结合起来。自动排课并生成班级课程表和教师个人课程表。

初中课程表.zip (181.49 KB, 下载次数: 331)

zopey · 发表于 2018-8-31 22:10

李桥贵发表于 2018-8-31 21:02
老师能否把你《神马排课(高级版)》和《随机排课4（上下午）》结合起来。自动排课并生成班级课程表和教师个 ...

请你看仔细了，《神马排课》作者不是我，找人要找准了。
两者思路不同，结合不起来。

		自动登录	找回密码
密码			免费注册

[分享] 【神马排课】（自动版）

评分

评分