{Enterprise Dynamics startup information} if(StartingED, SoftStartED([])); {Model information} AddLayer([Main], 1, 1, 0); {Load required atoms} int011; int035([Table], pDir([Atoms\DATA\Table.atm])); int035([Initialize], pDir([Atoms\TOOLS\Initialize.atm])); int035([ExcelActiveX], pDir([Atoms\DATA\ExcelActiveX.atm])); int035([Time Schedule Availability], pDir([Atoms\AVAILABILITY\Time Schedule Availability.atm])); int012; {Preregister functions} PreregisterFunction([ExcelActiveX2_table1], 2, 2); PreregisterFunction([SetExcelActiveX2_table1], 3, 3); {Atom: ExcelActiveX2} sets; AtomByName([ExcelActiveX], Main); if(not(AtomExists), Error([Cannot find mother atom 'ExcelActiveX'. Inheriting from BaseClass.])); CreateAtom(a, s, [], 1, false); Set(OnInit, [LateInit([ExcelActiveX_Init(c)])]); int023([ExcelActiveX2], 16744448, 1248); Set(Icon(a), RegisterIcon(pDir([media\images\default.jpg]), [default])); SetMaterial( RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a); Set(Version(a), 0); SetTreeIcon(pDir([Media\Icons\Excel2k7.ico])); Set(DdbRec, [>t-excel:1.]); int001(181); SetLoc(25, 18, 0); SetSize(8, 2, 1); LockPosition(false); LockSize(false); DisableIconRotation(false); SetProductCode([]); SetTextAtt(1, [C:\Users\Bram de Vries\Desktop\Test.xlsx]); SetTextAtt(2, [Sheet1]); SetAtt(3, 1); SetAtt(4, 1); SetAtt(5, 279941132); SetTextAtt(6, [oleExcelActiveX_Workbook1]); int024; SetTable(1, 11); int015(0, 64, [0 1 ]); int015(1, 88, [`Atom Name` `ExcelActiveX2_table1` ]); int015(2, 64, [`Sheet Name` `Sheet1` ]); int015(3, 64, [`# Rows Table` 8 ]); int015(4, 0, [`# Cols Table` 2 ]); int015(5, 0, [`Start Row Excel` 1 ]); int015(6, 0, [`Start Col Excel` 1 ]); int015(7, 0, [`# Rows from/to Excel` 8 ]); int015(8, 0, [`# Cols from/to Excel` 2 ]); int015(9, 0, [`Time to Read/Write` `hr(1)` ]); int015(10, 0, [`Read(1))/Write(2)` 1 ]); int015(11, 0, [`OnReset(1)/OnTime(2)/OnUser(3)` 1 ]); SetStatus(0); int018; {Atom: ExcelActiveX2_table1} sets; AtomByName([Table], Main); if(not(AtomExists), Error([Cannot find mother atom 'Table'. Inheriting from BaseClass.])); CreateAtom(a, s, [], 1, false); Set(OnInit, [Dim([refExcelActiveX2_table1], vbAtom, c)]); int023([ExcelActiveX2_table1], 32896, 32); DefineFunction([ExcelActiveX2_table1], [Basic], 2, 2, [cell(p(1),p(2), refExcelActiveX2_table1)], [Returns the value of cell(e1, e2)], [No example], 1, [Table.atm]); DefineFunction([SetExcelActiveX2_table1], [Basic], 3, 3, [setcell(p(1),p(2),p(3), refExcelActiveX2_table1)], [Sets cell(e1, e2) to value e3], [No example], 1, [Table.atm]); Set(Icon(a), RegisterIcon(pDir([media\images\default.jpg]), [default])); SetMaterial( RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a); Set(Version(a), 0); SetTreeIcon(pDir([Media\Icons\Table.ico])); Set(DdbRec, [>t-nrofcolstocopy:2.>t-nrofrowstocopy:8.>t-resetorattime:1.>t-readorwrite:1.>t-readwritetime:hr(1).>t-startcolexcel:1.>t-startrowexcel:1.>t-sheetname:Sheet1.>t-table:1.]); int001(182); SetLoc(1, 2, 0); SetSize(5, 2, 1); LockPosition(false); LockSize(false); DisableIconRotation(false); SetProductCode([]); SetTextAtt(1, [ExcelActiveX2_table1]); SetAtt(2, 0); SetAtt(3, 1); SetAtt(4, 1); SetAtt(5, 5); SetAtt(6, 5); SetAtt(7, 1); SetAtt(8, 0); int024; SetTable(8, 2); int015(0, 64, [ 1 2 3 4 5 6 7 8 ]); int015(1, 64, [1 `hr(5)` `hr(6)` `hr(7)` `hr(8)` `hr(9)` `hr(10)` `hr(11)` `hr(110)` ]); int015(2, 0, [2 1 `0` 1 `0` 1 `0` 1 `0` ]); SetStatus(0); int018; Up; {Atom: Time Schedule Availability1} sets; AtomByName([Time Schedule Availability], Main); if(not(AtomExists), Error([Cannot find mother atom 'Time Schedule Availability'. Inheriting from BaseClass.])); CreateAtom(a, Up(s), [], 1, false); int023([Time Schedule Availability1], 32768, 1264); Set(Icon(a), RegisterIcon(pDir([media\images\default.jpg]), [default])); AddModel3D( RegisterModel3D(Model3DDir([controller.wrl]), [controller.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a); AddModel3D( RegisterModel3D(Model3DDir([controller1.wrl]), [controller1.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a); AddModel3D( RegisterModel3D(Model3DDir([controller2.wrl]), [controller2.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a); SetMaterial( RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a); Set(Version(a), 0); SetTreeIcon(pDir([Media\Icons\TimeScheduleAvailability.ico])); Set(DdbRec, [>t-available:1.>t-atomoutconnect:t028.]); SetChannels(0, 1); SetChannelRanges(0, 0, 1, 255); int001(180); SetLoc(16, 18, 0); SetSize(5, 1, 1); LockPosition(false); LockSize(false); DisableIconRotation(false); SetProductCode([]); SetAtt(1, 0); SetAtt(2, 0); SetAtt(3, 1); SetAtt(4, 8); SetAtt(5, 3); int024; SetTable(8, 2); int015(0, 64, [ 1 2 3 4 5 6 7 8 ]); int015(1, 64, [`Time` `hr(5)` `hr(6)` `hr(7)` `hr(8)` `hr(9)` `hr(10)` `hr(11)` `hr(110)` ]); int015(2, 64, [`Down=1` 1 0 1 0 1 0 1 0 ]); SetStatus(11); int018; {Atom: Initialize3} sets; AtomByName([Initialize], Main); if(not(AtomExists), Error([Cannot find mother atom 'Initialize'. Inheriting from BaseClass.])); CreateAtom(a, Up(s), [], 1, false); int023([Initialize3], 4194432, 248); Set(Icon(a), RegisterIcon(pDir([media\images\default.jpg]), [default])); SetMaterial( RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a); Set(Version(a), 0); SetTreeIcon(pDir([Media\Icons\Initialize.ico])); SetChannels(1, 0); SetChannelRanges(1, 255, 0, 255); int001(183); int013(1, 0, true, true, 0, 0, [], []); SetLoc(16, 20, 0); SetSize(5, 2, 1); LockPosition(false); LockSize(false); DisableIconRotation(false); SetProductCode([]); SetExprAtt(1, [MatrixRepeat( nRows(in(1, c)), nCols(in(1, c)), Cell(mcx, mcy, in(1, c)) := Cell(mcx, mcy, refExcelActiveX2_table1) )]); SetAtt(2, 1); int024; SetStatus(0); int018; Up; int014(0, 180, 1, 183, 0); int006(18000, 180, 1, 0, 0); {Experiment settings} int034; int007;