Imports System.Windows.Forms

Public Class RgrTst_SetPulseRef

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Friend Property PlsRef() As Double
        Get
            Return CDbl(udPulse.Value)
        End Get
        Set(ByVal value As Double)
            udPulse.Value = CDec(value)
        End Set
    End Property

    Friend Property PkRef() As Double
        Get
            Return CDbl(udPeak.Value)
        End Get
        Set(ByVal value As Double)
            udPeak.Value = CDec(value)
        End Set
    End Property

    Friend Property AvgRef() As Double
        Get
            Return CDbl(udAvg.Value)
        End Get
        Set(ByVal value As Double)
            udAvg.Value = CDec(value)
        End Set
    End Property

    Friend Property DCRef() As Double
        Get
            Return CDbl(udDC.Value)
        End Get
        Set(ByVal value As Double)
            udDC.Value = CDec(value)
        End Set
    End Property
End Class
