IFIX Automation Reference - Section2.en - Es
IFIX Automation Reference - Section2.en - Es
www.onlinedoctranslator.com
I FIXA UTOMACIÓN R
EFERENCIA (E Ventilaciones , S
UBROUTINAS , F UNCIONES , Y
mi XAMPLES )
V ERSION5. 1
Mayo 2 0 1 0
Reservados todos los derechos. Ninguna parte de esta
publicación puede reproducirse de ninguna forma ni por
ningún medio electrónico o mecánico, incluidas fotocopias
y grabaciones, sin el permiso por escrito de GE Intelligent
Platforms, Inc.
Eventos........................................................ 58
ANUNCIO..................................................... 58
Evento activado.......................................... 58
Sintaxis................................................. 58
Propiedades.......................................... 58
Evento AfterKillFocus.................................. 59
Sintaxis................................................. 59
Propiedades.......................................... 59
Evento AlarmAck........................................ 60
Sintaxis................................................. 60
Propiedades.......................................... 60
Propiedades.......................................... 62
Observaciones...................................... 63
Evento AlarmListChanged.......................... 63
Sintaxis................................................. 63
Propiedades.......................................... 63
Observaciones...................................... 64
Sintaxis
..............................................................
sesenta y cinco
Propiedades
..............................................................
sesenta y cinco
Observaciones...................................... 66
Cerrar evento.............................................. 66
Sintaxis................................................. 67
Propiedades.......................................... 67
Evento ColorChanged................................. 67
Sintaxis................................................. 67
Propiedades.......................................... 68
Evento DataChange.................................... 68
Sintaxis................................................. 69
Propiedades.......................................... 69
Evento DblClick........................................... 73
Sintaxis................................................. 73
Propiedades.......................................... 73
Observaciones...................................... 74
Propiedades.......................................... 74
Evento desactivado..................................... 75
Sintaxis................................................. 75
Propiedades.......................................... 76
Observaciones...................................... 76
ES................................................................ 77
Editar evento............................................... 77
Sintaxis................................................. 77
Propiedades.......................................... 77
Observaciones...................................... 78
EditarCambiar evento................................. 79
Sintaxis................................................. 79
Propiedades.......................................... 79
Inicializar evento......................................... 80
Sintaxis................................................. 80
Propiedades.......................................... 80
Evento InitializeConfigure...........................81
Sintaxis................................................. 81
Propiedades.......................................... 81
Evento KeyDown........................................ 82
Sintaxis................................................. 82
Propiedades.......................................... 82
Ajustes.................................................. 84
Observaciones...................................... 84
Evento KeyUp............................................. 85
Sintaxis................................................. 85
Propiedades.......................................... 86
Ajustes.................................................. 86
Observaciones...................................... 87
Evento LMouseClick................................... 88
Sintaxis................................................. 88
Propiedades.......................................... 88
Evento LoadedTagGroup............................89
Sintaxis................................................. 89
Propiedades.......................................... 90
Evento MouseDown.................................... 90
Sintaxis................................................. 90
Propiedades.......................................... 91
Ajustes.................................................. 92
Observaciones...................................... 94
Evento MouseMove.................................... 95
Sintaxis................................................. 95
Propiedades.......................................... 95
Ajustes.................................................. 97
Observaciones...................................... 99
Evento MouseUp........................................ 99
Sintaxis................................................. 99
Propiedades.......................................... 99
Ajustes.................................................. 101
Observaciones...................................... 102
Evento MouseUpOffObject.........................104
Sintaxis................................................. 104
Propiedades.......................................... 104
Observaciones...................................... 105
Sintaxis................................................. 106
Propiedades.......................................... 107
Observaciones...................................... 107
ONZ............................................................. 108
Sintaxis................................................. 108
Propiedades.......................................... 108
Sintaxis................................................. 109
Propiedades.......................................... 109
Observaciones...................................... 110
Sintaxis................................................. 110
Propiedades.......................................... 111
Sintaxis................................................. 111
Propiedades.......................................... 111
Observaciones...................................... 112
Sintaxis................................................. 113
Propiedades.......................................... 113
Evento OnTimeOut..................................... 113
Sintaxis................................................. 114
Propiedades.......................................... 114
Sintaxis................................................. 115
Propiedades.......................................... 115
Observaciones...................................... 116
Sintaxis................................................. 117
Propiedades.......................................... 117
SeverityIncreased Event.............................119
Sintaxis................................................. 119
Propiedades.......................................... 119
Sintaxis................................................. 120
Propiedades.......................................... 121
Observaciones...................................... 121
Sintaxis................................................. 122
Propiedades.......................................... 122
Observaciones...................................... 122
Subrutinas.................................................... 123
AF................................................................ 123
Sintaxis................................................. 124
Propiedades.......................................... 124
Observaciones...................................... 126
Propiedades.......................................... 127
Subrutina AlarmHornEnabled.....................129
Sintaxis................................................. 129
Propiedades.......................................... 129
AlarmHornEnabledToggle Subrutina...........131
Sintaxis................................................. 131
Propiedades.......................................... 131
Sintaxis................................................. 133
Propiedades.......................................... 133
Observaciones...................................... 134
Propiedades.......................................... 135
Observaciones...................................... 137
Sintaxis................................................. 137
Propiedades.......................................... 137
Observaciones...................................... 139
Sintaxis................................................. 140
Propiedades.......................................... 140
Sintaxis................................................. 143
Propiedades.......................................... 143
Sintaxis................................................. 145
Propiedades.......................................... 145
Sintaxis................................................. 148
Propiedades.......................................... 148
Observaciones...................................... 150
Sintaxis................................................. 150
Propiedades.......................................... 150
Observaciones...................................... 152
Subrutina GeneratePicture..........................153
Sintaxis................................................. 153
Propiedades.......................................... 153
Subrutina GetAllConnections......................157
Sintaxis................................................. 157
Propiedades.......................................... 157
Subrutina GetDecimalSeparator.................158
Sintaxis................................................. 158
Propiedades.......................................... 159
Subrutina GetFormDynamoColor................160
Sintaxis................................................. 160
Sintaxis................................................. 160
Sintaxis................................................. 160
Sintaxis................................................. 161
Subrutina GetFormSlider............................161
Sintaxis................................................. 161
GetLocaleInfoA subrutina............................161
Sintaxis................................................. 162
Propiedades.......................................... 162
Observaciones...................................... 163
Subrutina GetUserDefaultLCID...................164
Sintaxis................................................. 164
Observaciones...................................... 164
Sintaxis................................................. 165
Propiedades.......................................... 165
Observaciones...................................... 167
LR................................................................ 168
Sintaxis................................................. 168
Propiedades.......................................... 168
Sintaxis................................................. 171
Propiedades.......................................... 171
Sintaxis................................................. 173
Propiedades.......................................... 173
Sintaxis................................................. 175
Propiedades.......................................... 175
Sintaxis................................................. 177
Propiedades.......................................... 177
Observaciones...................................... 179
Sintaxis................................................. 179
Propiedades.......................................... 179
Observaciones...................................... 183
Sintaxis................................................. 185
Propiedades.......................................... 185
Observaciones...................................... 188
Sintaxis................................................. 189
Propiedades.......................................... 189
Sintaxis................................................. 191
Propiedades.......................................... 191
Sintaxis................................................. 195
Propiedades.......................................... 195
Sintaxis................................................. 198
Propiedades.......................................... 198
Sintaxis................................................. 200
Propiedades.......................................... 200
Sintaxis................................................. 202
Propiedades.......................................... 202
Observaciones...................................... 203
Sintaxis................................................. 204
Propiedades.......................................... 204
Observaciones...................................... 206
Sintaxis................................................. 207
Propiedades.......................................... 207
Observaciones...................................... 210
Propiedades.......................................... 213
Observaciones...................................... 215
SZ................................................................ 216
Sintaxis................................................. 216
Propiedades.......................................... 216
Sintaxis................................................. 218
Propiedades.......................................... 218
Subrutina ShellExecute...............................220
Sintaxis................................................. 220
Propiedades.......................................... 220
Observaciones...................................... 222
Subrutina ToggleDigitalPoint....................... 222
Sintaxis................................................. 222
Propiedades.......................................... 222
ToggleManual Subrutina.............................224
Sintaxis................................................. 224
Propiedades.......................................... 224
Sintaxis................................................. 226
Propiedades.......................................... 226
Sintaxis................................................. 228
Propiedades.......................................... 228
Propiedades.......................................... 231
Observaciones...................................... 233
Sintaxis................................................. 233
Propiedades.......................................... 233
Observaciones...................................... 234
Función eda_get_pdb_name......................235
Sintaxis................................................. 235
Propiedades.......................................... 235
Observaciones...................................... 237
Función eda_reload_database....................238
Sintaxis................................................. 238
Propiedades.......................................... 238
Observaciones...................................... 239
Función eda_save_database......................240
Sintaxis................................................. 240
Propiedades.......................................... 240
Observaciones...................................... 241
Función eda_type_to_index........................242
Sintaxis................................................. 242
Propiedades.......................................... 242
Observaciones...................................... 243
Función FixGetMyname..............................244
Sintaxis................................................. 244
Propiedades.......................................... 244
Observaciones...................................... 246
Sintaxis................................................. 248
Propiedades.......................................... 248
Observaciones...................................... 250
A.................................................................. 253
Ejemplo de AddPictureToStartupList..........261
Ejemplo de AlarmHornEnabled...................264
Ejemplo de AlarmHornEnabledToggle........265
B.................................................................. 267
C.................................................................. 269
Método CheckAccountExpiration
Ejemplo....................................................................269
Método CheckUserApplicationAccess
Ejemplo....................................................... 274
Método ConnectedPropertyCount
Ejemplo....................................................... 285
Ejemplo de método de construcción...........285
Convert_A_Group_To_A_Dynamo_By_N
Ejemplo de método ame.............................286
Convert_A_Group_To_A_Dynamo_By_R
Ejemplo de método ef................................. 286
ConvertSecurityAreaNameToNumber
Ejemplo de método..................................... 294
ConvertSecurityAreaNumberToName
Ejemplo de método..................................... 294
Método Coupled_Activate_Workspace_UI
Ejemplo....................................................... 295
Coupled_DeActivate_Workspace_UI
Ejemplo de método..................................... 295
Método CreateDynamoByGrouping
Ejemplo....................................................... 297
Ejemplo del método CreateFromDialog......298
D.................................................................. 301
Método DisableNonSelectionEvents
Ejemplo....................................................... 312
Método DoesPropertyHaveTargets
Ejemplo....................................................... 313
Método Enumerate_All_Dynamos
Ejemplo....................................................... 319
Método Enumerate_Top_Level_Dynamos
Ejemplo....................................................... 324
Método Enumerate_Top_Level_Groups
Ejemplo....................................................... 326
Método FixCheckApplicationAccess
Ejemplo....................................................... 340
Método FixCheckApplicationAccessQuiet
Ejemplo....................................................... 341
Ejemplo del método FixCheckAreaAccess..341
Método FixCheckAreaAccessQuiet
Ejemplo....................................................... 342
Método FixCheckSecurityEnabled
Ejemplo....................................................... 342
Método FixGetManualAlmDeleteEnabled
Ejemplo....................................................... 343
GRAMO....................................................... 346
Método Get_Last_Prompt_Value
Ejemplo....................................................... 347
Método GetConnectionInformation
Ejemplo....................................................... 363
Método GetConnectionParameters
Ejemplo....................................................... 364
Método GetCurrentValueWithQuality
Ejemplo....................................................... 368
Subrutina GetDecimalSeparator
Ejemplo....................................................... 371
Ejemplo del método GetDeviceRect...........371
Subrutina GetFormDynamoColor
Ejemplo....................................................... 374
Ejemplo de GetProcedureIndex..................390
Método GetSelectedUserDefFields
Ejemplo....................................................... 396
Ejemplo del método GetSignature..............396
Método GetSignatureAndWriteValue
Ejemplo....................................................... 400
Método GlobalScrollForwardFast
Ejemplo....................................................... 412
Método GlobalScrollForwardSlow
Ejemplo....................................................... 413
Ejemplo del método GlobalTimerApply.......414
H.................................................................. 415
IK.................................................................. 417
Método IsSignatureRequiredForList
Ejemplo....................................................... 431
L................................................................... 435
Método ListWindowsGroupNames
Ejemplo....................................................... 438
Minnesota.................................................... 443
O.................................................................. 447
PQ................................................................ 465
Método PromptToChangePassword
Ejemplo....................................................... 472
R.................................................................. 476
Ejemplo de RemovePictureFromStartupList
.................................................................... 491
Ejemplo del método Replace_QT_Pic........492
Ejemplo de ResolveTagGroupFile..............499
S.................................................................. 504
Método SendSignedOperatorMessage
Ejemplo....................................................... 511
SetGlobalMovingEndTimeToCurrent
Ejemplo de método..................................... 519
Método ShowPipePreviewDialog
Ejemplo....................................................... 533
T................................................................... 544
U.................................................................. 547
Método Update_A_Dynamo_By_Name
Ejemplo....................................................... 549
Método Update_A_Dynamo_By_Name2
Ejemplo....................................................... 555
Método Update_A_Dynamo_By_Ref
Ejemplo....................................................................555
Método Update_A_Dynamo_By_Ref2
Ejemplo....................................................... 563
Método UpdateBackgroundObject
Ejemplo....................................................... 568
Método UpdateConnectionParameters
Ejemplo....................................................... 569
Método UserFormPointToLogical
Ejemplo....................................................... 572
VZ................................................................ 573
Método ValidateSignatureAndWriteValue
Ejemplo....................................................... 575
Método WritePictureToImageFile
Ejemplo....................................................... 579
• Resumen de eventos
• Resumen de subrutinas
• Resumen de funciones de base de
datos
• Ejemplos de
Eventos
ANUNCIO
Evento activado
Sintaxis
objeto_Activado ()
Propiedades
Evento AfterKillFocus
Sintaxis
objeto_AfterKillFocus ()
Propiedades
Evento AlarmAck
Sintaxis
objeto_AlarmAck ()
Propiedades
Sintaxis
Parte Descripción
Evento AlarmListChanged
Sintaxis
objeto_AlarmListChanged ()
Propiedades
Observaciones
Sintaxis
objeto_Haga clic en ()
Propiedades
Observaciones
Cerrar evento
Ocurre cuando un contenedor de página se
apaga o se cierra en el entorno de tiempo de
ejecución.
Sintaxis
objeto_Cerrar( )
Propiedades
Parte Descripción
Evento ColorChanged
Sintaxis
objeto_ColorChanged (ByVal Color Tanto
tiempo)
Propiedades
Parte Descripción
Evento DataChange
Sintaxis
Propiedades
Valor de los
datos El nuevo valor de los datos.
Reservado Reservado.
Definición de activación de eventos
Sin inicializar a
verdadero DataChange, WhileTrue
Evento DblClick
Sintaxis
objeto_DblClick ()
Propiedades
Parte Descripción
Propiedades
Evento desactivado
Sintaxis
objeto_Desactivado ()
Propiedades
Parte Descripción
Observaciones
Editar evento
Ocurre cuando:
Sintaxis
objeto_Editar ()
Propiedades
Observaciones
EditarCambiar evento
Sintaxis
Propiedades
La sintaxis del evento EditChange tiene estas
partes:
Parte Descripción
Inicializar evento
Sintaxis
objeto_Inicializar ()
Propiedades
La sintaxis del evento Initialize tiene esta parte:
Parte Descripción
Evento InitializeConfigure
Sintaxis
objeto_InitializeConfigure ()
Propiedades
Evento KeyDown
Sintaxis
Propiedades
La sintaxis del evento KeyDown tiene estas
partes:
Parte Descripción
Valor Descripción
1 Se presionó SHIFT.
2 Se presionó CTRL.
4 Se presionó ALT.
Observaciones
Evento KeyUp
Sintaxis
objeto_KeyUp (ByVal Clave Mientras tanto,
ByVal Cambio Mientras, continúe
procesando como
Booleano)
Propiedades
Parte Descripción
Ajustes
1 Se presionó SHIFT.
2 Se presionó CTRL.
4 Se presionó ALT.
Observaciones
Evento LMouseClick
Sintaxis
Propiedades
Evento LoadedTagGroup
Sintaxis
objeto_LoadedTagGroup (TagGroupName
Como Cuerda)
Propiedades
Parte Descripción
Evento MouseDown
Sintaxis
Parte Descripción
Valor Descripción
1 Se presionó SHIFT.
2 Se presionó CTRL.
4 Se presionó ALT.
Sintaxis
Propiedades
La sintaxis del evento MouseMove tiene estas
partes:
Parte Descripción
Valor Descripción
1 Se presionó SHIFT.
2 Se presionó CTRL.
4 Se presionó ALT.
Evento MouseUp
Sintaxis
Propiedades
Valor Descripción
1 Se presionó SHIFT.
2 Se presionó CTRL.
4 Se presionó ALT.
Observaciones
Sintaxis
objeto_MouseUpOffObject ()
Propiedades
Parte Descripción
Sintaxis
objeto_NewAlarm (strNode Como cuerda,
strTag Como cuerda)
Propiedades
Parte Descripción
Observaciones
ONZ
Evento OnChange
Sintaxis
objeto_OnChange ()
Propiedades
La sintaxis del evento OnChange tiene esta
parte:
Parte Descripción
Evento OnChartFull
Sintaxis
objeto_OnChartFull ()
Propiedades
Observaciones
Evento OnChartRefresh
Sintaxis
objeto_OnChartRefresh ()
Propiedades
Parte Descripción
Evento OnFalse
Sintaxis
objeto_OnFalse ()
Propiedades
Observaciones
Evento OnPenSelect
Ocurre cuando el usuario cambia el lápiz
activo actualmente seleccionando otro
lápiz.
Sintaxis
Propiedades
Parte Descripción
Evento OnTimeOut
Sintaxis
Propiedades
lTimerId Reservado.
OnTrue Event
Sintaxis
objeto_OnTrue ()
Propiedades
Observaciones
Sintaxis
Propiedades
Evento SelectionChanged
Reservado para fines internos.
SeverityIncreased Event
Sintaxis
objeto_SeverityIncreased ()
Propiedades
Evento de UIDeactivate
Sintaxis
objeto_MientrasFalso ()
Propiedades
Parte Descripción
Observaciones
objeto_WhileTrue ()
Propiedades
Parte Descripción
Observaciones
AF
Propiedades
La sintaxis de la subrutina
AcknowledgeAllAlarms tiene estas
partes:
Parte Descripción
Sintaxis
Propiedades
La sintaxis de la subrutina
AcknowledgeAnAlarm tiene estas partes:
Parte Descripción
Sintaxis
AlarmHornEnabled
([blnNewValue], [intErrorMode])
Propiedades
La sintaxis de la subrutina
AlarmHornEnabled tiene estas partes:
Parte Descripción
AlarmHornEnabledToggle Subrutina
Sintaxis
AlarmHornEnabledToggle ([intErrorMode])
Propiedades
La sintaxis de la subrutina
AlarmHornEnabledToggle tiene esta parte:
Parte Descripción
Valor devuelto
AlarmHornSilence Subrutina
Sintaxis
AlarmaCuernoSilencio ([intErrorMode])
Propiedades
Observaciones
Sintaxis
CerrarDigitalPoint
[DigitalPoint], [intErrorMode]
Propiedades
Sintaxis
Propiedades
CerrarImagen "Tanque1"
DoEvents
OpenPicture "Tank2"
End Sub
NOTA: No puede llamar a métodos en imágenes
que ha cerrado.
Sintaxis
Propiedades
Sintaxis
Propiedades
Parte Descripción
Sintaxis
Propiedades
Sintaxis
Propiedades
Valor devuelto
Subrutina FindLocalObject
Sintaxis
Propiedades
Valor devuelto
Subrutina GeneratePicture
Sintaxis
Propiedades
Parte Descripción
b Define si se puede
Redimensionab cambiar el tamaño de la
le ventana de imagen. El
tipo es booleano.
bAlwaysOnTop
bRuntimeVisible Define si la ventana de
imagen está siempre
encima de otras
ventanas de imagen. El
tipo es booleano.
Define si la imagen es
visible o no en tiempo
de ejecución. El tipo es
booleano.
Subrutina GetAllConnections
Sintaxis
GetAllConnections (Obj)
Propiedades
Valor devuelto
Subrutina GetDecimalSeparator
Método reservado utilizado internamente para
expertos.
Sintaxis
GetDecimalSeparator ([intErrorMode])
Propiedades
La sintaxis de la subrutina
GetDecimalSeparator tiene esta parte:
Parte Descripción
Sintaxis
GetFormDynamoColor DynColor
Subrutina GetFormNumeric
Sintaxis
GetFormNumeric ()
Subrutina GetFormPushbutton
Sintaxis
GetFormPushbutton ()
Subrutina GetFormRamp
Sintaxis
GetFormRamp ()
Subrutina GetFormSlider
Sintaxis
GetFormSlider ()
GetLocaleInfoA subrutina
Propiedades
Valor devuelto
Observaciones
GetLocaleInfoA es una llamada a la API de
Windows.
Subrutina GetUserDefaultLCID
Sintaxis
GetUserDefaultLCID ()
Valor devuelto
Observaciones
Subrutina HandleError
HandleError([intErrorMode])
Propiedades
Sintaxis
IsUserFxg ()
Valor devuelto
Observaciones
Subrutina LocateObject
Sintaxis
LocateObject LinkName,
bRelative, [intErrorMode]
Propiedades
La subrutina LogIn:
Sintaxis
Acceso([intErrorMode]) ([bPushCurrentUser
como booleano])
Propiedades
Subrutina OffScan
Sintaxis
Sintaxis
Propiedades
Sintaxis
OpenDigitalPoint
[DigitalPoint], [intErrorMode]
Propiedades
Subrutina OpenPicture
Sintaxis
Propiedades
Cuerda. (Opcional) El
Fotografía archivo
nombre de la imagen que
quiero abrir. Si no hay
archivo
se especifica el nombre, el
Se inicia el cuadro de
diálogo Abrir
permitiendo al usuario
seleccionar
una imagen para abrir.
Posición
Izquierda Variante. (Opcional) El
posición en la que tu
quiero colocar el lado
izquierdo
de la imagen.
Predeterminado =
0.
intErrorMode Entero. (Opcional) El
modo de error.
0 (predeterminado):
permite que las
subrutinas proporcionen
los mensajes de error.
Los errores se muestran
en forma de cuadro de
mensaje. Si no se realiza
ninguna entrada para el
parámetro intErrorMode,
se utiliza el valor
predeterminado.
1: permite al usuario
manejar los mensajes de
error. Los errores en las
subrutinas se devuelven a
la rutina de llamada para
su manejo.
2 - Escribe errores en
todos los destinos. No se
muestran mensajes de
error. En su lugar, los
errores se escriben en
todos los destinos iFIX,
incluidos los destinos de
la ventana del historial de
alarmas mediante
SendOperatorMessage.
Vocación Objeto. (Opcional) El
imagen cuyo estado de
Fotografía etiqueta
la funcionalidad será
accedido.
TSPicType TS_PIC_TYPE
(Opcional) El tipo de
Etiquetar imagen de estado
para
abierto:
- Imagen TS de etiqueta
0 única
1 - Tendencia rápida
- Panel de control de
2 etiquetas
Observaciones
Subrutina OpenTGDPicture
Abre la imagen especificada con el archivo de
grupo de etiquetas especificado.
Sintaxis
OpenTGDPicture [Imagen],
[PictureAlias], [TopPosition],
[LeftPosition], [TagGroupName],
[intErrorMode], [bNewInstance]
Propiedades
Parte Descripción
Observaciones
Subrutina PictureAlias
Sintaxis
Propiedades
Sintaxis
Propiedades
Subrutina QuickAdd
Inicia el cuadro de diálogo Agregar rápido
para agregar un bloque de datos.
Sintaxis
Propiedades
1 = sintaxis no válida
Subrutina RampValue
RampValue RampValue,
ByPercent, [DataPoint],
[intErrorMode]
Propiedades
Parte Descripción
Sintaxis
Propiedades
Parte Descripción
Valor devuelto
ReadValue devuelve el valor del bloque
especificado.
Subrutina RegCloseKey
Sintaxis
RegCloseKey (hKey)
Propiedades
Valor devuelto
Observaciones
Subrutina RegOpenKeyEx
Sintaxis
Propiedades
phkResult
Largo. Variable para cargar con asa
a la llave abierta.
Valor devuelto
Observaciones
Propiedades
Parte Descripción
Observaciones
DoEvents
OpenPicture "Tank3"
End Sub
ReemplazarTGDPicture Nueva
imagen, TagGroupName,
[OldPicture], [bNewInstance]
Propiedades
La sintaxis de la subrutina
ReplaceTGDPicture tiene estas partes:
Parte Descripción
SetAuto Subrutina
Sintaxis
Propiedades
Sintaxis
Propiedades
Sintaxis
Propiedades
Observaciones
Subrutina ToggleDigitalPoint
Sintaxis
ToggleDigitalPoint
[DigitalPoint], [intErrorMode]
Propiedades
Sintaxis
Propiedades
Sintaxis
Propiedades
Sintaxis
Propiedades
Resumen de
funciones de base
de datos
La siguiente lista contiene las funciones de la
base de datos iFIX que están disponibles para
la interfaz de automatización. Para obtener
información sobre objetos que no son iFIX,
consulte el sistema de ayuda correspondiente.
• eda_add_block
• eda_delete_block
• eda_get_pdb_name
• eda_reload_databse
• eda_save_database
• eda_type_to_index
• FixGetMyName
• NlsGetText
Función eda_add_block
Sintaxis
Propiedades
Valor devuelto
Función eda_delete_block
Sintaxis
Propiedades
Valor devuelto
Observaciones
Sintaxis
Propiedades
Nombre del
nodo Cuerda. El nombre de
nodo en el que la base de
datos
reside.
Valor devuelto
Entero. FE_OK si no hay error.
Observaciones
NodeName = ""
Función eda_reload_database
Sintaxis
Propiedades
Nombre del
nodo Cuerda. El nombre del nodo en el que
para volver a cargar la base de datos.
Valor devuelto
Observaciones
Sintaxis
Propiedades
Parte Descripción
Nombre del
nodo Cuerda. El nombre del nodo cuyo
la base de datos se guardará.
Nombre de la
base de datos Cuerda. El nombre del archivo al que
se guardará la base de datos actual.
Valor devuelto
Valor Descripción
FE_OK Exitoso.
FE_SEC_ACCESSS No autorizado
acceso
intentó.
Nombre de la
FE_BAD_FILENAME base de datos
especificado es
malo.
Se lee la base de
FE_READ_ONLY datos
solamente.
Observaciones
Función eda_type_to_index
Sintaxis
Propiedades
Nombre del
nodo Cuerda. Nombre del nodo en
en el que se encuentra el
bloque.
Valor devuelto
Observaciones
Sintaxis
Propiedades
Parte Descripción
Largo.
Valor Descripción
FTK_OK Exitoso.
La longitud de la
FTK_BAD_LENGTH cuerda también
pequeña.
FTK_BAD_MHANDLE Puntero a no
memoria grabable
aprobada en.
No existe ningún
FTK_NO_MESSAGE mensaje para
error.
La longitud de la
FTK_BAD_LENGTH cuerda también
pequeña.
Observaciones
StrMyNode = ""
Else
Terminara si
Siguiente yo
Sintaxis
Propiedades
Valor devuelto
Largo.
Parte Descripción
FTK_OK Exitoso.
FTK_BAD_MHANDLE Se ha pasado un
puntero a la
memoria que no
se puede
escribir.
FTK_NO_MESSAGE
No existe ningún
mensaje de
FTK_BAD_LENGTH error.
La longitud de
la cuerda es
demasiado
pequeña.
Observaciones
iRVal = AlarmSummaryOCX1.AckAlarm
("NODE1", "AI1")
Ejemplo del método AckAlarmPage
iRVal =
AlarmSummaryOCX1.AckAlarmPage
iRVal =
AlarmSummaryOCX1.AckAllAlarms
Ejemplo de subrutina
AcknowledgeAllAlarms
El siguiente ejemplo reconoce las alarmas
para todos los bloques de Picture
TestPicture.
AcknowledgeAllAlarms
"TestPicture"
Ejemplo de subrutina
AcknowledgeAnAlarm
El siguiente ejemplo reconoce la alarma
para el bloque AI1.
Reconocer una alarma "AI1"
Ejemplo de método
ActivateWorkspaceUI
El siguiente ejemplo activa la
interfaz de usuario de WorkSpace.
Application.ActivateWorkspaceUI
Establecer objDS =
LineChart1.AddDataSet ("Fix32.Fix.
AI1.F_CV ")
Ejemplo del método
AddEventHandler
CurrentObject.Procedures.AddEvent
Handler "Click", "OpenPicture",
lIndex
Ejemplo de AddPictureToStartupList
lErr =
Application.UserPreferences.AddPi
ctureToStartupList_
("D: \ Programa
Archivos \ Proficy \ Proficy
iFIX \ pic \ pic1.grf ",
verdadero)
Tenga en cuenta que se requiere la ruta
completa para la imagen. También tenga en
cuenta que el segundo parámetro, cuando se
establece en TRUE, agrega la imagen a la
lista de inicio de Runtime. Cuando se
establece en FALSE, agrega la imagen a la
lista de inicio del entorno de configuración.
iPoint.x = 50,5
iPoint.y = 60,1
Polygon1.AddPoint iPoint
Ejemplo del método AddProcedure
MsgBox strMessage
End Sub
Establecer o =
Application.ActiveDocument.Page.F
indObject ("Rect2")
o.Procedures.AddProcedure
"DisplayMessage", "strMessage
como cadena", _
"MsgBox strMessage", lIndex
Ejemplo de AlarmHornEnabled
Ejemplo 1
Dim blnReturn como booleano
blnReturn = AlarmHornEnabled
En el Ejemplo 2, Verdadero
pasó para habilitar la bocina
de alarma, luego verifica si
estaba configurada.
Ejemplo 2
Dim bln Devolver como booleano
blnReturn =
AlarmHornEnabled (verdadero)
Si no es blnReturn Entonces
blnReturn =
AlarmHornEnabledToggle
Si blnReturn Entonces
Demás
Terminara si
Ejemplo de AlarmHornSilence
1_Click () AlarmHornSilence
End Sub
Polygon1.SelectObject False
sin título1.Align 3
TestPicture.BringToFront
Ejemplo del método BuildObject
Establecer iRect =
TestPicture.BuildObject ("Rect")
iRect.HorizontalPosition = 10.0
iRect.VerticalPosition = 30.0
iRect.EdgeWidth = 5
iRect.FillStyle = 1 iRect.Commit
C
TestPicture.CanConstruct
"FIX32.NODE1.AI1", bCanConstruct
cadena
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
Si bCanChangePassword <>
False, entonces
ESig.PromptToChangePassword
Nombre de usuario
Terminara si
Demás
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
ESig.CheckSecurityEnabled
bEnabled
MsgBox "Seguridad
habilitada:" & bEnabled
Ejemplo del método CheckSyntax
strExpression = "AI1.F_CV +
AI2.F_CV"
bSuccess =
ExpressionEditor1.CheckSyntax (str
Expresión)
cadena
'nombre de usuario y
contraseña válidos de
iFix
UserName = "nombre de usuario"
PassWord = "contraseña"
resultado = Falso
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
ESig.GetUserid UserName,
Contraseña, UsrId
'Compruebe si el usuario
tiene acceso a la función
de aplicación de omisión de
firma electrónica
ESig.CheckUserApplicationAccess
UsrId, 74, resultado
MsgBox "Usuario:" & UserName &
vbCr
& "¿Tiene derecho a omitir la
firma?" & Resultado
'Compruebe si el usuario
tiene acceso al área de
seguridad B
ESig.CheckUserAreaAccess
UsrId, "B", resultado
MsgBox "Usuario:" & UserName &
vbCr
& "¿Tiene derechos sobre el Área
de seguridad B?" & Resultado
Demás
atenuación como
cadena
'nombre de usuario y
contraseña válidos de
iFix
UserName = "nombre de usuario"
PassWord = "contraseña"
resultado = Falso
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
'Obtener la identificación de
usuario
ESig.GetUserid UserName,
Contraseña, UsrId
'Compruebe si el usuario
tiene acceso a la función
de aplicación de omisión de
firma electrónica
ESig.CheckUserApplicationAccess
UsrId, 74, resultado
MsgBox "Usuario:" & UserName &
vbCr
& "¿Tiene derecho a omitir la
firma?" & Resultado
'Compruebe si el usuario
tiene acceso al área de
seguridad B
ESig.CheckUserAreaAccess
UsrId, "B", resultado
MsgBox "Usuario:" & UserName &
vbCr
& "¿Tiene derechos sobre el Área
de seguridad B?" & Resultado
Demás
Establecer iDoc =
Application.Documents.open ("C: \
Pr
Archivos de programa \ Proficy \
Proficy
iFIX \ pic \ testpicture.grf ")
iDoc.Close 2, 1
Ejemplo de subrutina
CloseDigitalPoint
El siguiente ejemplo cierra el bloque DO1.
CloseDigitalPoint "DO1"
Establecer iRect =
TestPicture.BuildObject ("Rect")
iRect.HorizontalPosition = 10.0
iRect.VerticalPosition = 30.0
iRect.EdgeWidth = 5
iRect.FillStyle = 1 iRect.Commit
Ejemplo de método de conexión
Establecer objAnim =
Rect1.BuildObject ("Lineal")
'Inicializar las propiedades
del objeto lineal
objAnim.Source =
"Fix32.Scada1.AI1.F_CV"
'Configurar la transformación
dentro y fuera de los parámetros
de rango
objAnim.AutoFetch = True
'Establecerlo para obtener
límites
objAnim.UseDelta = True
'Configúrelo para movimiento
relativo
objAnim.LoOutValue = 0
'Establecer valor de salida
bajo
objAnim.HiOutValue = 15
'Establecer valor de salida alto
'Conecte la salida del objeto
de animación a la posición del
rectángulo
Rect1.Connect
"Posicion horizontal",
objAnim.FullyQualifiedName &
".OutputValue", lngStatus
Ejemplo del método
ConnectDataSet
Ejemplo de método
ConnectedPropertyCount
El siguiente ejemplo determina el número de
propiedades que tienen conexiones
configuradas para el objeto Oval Oval1.
Dim lCount tan largo
Oval1.ConnectedPropertyCount
lCount
Ejemplo de método de
construcción
Oval1.Construya
"FIX32.NODE1.NEWAI", lStatus
Ejemplo de método
Convert_A_Group_To_A_Dynamo_B
y_Name
Actualmente no hay ningún ejemplo
disponible en este momento.
Ejemplo de método
Convert_A_Group_To_A_Dynamo_B
y_Ref
El siguiente ejemplo muestra el
Convertir el ejemplo del método
_A_Group_To_A_Dynamo_By_Ref usando
los métodos en PlugandSolve -
modDynamoConverter.
Función pública ConvertADynamo
(objGroup como
Fix2DGroup.Fix2DGroup,
objMasterDynamo como
Fix2DDynamo.Fix2DDynamo, ByRef
strReturnMsg) como
UpdateDynamoResult
Dim strDIName como cadena
Atenuar
iDataSourceOption como
DynamoDataSourceOption
Dim iResult As Long
'UpdateDynamoResult
Atenuar iPrompt tanto tiempo
Opciones de actualización de
Dim iUpdateOptions As Long '
Dim bProceedConvert
como booleano
iDataSourceOption =
g_WizardConfig.iDataSourceOption
Si
g_WizardConfig.iDataSourceOption
= DYNAMO_PROMPT_FOR_CHOICE
Entonces
Si
g_ReturnFromPromptForChoiceOnConv
ert =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY
_TO_ALL Entonces
iDataSourceOption =
DYNAMO_UPDATE_BUT_NOT_APPLY
De lo contrario
g_ReturnFromPromptForChoiceOnConv
ert =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MAT
CH_APPLY_TO_ALL Entonces
iDataSourceOption
= DYNAMO_UPDATE_AND_APPLY
De lo contrario
g_ReturnFromPromptForChoiceOnConv
ert =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPL
Y_TO_ALL Entonces
iDataSourceOption
= DYNAMO_NOT_UPDATE
Terminara si
Terminara si
Si iDataSourceOption =
DYNAMO_PROMPT_FOR_CHOICE
Entonces
iUpdateOptions =
UPDATE_OPTION_ON_MISMATCH_PROMT_F
OR_CHOICE
De lo contrario, si
iDataSourceOption =
DYNAMO_UPDATE_AND_APPLY
Entonces
iUpdateOptions =
UPDATE_OPTION_ON_MISMATCH_UPDATE_
DINAMO +
UPDATE_OPTION_ON_MISMATCH_APPLY_D
ATA_SOURCES
De lo contrario, si
iDataSourceOption =
DYNAMO_UPDATE_BUT_NOT_APPLY
Entonces
iUpdateOptions =
UPDATE_OPTION_ON_MISMATCH_UPDATE_
DYNAMO
Terminara si
Terminara si
Si
g_WizardConfig.bKeepCaption =
Verdadero entonces
iUpdateOptions =
iUpdateOptions +
UPDATE_OPTION_SAVE_CAPTIONS
Terminara si
Terminara si
PlugandSolve.GeometryHelperOb
j.Convert_A_Group_To_A_Dynamo_By_
Ref objGroup, iUpdateOptions,
mobjStrMgr.GetNLSStr (4143),
iResult
'obtener una cadena de
resultado
strReturnMsg =
PlugandSolve.GeometryHelperObj.Ge
t_Last_Result_String
'
(g_ReturnFromPromptForChoiceOn
Convert = PROMPT_DLG_SEL_NONE)
Entonces
' iPrompt =
PlugandSolve.GeometryHelperObj.Ge
t_Last_Prompt_Value
' Si (iPrompt =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY
_TO_ALL) O _
' (iPrompt =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MAT
CH_APPLY_TO_ALL) O _
' (iPrompt =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPL
Y_TO_ALL) Entonces
'
g_ReturnFromPromptForChoic
eOnConvert = iPrompt
' Terminara si
'Terminara si
Si (iResult And
UPDATER_RESULT_SUCCESS_BIT)> 0
Luego
ConvertADynamo =
DYNAMO_UPDATED
Terminara si
Si (iResult And
UPDATER_RESULT_DYNAMO_NOT_UPDATED
_BIT)> 0 Entonces
ConvertADynamo =
DYNAMO_NOTUPDATED
Terminara si
Si (iResult And
UPDATER_RESULT_USER_CANCELLED_BIT)> 0
_
O (iResult y
UPDATER_RESULT_SUCCESS_BIT) = 0
Luego
ConvertADynamo =
DYNAMO_UPDATE_ABORTED
Terminara si
Función final
iAreaID =
System.ConvertSecurityAreaNameToN
ámbar ("D")
Ejemplo de método
ConvertSecurityAreaNumberToName
El siguiente ejemplo convierte el área de
seguridad 11 en su nombre de área
correspondiente.
Dim sAreaName como cadena
sAreaName =
System.ConvertSecurityAreaNumberT
oNombre (11)
Ejemplo de método de copia
TestPicture. Copiar
Ejemplo de método
Coupled_Activate_Workspace_UI
El siguiente ejemplo activa la
interfaz de usuario de WorkSpace.
Application.Coupled_Activate_Work
space_UI
Ejemplo de método
Coupled_DeActivate_Workspace_UI
El siguiente ejemplo desactiva la
interfaz de usuario de WorkSpace, lo
que permite que un formulario actúe de
forma modal. Esta llamada se realizaría
en la inicialización del formulario.
Application.Coupled_DeActivate_Wo
rkspace_UI False
TestPicture.CopyAsBitmap
Ejemplo del método
CreateDynamoByGrouping
El siguiente código proporciona un ejemplo de
Método CreateDynamoByGrouping:
Sub privado
btnCreateADynamoByGrouping_Click (
)
End Sub
Ejemplo del método
CreateFromDialog
Establecer iActiveX =
Application.ActiveDocument.Page.B
uildObject ("oleobject")
iActiveX.CreateFromDialog
Ejemplo del método
CreateFromProgID
Establecer iActiveX =
Application.ActiveDocument.Page.B
uildObject ("oleobject")
iActiveX.CreateFromProgId
"ALARMSUMMARYOCX.AlarmSummaryOCXC
trl.2"
Ejemplo del método
CreateWithMouse
Establecer iOval =
Application.ActiveDocument.Page.B
uildObject ("óvalo")
iOval.CreateWithMouse
TestPicture.Cut
D
iRval =
AlarmSummaryOCX1.DelAlarm ("NODE1"
, "AI1")
Ejemplo del método
DeleteAllAlarms
iRval =
AlarmSummaryOCX1.DeleteAllAlarms
Bitmap1.DeleteImage 1
x = Chart1.Pens.Count
Chart1.DeletePen x
El siguiente ejemplo elimina un lápiz en un
gráfico llamado Chart1 y luego lo reemplaza
con otro usando el método AddPen, si aún no
existe.
Private Sub Chart1_Click ()
'Seleccione un lápiz en el
Chart1.CurrentPen Msgprompt =
"Ha seleccionado
user_reponse = MsgBox
(Msgprompt, vbYesNo, "Quitar
lápiz")
Si user_reponse = 6 Entonces
Chart1.DeletePen (Strtn)
Terminara si
End Sub
Sub privado DELPEN_Click ()
Si Chart1.Pens.Count <> 0
Entonces
Siguiente Inti
Terminara si
End Sub
Sub privado PBADDREALPEN_Click
()
'Agregar bolígrafo a la
colección de bolígrafos para
un gráfico determinado
'después de comprobar que los
bolígrafos no están ya dentro de
la colección de bolígrafos
Si Chart1.Pens.Count <> 0
Entonces
Terminara si
checkifalreadyexist
("Fix32.Alice.MyTag1")
checkifalreadyexist
("Fix32.Alice.MyTag2")
checkifalreadyexist
("Fix32.Alice.MyTag3")
End Sub
Función
checkifalreadyexist (nombre de
etiqueta como
Cuerda)
'compruebe si el bolígrafo si
aún no está dentro de la
colección
Dim loc_tagname como cadena
Si Chart1.Pens.Count = 0,
entonces
Chart1.AddPen (loc_tagname)
Demás
Tag_found = Falso
Para i = 1 a Chart1.Pens.Count
Si UCase (loc_tagname) =
UCase (Chart1.Pens.Item (i)
.Source) Luego
Tag_found = Verdadero
Demás
Terminara si
Siguiente yo
Chart1.AddPen (loc_tagname)
Tag_found = Falso
Terminara si
Terminara si
Función final
Polygon1.SelectObject False
TestPicture.DeleteSelectedObjects
Ejemplo de método
DoesPropertyHaveTargets
El siguiente ejemplo determina si la
propiedad VerticalFillPercentage del objeto
Oval Oval1 tiene una conexión de objeto de
destino y, de ser así, retiene información
sobre el (los) destino (s).
Dim bHasTargets As Boolean
Long
Oval1.DoesPropertyHaveTargets
"VerticalFillPercentage",
bHasTargets, lNumOfTargets,
lStatus, lIndex
TestPicture.DumpProperties "C: \
Temp \ TestPicture.txt", True,
sRes1, sRes2
TestPicture.Duplicate
mi
Ejemplo de método de
habilitación
Ejemplo de subrutina
EnableAlarm
Sub privado
btnEnumAllDynamos_Click ()
Dim DynamoCollection As
Object 'Colección devuelta de
objetos Dynamo
Establecer GH =
Me.BuildObject
("GeometryHelper")
GH.Enumerate_All_Dynamos
Me.ContainedObjects,
DynamoCollection
Siguiente aDynamo
GH.DestroyObject
End Sub
Ejemplo del método
Enumerate_All_Groups
El siguiente código proporciona un ejemplo de
Método Enumerate_All_Groups:
Función pública
GetAllGroupList (objPic como
CFixPicture, ByRef colDIList
como
Colección) como booleano
Dim colList As
CFixObjectCollection
Si TypeName (objPic) =
"Nothing" u objPic.Category <>
"Pictures" Entonces
GetAllGroupList = Falso
Ir a CLEAN_UP
Terminara si
'If objHelper.ClassName <>
"GeometryHelper" Entonces
' GetMasterDynamoList =
Falso
' Ir a CLEAN_UP
'Terminara si
colDIList.Remove (1)
Círculo
Si colList.Count <= 0
Entonces
GetAllGroupList = True
Ir a CLEAN_UP
Terminara si
colList colDIList.Add
objDI
Siguiente objDI
GetAllGroupList =
True CLEAN_UP:
En caso de error
Reanudar Siguiente
Establecer colList =
objDI = Nada
Función final
Ejemplo del método
Enumerate_Top_Level_Dynamos
El siguiente código proporciona un ejemplo de
Método Enumerate_Top_Level_Dynamos:
Sub privado
btnEnumTopLevelDynamos_Click ()
Dim DynamoCollection As
Object 'Colección devuelta de
objetos Dynamo
Establecer GH =
Me.BuildObject
("GeometryHelper")
GH.Enumerate_Top_Level_Dynamo
s Me.ContainedObjects,
DynamoCollection
' Ahora haz algo útil con
los Dynamos devueltos.
Dim aDynamo como
Fix2DDynamo.Fix2DDynamo
Siguiente aDynamo
GH.DestroyObject
End Sub
Ejemplo del método
Enumerate_Top_Level_Groups
El siguiente código proporciona un ejemplo de
Método Enumerate_Top_Level_Groups:
Función pública
GetOldDynamoList (objFDS como
CFixDynamoSet, ByRef colDMList
como
Colección) como booleano
Dim colList As
CFixObjectCollection
Si TypeName (objFDS) =
"Nothing" O objFDS.Category <>
"Dynamo Sets" Entonces
GetOldDynamoList = Falso
Ir a CLEAN_UP
Terminara si
'If objHelper.ClassName <>
"GeometryHelper" Entonces
' GetMasterDynamoList =
Falso
' Ir a CLEAN_UP
'Terminara si
colDMList.Remove (1)
Círculo
Verdadero Ir a
CLEAN_UP
Terminara si
colList colDMList.Add
objDM
Siguiente objDM
GetOldDynamoList = True
CLEAN_UP:
En caso de error
Reanudar Siguiente
Establecer colList =
objDM = Nada
Función final
Ejemplo de objeto de firma
'Compruebe si la fuente de
datos requiere firma
electrónica
ESig.Initialize ("Fix32.
THISNODE.DO1.F_CV ")
ESig.IsSignatureRequired 0,
bSigRequired
Si bSigRequired = True Entonces
ESig.GetSignatureAndWriteValue
0, Valor
Demás
Demás
'Firma no habilitada en este
nodo, simplemente escriba el
valor
Terminara si
Ejemplo del método
ExchangePenPositions
El siguiente ejemplo establece la ubicación
del lápiz en la posición 1 a la posición 3 en la
colección de lápices.
Chart1.ExchangePenPositions 3, 1
LineChart1.ExportData
"C: \ TEMP \ DATA.TXT",
DataExportStyle_VerticalTable
End Sub
Ejemplo del método ExportImage
LineChart1.ExportImage "",
ImageFormat_PNG,
SizeUnits_Pixels, 800, 600
End Sub
pic.ExportLanguageFile
-O-
pic.ExportLanguageFile
(ES_Spanish)
F
Llamar a FetchLimits
("FIX32.NODE1.AI1.F_CV",
sngHi, sngLo, intRet)
Si intRet = 0 Entonces
txtHighEGU.Caption =
sngHi txtLowEGU.Caption =
sngLo End If
Ejemplo del método
FindAndReplaceDialog
El siguiente ejemplo abre el cuadro de
diálogo Buscar y reemplazar para la
imagen de prueba de imagen.
TestPicture.FindAndReplaceDialog
Establecer iTank =
untitled1.Tank1
sDataSource =
FindDataSource (iTank,
"VerticalFillPercentage")
Ejemplo del método FindInString
FindReplace.FindInString
"FIX32.NODE1.AI1.F_CV", 1,
"AI1", 8, sMatchString, lFirst,
lCount, bFound
Ejemplo de subrutina
FindLocalObject
Establecer PipeSectObj
= FindLocalObject
(Pipe, "PipeColorA")
Establecer iPic =
System.FindObject ("Imagen de
prueba")
Establecer iDataItem =
System.FindObject ("FIX32.NODE1.AI
1.F_CV")
El siguiente ejemplo devuelve un
objeto de animación para el objeto
Rectangle Rect4 in Picture
Imagen de prueba.
Establecer iLinear =
System.FindObject ("TestPicture.Re
ct4.AnimatedHorizontalFill ")
FindReplace.FindReplaceInObject
Group1, 1, "NODE1", "NODE2",
bFound
Ejemplo del método
FindReplaceInString
sTarget = "FIX32.NODE1.AI1.F_CV"
FindReplace.FindReplaceInString
sTarget, 1, "AI1", "AI2", 8,
lFirst, lCount, sReplacement,
bsuccess
Ejemplo del método
FitDocumentToWindow
El siguiente ejemplo cambia el tamaño del
documento de imagen de prueba para que
quepa dentro de la ventana.
TestPicture.FitDocumentToWindow
lAccess =
System.FixCheckApplicationAccess (
DatabaseManager)
Ejemplo del método
FixCheckApplicationAccessQuiet
El siguiente ejemplo comprueba si el
usuario tiene acceso a la aplicación
especificada.
Atenuar lAccess mientras
lAccess =
System.FixCheckApplicationAccessQ
uiet (Administrador de bases de
datos)
lAccess =
System.FixCheckAreaAccess (11)
Ejemplo del método
FixCheckAreaAccessQuiet
El siguiente ejemplo comprueba si el
usuario tiene acceso al área de seguridad
11.
Atenuar lAccess mientras
lAccess =
System.FixCheckAreaAccessQuiet (11
)
Ejemplo de método
FixCheckSecurityEnabled
El siguiente ejemplo comprueba si la
seguridad está habilitada.
Dim lEnabled mientras
lEnabled =
System.FixCheckSecurityEnabled
()
Ejemplo de método
FixGetManualAlmDeleteEnabled
Este ejemplo muestra cómo habilitar la
eliminación manual de alarmas.
Dim bManlAlmDel como booleano
System.FixGetManualAlmDeleteEnabl
ed bManlAlmDel
Si bManlAlmDel = True, entonces
System.FixGetUserInfo sUserID,
sUserName, sGroupName
System.FixLogout
aPicInfo.lfTopPct = TopPct
aPicInfo.lfLeftPct = LeftPct
aPicInfo.lfHeightPct = 100
aPicInfo.lfWidthPct = 100
aPicInfo.lBkColor = RGB
(255,0,0) aPicInfo.szName.
bTitlebar = Verdadero
aPicInfo.bSystemMenu = Verdadero
aPicInfo.bResizable = Verdadero
aPicInfo.bAlwaysOnTop = Falso
aPicInfo.bRuntimeVisible = True
Dim retVal
retVal =
GeneratePicture (aPicInfo)
Atenuar iDataSourceOption
como
DynamoDataSourceOption
Si
g_WizardConfig.iDataSourceOption
= DYNAMO_PROMPT_FOR_CHOICE
Entonces
Si
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY
_TO_ALL Entonces
iDataSourceOption
= DYNAMO_UPDATE_BUT_NOT_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MAT
CH_APPLY_TO_ALL Entonces
iDataSourceOption
= DYNAMO_UPDATE_AND_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPL
Y_TO_ALL Entonces
iDataSourceOption
= DYNAMO_NOT_UPDATE
Terminara si
Terminara si
'////// llamada de
Update A Dynamo
PlugandSolve.GeometryHelperOb
j.Update_A_Dynamo_By_Ref
objMasterDynamo,
objDynamoInstance,
iDataSourceOption,
mobjStrMgr.GetNLSStr (4069),
iResult
strReturnMsg =
PlugandSolve.GeometryHelperObj.Ge
t_Last_Result_String
(g_ReturnFromPromptForCho
ice = PROMPT_DLG_SEL_NONE)
Entonces
iPrompt =
PlugandSolve.GeometryHelperObj.Ge
t_Last_Prompt_Value
Si (iPrompt =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY
_TO_TODOS) O _
(iPrompt =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MAT
CH_APPLY_TO_ALL) O _
(iPrompt =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPL
Y_TO_ALL) Entonces
g_ReturnFromPromptFor
Choice = iPrompt
Terminara si
Terminara si
' strDIName =
objDynamoInstance.Name
' strDMName =
objMasterDynamo.Name
' Si g_testcount = 3 Entonces
' iResult =
DYNAMO_NOTUPDATED
' De lo contrario, si
g_testcount = 150
Luego
' iResult =
DYNAMO_UPDATE_ABORTED
' Demás
' strReturnMsg =
strDIName & "se actualizó
correctamente con" & strDMName
' iResult = DYNAMO_UPDATED
' Terminara si
UpdateADynamo
= DYNAMO_NOTUPDATED
Demás
UpdateADynamo =
DYNAMO_UPDATE_ABORTED
Terminara si
Función final
Atenuar iDataSourceOption
como
DynamoDataSourceOption
Dim iResult As Long
'UpdateDynamoResult
Atenuar iPrompt tanto tiempo
iDataSourceOption =
g_WizardConfig.iDataSourceOption
Si
g_WizardConfig.iDataSourceOption
= DYNAMO_PROMPT_FOR_CHOICE
Entonces
Si
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY
_TO_ALL Entonces
iDataSourceOption
= DYNAMO_UPDATE_BUT_NOT_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MAT
CH_APPLY_TO_ALL Entonces
iDataSourceOption
= DYNAMO_UPDATE_AND_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPL
Y_TO_ALL Entonces
iDataSourceOption
= DYNAMO_NOT_UPDATE
Terminara si
Terminara si
'////// llamada de
Update A Dynamo
PlugandSolve.GeometryHelperOb
j.Update_A_Dynamo_By_Ref
objMasterDynamo,
objDynamoInstance,
iDataSourceOption,
mobjStrMgr.GetNLSStr (4069),
iResult
strReturnMsg =
PlugandSolve.GeometryHelperObj.Ge
t_Last_Result_String
Si (iPrompt =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY
_TO_TODOS) O _
(iPrompt =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MAT
CH_APPLY_TO_ALL) O _
(iPrompt =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPL
Y_TO_ALL) Entonces
g_ReturnFromPromptFor
Choice = iPrompt
Terminara si
Terminara si
' strDIName =
objDynamoInstance.Name
' strDMName =
objMasterDynamo.Name
' Si g_testcount = 3 Entonces
' iResult =
DYNAMO_NOTUPDATED
' De lo contrario, si
g_testcount = 150
Luego
' iResult =
DYNAMO_UPDATE_ABORTED
' Demás
' strReturnMsg =
strDIName & "se actualizó
correctamente con" & strDMName
' iResult = DYNAMO_UPDATED
' Terminara si
'////// fin del maniquí para
prueba
Si iResult <= DYNAMO_UPDATED
Luego
UpdateADynamo
= DYNAMO_UPDATED
De lo contrario, si iResult
<=
DYNAMO_NOTUPDATED Entonces
UpdateADynamo
= DYNAMO_NOTUPDATED
Demás
UpdateADynamo =
DYNAMO_UPDATE_ABORTED
Terminara si
Función final
Para ver este código en contexto:
1. En la vista clásica, en el menú
WorkSpace, seleccione Editor de Visual
Basic. -O-
En la vista de cinta, en la pestaña
Inicio, en el grupo Espacio de
trabajo, haga clic en Editor de
Visual Basic.
2. En la vista de árbol, haga doble clic
en la carpeta Project_PlugandSolve, luego en
la carpeta Módulos y finalmente en
modDynamoUpdater.
3. Busque UpdateADynamo para
localizar este código.
Ejemplo de subrutina
GetAllConnections
El siguiente ejemplo muestra cómo usar un
evento de clic en un objeto rectangular para
recuperar todos los elementos de datos
dentro de una imagen y luego mostrarlos en
un cuadro de mensaje.
Sub privado Rect2_Click ()
Dim obj
GetAllConnections Me
vbCr Siguiente
End Sub
Ejemplo del método GetBoundRect
como doble
Oval1.GetBoundRect dTop,
dLeft, dBottom, dRight
Ejemplo del método GetColHeadings
lErr =
AlarmSummaryOCX1.GetColHeadings (b
strColHeadings)
Chart1.GetColumnInfo
3, sItemName, iNumChar
Ejemplo del método
GetConnectionInformation
El siguiente ejemplo recupera la información
de conexión para la primera conexión para el
objeto Oval Oval1.
Dim sPropName como cadena
Oval1.GetConnectionInformation
1, sPropName, sSource,
sFullQualSource, vSourceObjs,
vTolerance, vDeadBand,
vUpdateRate
Ejemplo del método
GetConnectionParameters
El siguiente ejemplo devuelve UpdateRate,
Deadband y Tolerance para la conexión de
propiedad ForegroundColor para el objeto
Oval Oval1.
Dim vTolerance como
como variante
Oval1.GetConnectionParameters
"ForegroundColor", vUpdateRate,
vDeadBand, vTolerance, vFlags
Ejemplo del método
GetContinuousUser
'nombre de usuario
válido SetName =
"TestUser"
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
'Compruebe si el nodo está
habilitado para firma
electrónica
ESig.IsNodeSignEnabled
bNodeSignEnabled
Si bNodeSignEnabled = True
Entonces
Establecer objDataSet =
LineChart1.GetCurrentDataSet
()
' Establezca el color del
conjunto de datos en su complemento.
objDataSet.DataSetColor =
objDataSet.DataSetColor Xor (-1)
End Sub
Ejemplo del método
GetCurrentValueWithQuality
El siguiente ejemplo muestra el actual
valor de x, y, y la calidad de los datos del
Gráfico mejorado en un cuadro de mensaje, que
son
regresó usando el
Método GetCurrentValueWithQuality.
Sub privado
CommandButton11_Click ()
Pen1.GetCurrentValue dCurVal,
dt, lQual
Ejemplo del método
GetDataSetByPosition
El siguiente ejemplo muestra un ejemplo del
método GetDataSetByPosition con el objeto
LineChart.
Dim objDS como objeto
Establecer objDS =
LineChart1.GetDataSetByPosition (2
)
Valor devuelto
sDecimal = GetDecimalSeparator
tan largos
Chart1.GetDuration lDays,
lHours, lMinutes, lSeconds
Ejemplo del método GetErrorString
Bitmap1.CurrentImage = 4
errhand:
sErrString =
System.GetErrorString (Err.Number)
Ejemplo del método
GetEventHandlerIndex
El siguiente ejemplo obtiene el número de
índice para el clic del objeto CurrentObject y,
si existe un procedimiento, lo elimina.
CurrentObject.Procedures.GetEvent
HandlerIndex "Click", lIndex,
lFound
Si lFound = 1 entonces
CurrentObject.Procedures.Remove
lIndex
Terminara si
Ejemplo de subrutina
GetFormDynamoColor
El siguiente ejemplo recupera una instancia
del formulario denominada DynamoColorBy.
Dim frmDynamoColor como objeto
GetFormDynamoColor frmDynamoColor
Ejemplo de subrutina
GetFormNumeric
Reservado para fines internos.
Ejemplo de subrutina
GetFormPushbutton
Reservado para fines internos.
Ejemplo de subrutina
GetFormRamp
Ejemplo de subrutina
GetFormSlider
booleano
booleano
como cadena
'Cree el objeto ESignature
Establecer ESig =
CreateObject ("ElectronicSignature
.ESignatureFactory ")
'Envíe un mensaje a la
pista de auditoría
ESig.SendSignedOperatorMessage
"Descripción de la acción",
"", "", Ucase (PerformUserID),
PerformComment, Ucase
(VerifyUserID), VerifyComment
Obtenga los nombres
completos de los
firmantes
ESig.GetFullname Ucase
(PerformUserID), Ucase
(PerformFullName)
ESig.GetFullname Ucase
(VerifyUserID), Ucase
(VerifyFullName)
'Mostrar resultados
Demás
tan largos
Pen1.GetInterval lDays,
lHours, lMinutes, lSeconds
nNumOfDS =
LineChart1.GetNumberOfDataSets
Ejemplo del método GetLevel
como variante
Establecer iLookup =
System.FindObject ("TestPicture.Ov
al1.AnimatedForegroundColor ")
Ejemplo de subrutina
GetLocaleInfoA
a ErrorHandler
Separador 'Obtenga el
separador decimal y el
recuento de caracteres para el
millar'
lngHolder =
GetLocaleInfoA (GetUserDefaultLCID
(), LOCALE_SDECIMAL, strDecChar,
Len (strDecChar) + 1)
'Ahora establezca el valor de
retorno solo en el separador
decimal.
GetDecimalSeparator =
Izquierda $ (strDecChar,
lngHolder - 1)
Función de salida
ErrorHandler:
HandleError
Función final
objinfo =
iSched.GetObjectInfo (objetos,
propiedades)
cadena
RTN = ""
Si Chart1.Pens.Count <> 0,
entonces Mypath =
System.BasePath
(miarchivo) Si RTN
archivo existe'
Eliminar archivo de
salida Elimina
miarchivo Finalizar
si
# 1 para i = 1 a
Chart1.Pens.Count
Chart1.Pens.Item (i)
.GetPenDataArr ayEx lNumPts, vVal,
vPsa, vQual, vMill
Para j = 0 a (lNumPts - 1)
Escribe # 1,
Chart1.Pens.Item (i) .Source;
""; Tiempo; ""; Valor; ""
Siguiente j
Siguiente yo
Cerrar # 1
Terminara si
Ejemplo del método
GetPenDataArrayEx
variante
Pen1.GetPenDataArrayEx lNumPts,
vVal, vPsa, vQual, vMill
Ejemplo del método GetPointAt
Establecer iPoint =
Polygon1.GetPointAt (2)
dX = iPoint.x
dY = iPoint.y
Ejemplo del método GetPriorityColor
lMedium =
AlarmSummaryOCX1.GetPriorityColor
(6)
lHigh =
AlarmSummaryOCX1.GetPriorityColor
(5)
Ejemplo de GetProcedureIndex
Establecer o =
Application.ActiveDocument.Page.F
indObject ("Rect2")
o.Procedures.GetProcedureIndex
"DisplayMessage", lIndex, lFound
Si (lEncontré) Entonces
Establecer oProc =
o.Procedures.Item (lIndex)
Terminara si
Ejemplo del método GetProperty
Text1.GetProperty
"Caption", vValue
El siguiente ejemplo recupera el
valor de la propiedad FillStyle
del objeto Rectangle
Rect1.
Rect1.GetProperty "FillStyle",
vValue
Ejemplo del método
GetPropertyAttributes
El siguiente ejemplo obtiene la información
de atributo para el atributo HighEGU del
bloque AI1 en el nodo NODE1.
Dim vtResults Dim
vtAttributes Dim
Dim LoEGUval
Oval1.GetPropertyAttributes
"FIX32.NODE1.AI1.F_CV", 3,
vtResults, vtAttributes, lStatus
strLoEGU = vtAttributes (0)
como variante
Oval1.GetPropertyTargets 1,
sPropName, vtTargets
AlarmSummaryOCX1.GetSelectedNodeT
ag sNode, sTag
como cadena
Dim sDateLast como cadena
AlarmSummaryOCX1.GetSelectedRow
bAck, sHandle, sArea, sDateIn,
sDateLast, sTimeIn, sTimeLast,
sNode, sTag, sPriority, sStatus,
sDesc, sValue, sExt1, sExt2,
sUser1, sUser2
Ejemplo del método
GetSelectedUserDefFields
El siguiente ejemplo recupera el valor de los
campos "A_" configurados para la alarma
actualmente seleccionada en el objeto
AlarmSummary AlarmSummaryOCX1.
Dim sUserDef1 como cadena
AlarmSummaryOCX1.GetSelectedUserD
efFields sUserDef1, sUserDef2
booleano
CreateObject ("ElectronicSignature
.ESignatureFactory ")
= True 'es
no requerido
'Envíe un mensaje a la
pista de auditoría
ESig.SendSignedOperatorMessage
"Descripción de la acción",
"", "", Ucase (PerformUserID),
PerformComment, Ucase
(VerifyUserID),
VerifyComment 'Obtenga los
nombres completos de los
firmantes
ESig.GetFullname Ucase
(PerformUserID), Ucase
(PerformFullName)
ESig.GetFullname Ucase
(VerifyUserID), Ucase
(VerifyFullName)
'Mostrar resultados
Demás
Establecer ESig =
CreateObject ("ElectronicSignature
.ESignatureFactory ")
'Compruebe si la etiqueta
requiere firma electrónica
ESig.Initialize
"Fix32.thisnode.DO1.F_CV"
ESig.IsSignatureRequired 0,
bSigRequired
Si bSigRequired = True Entonces
ESig.GetSignatureAndWriteValue
0, NewValue
Demás
Demás
lHiHi =
AlarmSummaryOCX1.GetStatusColor (2
)
Ejemplo del método GetStatusFont
AlarmSummaryOCX1.GetStatusFont (3,
b Golpe, b Subrayado, b Negrita,
bItalic, iSize)
Ejemplo del método
GetTimeBeforeNow
Tan largo
Chart1.GetTimeBeforeNow
lHours, lMinutes, lSeconds
a ErrorHandler
Separador 'Obtenga el
separador decimal y el
recuento de caracteres para el
millar'
lngHolder =
GetLocaleInfoA (GetUserDefaultLCID
(), LOCALE_SDECIMAL, strDecChar,
Len (strDecChar) + 1)
Función de salida
ErrorHandler:
HandleError
Función final
cadena
'nombre de usuario y
contraseña válidos de
iFix
UserName = "nombre de usuario"
PassWord = "contraseña"
resultado = Falso
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
ESig.GetUserid UserName,
Contraseña, UsrId
'Compruebe si el usuario
tiene acceso a la función
de aplicación de omisión de
firma electrónica
ESig.CheckUserApplicationAccess
UsrId, 74, resultado
MsgBox "Usuario:" & UserName &
vbCr
& "¿Tiene derecho a omitir la
firma?" & Resultado
'Compruebe si el usuario
tiene acceso al área de
seguridad B
ESig.CheckUserAreaAccess
UsrId, "B", resultado
MsgBox "Usuario:" & UserName &
vbCr
& "¿Tiene derechos sobre el Área
de seguridad B?" & Resultado
Demás
'la clave de hardware no está
habilitada para la firma, la
seguridad está deshabilitada o
la firma de omisión está en
efecto
MsgBox "La firma no está
habilitada en este nodo".
Terminara si
doble
TestPicture.GetWindowLocation
dTopPct, dLeftPct, dHeightPct,
dWidthPct
Ejemplo del método
GlobalScrollBackFast
El siguiente ejemplo establece las
propiedades System.GlobalStartTime y
System.GlobalEndTime y se desplaza hacia
atrás por la cantidad especificada en la
propiedad GlobalFastScrollRate.
Sub privado
FastLeftButton_Click ()
System.GlobalScrollBackFast
End Sub
Ejemplo del método
GlobalScrollBackSlow
El siguiente ejemplo establece las
propiedades System.GlobalStartTime y
System.GlobalEndTime y se desplaza hacia
atrás por la cantidad especificada en la
propiedad GlobalSlowScrollRate.
Sub privado LeftButton_Click ()
System.GlobalScrollBackSlow End
Sub
Ejemplo del método
GlobalScrollForwardFast
El siguiente ejemplo establece las
propiedades System.GlobalStartTime y
System.GlobalEndTime y avanza la cantidad
especificada en la propiedad
GlobalFastScrollRate.
Sub privado
FastRightButton_Click ()
System.GlobalScrollForwardFast
End Sub
Ejemplo del método
GlobalScrollForwardSlow
El siguiente ejemplo establece las
propiedades System.GlobalStartTime y
System.GlobalEndTime y avanza la cantidad
especificada en la propiedad
GlobalSlowScrollRate.
RightButton_Click ()
System.GlobalScrollForwardSlow
End Sub
Ejemplo del método
GlobalTimerApply
System.GlobalStartTime =
DTPicker7.Value
System.GlobalTimerApply
End Sub
Polygon1.SelectObject False
TestPicture.Group
H
a ErrorHandler
Separador 'Obtenga el
separador decimal y el
recuento de caracteres para el
millar'
lngHolder =
GetLocaleInfoA (GetUserDefaultLCID
(), LOCALE_SDECIMAL, strDecChar,
Len (strDecChar) + 1)
'Ahora establezca el valor de
retorno solo en el separador
decimal.
GetDecimalSeparator =
Izquierda $ (strDecChar,
lngHolder - 1)
Función de salida
ErrorHandler:
HandleError
Función final
establecer iTimeAxis =
Pen1.TimeAxis
iTimeAxis.HiLoDisplay # 11/15/98
12:00:00 AM#, # 10/17/98
12:00:00 AM#
IK
lErr =
Application.ToolbarManager.Import
Barra de herramientas ("Barra de
herramientas1", "Espacio de
trabajo")
Establecer ESig =
CreateObject ("ElectronicSignature
.ESignatureFactory ")
'Compruebe si la etiqueta
requiere firma electrónica
ESig.Initialize
"Fix32.thisnode.DO1.F_CV"
ESig.IsSignatureRequired 0,
bSigRequired, nInfo, bVerify,
bContinuousUse
Si bSigRequired = True Entonces
ESig.ValidateSignatureAndWriteVal
ue 0, NewValue, "admin", "admin",
"Ejecutar ejemplo de comentario"
Demás
ESig.ValidateSignatureAndWriteVal
ue 0, NewValue, "admin", "admin",
"Ejecutar ejemplo de comentario",
"supervisor1", "GEF", "Verificar
ejemplo de comentario"
Terminara si
Demás
DataSources (0) =
"Fix32.THISNODE.TAG1.F_CV"
Fuentes de datos (1) =
"Fix32.THISNODE.TAG2.F_CV"
'Cree el objeto ESignature
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
'inicializar el objeto y
establecer fuentes de datos
ESig.InitializeList DataSources
Demás
iPoint.x = 55
iPoint.y = 75
PolyLine1.InsertPoint 3, iPoint
Ejemplo de método
InteractiveExport
LineChart1.InteractiveExport
End Sub
Ejemplo de método
IsColorSelectionVisible
El siguiente ejemplo determina si el cuadro de
diálogo Selección de color del WorkSpace está
abierto.
Dim bIsVisible como booleano
bIsVisible =
TestPicture.IsColorSelectionVisib
le
iLookup booleano.
Ejemplo de método
IsNodeSignEnabled
'Compruebe si la etiqueta
requiere firma electrónica
ESig.Initialize
"Fix32.thisnode.DO1.F_CV"
ESig.IsSignatureRequired 0,
bSigRequired, nInfo, bVerify,
bContinuousUse
Si bSigRequired = True Entonces
ESig.ValidateSignatureAndWriteVal
ue 0, NewValue, "admin", "admin",
"Ejecutar ejemplo de comentario"
Demás
ESig.ValidateSignatureAndWriteVal
ue 0, NewValue, "admin", "admin",
"Ejecutar ejemplo de comentario",
"supervisor1", "GEF", "Verificar
ejemplo de comentario"
Terminara si
Demás
Demás
entero
'Compruebe si la etiqueta
requiere firma electrónica
ESig.Initialize
"Fix32.thisnode.DO1.F_CV"
ESig.IsSignatureRequired 0,
bSigRequired, nInfo, bVerify,
bContinuousUse
Si bSigRequired = True Entonces
ESig.ValidateSignatureAndWriteVal
ue 0, NewValue, "admin", "",
"Realizar un ejemplo de
comentario"
Demás
ESig.ValidateSignatureAndWriteVal
ue 0, NewValue, "admin", "",
"Realizar ejemplo de comentario",
"supervisor1", "GEF", "Verificar
ejemplo de comentario"
Terminara si
Demás
Demás
DataSources (0) =
"Fix32.THISNODE.TAG1.F_CV"
Fuentes de datos (1) =
"Fix32.THISNODE.TAG2.F_CV"
'Cree el objeto ESignature
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
'inicializar el objeto y
establecer fuentes de datos
ESig.InitializeList DataSources
Demás
'no se requiere firma para esta
lista, verifique el parámetro de
información
con razón
Demás
booleano bUserFxg =
IsUserFxg
Ejemplo de método de artículo
Establecer iItem =
CurrentObject.Procedures.Item
(2)
Establecer iItem =
CurrentObject.Procedures.Item (2).
Líneas Artículo (3)
L
iNumEvents As Integer
próximo
Oval1.ListMethods
pvMethods, iNumMethods
strMsg = "Este objeto tiene
los siguientes métodos:"
Para cada i en pvMethods
próximo
Oval1.ListProperties
pvProperties,
pvDataTypes, iNumProps
strMsg = "Este objeto tiene
las siguientes propiedades:"
Para cada i en pvProperties
próximo
MsgBox strMsg, vbOKOnly,
"Mensaje"
Ejemplo del método
ListWindowsGroupNames
El siguiente ejemplo recupera una serie de
cadenas de nombres de grupos de Windows
para el objeto SecuritySynchronizer
objSecSynch.
Dim objSecSynch como
SecuritySynchronizer
Establecer objSecSynch
= New
SecuritySynchronizer
Dim bNT4NamesOnly As Boolean
bNT4NamesOnly = Verdadero
objSecSynch.ListWindowsGroupNames
bNT4NamesOnly
Yo.Load_TS_List TAGSTATUS
End Sub
pic1.LoadTagGroupFile
"mytaggroup.tgd"
End Sub
dTop = 30
dIzquierda = 30
dAltura = 100
dAncho = 150
TestPicture.LogicalToPercentage
dTop, dLeft, dHeight, dWidth
Ejemplo del método
LogicalToUserFormPoint
El siguiente ejemplo convierte las
coordenadas superior izquierda de 30, 50 en
unidades lógicas a coordenadas de
"UserForm Point" para la imagen de prueba
de imagen.
Dim dTop como doble
dTop = 30
dIzquierda = 50
TestPicture.LogicalToUserFormPoin
t dTop, dLeft
Ejemplo de método
MakeLinesHorizontal
El siguiente ejemplo muestra cómo convertir
el objeto de línea seleccionado en líneas
horizontales.
Establecer ObjHelper =
BuildObject
("GeometryHelper")
Llama
ObjHelper.MakeLinesHorizontal
Ejemplo de método
MakeLinesVertical
Oval1.SelectObject False
TestPicture.MakeSameSize 1
Bitmap1.Modify "Fix32.NODE1.AI1",
bReadOnly, iStatus
Ejemplo del método
ModifyColumnLength
El siguiente ejemplo establece el número de
caracteres que se mostrarán en la columna 1
del Chart Chart1 en 7.
Chart1.ModifyColumnLength 1, 7
etiqueta
End Sub
O
Colocar
iDoc = Application.Documents.Open
("
C: \ Archivos de programa \
Proficy \ Proficy
iFIX \ Pic \ TestPicture.grf ",
3)
Me.Open_QT_Pic
End Sub
Ejemplo del método
Open_QT_Pic_Ex
Yo.Open_QT_Pic_Ex (1)
End Sub
Ejemplo del método Open_TCP_Pic
Yo.Open_TCP_Pic
End Sub
Ejemplo de método
Open_TCP_Pic_Ex
Yo.Open_TCP_Pic_Ex (1)
End Sub
Ejemplo de método Open_TS_Pic
Object1.Open_TS_Pic
End Sub
Ejemplo de método
Open_TS_Pic_Ex
Object1.Open_TS_Pic_Ex (1)
End Sub
Ejemplo de método
Open_TS_Pic_Type
SomeStrings (0) =
"FIX32.THISNODE.AI.A_NAME"
SomeStrings (1) =
"FIX32.THISNODE.AO.A_NAME"
SomeStrings (2) =
"FIX32.THISNODE.DI.A_NAME"
Establecer OpenedPic =
Yo.Open_TS_Pic_Type (TAGSTATUS,
SomeStrings)
End Sub
El siguiente ejemplo abre Quick Trend Picture
QUICKTREND en la imagen actual y muestra
la lista de etiquetas AI, AO y DI cuando se
presiona un botón.
Sub privado
Button_OpenTSPicType_QT_Click ()
SomeStrings (0) =
"FIX32.THISNODE.AI.A_NAME"
SomeStrings (1) =
"FIX32.THISNODE.AO.A_NAME"
SomeStrings (2) =
"FIX32.THISNODE.DI.A_NAME"
Me.Open_TS_Pic_Type
QUICKTENDENCIA, SomeStrings
End Sub
El siguiente ejemplo abre la imagen del panel
de control de etiquetas
TAGCONTROLPANEL en la imagen actual
y muestra la lista de etiquetas AI, AO y DI
cuando se presiona un botón.
Sub privado
Button_OpenTSPicType_TCP_Click
()
SomeStrings (0) =
"FIX32.THISNODE.AI.A_NAME"
SomeStrings (1) =
"FIX32.THISNODE.AO.A_NAME"
SomeStrings (2) =
"FIX32.THISNODE.DI.A_NAME"
Me.Open_TS_Pic_Type
TAGCONTROLPANEL, SomeStrings
End Sub
Ejemplo de método
Open_TS_Pic_Type_Ex
El siguiente ejemplo abre la imagen de
estado de etiqueta TAGSTATUS y muestra
la lista de etiquetas AI, AO y DI cuando se
presiona un botón. Si una instancia de esta
imagen ya está abierta, se muestra otra
instancia.
Sub privado
Button_OpenTSPicType_TagStatus_Cl
ick ()
Dim SomeStrings (2) As String
SomeStrings (0) =
"FIX32.THISNODE.AI.A_NAME"
SomeStrings (1) =
"FIX32.THISNODE.AO.A_NAME"
SomeStrings (2) =
"FIX32.THISNODE.DI.A_NAME"
Establecer OpenedPic =
Yo.Open_TS_Pic_Type_Ex (TAGSTATUS,
SomeStrings, 1)
End Sub
SomeStrings (0) =
"FIX32.THISNODE.AI.A_NAME"
SomeStrings (1) =
"FIX32.THISNODE.AO.A_NAME"
SomeStrings (2) =
"FIX32.THISNODE.DI.A_NAME"
Me.Open_TS_Pic_Type_Ex
QUICKTENDENCIA, SomeStrings, 1
End Sub
SomeStrings (0) =
"FIX32.THISNODE.AI.A_NAME"
SomeStrings (1) =
"FIX32.THISNODE.AO.A_NAME"
SomeStrings (2) =
"FIX32.THISNODE.DI.A_NAME"
Me.Open_TS_Pic_Type_Ex
TAGCONTROLPANEL, SomeStrings, 1
End Sub
Ejemplo de subrutina
OpenDigitalPoint
El siguiente ejemplo abre el bloque DO1.
OpenDigitalPoint "DO1"
Ejemplo de subrutina de
OpenPicture
El siguiente ejemplo abre Picture
TestPicture, dándole un alias de Test y
colocando su esquina superior izquierda en
(75,75).
OpenPicture "TestPicture"
, "Prueba", 75, 75
taglist3, True
OpenPicture "BadPic",,,, 1
End Sub
Manejador de errores:
Ejemplo de subrutina
OpenTGDPicture
Este ejemplo abre la imagen TestPicture, le
da un alias de Test y luego abre el archivo de
grupo de etiquetas TestTGD. Las
coordenadas del lado superior izquierdo de la
imagen son 75, 75.
OpenTGDPicture "TestPicture",
"Test", 75, 75, "TestTGD"
El siguiente ejemplo abre la imagen
TestPicture, lo que permite múltiples
instancias. Las coordenadas del lado
superior izquierdo de la imagen son 75, 75.
OpenTGDPicture "TestPicture",,
75, 75,,, verdadero
Oval1.ParseConnectionSource
"VerticalFillPercentage",
"AI1.F_CV", iStatus,
validObjs, UndObjs, FQSource
Ejemplo de método de pegado
TestPicture. Copiar
TestPicture.Paste
lngTotalFiltered =
AlarmSummaryOCX1.TotalFilteredAla
rms
ListBox1.Clear
AlarmSummaryOCX1.SelectAlarmRow
lngLoop, True
AlarmSummaryOCX1.GetSelectedNodeT
ag strNode, strTag
ListBox1.AddItem strNode & "." &
strTag
AlarmSummaryOCX1.SelectAlarmRow
lngLoop, False
Siguiente lngLoop
AlarmSummaryOCX1.ResumeAlarmRead
Ejemplo de método
PercentageToLogical
El siguiente ejemplo convierte las
coordenadas Superior, Izquierda, Alto y
Ancho de 30, 30, 100, 150 en porcentaje del
espacio de pantalla disponible a unidades
lógicas para la Imagen de prueba de imagen.
Dim dTop como doble
dTop = 30
dIzquierda = 30
dAltura = 100
dAncho = 150
TestPicture.PercentageToLogical
dTop, dLeft, dHeight, dWidth
dTop = 30
dIzquierda = 30
dAltura = 100
dAncho = 150
TestPicture.PercentageToPixel
dTop, dLeft, dHeight, dWidth
Ejemplo de subrutina PictureAlias
ClosePicture "TestPicAlias"
dTop = 30
dIzquierda = 30
dAltura = 100
dAncho = 150
TestPicture.PixelToPercentage
dTop, dLeft, dHeight, dWidth
LineChart1.PrintChart
SizeUnits_FullPage
End Sub
bPrinted =
Application.ActiveDocument.PrintO
Utah
Ejemplo de subrutina PrintReport
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
'Verifique el estado de la
cuenta y el derecho del usuario
a cambiar la contraseña
ESig.CheckAccountExpiration
UserName, bExpired,
bCanChangePassword, daysLeft
Si bExpired <> False, entonces
Si bCanChangePassword <>
False, entonces
ESig.PromptToChangePassword
Nombre de usuario
Terminara si
Demás
Demás
El siguiente ejemplo:
• Lee el DataItem
de objetos FDS =
CreateObject ("FixDataSystems.Inte
llution FD Data System Control
")
'Agregar un grupo a la
colección Grupos
FDS.Groups.Add ("Grupo de
datos1")
FDS.Groups.Item ("DataGroup1").
Dat aItems.Add
("Fix32.THISNODE.AI1.F_ CV")
'Leer grupo de datos1
FDS.Groups.Item ("DataGroup1").
Rea d
'Leer el DataItem
FDS.Groups.Item ("DataGroup1").
Dat aItems.Item (1) .Read
Ejemplo de subrutina ReadValue
Ejemplo de método de
actualización
'establecer porcentaje de
desplazamiento
dInterval =
LineChart1.Duration
dInterval = dInterval * 0.5 '
50%
'tiempo de desplazamiento
dtTime =
HistoricalDataset1.FixedTime
dtDate =
HistoricalDataset1.FixedDate
'actualizar gráfico
LineChart1.RefreshChartData
En caso de error Ir a
ErrorHandler
'Compruebe si Crystal
Reports está instalado.
lngResult =
RegOpenKeyEx (y H80000000,
"CrystalReports", & O0 y H20000,
lngRes)
Establecer CrystalApplication =
CreateObject ("Crystal.CRPE.Applic
ation")
Si no, envíe un mensaje al
usuario. Demás
Terminara si
lngResult =
RegCloseKey (y H80000000)
Establecer CrystalReport =
CrystalApplication.OpenReport (Rep
ort)
CrystalReport.PrintOut Prompt,
Copias, Coll, StartNo, EndNo
Salir de Sub
ErrorHandler:
HandleError
End Sub
Ejemplo de subrutina
RegOpenKeyEx
En caso de error Ir a
ErrorHandler
'Compruebe si Crystal
Reports está instalado.
lngResult =
RegOpenKeyEx (y H80000000,
"CrystalReports", & O0 y H20000,
lngRes)
'Si es así, cree una instancia
de
eso.
Si lngResult = 0 Entonces
Establecer CrystalApplication =
CreateObject ("Crystal.CRPE.Applic
ation")
Si no, envíe un mensaje al
usuario. Demás
Terminara si
lngResult =
RegCloseKey (y H80000000)
Establecer CrystalReport =
CrystalApplication.OpenReport (Rep
ort)
CrystalReport.PrintOut Prompt,
Copias, Coll, StartNo, EndNo
Salir de Sub
ErrorHandler:
HandleError
End Sub
CurrentObject.Procedures.GetEvent
HandlerIndex "Click", lIndex,
lFound
Si lFound = 1 Entonces
CurrentObject.Remove lIndex
End If
FDS.Groups.Remove ("Grupo de
datos1")
El siguiente ejemplo elimina el
primer grupo de la colección
Grupos del FixDataSystem
FDS.
FDS.Groups.Eliminar (1)
Establecer o =
Application.ActiveDocument.Page.F
indObject ("Rect2")
o.Procedures.GetEventHandlerIndex
"Click", lIndex, lFound
Si (lEncontré) Entonces
Establecer oProc =
o.Procedures.Item (lIndex)
oProc.Lines.RemoveAll
End If
Ejemplo de
RemovePictureFromStartupList
El siguiente ejemplo elimina la imagen
denominada pic1.grf (en el directorio D: \
Archivos de programa \ Proficy \ Proficy
iFIX \ PIC) de la lista de inicio del entorno de
configuración del Proficy iFIX WorkSpace.
Dim lErr tan largo
lErr =
Application.UserPreferences.Remov
ePictureFromStartupList_
("D: \ Programa
Archivos \ Proficy \ Proficy
iFIX \ pic \ pic1.grf ", falso)
Tenga en cuenta que se requiere la ruta
completa para la imagen. También tenga en
cuenta que el segundo parámetro, cuando se
establece en FALSE, elimina la imagen de la
lista de inicio del entorno de configuración.
Cuando se establece en TRUE, elimina la
imagen de la lista de inicio del entorno de
ejecución.
Yo.Replace_QT_Pic
End Sub
Ejemplo del método
Replace_TCP_Pic
Yo.Replace_TCP_Pic
End Sub
Ejemplo de método
Replace_TS_Pic_Type
El siguiente ejemplo reemplaza la imagen
actual Pic1 con la imagen de tendencia
rápida QTPic1 y la lista de etiquetas
Strings1.
Pic1.Replace_TS_Pic_Type QTPic1,
Strings1
El siguiente ejemplo reemplaza la imagen
actual Pic1 con la imagen de estado de
etiqueta TSPic1 y la lista de etiquetas
Strings2.
Pic1.Replace_TS_Pic_Type TSPic1,
Strings2
Yo.Replace_TS_Pic
End Sub
Ejemplo del método
ReplaceDocument
sTarget = "FIX32.NODE1.AI1.F_CV"
FindReplace.FindInString
"FIX32.NODE1.AI1.F_CV", 1,
"AI1", 8, sMatchString, lFirst,
lCount, bFound
FindReplace.ReplaceInString
sTarget, "AI2", sMatchString,
lFirst, lCount, 8, sReplacement,
bsuccess
Ejemplo de subrutina
ReplaceTGDPicture
Este ejemplo reemplaza la imagen abierta
TestPicture con TestPicture1 y luego abre el
archivo de grupo de etiquetas TestTGD.
ReemplazarTGDPicture
"TestPicture1", "TestTGD",
"TestPicture"
Ejemplo del método
ResetChartData
Objetos
TestSchedule.ResetObjectStats
El método ResolveTagGroupFile es un
método de entorno de configuración que
recorre los grupos de etiquetas a los que se
hace referencia en la imagen, realiza las
sustituciones y conserva la información. El
uso de este método le proporciona un tiempo
de carga más rápido.
lngTotalFiltered =
AlarmSummaryOCX1.TotalFilteredAla
rms
ListBox1.Clear
Para lngLoop = 1 a
lngTotalFiltered
AlarmSummaryOCX1.SelectAlarmRow
lngLoop, True
AlarmSummaryOCX1.GetSelectedNodeT
ag strNode, strTag
ListBox1.AddItem strNode & "." &
strTag
AlarmSummaryOCX1.SelectAlarmRow
lngLoop, False
Siguiente lngLoop
AlarmSummaryOCX1.ResumeAlarmRead
Ejemplo del método
RetrieveDefinition
Establecer TGD =
CreateObject ("TagGroupDefinitionI
nterfaceDll.TagGroupDefinitionInt
erface ")
TGD.RetrieveDefinition "Prueba",
2, TokenList, ReplacementList,
DescriptionList
Ejemplo del método
RetrieveTagGroupVariables
Se utiliza para recuperar todos los símbolos de
grupos de etiquetas a los que se hace
referencia en la imagen. Esto incluye scripts
pero no formularios. Se devuelve una matriz
de cadenas.
Dim iCount como entero
variante
pic1.RetrieveTagGroupVariables
iCount, vaSymbols
"TestTimer2"
Calendario de pruebas. Objetos
RunObject
S
iStatus =
Application.Documents.Save
(verdadero)
Establecer iDoc =
Application.Documents.open ("C: \
Pr
Archivos de programa \ Proficy \
Proficy
iFIX \ pic \ testpicture.grf ")
iDoc.Save "TestPicture1.grf",
False
Ejemplo del método Save_TS_List
Me.Save_TS_List
End Sub
Establecer iDoc =
Application.Documents.open ("C: \
Pr
Archivos de programa \ Proficy \
Proficy
iFix \ pic \ TestPicture.grf ")
Application.Documents.SaveAsSVG
"C: \ Archivos de programa \
Proficy \ Proficy iFix \ pic \
TestPicture.svg", iDoc
End Sub
iIndex =
ExpressionEditor1.SaveToHistoryLi
st ("AI1.F_CV")
lngTotalFiltered =
AlarmSummaryOCX1.TotalFilteredAla
rms
ListBox1.Clear
AlarmSummaryOCX1.SelectAlarmRow
lngLoop, True
AlarmSummaryOCX1.GetSelectedNodeT
ag strNode, strTag
ListBox1.AddItem strNode & "." &
strTag
AlarmSummaryOCX1.SelectAlarmRow
lngLoop, False
Siguiente lngLoop
AlarmSummaryOCX1.ResumeAlarmRead
Oval1.SelectObject False
El siguiente ejemplo
selecciona solo Oval1.
PolyLine1.SelectObject True
Oval1.SelectObject True
booleano
booleano
cadena
Dim VerifyFullName As String
'Crear el objeto ESignature
Establecer ESig =
CreateObject ("ElectronicSignature
.ESignatureFactory ")
'Envíe un mensaje a la
pista de auditoría
ESig.SendSignedOperatorMessage
"Descripción de la acción",
"", "", Ucase (PerformUserID),
PerformComment, Ucase
(VerifyUserID), VerifyComment
Obtenga los nombres
completos de los
firmantes
ESig.GetFullname Ucase
(PerformUserID), Ucase
(PerformFullName)
ESig.GetFullname Ucase
(VerifyUserID), Ucase
(VerifyFullName)
'Mostrar resultados
MsgBox "Acción realizada por"
+ PerformUserName + "(" +
PerformFullName + ")" +
PerformComment + "y verificada
por" + VerifyUserName + "(" +
VerifyFullName + ")" +
VerifyComment
Demás
Demás
TestPicture.SendToBack
SetName = "TestUser"
Establecer ESig =
CreateObject ("ElectronicSignature
.ESfirma ")
Demás
System.SetGlobalMovingEndTimeToCu
rrent
End Sub
Sub privado
CommandButton12_Click ()
.SetLegendMask IIf (0 =
.DSLegendMask, LegendMask_All, 0)
Terminar con
End Sub
Ejemplo del método
SetNumericFormat
Integer
Establecer iWrkSpace =
CreateWorkspace ("", "admin",
"",
dbUseJet)
Establecer db_var_name =
iWrkSpace.OpenDatabase
("Chart.mdb")
Establecer record_var =
db_var_name.OpenRecordSet
("Consulta de datos",
dbOpenDynaset)
record_var.MoveLast
iCount = record_var.RecordCount
record_var.MoveFirst
Para i = 0 a iCount - 1
Valor (i) =
record_var.Fields ("Valor").
Valor
Tiempos (i) =
record_var.Fields ("Tiempo").
Valor
Calidad (i) =
record_var.Fields ("Calidad").
Valu e
'La calidad (i) debe
establecerse en 192 (buena
calidad de datos) para mostrar
datos
record_var.MoveNext
Siguiente yo
db_var_name.Close
dVal = Valor
dtDate = Horas
lQual = Calidad
Llame a Pen1.SetPenDataArray
(iCount, dVal, dtDate, lQual)
Ejemplo del método SetPointAt
iPoint.x = 75
iPoint.y = 10
Polygon1.SetPointAt 2, iPoint
Ejemplo del método SetPriorityColor
OLE_COLOR
OLE_COLOR lVerde =
lRojo = 725759
AlarmSummaryOCX1.SetPriorityColor
7, lVerde
AlarmSummaryOCX1.SetPriorityColor
6, lAzul
AlarmSummaryOCX1.SetPriorityColor
5, lRed
Ejemplo de método SetProperty
TestPicture.SetScriptWindow
True, "MouseDown"
Ejemplo del método SetSource
AlarmSummaryOCX1.SetStatusColor
1, lVerde
Ejemplo del método SetStatusFont
Establecer iFormat =
TestPicture.FindObject ("Enlace de
datos1
.Formato1 ")
iFormat.SetStringFormat "Valor =
% s"
Ejemplo del método SetTabSelection
bResult =
ExpressionEditor1.SetTabSelection
(11)
TestPicture.ShowAnimations
Establecer oPic =
Application.ActiveDocument.Page
Establecer oRect =
oPic.FindObject ("Rect2")
oPic.ShowVBAProcedimiento
"Click", oRect
1_Click () AlarmHornSilence
End Sub
DataLink1.SelectObject False
TestPicture.SnapObjectsToGrid
Ejemplo del método SpaceEvenly
Polygon1.SelectObject False
RoundRect1.SelectObject False
TestPicture.SpaceEvenly 0
Establecer iEvent =
System.FindObject ("TestSchedule.F
ixEvent1 ")
iEvent.StartEvent
Ejemplo del método StartTimer
Establecer iTimer =
System.FindObject ("TestSchedule.F
ixTimer1 ")
iTimer.StartTimer
Ejemplo del método StickToCursor
Establecer iRect =
Application.ActiveDocument.Page.B
uildObject ("rect")
iRect.HorizontalPosition = 3
# iRect.VerticalPosition = 3
# iRect.StickToCursor
Ejemplo del método StopEvent
Establecer iEvent =
System.FindObject ("TestSchedule.F
ixEvent1 ")
iEvent.StopEvent
Establecer iTimer =
System.FindObject ("TestSchedule.F
ixTimer3 ")
iTimer.StopTimer
Ejemplo de método de estiramiento
1034 pic.SwitchLanguage
-O-
pic.SwitchLanguge (ES_Español)
AlarmSummaryOCX1.SwitchLangua
ge RU_Russian
End Sub
• UseLocalSecurity
• UseDomainSecurity
Si establece la propiedad
UseDomainSecurity en True, también debe
establecer la propiedad Domain en un
nombre de dominio de Windows válido.
T
pic1.TagGroupSubstitution
"@ tag1 @ ",
szSubstitution
LineChart1.UndoZoom
End Sub
pic1.UnloadTagGroupFile
End Sub
Ejemplo de método
Update_A_Dynamo_By_Name
El siguiente código proporciona un ejemplo
del método Update_A_Dynamo_By_Name.
Este ejemplo es similar al que aparece en el
ejemplo del método
Update_A_Dynamo_By_Ref.
Función pública
UpdateADynamo (DynamoInstanceFully
QualifiedName como cadena,
MasterDynamoFullyQualifiedName As
String, ByRef strReturnMsg) Como
UpdateDynamoResult
Atenuar
iDataSourceOption como
DynamoDataSourceOption
Dim iResult As Long
'UpdateDynamoResult
Atenuar iPrompt tanto tiempo
iDataSourceOption =
g_WizardConfig.iDataSourceOption
Si
g_WizardConfig.iDataSourceOption
= DYNAMO_PROMPT_FOR_CHOICE
Entonces
Si
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY
_TO_ALL Entonces
iDataSourceOption
= DYNAMO_UPDATE_BUT_NOT_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MAT
CH_APPLY_TO_ALL Entonces
iDataSourceOption
= DYNAMO_UPDATE_AND_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPL
Y_TO_ALL Entonces
iDataSourceOption
= DYNAMO_NOT_UPDATE
Terminara si
Terminara si
'////// llamada de
Update A Dynamo
PlugandSolve.GeometryHelperOb
j.Update_A_Dynamo_By_Name
MasterDynamoFullyQualifiedName,
DynamoInstanceFullyQualifiedName,
iDataSourceOption,
mobjStrMgr.GetNLSStr (4069),
iResult
'obtener una cadena de
resultado
strReturnMsg =
PlugandSolve.GeometryHelperObj.Ge
t_Last_Result_String
(g_ReturnFromPromptForCho
ice = PROMPT_DLG_SEL_NONE)
Entonces
iPrompt =
PlugandSolve.GeometryHelperObj.Ge
t_Last_Prompt_Value
Si (iPrompt =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY
_TO_TODOS) O _
(iPrompt =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MAT
CH_APPLY_TO_ALL) O _
(iPrompt =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPL
Y_TO_ALL) Entonces
g_ReturnFromPromptFor
Choice = iPrompt
Terminara si
Terminara si
' De lo contrario, si
g_testcount = 150
Luego
' iResult =
DYNAMO_UPDATE_ABORTED
' Demás
' strReturnMsg =
DynamoInstanceFullyQualifiedName
& "se actualizó correctamente
con" &
MasterDynamoFullyQualifiedName
' iResult = DYNAMO_UPDATED
' Terminara si
'////// fin del maniquí para
prueba
UpdateADynamo
= DYNAMO_UPDATED
De lo contrario, si iResult
<=
DYNAMO_NOTUPDATED Entonces
UpdateADynamo
= DYNAMO_NOTUPDATED
Demás
UpdateADynamo =
DYNAMO_UPDATE_ABORTED
Terminara si
Función final
Ejemplo de método
Update_A_Dynamo_By_Name2
Consulte Update_A_Dynamo_By_Ref2
Ejemplo de método.
Update_A_Dynamo_By_Ref2 le permite
especificar un nombre de Dynamo, mientras
Update_A_Dynamo_By_Name2 le permite
especificar el puntero de envío del objeto
Dynamo.
iDataSourceOption =
g_WizardConfig.iDataSourceOption
Si g_WizardConfig.iDataSourceOption
= DYNAMO_PROMPT_FOR_CHOICE Entonces
Si g_ReturnFromPromptForChoice
=
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY_TO_AL
L Entonces
iDataSourceOption
= DYNAMO_UPDATE_BUT_NOT_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MATCH_APP
LY_TO_ALL Entonces
iDataSourceOption =
DYNAMO_UPDATE_AND_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPLY_TO_A
LL Entonces
iDataSourceOption
= DYNAMO_NOT_UPDATE
Terminara si
Terminara si
iUpdateOptions = & H0
Si iDataSourceOption =
DYNAMO_PROMPT_FOR_CHOICE Entonces
iUpdateOptions =
UPDATE_OPTION_ON_MISMATCH_PROMT_FOR_CHO
ICE
De lo contrario, si
iDataSourceOption =
DYNAMO_UPDATE_AND_APPLY
Entonces
iUpdateOptions =
UPDATE_OPTION_ON_MISMATCH_UPDATE_DYNAMO
+
UPDATE_OPTION_ON_MISMATCH_APPLY_DATA_SO
URCES
De lo contrario, si
iDataSourceOption =
DYNAMO_UPDATE_BUT_NOT_APPLY
Entonces
iUpdateOptions =
UPDATE_OPTION_ON_MISMATCH_UPDATE_DYNAMO
Terminara si
Si g_WizardConfig.bKeepSize = True
Luego
iUpdateOptions = iUpdateOptions
+ UPDATE_OPTION_RESIZE_INSTANCE
Terminara si
Si g_WizardConfig.bKeepCaption
= True Entonces
iUpdateOptions = iUpdateOptions
+ UPDATE_OPTION_SAVE_CAPTIONS Finalizar
si
Finalizar si
PlugandSolve.GeometryHelperObj.Upda
te_A_Dynamo_By_Ref2 objMasterDynamo,
objDynamoInstance, iUpdateOptions,
mobjStrMgr.GetNLSStr (4069), iResult
'obtener una cadena de resultado
strReturnMsg =
PlugandSolve.GeometryHelperObj.Get_Last
_Result_String
Si
(g_WizardConfig.iDataSourceOption =
DYNAMO_PROMPT_FOR_CHOICE) y _
(g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_NONE)
Entonces
iPrompt =
PlugandSolve.GeometryHelperObj.Get_Last
_Prompt_Value
Si (iPrompt =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY_TO_AL
L) O _
(iPrompt =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MATCH_APP
LY_TO_ALL) O _
(iPrompt =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPLY_TO_A
LL) Entonces
g_ReturnFromPromptForChoice
= iPrompt
Terminara si
Terminara si
' UpdateADynamo =
DYNAMO_NOTUPDATED
' Demás
' UpdateADynamo =
DYNAMO_UPDATE_ABORTED
' Terminara si
Si (iResult And
UPDATER_RESULT_SUCCESS_BIT)> 0 Entonces
UpdateADynamo2 = DYNAMO_UPDATED
Terminara si
Si (iResult And
UPDATER_RESULT_DYNAMO_NOT_UPDATED_BIT)>
0 Entonces
UpdateADynamo2 =
DYNAMO_NOTUPDATED
Terminara si
Si (iResult And
UPDATER_RESULT_USER_CANCELLED_BIT)> 0
_
O (iResult y
UPDATER_RESULT_SUCCESS_BIT) = 0
Entonces
UpdateADynamo2 =
DYNAMO_UPDATE_ABORTED
Terminara si
Función final
iDataSourceOption =
g_WizardConfig.iDataSourceOption
Si g_WizardConfig.iDataSourceOption
= DYNAMO_PROMPT_FOR_CHOICE Entonces
Si g_ReturnFromPromptForChoice
=
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY_TO_AL
L Entonces
iDataSourceOption
= DYNAMO_UPDATE_BUT_NOT_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MATCH_APP
LY_TO_ALL Entonces
iDataSourceOption
= DYNAMO_UPDATE_AND_APPLY
De lo contrario
g_ReturnFromPromptForChoice =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPLY_TO_A
LL Entonces
iDataSourceOption
= DYNAMO_NOT_UPDATE
Terminara si
Terminara si
PlugandSolve.GeometryHelperObj.Actu
alizaciones te_A_Dynamo_By_Ref2
objMasterDynamo, objDynamoInstance,
iDataSourceOption, mobjStrMgr.GetNLSStr
(4069), iResult
'obtener una cadena de resultado
strReturnMsg =
PlugandSolve.GeometryHelperObj.Get_Last
_Result_String
Si
(g_WizardConfig.iDataSourceOption =
DYNAMO_PROMPT_FOR_CHOICE) y _
(g_ReturnFromPromptForChoice
= PROMPT_DLG_SEL_NONE) Entonces
iPrompt =
PlugandSolve.GeometryHelperObj.Get_Last
_Prompt_Value
Si (iPrompt =
PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY_TO_AL
L) O _
(iPrompt =
PROMPT_DLG_SEL_UPDATE_ATTEMPT_MATCH_APP
LY_TO_ALL) O _
(iPrompt =
PROMPT_DLG_SEL_DO_NOT_UPDATE_APPLY_TO_A
LL) Entonces
g_ReturnFromPromptForChoice
= iPrompt
Terminara si
Terminara si
' iResult =
DYNAMO_UPDATE_ABORTED
' Demás
' Terminara si
UpdateADynamo = DYNAMO_UPDATED
UpdateADynamo
= DYNAMO_NOTUPDATED
Demás
UpdateADynamo =
DYNAMO_UPDATE_ABORTED
Terminara si
Función final
Para ver este código en contexto:
1. En la vista clásica, en el menú
WorkSpace, seleccione Editor de Visual
Basic. -O-
En la vista de cinta, en la pestaña
Inicio, en el grupo Espacio de
trabajo, haga clic en Editor de
Visual Basic.
2. En la vista de árbol, haga doble clic
en la carpeta Project_PlugandSolve, luego en
la carpeta Módulos y finalmente en
modDynamoUpdater.
3. Busque UpdateADynamo para
localizar este código.
objeto
Establecer TestSchedule =
System.FindObject ("TestSchedule")
Establecer iTimer =
TestSchedule.BuildObject ("FixTime
r ")
iTimer.Name = "TimerTest"
iTimer.TriggerType = 1
iTimer.Interval = 2000
TestSchedule.UpdateBackgroundObje
ct "TimerTest", bkAdd, bkRun
Establecer TGD =
CreateObject ("TagGroupDefinitionI
nterfaceDll.TagGroupDefinitionInt
erface ")
TGD.RetrieveDefinition "Prueba",
4, TokenList, ReplacementList,
DescriptionList
TokenList (2) = "Etiqueta3"
ReplacementList (3) =
"FIX32.NODE2.AI2.F_CV"
DescriptionList (2) =
"Temperatura para el
nodo 2"
DescriptionList (3) = "Presión
para el nodo 2"
' Crear el objeto de archivo de
grupo de etiquetas
Establecer TGD =
CreateObject ("TagGroupDefinitionI
nterfaceDll.TagGroupDefinitionInt
erface ")
TGD.UpdateDefinition "Prueba",
4, TokenList, ReplacementList,
DescriptionList
Establecer TGD = Nada
Ejemplo de método
UserFormPointToLogical
El siguiente ejemplo convierte las
coordenadas superior izquierda de 30, 50 en
coordenadas "UserForm Point" en unidades
lógicas para la imagen de prueba de imagen.
Dim dTop como doble
dTop = 30
dIzquierda = 50
TestPicture.UserFormPointToLogica
l dTop, dLeft
VZ
Establecer ESig =
CreateObject ("ElectronicSignature
.ESignatureFactory ")
Si bNodeSignEnabled = True
Entonces
ESig.ValidateSignature
"admin", "admin", 1,
bValidSig, Ucase (UserID)
Si bValidSig = True Entonces
'Envíe un mensaje a la
pista de auditoría
ESig.SendSignedOperatorMessage
"Descripción de la acción",
"", "", Ucase (UserID),
"Comentario"
Obtenga el nombre
completo del
firmante
ESig.GetFullname Ucase
(UserID), Ucase (FullName)
'Mostrar resultados
MsgBox "Acción realizada por el
administrador (" + FullName + ")"
+ "Comentario"
Demás
Terminara si
Demás
Ejemplo de método
ValidateSignatureAndWriteValue
El siguiente ejemplo crea el objeto ESignature,
verifica si el nodo está habilitado para firma
electrónica y determina si una etiqueta específica
(FIX32.thisnode.D01.F_CV) requiere firma
electrónica. Si es necesario, el ejemplo valida la
firma, escribe el nuevo valor y envía un mensaje
a la pista de auditoría.
Atenuar ESig como objeto
Establecer ESig =
CreateObject ("ElectronicSignature
.ESignatureFactory ")
'Compruebe si la etiqueta
requiere firma electrónica
ESig.Initialize
"Fix32.thisnode.DO1.F_CV"
ESig.IsSignatureRequired 0,
bSigRequired, nInfo, bVerify,
bContinuousUse
Si bSigRequired = True Entonces
ESig.ValidateSignatureAndWriteVal
ue 0, NewValue, "admin", "admin",
"Ejecutar ejemplo de comentario"
Demás
ESig.ValidateSignatureAndWriteVal
ue 0, NewValue, "admin", "admin",
"Ejecutar ejemplo de comentario",
"supervisor1", "GEF", "Verificar
ejemplo de comentario"
Terminara si
Demás
Demás
Terminara si
Oval2.ValidateSource "AI1",
iStatus, iObj, sPropName
Ejemplo del método
ValueTimeFromXY
bReal As Boolean
Pen1.ValueTimeFromXY 10,
25, dValue, dDate, bReal
El siguiente ejemplo:
'Agregar un grupo a la
colección Grupos
FDS.Groups.Add ("Grupo de
datos1")
FDS.Groups.Item ("DataGroup1").
Dat aItems.Add
("Fix32.THISNODE.AI1.F_ CV")
'Escribir DataGroup1
FDS.Groups.Item ("DataGroup1").
Wri te
'Escriba el DataItem
FDS.Groups.Item ("DataGroup1").
Dat aItems.Item (1) .Write (45)
Ejemplo del método
XYFromValueTime
Pen1.XYFromValueTime 10,
# 11: 05: 00 PM #, dX,
dY
Ejemplo del método XYHitTest
booleano
Chart1.XYHitTest x, y, dDate,
dValue, sPenName, iPen, lPenNum,
bReal
Ejemplo de método de zoom
event58, 59, 60, 61, 63, 65, 66, manual67,68, mode218,73,75, 77,22479, 80,