Namespace SimplePrinter

    ''' <summary>
    ''' Class that describes a printer.
    ''' </summary>
    Public Class Printer

        '********************************************************
        ' Printer.A
        '********************************************************
        ''' <summary>
        ''' Enumeration of printer types. Can select one per printer.
        ''' </summary>
        Public Enum PrinterEnum
            Laser
            Inkjet
            DotMatrix
            Line
            Thermal
            Other
        End Enum

        '********************************************************
        ' Printer.B
        '********************************************************
        '''<summary>
        ''' Enumeration of printer attachment types. Can specify 
        ''' multiple attachment types for a printer.
        ''' </summary>
        <FlagsAttribute()> _
        Public Enum AttachmentEnum
            None = 0
            BlueTooth = 1
            LAN = 2
            Parallel = 4
            USB = 8
        End Enum

        '********************************************************
        ' Printer.C
        '********************************************************
        Private m_Type As PrinterEnum

        ''' <summary>
        ''' The type of the printer.
        ''' </summary>
        Public Property Type() As PrinterEnum
            Get
                Return m_Type
            End Get

            Set(ByVal value As PrinterEnum)
                m_Type = value
            End Set
        End Property

        Private m_attachment As AttachmentEnum

        ''' <summary>
        ''' The printer attachment type.
        ''' </summary>
        Public Property Attachment() As AttachmentEnum
            Get
                Return m_attachment
            End Get

            Set(ByVal value As AttachmentEnum)
                m_attachment = value
            End Set
        End Property

        '********************************************************
        ' Printer.D
        '********************************************************
        ''' <summary>
        ''' Constructor for printer type and attachment type.
        ''' </summary>
        ''' <param name="Type">
        ''' The type of the printer.
        ''' </param>
        ''' <param name="Attachment">
        ''' The attachment type.
        ''' </param>
        Sub New(ByVal Type As PrinterEnum, _
                ByVal Attachment As AttachmentEnum)

            Me.Type = Type
            Me.Attachment = Attachment
        End Sub

    End Class
End Namespace