Ich bin ein absolut unwissender in Programmiersprachen !

Wir sind ne große Digitaldruckerei mit ner Beta-Maschine von 2001 !
Upgrades bekommen wir nicht mehr, da unsere Maschine angeblich in BORLAND programmiert wurde und alle neuen Maschinen nun in C++ programmiert wurden !

Ich habe mir die neuen Scripts zuschicken lassen, aber für mich sieht das quasi gleich aus ! Hier einmal ein Auszug:

ALT, angeblich BORLAND:

Private:EnableDevice()
////////////////////////////////////////////////////////////////////////////////
// 1. Enable/Disable a General Device. //
// Cation ! When using Can Devices, only switches & detectors are sppurted. //
////////////////////////////////////////////////////////////////////////////////

{
Enable DEVICE = ENABLE_DEVICE_NAME,
ENABLE_FLAG = ENABLE_FLAG;
}

Private:OperateByDerectorAct()
////////////////////////////////////////////////////////////////////////////
// Operate by detector action. //
////////////////////////////////////////////////////////////////////////////
{
OperateByDetector DEVICE = OPERATE_SWITCH_NAME ,
DO_ON = OPERATION_TYPE_FLAG , DETECTOR_NAME = DETECTOR_NAME ,
DETECTOR_STATE = DETECTOR_STATE , DELAY_MSEC = DELAY_MSEC , ACTIVE_FLAG = ACTIVE_FLAG ,
RET_VAL_VARIABLE_NAME = OpWasSet;
}

Private:ShutDown() // Shut Down Function
////////////////////////////////////////////////////////////////////////////
// 1. Shut off conveyer. //
// 2. //Reset XY Controller. //
// 3. Shut off circulation. //
// 4. Run Machine Off. //
// 5. Close Valves. //
// 6. Run Capping. //
////////////////////////////////////////////////////////////////////////////
{
//2. Reset XY Controller.
//RunFunction ResetXY();

//3. Shut off circulation.
RunMethod IO_OBJECT_NAME = Shaldag,
METHOD_NAME = RunSetMemberValue,
METHOD_PARAMS_LIST={"CirculationMode", CIRCULATION_FORCE_OFF};

SwitchOff SWITCH_NAME = Circulation_Pump_Cyan;
SwitchOff SWITCH_NAME = Circulation_Pump_Magenta;
SwitchOff SWITCH_NAME = Circulation_Pump_Yellow;
SwitchOff SWITCH_NAME = Circulation_Pump_Black;
SwitchOff SWITCH_NAME = Circulation_Pump_LCyan;
SwitchOff SWITCH_NAME = Circulation_Pump_LMagenta;

//4. Run Machine Off.
RunFunction MachineOff();

//5. Close Valves.
RunFunction CloseAllValves();

//6. Run Capping.
RunFunction RunCapping();

}

Private:ResetButtons()
///////////////////////////////////////////////////////////////////////////////
// 1. Reaset Buttons //
///////////////////////////////////////////////////////////////////////////////
{
RunMethod IO_OBJECT_NAME=Shaldag,
METHOD_NAME=RunSendUpdateLogMsg,
METHOD_PARAMS_LIST={RELEASE_ALL_BUTTONS, 0};
}

Private:Pow2()
////////////////////////////////////////////////////////////////////////////
// 1. Return power 2 of a color index. //
////////////////////////////////////////////////////////////////////////////
{
Set value = 1;
For (num = 0 ; num < color_index ; num = num + 1)
{
Set value = value * 2;
}
Return value ;
}

////////////////////////////////////////////////////////////////////////////
// 1. Get the color name when a color index is givven. //
////////////////////////////////////////////////////////////////////////////
Private:GetColorByIndex()
{
Set color_ref = "color_name" ;
GetColorName DEVICE = Shaldag, COLOR = color_index, RET_VAL_VARIABLE_NAME = color_ref;
}

////////////////////////////////////////////////////////////////////////////
// 1. Get the color external name when a color index is givven. //
////////////////////////////////////////////////////////////////////////////
Private:GetColorExternalByIndex()
{
Set color_external_ref = "color_external_name" ;
GetColorExternalName DEVICE = Shaldag, COLOR = color_index, RET_VAL_VARIABLE_NAME = color_external_ref;
}

Neue Scripts, angeblich C++:

Private:EnableShaldagDevice()
////////////////////////////////////////////////////////////////////////////////
// 1. Enable/Disable a General Device. //
// Cation ! When using Can Devices, only switches & detectors are sppurted. //
////////////////////////////////////////////////////////////////////////////////

{
Enable DEVICE = ENABLE_DEVICE_NAME,
ENABLE_FLAG = ENABLE_FLAG;
}

