cguimaraes

Check for events in queue using pisdk

Discussion created by cguimaraes Employee on Jan 5, 2011
Latest reply on Jan 17, 2011 by andreas

Hi, does have any way to check the number of events that are in queue?

 

I'm developing a code where I use update values and next I read the values for that tag, when the amount of values is too big, it didn't bring all the values, the idea of the software is to reprocess a tag in another tag with a different compression value.

 

below is the code:

 

Thanks for the help.

 

Carlos

 

Dim comp As String = txtcomp.Text
        Do Until IsNumeric(comp) = True
            comp = InputBox("Entre com o Novo Valor de Compressao", "Alterar Compressao")
        Loop
        txtcomp.Text = comp
        _Comp("Comp", comp)
        Dim _pisdk As PISDK.PISDK = New PISDK.PISDK()
        Dim _server As PISDK.Server = ServPickList1.SelectedServer
        Dim tagname As String = tagComboBox.SelectedItem.ToString()
        Dim _point1 As PISDK.PIPoint = ServPickList1.SelectedServer.PIPoints(tagname.ToString)
        Dim _point2 As PISDK.PIPoint = _server.PIPoints("Comp")
        'Dim _point3 As PISDK.PIPoint = _server.PIPoints("Erro")

        'Definicao de dados brutos
        Dim _archiveValues_raw As PISDK.PIValues = _point1.Data.RecordedValues(dateTimePickerStart.Value, dateTimePickerStop.Value, PISDK.BoundaryTypeConstants.btAuto, "", PISDK.FilteredViewConstants.fvShowFilteredState, Nothing)

        'Limpeza da variavel temporaria
        _Limpa(_point2.Name.ToString)
        '_Limpa(_point3.Name.ToString)
        'Reprocessamento dos dados brutos na variavel temporaria
        _point2.Data.UpdateValues(_archiveValues_raw, DataMergeConstants.dmReplaceDuplicates)
        'Resultados da Compressao
        Dim _archiveValues_comp As PISDK.PIValues = _point2.Data.RecordedValues(dateTimePickerStart.Value, dateTimePickerStop.Value, PISDK.BoundaryTypeConstants.btAuto, "", PISDK.FilteredViewConstants.fvShowFilteredState, Nothing)

 

Outcomes