em-plant環(huán)境下車間生產(chǎn)管理仿真與優(yōu)化創(chuàng)新實(shí)驗(yàn)(編輯修改稿)
2025-05-04 05:35 本頁面
【文章內(nèi)容簡介】 ng_Out_TimeBearing_Machine_Time表table_Result結(jié)構(gòu)Integer1Time2Time3Time4stringCountStartTimeEndTimeMachineTime表table_machine結(jié)構(gòu)String0Time1Time2stringWorkingTimeWaitingTime Variable的建立建立Shaft_Count, Shaft_In_Time, Shaft_Out_Time, Shaft_Machine_Time,Bearing_Count,Bearing_In_Time,Bearing_Out_Time,Bearing_Machine_Time,Shaft_Index,Bearing_Index2,Product_Count,StartTime,EndTime,MachineTime各變量。并把Shaft_Count, Bearing_Count, Index,Index2, Product_Count設(shè)置為integer類型，其余變量設(shè)置為time類型。 Reset方法isdo 。 。 。 end。 Source_In方法isdo if @.name=Shaft then Shaft_Count:=Shaft_Count+1。 Shaft_In_Time:=。 Table_Shaft[1,Shaft_Count]:= Shaft_Count。 Table_Shaft[2,Shaft_Count]:=Shaft_In_Time。 elseif @.name=Bearing then Bearing_Count:=Bearing_Count+1。 Bearing_In_Time:=。 Table_Bearing[1,Bearing_Count]:=Bearing_Count。 Table_Bearing[2,Bearing_Count]:=Bearing_In_Time。 end。 StartTime:=。 Table_Result[1,Shaft_Count]:=Shaft_Count。 Table_Result[2,Shaft_Count]:=StartTime。end。 Mathod方法isdo @.Current_number:=@.Current_number+1。 if @.Name=Shaft then @.Current_gylx:=Shaft_gy[Gylx,@.Current_number]。 @.Current_time:=Shaft_gy[Time,@.Current_number]。 else @.Current_gylx:=Bearing_gy[Gylx,@.Current_number]。 @.Current_time:=Bearing_gy[Time,@.Current_number]。 end。 inspect @.Current_gylx when Che then @.move(Che_buffer)。 when Zuanthen @.move(Zuan_buffer)。 when Mothen @.move(Mo_buffer)。 when Xithen @.move(Xi_buffer)。 when Finishthen if @.Name=Shaft then @.move(Shaft_buffer)。 else @.move(Bearing_buffer)。 end。 end。end。 Shaft_mathod方法isdo Shaft_Out_Time:=。 Shaft_Index:=Shaft_Index+1。 Table_Shaft[3,Shaft_Index]:=Shaft_Out_Time。 Table_Shaft[4,Shaft_Index]:=Table_Shaft[3,Shaft_Index]Table_Shaft[2,Shaft_Index]。 Shaft_Machine_Time:=Shaft_Out_TimeShaft_In_Time。end。 Bearing_mathod方法isdo Bearing_Index2:=Bearing_Index2+1。 Bearing_Out_Time:=。 Table_Bearing[3, Bearing_Index2]:= Bearing_Out_Time。 Table_Bearing[4, Bearing_Index2]:=Table_Bearing[3, Bearing_Index2]Table_Bearing[2, Bearing_Index2]。 Bearing_Machine_Time:= Bearing_Out_Time Bearing_In_Time。end。 mathod_out方法isdo Product_Count:=Product_Count+1。 EndTime:=。 MachineTime:=EndTimeTable_Result[2,Product_Count]。 Table_Result[3,Product_Count]:=EndTime。 Table_Result[4,Product_Count]:=MachineTime。end。 Endsim方法isdo Table_machine[WorkingTime,che1]:=。 Table_machine[WorkingTime,che2]:=。 Table_machine[WorkingTime,xi1]:=。 Table_machine[WorkingTime,xi2]:=。 Table_machine[WorkingTime,zuan]:=。 Table_machine[WorkingTime,mo]:=。 Table_machine[WaitingTime,che1]:=。 Table_machine[WaitingTime,che2]:=。 Table_machine[WaitingTime,xi1]:=。 Table_machine[WaitingTime,xi2]:=。 Table_machine[WaitingTime,zuan]:=。 Table_machine[WaitingTime,mo]:=。end。Source：將窗口中的Order表拖入到圖24中的“Table”框中，并將“Format table”前的方框打上√。圖24 Source_Attributes屬性窗口Source：將窗口中的Method方法拖入到圖25中的“Exit”框中，并將“Front”前的方框打上√。圖25 Source_Controls屬性窗口Che_buffer：將窗口中的Sourcein方法拖入到圖26中的“Exit”框中，并將“Rear”前的方框打上√。圖26 Che_buffer_Controls屬性窗口Shaft_buffer：將窗口中的shaft_Method方法拖入到圖27中的“Entrance”框中，并將“Front”前的方框打上√。圖27 Shaft_buffer_Controls屬性窗口Bearing_buffer：將窗口中的bearing_Method方法拖入到圖27中的“Entrance”
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1