【神马排课】（自动版）

李桥贵

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

非常感谢老师。

李桥贵

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

非常感谢老师。

carpsd

非常感谢老师

zopey

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

上午课

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

2018-8-31 11:55 上传

点击文件名下载附件

zopey

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

zopey

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



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

2018-8-31 15:19 上传

点击文件名下载附件

zopey

'上午课程安排

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

李桥贵

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

kk = 2

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

李桥贵

老师能否把你《神马排课(高级版)》和《随机排课4（上下午）》结合起来。自动排课并生成班级课程表和教师个人课程表。 初中课程表.zip (181.49 KB, 下载次数: 333)

2018-8-31 21:01 上传

点击文件名下载附件

zopey

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

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