-> Hier kostenlos registrieren
Hallo Community,
ich möchte gerne folgendes Skript von C in VB umwandeln, da ich es gerne innerhalb eines Bildbausteins verwenden möchte.
ich möchte gerne folgendes Skript von C in VB umwandeln, da ich es gerne innerhalb eines Bildbausteins verwenden möchte.
Code:
#define CURRENT_USER "@CurrentUser"
#define TAG_SET "IDB_2270_Taste_Service_Hand_PU_li_re_Entkoppeln_stat_VISU_OUT_SPS_IN.Tastenbit"
#define TXT_ID 5050 // Pusher entkoppeln
DWORD dwAction = 0;
MESSAGE_INFORMATIONS scMessageInformations;
[B]//Klären[/B]
memset(&scMessageInformations, 0, sizeof(MESSAGE_INFORMATIONS));
[B] //Meldung konstruieren[/B]
scMessageInformations.lAlarmNo = 1003;
strcpy(scMessageInformations.cStringValues[0], GetTextByID(TXT_ID));
scMessageInformations.iTypes[0] = MESSAGE_INFORMATIONS_TYPE_STRING;
strcpy(scMessageInformations.cStringValues[1], GetTagChar(CURRENT_USER));
scMessageInformations.iTypes[1] = MESSAGE_INFORMATIONS_TYPE_STRING;
[B] //Bit setzen[/B]
SetTagBit(TAG_SET, 1);