‘ \u4e00\u3001\u7c7b\u6a21\u5757\u4ee3\u7801<\/p>\n\n\n\n
‘ \u7c7b\u540d: clsWire
‘ \u5305\u542b8\u4e2a\u53c2\u6570\u30012\u4e2a\u65b9\u6cd5\u30011\u4e2a\u4e8b\u4ef6<\/p>\n\n\n\n
Option Explicit<\/p>\n\n\n\n
‘ —————————-
‘ 1. \u5b9a\u4e49\u79c1\u6709\u53d8\u91cf\uff088\u4e2a\u53c2\u6570\uff09
‘ —————————-
Private pMaterial As String ‘ \u6750\u6599
Private pLength As Double ‘ \u957f\u5ea6
Private pDiameter As Double ‘ \u76f4\u5f84
Private pVoltage As Double ‘ \u7535\u538b
Private pCurrent As Double ‘ \u7535\u6d41
Private pResistance As Double ‘ \u7535\u963b
Private pTemperature As Double ‘ \u6e29\u5ea6
Private pIsInsulated As Boolean ‘ \u662f\u5426\u6709\u7edd\u7f18\u5c42<\/p>\n\n\n\n
‘ —————————-
‘ 2. \u5b9a\u4e49\u4e8b\u4ef6
‘ —————————-
Event StatusChanged(ByVal Message As String)<\/p>\n\n\n\n
‘ —————————-
‘ \u7c7b\u521d\u59cb\u5316\uff08\u8bbe\u7f6e\u9ed8\u8ba4\u503c\uff09
‘ —————————-
Private Sub Class_Initialize()
pMaterial = “Copper” ‘ \u9ed8\u8ba4\u6750\u6599\u4e3a\u94dc
pLength = 0
pDiameter = 0
pVoltage = 0
pCurrent = 0
pResistance = 0
pTemperature = 25 ‘ \u9ed8\u8ba4\u6e29\u5ea625\u00b0C
pIsInsulated = False
End Sub<\/p>\n\n\n\n
‘ —————————-
‘ \u5c5e\u6027\u5b9a\u4e49\uff088\u4e2a\u53c2\u6570\uff09
‘ —————————-
Public Property Get Material() As String
Material = pMaterial
End Property
Public Property Let Material(ByVal Value As String)
pMaterial = Value
End Property<\/p>\n\n\n\n
Public Property Get Length() As Double
Length = pLength
End Property
Public Property Let Length(ByVal Value As Double)
pLength = Value
End Property<\/p>\n\n\n\n
Public Property Get Diameter() As Double
Diameter = pDiameter
End Property
Public Property Let Diameter(ByVal Value As Double)
pDiameter = Value
End Property<\/p>\n\n\n\n
Public Property Get Voltage() As Double
Voltage = pVoltage
End Property
Public Property Let Voltage(ByVal Value As Double)
pVoltage = Value
End Property<\/p>\n\n\n\n
Public Property Get Current() As Double
Current = pCurrent
End Property
Public Property Let Current(ByVal Value As Double)
pCurrent = Value
End Property<\/p>\n\n\n\n
Public Property Get Resistance() As Double
Resistance = pResistance
End Property
Public Property Let Resistance(ByVal Value As Double)
pResistance = Value
End Property<\/p>\n\n\n\n
Public Property Get Temperature() As Double
Temperature = pTemperature
End Property
Public Property Let Temperature(ByVal Value As Double)
pTemperature = Value
End Property<\/p>\n\n\n\n
Public Property Get IsInsulated() As Boolean
IsInsulated = pIsInsulated
End Property
Public Property Let IsInsulated(ByVal Value As Boolean)
pIsInsulated = Value
End Property<\/p>\n\n\n\n
‘ —————————-
‘ \u65b9\u6cd51\uff1a\u8ba1\u7b97\u529f\u7387
‘ —————————-
Public Function CalculatePower() As Double
CalculatePower = pVoltage * pCurrent ‘ P = V * I
RaiseEvent StatusChanged(“\u529f\u7387\u8ba1\u7b97\u5b8c\u6210: ” & CalculatePower & “W”)
End Function<\/p>\n\n\n\n
‘ —————————-
‘ \u65b9\u6cd52\uff1a\u68c0\u67e5\u5b89\u5168\u6027
‘ —————————-
Public Sub CheckSafety()
Dim msg As String
If pTemperature > 80 Then
msg = “\u8b66\u544a\uff1a\u6e29\u5ea6\u8fc7\u9ad8\uff08” & pTemperature & “\u00b0C\uff09\uff01”
ElseIf pCurrent > 10 Then
msg = “\u8b66\u544a\uff1a\u7535\u6d41\u8d85\u8fc7\u5b89\u5168\u9608\u503c\uff01”
Else
msg = “\u7cfb\u7edf\u72b6\u6001\u6b63\u5e38”
End If
RaiseEvent StatusChanged(msg) ‘ \u89e6\u53d1\u4e8b\u4ef6
End Sub<\/p>\n\n\n\n
‘ \u4e8c\u3001\u8c03\u7528<\/p>\n\n\n\n
‘ \u5728\u7a97\u4f53\u4ee3\u7801\u4e2d\uff1a
Dim WithEvents myWire As clsWire ‘ \u5fc5\u987b\u4f7f\u7528 WithEvents \u6355\u83b7\u4e8b\u4ef6<\/p>\n\n\n\n
Private Sub Form_Load()
Set myWire = New clsWire
myWire.Voltage = 220
myWire.Current = 5
myWire.Temperature = 75<\/p>\n\n\n\n
‘ \u8c03\u7528\u65b9\u6cd5
Debug.Print “\u529f\u7387\uff1a” & myWire.CalculatePower()
myWire.CheckSafety<\/p>\n\n\n\n
End Sub<\/p>\n\n\n\n
‘ \u5904\u7406\u4e8b\u4ef6
Private Sub myWire_StatusChanged(ByVal Message As String)
MsgBox Message, vbInformation, “\u5bfc\u7ebf\u72b6\u6001”
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"