If 4DϏδʔͰ͋Δ λΠϜΞτ = λΠϜΞτ_࠷ Else λΠϜΞτ = λΠϜΞτ_࠷ End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while
If 4DϏδʔͰ͋Δ λΠϜΞτ = λΠϜΞτ_࠷ Else λΠϜΞτ = λΠϜΞτ_࠷ End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while For 1͔Βϓϩηε·Ͱ If ϓϩηε͕Ԇ͋Δ͍ఀࢭ͞Ε͍ͯͳ͚Ε ͦͷίʔυΛ 1 tick ࣮ߦ͢Δ(16 ms)
If 4DϏδʔͰ͋Δ λΠϜΞτ = λΠϜΞτ_࠷ Else λΠϜΞτ = λΠϜΞτ_࠷ End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while
If 4DϏδʔͰ͋Δ λΠϜΞτ = λΠϜΞτ_࠷ Else λΠϜΞτ = λΠϜΞτ_࠷ End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while
If 4DϏδʔͰ͋Δ λΠϜΞτ = λΠϜΞτ_࠷ Else λΠϜΞτ = λΠϜΞτ_࠷ End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while
If 4DϏδʔͰ͋Δ λΠϜΞτ = λΠϜΞτ_࠷ Else λΠϜΞτ = λΠϜΞτ_࠷ End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while SET DATABASE PARAMETER 4D Server Scheduler 4D Remote Scheduler 4D Local Mode Scheduler
͕ܦաͨ͠ If 4DϏδʔͰ͋Δ λΠϜΞτ = λΠϜΞτ_࠷ Else λΠϜΞτ = λΠϜΞτ_࠷ End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while
5 ticks ͕ܦաͨ͠ If 4DϏδʔͰ͋Δ λΠϜΞτ = 0 tick Else λΠϜΞτ = 1 ticks End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while
0 ticks ͕ܦաͨ͠ If 4DϏδʔͰ͋Δ λΠϜΞτ = 0 tick Else λΠϜΞτ = 8 ticks End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while
͕ܦաͨ͠ If 4DϏδʔͰ͋Δ λΠϜΞτ = 1 tick Else λΠϜΞτ = 16 ticks End if // ͜͜ͰγεςϜʹ੍ޚΛฦ͢ Get Πϕϯτ͋Δ͍ λΠϜΞτ ·Ͱػ If Πϕϯτ4Dϓϩηεʹؔ Pass ΠϕϯτΛϓϩηεʹୡ End if End if Until Πϕϯτ͕ͳ͍ // ͦΕͧΕͷ4Dϓϩηεʹ࣌ؒΛ༩͑Δ For 4D ϓϩηεͦΕͧΕʹ͖ͭ Give ࠷ 1 tick ΞΫςΟϒϓϩηεΛ࣮ߦ End while εέδϡʔϥʔ: 4DΛ࠷ʹ