Anfängerfrage : Unterschied C++ und Borland ????
-
Hi !
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
-
Nichts davon ist C++.
Und Borland ist nur eine Firma. Keine Programmiersprache.
-
Das ist aber doof !
Dann haben mich die Israelis ja belogen ! Schweinerei ...
Kann mir denn jemand sagen was das ganze ist ? Wenn es nicht C++ ist ?
Vielen Dank !
