1 e 2 anomalia -------------------------------------------------------------------------------
Public Sub MostraMsg(ByVal Testo As String, ByVal Titolo As String, ByVal valore As Variant, ByVal ora As Variant, ByVal MinMax As String, ByVal Colore As Variant, ByVal Gif As String, ByVal Nminmax As Variant)
Label1.Caption = Nminmax & "° " & MinMax & " di " & valore
Label2.Caption = "alle " & Format(Ora, "hh:mm:ss")
Me.Caption = Titolo
Me.BackColor = Colore
'Me.Gif89a1.Filename = Gif
Me.Show 0
End Sub
3 anomalia -----------------------------------------------------------------------------------------
If segno = 1 Then
limite = 1
Range("W" & priga).Value = Range("W" & priga).Value + 1
Nminmax = Range("W" & priga).Value
lsuono = 10
MinMax = "massimo"
Colore = 65280 |