Подсчет себестоимости блюда - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д