27 lines
671 B
VB.net
27 lines
671 B
VB.net
Public Class ImaginaryModelGenerator
|
|
|
|
Public bs1 As BabySitter
|
|
Public bs2 As BabySitter
|
|
Public m1 As Meet
|
|
Public c1 As Child
|
|
Public c2 As Child
|
|
Public p1 As Parent
|
|
Public p2 As Parent
|
|
|
|
Public Sub New()
|
|
bs1 = New BabySitter(1, "bs1", "bs1", "1111")
|
|
bs2 = New BabySitter(2, "bs2", "bs2", "2222")
|
|
|
|
m1 = New Meet()
|
|
m1.monday = True
|
|
m1.sunday = True
|
|
|
|
c1 = New Child(1, "c1", "c1", "", New Date(), m1)
|
|
c2 = New Child(2, "c2", "c2", "", New Date(), m1)
|
|
|
|
p1 = New Parent(1, "p1", "p1", "1111", "1111")
|
|
p2 = New Parent(2, "p2", "p2", "2222", "2222")
|
|
End Sub
|
|
|
|
End Class
|