'*********************
' Выполнил студент 2ПКС Кошкаров И.В.
' Задача:
' Разработать объектную модель классов для представления сведений магазина по продаже аудио и видео техники.
' Выбрать технику указанного производителя.
'*********************
Enum ТипТехники
    Аудио = 1
    Видео = 2
End Enum

Enum ТипНаличие
    Да = 1
    Нет = 2
End Enum
Enum ТипДоставка
    Да = 1
    Нет = 2
End Enum
MustInherit Class Техника
    Public Производитель As String
    Public Модель As String
    Public Цена As Double
    Public Наличие As ТипНаличие
    Public Доставка As ТипДоставка
    Public Аудио_Видео As ТипТехники

    Public Sub Ввести()
        Console.WriteLine("Данные о технике")
        Console.Write(ControlChars.Tab & "Аудио/видео (1 - аудио, 2 - видео): ")
        Аудио_Видео = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Производитель: ")
        Производитель = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Модель: ")
        Модель = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Цена: ")
        Цена = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Наличие на складе (1 - да, 2 - нет): ")
        Наличие = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Возможность доставки (1 - да, 2 - нет) : ")
        Доставка = Console.ReadLine()
    End Sub
End Class

Class Аудио
    Public Производитель As String
    Public Модель As String
    Public Цена As Double
    Public Наличие As ТипНаличие
    Public Доставка As ТипДоставка
    Public Аудио_Видео As ТипТехники

    Public Sub Ввести()
        Console.WriteLine("Данные о технике")
        Console.Write(ControlChars.Tab & "Аудио/видео (1 - аудио, 2 - видео): ")
        Аудио_Видео = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Производитель: ")
        Производитель = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Модель: ")
        Модель = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Цена: ")
        Цена = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Наличие на складе (1 - да, 2 - нет): ")
        Наличие = Console.ReadLine()
        Console.Write(ControlChars.Tab & "Возможность доставки (1 - да, 2 - нет) : ")
        Доставка = Console.ReadLine()
    End Sub
End Class
Module Module1

    Sub Main()

    End Sub

End Module