Archive / 0-- ДИПЛОМ У К А З А Н И Я на лето 2014-1 / Код КурсРаботы ОбАнализ
.docModule Module_ChaP_09
Dim oChaP As New ChaP("ChaP")
Dim oInspector As New Inspector("Inspector")
Dim oDolgEdNalog As New DolgEdNalog("DolgEdNalog")
Dim oDolgPodoch As New DolgPodoch("DolgPodoch")
Dim oBildForm8DR As New BildForm8DR("BildForm8DR")
Dim oInfCard As New InfCard("InfCard")
Dim oForm8DR As New Form8DR("Form8DR")
Dim oForm1PP As New Form1PP("Form1PP")
Dim oRaschet As New Raschet("Raschet")
Dim Day As New Date(2004, 2, 29)
Private RanevBegunok As Boolean = False
Private RanevDolgEdNalog As Boolean = False
Private RanevDolgPodoch As Boolean = False
Private RanevBildForm8DR As Boolean = False
Private RanevInfCard As Boolean = False
Private RanevForm8DR As Boolean = False
Private RanevForm1PP As Boolean = False
Private RanevRaschet As Boolean = False
Sub Main()
Dim i As Integer, myD As String
For i = 1 To 3
myD = Day.ToShortDateString
MsgBox("День -- " & myD & " -- начался!")
'---------------------------------------------
oChaP.MainChaP(myD)
'---------------------------------------------
MsgBox("День -- " & myD & " -- закончился!")
Day = Day.AddDays(1)
Next i
End Sub
Public Class ChaP
Public Event evBegunok()
Public Event evDolgEdNalog()
Public Event evDolgPodoch()
Public Event evBildForm8DR()
Public Event evInfCard()
Public Event evForm8DR()
Public Event evForm1PP()
Public Event evRaschet()
Private mName As String
Public Sub New(ByVal aName As String)
mName = aName
End Sub
Public ReadOnly Property Name() As String
Get
Return mName
End Get
End Property
Public Sub MainChaP(ByVal D As String)
If "01.03.04" <= D And D <= "20.03.04" Then
If Not RanevBegunok Then
AddHandler Me.evBegunok, AddressOf oInspector.pevBegunok
RaiseEvent evBegunok()
RemoveHandler Me.evBegunok, AddressOf oInspector.pevBegunok
RanevBegunok = True
End If
End If
If "01.03.04" <= D And D <= "20.03.04" Then
If Not RanevDolgEdNalog Then
AddHandler Me.evDolgEdNalog, AddressOf oDolgEdNalog.pevDolgEdNalog
RaiseEvent evDolgEdNalog()
RemoveHandler Me.evDolgEdNalog, AddressOf oDolgEdNalog.pevDolgEdNalog
RanevDolgEdNalog = True
End If
End If
If "01.03.04" <= D And D <= "20.03.04" Then
If Not RanevDolgPodoch Then
AddHandler Me.evDolgPodoch, AddressOf oDolgPodoch.pevDolgPodoch
RaiseEvent evDolgPodoch()
RemoveHandler Me.evDolgPodoch, AddressOf oDolgPodoch.pevDolgPodoch
RanevDolgPodoch = True
End If
End If
If "01.03.04" <= D And D <= "20.03.04" Then
If Not RanevBildForm8DR Then
AddHandler Me.evBildForm8DR, AddressOf oBildForm8DR.pevBildForm8DR
RaiseEvent evBildForm8DR()
RemoveHandler Me.evBildForm8DR, AddressOf oBildForm8DR.pevBildForm8DR
RanevBildForm8DR = True
End If
End If
If "01.03.04" <= D And D <= "20.03.04" Then
If Not RanevInfCard Then
AddHandler Me.evInfCard, AddressOf oInfCard.pevInfCard
RaiseEvent evInfCard()
RemoveHandler Me.evInfCard, AddressOf oInfCard.pevInfCard
RanevInfCard = True
End If
End If
If "01.03.04" <= D And D <= "20.03.04" Then
If Not RanevForm8DR Then
AddHandler Me.evForm8DR, AddressOf oForm8DR.pevForm8DR
RaiseEvent evForm8DR()
RemoveHandler Me.evForm8DR, AddressOf oForm8DR.pevForm8DR
RanevForm8DR = True
End If
End If
If "01.03.04" <= D And D <= "20.03.04" Then
If Not RanevForm1PP Then
AddHandler Me.evForm1PP, AddressOf oForm1PP.pevForm1PP
RaiseEvent evForm1PP()
RemoveHandler Me.evForm1PP, AddressOf oForm1PP.pevForm1PP
RanevForm1PP = True
End If
End If
If "01.03.04" <= D And D <= "20.03.04" Then
If Not RanevRaschet Then
AddHandler Me.evRaschet, AddressOf oRaschet.pevRaschet
RaiseEvent evRaschet()
RemoveHandler Me.evRaschet, AddressOf oRaschet.pevRaschet
RanevRaschet = True
End If
End If
End Sub
Public Sub pevKillDolgEdNalog()
MsgBox("Долг ДолгЕдНалог устранен")
End Sub
Public Sub pevKillDolgPodoch()
MsgBox("Долг ДолгПодох устранен")
End Sub
Public Sub pevKillDolgInfCard()
MsgBox("Долг ДолгИнфКарта устранен")
End Sub
End Class
Public Class Inspector
Private mName As String
Public Sub New(ByVal aName As String)
mName = aName
End Sub
Public ReadOnly Property Name() As String
Get
Return mName
End Get
End Property
Public Sub pevBegunok()
MsgBox("Обработано событие Бегунок от ЧаП для Инспектор")
End Sub
End Class
Public Class DolgEdNalog
Private mName As String
Public Event KillDolgEdNalog()
Public Sub New(ByVal aName As String)
mName = aName
End Sub
Public ReadOnly Property Name() As String
Get
Return mName
End Get
End Property
Public Sub pevDolgEdNalog()
Dim mStr As String
mStr = InputBox("Введите ДА, если есть долг по ДолгЕдНалог, и НЕТ, если нет долга по ДолгЕдНалог", "", "НЕТ")
If mStr = "ДА" Then
AddHandler Me.KillDolgEdNalog, AddressOf oChaP.pevKillDolgEdNalog
RaiseEvent KillDolgEdNalog()
RemoveHandler Me.KillDolgEdNalog, AddressOf oChaP.pevKillDolgEdNalog
End If
MsgBox("Обработано событие ДолгЕдНалог от ЧаП для ДогЕдНалог")
End Sub
End Class
Public Class DolgPodoch
Public Event KillDolgPodoch()
Private mName As String
Public Sub New(ByVal aName As String)
mName = aName
End Sub
Public ReadOnly Property Name() As String
Get
Return mName
End Get
End Property
Public Sub pevDolgPodoch()
Dim mStr As String
mStr = InputBox("Введите ДА, если есть долг по ДолгПодох, и НЕТ, если нет долга по ДолгПодох", "", "НЕТ")
If mStr = "ДА" Then
AddHandler Me.KillDolgPodoch, AddressOf oChaP.pevKillDolgPodoch
RaiseEvent KillDolgPodoch()
RemoveHandler Me.KillDolgPodoch, AddressOf oChaP.pevKillDolgPodoch
End If
MsgBox("Обработано событие ДолгПодох от ЧаП для ДолгПодох")
End Sub
End Class
Public Class BildForm8DR
Private mName As String
Public Sub New(ByVal aName As String)
mName = aName
End Sub
Public ReadOnly Property Name() As String
Get
Return mName
End Get
End Property
Public Sub pevBildForm8DR()
MsgBox("Обработано событие СделатьФорму8ДР от ЧаП для СделатьФорму8ДР")
End Sub
End Class
Public Class InfCard
Public Event KillDolgInfCard()
Private mName As String
Public Sub New(ByVal aName As String)
mName = aName
End Sub
Public ReadOnly Property Name() As String
Get
Return mName
End Get
End Property
Public Sub pevInfCard()
Dim mStr As String
mStr = InputBox("Введите ДА, если есть долг по ДолгИнфКарта, и НЕТ, если нет долга по ДолгИнфКарта", "", "НЕТ")
If mStr = "ДА" Then
AddHandler Me.KillDolgInfCard, AddressOf oChaP.pevKillDolgInfCard
RaiseEvent KillDolgInfCard()
RemoveHandler Me.KillDolgInfCard, AddressOf oChaP.pevKillDolgInfCard
End If
MsgBox("Обработано событие ДолгИнфКарта от ЧаП для ИнфКарта")
End Sub
End Class
Public Class Form8DR
Private mName As String
Public Sub New(ByVal aName As String)
mName = aName
End Sub
Public ReadOnly Property Name() As String
Get
Return mName
End Get
End Property
Public Sub pevForm8DR()
MsgBox("Обработано событие Форма8ДР от ЧаП для Форма8ДР")
End Sub
End Class
Public Class Form1PP
Private mName As String
Public Sub New(ByVal aName As String)
mName = aName
End Sub
Public ReadOnly Property Name() As String
Get
Return mName
End Get
End Property
Public Sub pevForm1PP()
MsgBox("Обработано событие Форма1ПП от ЧаП для Форма1ПП")
End Sub
End Class
Public Class Raschet
Private mName As String
Public Sub New(ByVal aName As String)
mName = aName
End Sub
Public ReadOnly Property Name() As String
Get
Return mName
End Get
End Property
Public Sub pevRaschet()
MsgBox("Обработано событие Расчет от ЧаП для Расчет")
End Sub
End Class
End Module