Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
💸 Как сделать бизнес проще, а карман толще?
Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже.
Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал.
Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее. ✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать». Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами! ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 9
Тема: Процедуры общего назначения Цель: Получить навыки использования вызываемых процедур и функций Часть Постановка задачи: Разработать приложение нахождения максимума из четырех чисел, используя функцию нахождения максимума из двух. Порядок выполнения: 1. Установите на форме следующие объекты и измените им свойства:
2. Приведите свою форму в соответствие с образцом 3. В окне кода процедуры обработки события Click для объекта Cmd набрать:
Dim x1 As Single, x2 As Single Dim x3 As Single, x4 As Single x1 = Val(Text1.Text) x2 = Val(Text2.Text) x3 = Val(Text3.Text) x4 = Val(Text4.Text) TxtMax.Text = max(max(x1, x2), max(x3, x4)) 4. Создать функцию нахождения максимума из двух значений, для этого: - в окне программного кода в списке Object выбрать General - набрать следующий текст
Function max(a As Single, b As Single) As Single If a > b Then max = a Else max = b End If End Function 5. Проверить работу программы 6. Изменить программу, для того чтобы она определяла и максимум и минимум (самостоятельно создайте еще одну функцию) 7. Результат показать преподавателю
Часть Постановка задачи: Разработать приложение, которое строит три вида графика. Для подготовки графического поля перед выводом графика разработать вызываемую процедуру
8. Добавьте на форму графическое окно (PicDraw) и три командных кнопки (Cmd1, Cmd2, Cmd3) 9. Приведите свою форму в соответствие с образцом 10. Создайте процедуру общего назначения для инициализации графического окна, для этого: - в окне программного кода в списке Object выбрать General - набрать следующий текст
|