VB.NET 布尔型变量上升沿与下降沿检测，子程序封装并详细说明

以下是 VB.NET 中布尔型变量上升沿与下降沿检测子程序的封装及详细说明：

Public Class BooleanEdgeDetector
    Private m_previousValue As Boolean

    ' 上升沿检测子程序
    Public Sub RisingEdgeDetector(ByVal currentValue As Boolean, ByRef edgeDetected As Boolean)
        If currentValue AndAlso Not m_previousValue Then
            edgeDetected = True
        Else
            edgeDetected = False
        End If

        m_previousValue = currentValue
    End Sub

    ' 下降沿检测子程序
    Public Sub FallingEdgeDetector(ByVal currentValue As Boolean, ByRef edgeDetected As Boolean)
        If Not currentValue AndAlso m_previousValue Then
            edgeDetected = True
        Else
            edgeDetected = False
        End If

        m_previousValue = currentValue
    End Sub
End Class

使用示例：

Dim edgeDetector As New BooleanEdgeDetector()

Dim currentValue As Boolean = False
Dim previousValue As Boolean = False
Dim edgeDetected As Boolean = False

' Check for rising edge
currentValue = True
edgeDetector.RisingEdgeDetector(currentValue, edgeDetected)
If edgeDetected Then
    Console.WriteLine("Rising edge detected")
End If

' Check for falling edge
currentValue = False
edgeDetector.FallingEdgeDetector(currentValue, edgeDetected)
If edgeDetected Then
    Console.WriteLine("Falling edge detected")
End If

' Save previous value for next iteration
previousValue = currentValue

在上述示例中，我们首先创建了一个 `BooleanEdgeDetector` 的实例 `edgeDetector`。然后，我们定义了一个布尔型变量 `currentValue` 来表示当前的布尔值，并定义了一个布尔型变量 `edgeDetected` 来表示上升沿或下降沿是否被检测到。我们还定义了一个布尔型变量 `previousValue` 来保存上一次的布尔值。

接下来，我们分别将 `currentValue` 设置为 `True` 和 `False`，并调用 `RisingEdgeDetector` 和 `FallingEdgeDetector` 子程序来检测上升沿和下降沿。如果检测到了相应的沿，那么就会输出一条提示信息。最后，我们将 `previousValue` 设置为当前的 `currentValue`，以便下一次迭代使用。