Categories

Ricezione Timbrate

< Indietro

Funzione

La funzione consente di ricevere l’elenco delle timbrate memorizzate all’interno del dispositivo. 

Public Function Presenze_Ricevi(Dispositivo As ipsDevice, SoloNuove As Boolean) As List(Of
ipsTimbrate)

Parametri da passare:

Dispositivo
Oggetto contenente i parametri di collegamento al dispositivo

SoloNuove
Valore booleano per indicare alla funzione l’intenzione di ricevere solo le timbrate non
ancora lette (nuove) o tutte le timbrate presenti nella memoria.

Risultato:

Lista Timbrate
Oggetto Lista contenente tutti i records presenze letti, ogni singolo records deve essere letto
attraverso un elemento definito come ipsTimbrate per poter accedere alle informazioni.

Codice di esempio

Private Sub Esegui()
'configurazione Dispositivo
Dim Dispositivo As New ipsAttendant_SDK.ipsDevice
Dispositivo.IndirizzoIP = "192.168.0.166"
Dispositivo.NumeroDispositivo = 1
Dispositivo.Porta = 5005
Dispositivo.TipoConnessione = ipsAttendant_SDK.eConnessione.lan

'configurazione lista per ricezione nominativi presenti nel dispositivo
Dim ListaPresenze As New List(Of ipsAttendant_SDK.ipsTimbrate)

'creazione oggetto per interfacciamento al dispositivo
Dim R701 As New ipsAttendant_SDK.R701

'ricezione elenco presenze (tutte)
ListaPresenze = R701.Presenze_Ricevi(Dispositivo, False)

'pulizia listbox
listBox.Items.Clear()

'scrittura dati in lista
For Each elemento As ipsAttendant_SDK.ipsTimbrate In ListaPresenze
listBox.Items.Add("Badge nr." & elemento.CardID & " data:" & elemento.Data & " - Nome:" & elemento.Nome)
Next
End Sub
Table of Contents