Подсчет себестоимости блюда - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день! Нужно создать программу для подсчета себестоимости блюда,но встрял уже в самом начале(до этого в универе было делфи и работал с 1с) я сделал, меню и структуру бд, и при нажатии кнопочек открываются другие формы))) а дальше? подключение к бд?

Решение задачи: «Подсчет себестоимости блюда»

textual
Листинг программы
Option Explicit
 
Public Enum Meals                   '# Перечисляемый тип Блюда
    MEALS_01 = &H1                  '# Первое
    MEALS_02 = &H2                  '# Второе
    MEALS_03 = &H3                  '# Десерт
    MEALS_04 = &H4                  '# Салаты
    MEALS_05 = &H5                  '# Выпечка
End Enum
 
Public Type Prices                  '# Пользовтельский тип (UDT) Цена
    pHiMoney    As Integer          '# Рубли
    pLowMoney   As Integer          '# Копейки
End Type
 
Public Type Ingredient              '# Пользовательский тип (UDT) Ингредиент
    iPrice      As Prices           '# Стоимость
    iQuantity   As Integer          '# Количество
End Type
 
Public Type Formula                 '# Пользовательский тип (UDT) Рецепт
    fCount          As Integer      '# Количество ингредиетов
    fIngredients()  As Ingredient   '# Ингредиенты
End Type
 
Public Type Meal                    '# Пользовательский тип (UDT) Блюдо
    mName       As String           '# Название
    mFormula    As Formula          '# Рецепт
    mPortion    As Integer          '# Порция, вес в граммах
    mCost       As Prices           '# Себестоимость в рублях (копейках)
    mPrice      As Prices           '# Отпускная цена в рублях (копейках)
End Type
 
Public Function GetMealCost(MealType As Meals, Meal As Meal) As Prices
    'ну а здесь потроха для вычисления себестоимости.
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы