Lettura Crono Mct3

[picc]

Come posso fare per leggere il crono dal mct3 .. cioè il valore di ogni ora di uno specifico giorno .. (XComm building) sto diventando pazzo .. grazie.

[picc]

Sul cd di abs c'e soltanto l'esempio per la CDS in VB6 oppure l'oggetto crono sempre per VB6 ... non so se è possibile ma tramite XComm_Net in vb.net penso sia possibile con le funzioni Read_crono e Write_crono ma anche sull' . di abs non c'e scritto molto ... nessuno sa se è possibile ?

[del_user_56966]

funzioni Read_crono e Write_crono ma anche sull' . di abs non c'e scritto molto ... nessuno sa se è possibile ?

Questo codice lo trovi in C:\ActiveSystem\ tra i demo VB per LadderHome il demo è "Controllo grafico della cronoregolazione"

vedi il demo per l'esempio Read/Write del crono completo...

Private Sub XComm1_HPReadChrono(ByVal Data As String, Master As Integer, Node As Integer, V_Address As Integer, Ind As Integer, Srv As Integer)

If (Ind <> AddrNodoAttuale) Or (Srv <> AddrSrvAttuale) Then Exit Sub

If (AddrMaster <> Master) Or (AddrNode <> Node) Then Exit Sub

Dim cnt%, b0&

With ConfigTermo

For cnt = 0 To 23

b0 = Asc(Mid(Data, cnt + 1, 1)) 'setpoint per ogni ora

.AdvSlider1(cnt).value = b0

Next cnt

b0 = Asc(Mid(Data, cnt + 1, 1)) 'giorno della settimana

Call ConfigTermo.ResetButton

Select Case b0

Case 0: ConfigTermo.AdvFlatButton2(1).ForeColor = vbRed 'Domenica

Case 1: ConfigTermo.AdvFlatButton2(2).ForeColor = vbRed 'Lunedì

Case 2: ConfigTermo.AdvFlatButton2(3).ForeColor = vbRed 'Martedì

Case 3: ConfigTermo.AdvFlatButton2(4).ForeColor = vbRed 'Mercoledì

Case 4: ConfigTermo.AdvFlatButton2(5).ForeColor = vbRed 'Giovedì

Case 5: ConfigTermo.AdvFlatButton2(6).ForeColor = vbRed 'Venerdì

Case 6: ConfigTermo.AdvFlatButton2(7).ForeColor = vbRed 'Sabato

'Case Else: ConfigTermo.AdvFlatButton2(1).ForeColor = vbRed 'Giornaliero

End Select

End With

End Sub