Private:OperateByDerectorAct()
////////////////////////////////////////////////////////////////////////////
// Operate by detector action. //
////////////////////////////////////////////////////////////////////////////
{
OperateByDetector DEVICE = OPERATE_DEVICE ,
DO_ON = OPERATION_TYPE_FLAG , DETECTOR_NAME = DEVICE ,
DETECTOR_STATE = DETECTOR_STATE , DELAY_MSEC = DELAY_MSEC , ACTIVE_FLAG = ACTIVE_FLAG ,
RET_VAR = OpWasSet;
}

Private:ShutDown() // Shut Down Function
////////////////////////////////////////////////////////////////////////////
// 1. Shut off old circulation. //
// 2. Run Machine Off. //
// 3. Close Valves. //
// 4. Run Capping. //
// 5. Shut off new circulation. //
////////////////////////////////////////////////////////////////////////////
{
TRY=
{
LogText "ShutDown in action...";

If (MACHINE_TYPE == S2S && IS_DRYER)
{
AbortGlobalTask TASK_ID = s_DryerController;
}

If ( IS_R2R_DELTA_DRYER && (MACHINE_TYPE == R2R) )
{
RunFunction DeltaPlateOff();
RunFunction DeltaDryerOff();
}

RunMethod DEVICE = XyController, METHOD_NAME = RunResetXY , LOCK_DEVICE=FALSE;

//1. Shut off circulation.
If ( (!NewBellowSystem) && (!s_TitanicInkSystem) )
{
RunMethod DEVICE = Shaldag,
METHOD_NAME = RunSetMemberValue,
METHOD_PARAMS_LIST={"CirculationMode", CIRCULATION_FORCE_OFF};

SwitchOff DEVICE = Circulation_Pump_Cyan;
SwitchOff DEVICE = Circulation_Pump_Magenta;
SwitchOff DEVICE = Circulation_Pump_Yellow;
SwitchOff DEVICE = Circulation_Pump_Black;
SwitchOff DEVICE = Circulation_Pump_LCyan;
SwitchOff DEVICE = Circulation_Pump_LMagenta;
}

//6. Shut off new circulation.
If (NewBellowSystem)
{
RunFunction CirculationOffAll();
}

If ( s_TitanicInkSystem )
{
RunScript FUNCTION = TitanicInkSystemShutdown ;
}

//2. Run Machine Off.
RunFunction MachineOff();

//3. Close Valves.
RunFunction CloseAllValves();

//4. Run Capping.
RunFunction RunCapping();

LogText "Shutdown done";
}
CATCH=
{
Warning "Shut down exception";
ResetCatch;

}
}

Private:ResetButtons()
///////////////////////////////////////////////////////////////////////////////
// 1. Reaset Buttons //
///////////////////////////////////////////////////////////////////////////////
{
RunMethod DEVICE=Shaldag,
METHOD_NAME=RunSendUpdateLogMsg,
METHOD_PARAMS_LIST={RELEASE_ALL_BUTTONS, 0};
}

Private:Pow2()
////////////////////////////////////////////////////////////////////////////
// 1. Return power 2 of a color index. //
////////////////////////////////////////////////////////////////////////////
{
Set value = 1;
For (num = 0 ; num < color_index ; num = num + 1)
{
Set value = value * 2;
}
Return value ;
}

////////////////////////////////////////////////////////////////////////////
// 1. Get the color name when a color index is givven. //
////////////////////////////////////////////////////////////////////////////
Private:GetColorByIndex()
{
Set color_ref = "color_name" ;
GetColorName DEVICE = Shaldag, COLOR = color_index, RET_VAR = color_ref;
}

////////////////////////////////////////////////////////////////////////////
// 1. Get the color external name when a color index is givven. //
////////////////////////////////////////////////////////////////////////////
Private:GetColorExternalByIndex()
{
Set color_external_ref = "color_external_name" ;
GetColorExternalName DEVICE = Shaldag, COLOR = color_index, RET_VAR = color_external_ref;
}

http://www.c-plusplus.net/forum/images/smiles/confused.gif
Könntet Ihr mir sagen ob das wirklich 2 verschiedene Programmiersprachen sind ?

Für mich sieht das quasi gleich aus, aber ich will nicht einfach die neuen Scripts einfügen und die Maschine zerstören !http://www.c-plusplus.net/forum/images/smiles/warning.gif

Und Borland ist nur eine Firma. Keine Programmiersprache.

Dann haben mich die Israelis ja belogen ! Schweinerei ...

Kann mir denn jemand sagen was das ganze ist ? Wenn es nicht C++ ist ?

Vielen Dank !