Connessioni ADO da cScript

Di seguito un esempio di codice su come effettuare connessioni ADO utilizzando cScript

__object *cn, *rs;
int i,fields=10;
cn=__object_create(”ADODB.Connection”);
rs=__object_create(”ADODB.RecordSet”);
// Connect
cn->Open(”Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Northwind;Data Source=(local)\\WinCC”);
if (cn->State == 0) printf (”DB Connect failed\n”);
else
{
rs->Open(”Select * FROM Products”,cn,1);
rs->MoveFirst;
while(!rs->eof) {
for(i=0;i<fields;i++) {printf(rs->Fields(i)->Value); printf (” “); }
printf(”\r\n”);
rs->MoveNext;
}
rs->Close;
cn->Close;
}

Anche se è piu’ agevole in BasicScript talvolta puo’ esssere necessario avere la chiamata al database nell’ambiente cScript

Invia l'articolo in formato PDF a PDF Download
febbraio 25, 2008 | Filed Under DataBase, cScript | Leave a Comment 

Disabilitare i tasti speciali di Windows

E’ sempre noioso dovere abilitare e disabilitare i tasti speciali tipo CTRL+AL+CANC oppure CTRL+ESC

Se è molto utile che siano bloccati nell’uso quotidiano con il runtime a tutto schermo e’ altrettanto disagevole averli bloccati durante una sessione di teleassistenza o quando si pretende di avere il controllo totale sel Sistema Operativo per manutenzione.

Copio di seguito un frammento di codice che permette di abilitare e disabilitare queste combinazioni di tasti tramite una Action triggherata su tag interna globale @CurrentUser

#pragma code (”UseAdmin.DLL”)
#include “pwrt_api.h”
#pragma code()
#pragma code (”ALMXGINA.DLL”)
BOOL SetXGinaValue(unsigned int uiKey, BOOL *pbEnable, DWORD dwSize);
#pragma code()
BOOL bEnable;
BOOL bOK;
#define XGINA_ALLOW_SHUTDOWN 1
#define XGINA_ALLOW_LOGOUT 2
#define XGINA_ALLOW_CTL_ALT_DEL 3
#define XGINA_ALLOW_CTL_ESC 4
#define XGINA_ALLOW_ALT_ESC 5
#define XGINA_ALLOW_ALT_TAB 6

bEnable = PWRTCheckPermission(36, TRUE);
bOK = SetXGinaValue(XGINA_ALLOW_SHUTDOWN , &bEnable , sizeof(bEnable ));
bOK = SetXGinaValue(XGINA_ALLOW_LOGOUT , &bEnable , sizeof(bEnable ));
bOK = SetXGinaValue(XGINA_ALLOW_CTL_ALT_DEL , &bEnable , sizeof(bEnable ));
bOK = SetXGinaValue(XGINA_ALLOW_CTL_ESC , &bEnable , sizeof(bEnable ));
bOK = SetXGinaValue(XGINA_ALLOW_ALT_ESC , &bEnable , sizeof(bEnable ));
bOK = SetXGinaValue(XGINA_ALLOW_ALT_TAB , &bEnable , sizeof(bEnable ));

Quando l’utente si loggherà nella security di WinCC se ha il pallino rosso di abilitazione nella riga 36 i tasti speciali vengono abilitati, altrimenti vengono diabilitati.

Prestare attenzione alla riga seguente

bEnable = PWRTCheckPermission(36, TRUE);

ritorna lo stato dell’abilitazione 36 (in questo esempio).

Utile anche per sapere da codice se l’utente ha una determinata abilitazione (per esempio per nascondere determinati pulsanti in funzione delle abilitazioni)

Invia l'articolo in formato PDF a PDF Creator
febbraio 23, 2008 | Filed Under cScript | Leave a Comment 

Accesso alla textlibrary di WinCC tramite ADO di Microsoft

Uno dei problemi che un utente avanzato di WinCC può imbattersi è affrontare la gestione di dati all’interno del proprio progetto.

Ad esempio per monitorare con software esterni l’andamento della produzione piuttosto che controllare dei fermi macchina.

Le Tag, o variabili, di WinCC vengono memorizzate all’interno di uno dei migliori DBMS (Data Base Management System) in commercio: ovvero l’ SQL Server di Microsoft. Ma chi ha provato leggere tali dati avrà scoperto che tantissime variabili sono criptate: ovvero illegibili dall’utente finale.

