La funzione consente di inviare al dispositivo i dati relativi alla data e all’ora.
Public Sub Imposta_DataORa(Dispositivo As ipsDevice, DataOra As Date)
Parametri da passare:
Dispositivo
Oggetto contenente i parametri di collegamento al dispositivo
DataOra
Oggetto data contenente la data e l’ora da passare al dispositivo
Risultato:
Nessuno
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
'creazione oggetto per interfacciamento al dispositivo
Dim R701 As New ipsAttendant_SDK.R701
'creazione oggetto con data e ora
Dim xDate As New Date(now.Year, now.Month,now.Day, now.Hour, now.Minute,now.Second)
'invio data e ora al dispositivo
R701.Imposta_DataORa(Dispositivo, xDate)
End Sub