時間割自動作成(12)

【´･ω･`】：下がサブプロシージャ、Put2jikanのコードだ。

(●`ε´●)：２時間続きの科目を書き込むコードだったな。

【´･ω･`】：うん。

Sub Put2Jikan()
               
    %Limit = 0
   
    %i = 2
   
    For %j = 1 To 1000
        Randomize(ThisTime())            !!乱数の発生
        %X = Int(Rand() * 6 + 1)
        %Y = Int(Rand() * 6 + 1)
       
       
       
       
        If Cells(%i, 11) = 1 Then
            If %Y = 1 Or %Y = 2 Or %Y = 3 Or %Y = 5 Then
                 If Cells(%Y + 1, %X) = "" And \\
                       Cells(%Y + 1 + 1, %X) = "" Then
                  
                     If Not Kamoku_Check(%X, %i) Then
                         Cells(%Y + 1, %X) = Cells(%i, 8)
                         Cells(%Y + 1 + 1, %X) = Cells(%i, 8)
                         %i = %i + 1
                         %Limit = %Limit + 2
                     End If
                 End If
            
                
            End If
        Else
            %i = %i + 1
        End If
        If %i = 12 Then
         Exit Sub
        End If
    Next
   

End Sub

【´･ω･`】：基本的にはプロトタイプⅡの「核になる部分」のコードと

　　　　　　やっていることは変わらない。

　　　　　　違いは・・・

　　　　　　If %Y = 1 Or %Y = 2 Or %Y = 3 Or %Y = 5 Then

　　　　　・・・で書き込むべき時間が１時間目、２時間目、３時間目

　　　　　あるいは５時間目になっているかをチェックする。

(●`ε´●)：４時間目だと、それに続く時間が５時間目になり

　　　　　　昼休みを挟むことになるので不可、６時間目だと

　　　　　　それに続く時間が存在しない７時間目になってしまうので

　　　　　　不可、というわけだな？

【´･ω･`】：うん、その通り。そしてさらに・・・

　　　　　　 If Cells(%Y + 1, %X) = "" And \\
                       Cells(%Y + 1 + 1, %X) = "" Then

　　　　　　・・・でその時間が空いているかをチェックする。

(●`ε´●)：大きな違いはそれだけか？

【´･ω･`】：うん。後はサブプロシージャMain_Partが残るだけだが

　　　　　眠くなったので次回回しだ。