Quindi le soluzioni che si prospettano sono 2:

  1. Attraverso il Connectivity Pack di Siemens si accedono ai dati, ma richiede l’acquisto di una licenza a parte.
  2. Si memorizzano i dati direttamente da una pagina Runtime di WinCC attraverso l’uso di ADO della Microsoft, verso un qualsiasi DBMS (MySQL,Access,…)

ADO è un acronimo che stà per ActiveX Data Objects.

E’ stato concepito per fornire un’interfaccia API di alto livello per lavorare con OLE-DB. Esistono anche altri tipi di collegamento con un DB, ma viene preso in esame questo, per la facilità con cui verrà fatta l’integrazione in WinCC. Infatti con ADO la sequenza di comandi che il programmatore deve fare è molto semplice. L’utente genera direttamente un “command” da inviare all’oggetto ActiveX passando le informazioni necessarie direttamente all’oggetto. Per semplicità e praticità migliore, la maggior parte degli sviluppatori per essere tranquilli creano un oggetto di tipo “command” separato.

Ma vediamo come integrare il tutto in WinCC. In particolare vediamo ora come connetterci ad un database e fare le prima interrogazioni.

PASSO 1

Nel VBS Editor del Global Script Editor è bene creare delle funzioni che verrano richiamate per la connessione con il DB. Questo per quanto detto prima: mantenere un certo ordine nei “command” che verrano passati all’oggetto ADO.
Ovviamente la connessione potevo farla ogni volta che devo mandare un command ma non è consigliato.

Creiamo una funzione di tipo sub con al solita sintassi:

Sub ConnesioneDB

End Sub

All’interno della Sub creo 2 oggetti: uno per il collegamento con l’oggetto ADO e un altro oggetto per i maneggiare i RECORD…

Set oggettoADO = CreateObject(”ADODB.Connection”)
Set oggettoRECORD = CreateObject(”ADODB.Recordset”)

Una volta creati gli oggetti abbiamo bisogno della stringa di connessione: questa ha una sintassi ben definita: ovvero come primo parametro va inserito il Provider, secondo la sorgenti dati e alla fine va inserito un parametro per la sicurezza…

Per un database di tipo Access è :

Provider=Microsoft.Jet.OLEDB.4.0
Data Source=path_del_DB + WinCC.mdb;
Persist Security Info = False

Ora, è molto importante creare una nuova funzione vuota, ad esempio:

Sub AttivaHandleDB

End Sub

lo scopo di questa funzione è solo quella di rendere attive le variabili globali che sono state dichiarate nel workspace della funzione richiamata.

PASSO 2

Visualizzazione delle Text Library su di un oggetto in Runtime.
Abbiamo bisogno innanzitutto di sapere dove vengono archiviate le TextLibrary all’interno del DB di WinCC. Navigando all’interno del DB SQL Server di trova un DataBase che porta un nome del tipo:

CC_DB_Manip_Anno_Giorno_Mese_Ora_Minuti_Secondi(_R) dell’ ultima attivazione del progetto.

Cerchiamo quindi “dbo.TXTTable” contenente all’interno tutte le textLibrary del progetto con le relative traduzioni.

A questo punto creata una pagina con il Graphics Designer possiamo creare un pulsante che vada a leggere con una opportuna interrogazione il testo e la lingua che ci interessa. Ad esempio la seguente interrogazione associata ad un pulsante del Runtime WinCC mi restituisce la stringa in italiano associata al pulsante:

Sub OnButtonDown(Byval Item, Byval Flags, Byval x, Byval y)

Dim NoOfRecords
Set NoOfRecords = HMIRuntime.Tags(”NoOfRecords”)
Dim CurrentRec
Set CurrentRec = HMIRuntime.Tags(”CurrentRec”)
Dim TextID
Set TextID = HMIRuntime.Tags(”Testo_Lingua”)

If CurrentRec.Read < NoOfRecords.Read Then
TabellaLingue.MoveNext
TextID.Write TabellaLingue.Fields(0).Value
CurrentRec.Write CurrentRec.Value + 1
End If

End Sub

NoOfRecords è un campo I/O che mostra semplicemente il numero del record che abbiamo correntemente visualizzato. “TabellaLigua” è state precedentemente inizializzata coma la tabella su cui andremo a fare le interrogazioni. Per navigare nelle colonne della tabella si usa la notazione del tipo: “nome_colonna”.Fields(numero_colonna).Value ,ricordando che numero colonna parte da zero come la notazione VBS impone. La variabile CurrentRec serve per mantenere in memoria la posizione della riga che si è andata e leggere.

(MB)

Invia l'articolo in formato PDF a PDF Creator
febbraio 21, 2008 | Filed Under BasicScript, DataBase, Text Libray | 1 Comment 

Uso API di Windows da cScript

Se desidero emettere un suono, di fatto suonare un file di tipo WAV, tramite la scheda audio il codice necessario in cScript e’ il seguente.

#pragma code (”Kernel32.dll”)
BOOL Beep( DWORD dwFreq, DWORD dwDuration);
#pragma code()

#pragma code (”Winmm.dll “)
VOID WINAPI PlaySoundA (char* pszSound, char* hmode, DWORD dwflag);
#pragma code()

if (GetTagBit(”Sirena”)>0)
{
PlaySoundA(”C:\\WINDOWS\\Media\\ding.wav”,NULL,1);
}

L’esempio sopra è inserito in una action globale triggherata sulla Tag “Sirena”

Questo è un esempio su come accedere all’uso delle API di Windows dall’interno del cScript di WinCC

Invia l'articolo in formato PDF a PDF
febbraio 4, 2008 | Filed Under cScript | Leave a Comment 

Come non usare il TagPrefix usando il TagPrefix

Se scrivo del codice eseguito all’interno di una pagina visualizzata in una picture con la proprietà TagPrefix settata per esempio al valore “Zona” con il seguente codice leggo il valore della Tag “NomeTag” configurata nella struttura “Zona”:

HMIRuntime.Tags(”NomeTag”)

leggo di fatto la Tag che si chiama “Zona.NomeTag”

Se desidero leggere il valore della Tag “MiaTag” che malauguratamente non fa parte di una struttura devo usare la seguente sintassi

HMIRuntime.Tags(”@local::MiaTag”)

Verrà puntata la Tag senza che venga aggiunto l’impostazione del TagPrefix

Invia l'articolo in formato PDF a PDF Download
febbraio 3, 2008 | Filed Under Graphics Designer | Leave a Comment 

Forum ufficiale Siemens

Ciao,

forse non tutti sanno che esiste un forum ufficiale di Siemens A&D su WinCC.

Il forum è in inglese o tedesco e necessita di registrazione per poter postare in una discussione.

Alcune discussioni sono molto interessanti e saranno sicuramente fonte di ispirazione per la creazione di un post in questo blog.

Invia l'articolo in formato PDF a PDF Download
febbraio 2, 2008 | Filed Under Documentazione | Leave a Comment 

Il primo blog italiano su Siemens A&D WinCC

Ciao a tutti,

questo è il primo post di un nuovo blog registrato sul dominio www.WinCC.it

Oggi primo febbraio del 2008 nasce un blog che si pone come obiettivo iniziale la pubblicazione di articoli e informazioni il piu’ possibile aggiornate sul noto prodotto SCADA di Siemens A&D

Siamo un gruppo di utilizzatori che desiderano condividere informazioni che potrebbero a nostro parere essere utili anche ad altri utilizzatori del prodotto.

Questo non e’ un sito ufficiale e non ha assolutamente la pretesa di sostituirsi all’eccellente supporto fornito dalla casa madre tramite il sito ufficiale, il gruppo di discussione ufficiale e la knowledge base ufficiale di Siemens A&D.

I costi dell’iniziativa sono sostenuti in modo autonomo e siamo ben disposti ad accogliere proposte di sponsor o donazioni con Aziende o privati che condividono l’iniziativa.

Se ritieni di poter dare il tuo contributo con la stesura di un articolo non esitare a contattarci.

LE INFORMAZIONI CONTENUTE NEL SITO SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA’ IN IMPIEGHI PARTICOLARI. L’UTENTE SI ASSUME L’INTERA RESPONSABILITA’ PER L’UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO IL REDATTORE DELL’ARTICOLO E I PROPRIETARI DEL SITO SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE PREVENTIVAMENTE AVVISATI.

IL CONTENUTO DEL SITO E IL SUO USO IMPLICA LA CONOSCENZA DELLA LICENZA CREATIVE COMMONS:

Attribuzione-Non commerciale-Non opere derivate 2.5 Italia 

Noi speriamo che la nostra iniziativa incontri il gradimento dei visitatori e vi ringraziamo per la visita.

Invia l'articolo in formato PDF a PDF Creator
febbraio 1, 2008 | Filed Under Comunicati | 1 Comment