Как сделать калькулятор в access?

• 2017-01-14
• На этом уроке мы воспользуемся знаниями о технологии ООП (Объектно-ориентированного программирования) создадим простой кнопочный калькулятор.
• На вид наш калькулятор будет иметь примерно такой вид:

Итак начинаем

1. Как я уже отметил в преамбуле, нам понадобится ООП — подход, а значит будем использовать классы и их экземпляры.

2. В данном случае мы подключим модуль VCL, который отвечает за создание всевозможных форм и их элементов: кнопок, полей ввода, переключателей, текстовых полей.

3. Для каждого из вышеперечисленных элементов форм в модуле VCL  уже имеются готовые классы, поэтому в отличие от предыдущей статьи (об основах ООП), мы сами классы уже создавать не будем, а будем создавать только экземпляры классов.

4. В блоке описания переменных мы должны перечислить имена всех этих будущих экземпляров:

Что здесь имеем:  MainForm — это экземпляр класса Form, т.е. сама форма  — сам «ящик» будущей формы,

Bsum — экземпляр класса Button, т.е. кнопки. Это будет кнопка суммирования,

• Braz — экземпляр кнопки Разность
• Bpr — экземпляр кнопки Произведение
• Bdel — экземпляр кнопки Деление
• Bres — экземпляр кнопки Результат
• Bclean — экземпляр кнопки Очистить
• Т1 — экземпляр поля ввода данных
• Также нам потребуется переменная «operation» — она будет содержать в себе номер операции (станет ясно ниже), переменная rint — будет хранить целочисленный результат, переменная rr — будет хранить вещественный результат операции, x1, x2 — это операнды, которые над которыми будут производиться арифметические действия.

А теперь само тело программы:

Сначала создаем последовательно экзепляры всех необходимых нам объектов с нужными нам свойствами:

1. В скобках у экземпляра формы указыны 4 цифры: (отступ x,  отступ y,  ширина, высота), где отступ x и отступ y — это отступ левого верхнего угла формы от левого верхнего угла экрана.
2. Для поля ввода, и экземпляров кнопок отступ х и отступ у — это уже отступ от левого верхнего угла самой формы.
3. Для экземпляров кнопок сразу задаем свойство «Caption» — заголовок, для каждой кнопки задаем свою надпись.

Обработка методов экземпляров

В этой программе мы будем использовать для экземпляров кнопок методы щелчка мышки — «onClick» — дословно переводится при клике.

При возникновении события «Click» мы для каждого экземпляра вызываем свою процедуру:

Теперь осталось описать перечисленные 6 процедур в области описания процедур:

Для обработки щелчка на кнопке Bsum (суммирование):

В этой процедуре мы заносим в переменную x1 содержимое поля ввода (с одновременным переопределением типа из строкового в целочисленный), и сразу же очищаем это поле. Также переменной operation присваиваем код операции суммирования (в нашем случае это 1).

Для обработки щелчка на кнопке Braz (разность):

Аналогично заносим значение поля ввода в переменную х1, очищаем поле и даем код операции: 2.

Для обработки щелчка на кнопке Bpr (произведение):

Аналогично заносим значение поля ввода в переменную х1, очищаем поле и даем код операции: 3.

Для обработки щелчка на кнопке Bdel (деление):

Аналогично заносим значение поля ввода в переменную х1, очищаем поле и даем код операции: 4.

Для обработки щелчка на кнопке Bres (вычисление результата):

При щелчке на кнопке «=» в переменную x2 заносим содержимое поля ввода. К этому времени в переменной х1 уже хранится первое введенное число, поэтому далее производим вычисление заданного действия. Если код операции был равен 1, то делаем суммирование, если 2, то вычитание, если 3, то умножение, если 4, то деление. При этом результат операции будет находиться в вещественной переменной rr. 

Но есть одна проблема: в текстовом поле может быть только строковая переменная. А как преобразовать число в строку.

Есть в паскале такая функция: inttostr(x) — она превращает целочисленный тип в строковый. Но у нас результат вещественный (т.к. после операции деления результат всегда бывает только вещественным).

Поэтому, нам приходится делать промежуточный перевод вещественной переменной в целую:

rint:=round(rr); — мы в данном случае для этого воспользовались функцией округления. При этом, конечно мы жертвуем результатом деления, отсекая его дробную часть. В этом состоит серъезный недостаток данной программы, который мы будем устранять на следующем уроке.

Осталась последняя процедура — процедура очистки текстового поля.

При обработке щелчка на кнопку Bclean (очистка):

• Здесь комментарии излишни — и так все ясно.
• Теперь программа полностью завершена.
• Вот полный код программы:

На этом будем завершать этот урок. Надеюсь, все было достаточно понятно.

Успехов в написании программы.

Подготовка к тесту

Вопросы теста

1. Какой модуль в Паскале отвечает за создание форм?
2. Необходимо создать экземпляр Bsum класса Button.  Выберите правильную запись этого оператора:
3. В операторе  Bsum.Caption:='+',( где Bsum — экземпляр класса кнопки), за какое свойство отвечает «Caption»?
4. В операторе Braz:=Button.Create(80,60,40,40)  что означает третья цифра в скобках?
5. В операторе Braz:=Button.Create(80,60,40,40)  что означает четвертая цифра в скобках?
6. В операторе Bsum.OnClick:=BsumClick  какое событие кнопки Bsum обрабатывается?
7. В операторе x1:=strtoint(T1.caption) для чего нужна функция strtoint ?
8. В операторе rint:=round(rr) что делает функция round?
9. В операторе  T1.caption:=inttostr(rint)  что делает функция inttostr ?
10. Экземпляр какого класса создается в этом операторе:  T1:=TextBox.Create(30,25,200,25)   ?

Источник: http://aaginfo.ru/02_knopochnyy_kalkulyator_na_pascalabc/215/article

Обзор и отзывы о конструкторе калькуляторов, форм и опросов uCalc

Разработчики многих систем для создания сайтов почему-то массово игнорируют включение в поставку из коробки функционала для различных вспомогательных задач. Например, возможность добавления на сайт формы онлайн консультанта или калькулятора товаров (услуг).

uCalc – конструктор калькуляторов товаров и услуг, квизов, опросов, интерактивных форм для сайтов, мессенджеров и соцсетей.

Это незаменимый инструмент для бизнес сайтов – в конструкторе бизнес-сайтов uKit уже организовали синхронизацию с этим сервисом посредством виджета.

uCalc – бесплатный конструктор калькуляторов для сайта

uCalc – онлайн-сервис, конструктор разнообразных форм для сайтов, интерактивных и обычных. В базовой версии бесплатен и позволяет много чего сделать. Специфические премиум-функции вроде возможности приёма оплаты прямо из формы, прикрепления файлов и вставки своего кода доступны на платных тарифах. Зато почти все остальные возможности можно пользовать, не вложив ни копейки: полный набор элементов, кастомизацию дизайна и структуры форм.

Сервис позволяет собирать формы с выпадающими списками вариантов, ползунками, полями ввода значений и прочими смысловыми перегородками.

В конце формы могут быть размещены поле для вывода результата подсчёта калькулятора или, к примеру, кнопка для отправки данных с заполненных клиентом полей.

Полученный калькулятор или сложную форму можно разместить на любом сайте, созданном в конструкторе, с помощью CMS или в самописном проекте. Это легко сделать, вставив код на нужную страницу.

Таким образом, uCalc открывает обалденные возможности для бизнеса, особенно для малого ввиду простоты и бесплатности. Везде, где можно считать какие-то величины по фиксированным мерам и стоимости, пригодится калькулятор.

Нет подходящей формы для сбора заявок или анкетирования? Такую тоже можно собрать в uCalc. Калькулятор товаров и услуг – находка, подобных сервисов довольно мало. Заказывать разработку у фрилансеров дорого. Да и не нужно.

Возьмите готовое бесплатно.

uCalc – кому и зачем он может быть полезен?

Сайт-визитка – верный помощник для бизнеса. А что если её дополнить возможностью расчёта стоимости тех или иных продуктов в зависимости от набора поставки?

Например, вы делаете мебель либо владеете автосервисом. Почему бы не дать возможность посетителям быстро посчитать стоимость столика с резными ножками такого-то дерева или замены масла/покрышек на Toyota Camry, допустим?

Совет простой: если в вашем деловом предложении есть что считать, добавьте калькулятор – он однозначно улучшит эффективность вашего бизнеса.

Описание услуг и прайс – это хорошо. Но калькулятор использовать гораздо удобнее! Человек до совершения звонка уже будет знать, сколько денег нужно готовить. Его звонок/визит к вам будет целенаправленным, взвешенным. Он знает, чего ожидать, поэтому опасений меньше, а доверия немного больше.

Рестораны, кафе, службы такси, организация праздников, уборка с выездом на дом, строительство – всё это сферы, в которых использование калькулятора на сайте способно повысить эффективность бизнеса.

В uCalc вы сами с легкостью сможете создать и разместить на сайте онлайн калькулятор для расчета стоимости:

• вызова такси, грузоперевозок;
• доставки товаров, бытовой техники, еды и пиццы;
• строительства дома, дачи, аренды квартиры;
• услуг ремонта квартиры, кровли, укладки ламината, площади пола;
• установки пластиковых окон, натяжных потолков;
• уборки помещения;
• процентов по кредиту, ипотеке, валюты;
• полиса страховки КАСКО;
• и другие, которые сможете придумать.

Теперь давайте подробнее рассмотрим все возможности uCalc.

Функционал uCalc

Для создания калькулятора не нужно обладать познаниями в кодинге или программировании. Сервис представляет собой визуальный конструктор, в котором из готовых элементов можно сложить структуру любой сложности и разместить полученный код виджета у себя на сайте.

Зарегистрироваться на сервисе можно через соцсеть или email/пароль. После входа в аккаунт вам предложат собрать калькулятор самостоятельно или использовать шаблон. Для ознакомления лучше подходит 2 вариант. Все заготовки разбиты на 12 категорий (недвижимость, бытовая техника, служба доставки, красота и здоровье и т. д.).

Хорошей иллюстрацией возможностей uCalc является шаблон для подсчёта стоимости аренды квартиры. Он включает: тип дома и количество этажей, желаемый этаж проживания, количество комнат, площадь кухни и общая площадь, состояние квартиры и выбор валюты для оплаты. Выглядит всё это эстетично и очень легко настраивается.

Вы можете взять готовый шаблон, слегка подправить его под себя и начать использовать. Если же хотите собрать более серьёзную конструкцию, нужно поработать самостоятельно.

Панель управления состоит из набора элементов калькулятора (список, ползунок, флажок, поле, текст, картинка, кнопка) и рабочей области.

Последняя функционирует в двух режимах – «Дизайн» и «Формула».

В первом вы сможете выстроить структуру калькулятора и настроить его внешний вид, а во втором – задать значения стоимости для активации тех или иных опций, сложить формулу расчета.

Вы можете выбрать одну из 4 тем оформления калькулятора (Minimal, Material, Bootstrap, Default), цельную цветовую схему либо настроить цвет фона отдельно. В процессе настройки вы можете посмотреть на текущий результат. Дизайн калькулятора можно подогнать под любой сайт, это предельно просто делается. Калькулятор автоматически адаптируется под размер любого экрана.

Для создания формул можно использовать множество переменных, в том числе, выражающие различные условия – «и», «или», «если», «то».

Это позволяет создавать несколько вариантов формулы, разветвления расчётов, зависящие от выбора клиента. Вы можете на своё усмотрение обозначать поля, обязательные для заполнения.

Также в наличии встроенный приём платежей прямо из формы калькулятора, реализованный средствами «Яндекс.Кошелёк» (подробнее читайте здесь).

Вы можете дублировать любой из добавленных виджетов в один клик со всеми настройками. Поле с выдачей результатов можно перемещать в любое место вашей формы для наглядности.

Для выдачи более красивых цифр можно включить округление результата подсчёта в меньшую или большую сторону до целых или дробных чисел.

Каждому полученному заказу присваивается номер, что упрощает поиск в уведомлениях и сортировку в общем списке.

Иногда калькулятор получается столь длинным, что способен отпугнуть посетителей своим видом. Его высоту можно уменьшить, используя опцию пошагового расчёта – Quiz (Квиз): вид формы в виде теста, опроса, викторины, которые используются в маркетинге для получения клиентов с сайта, лендинга или социальных сетей.

Вы создаёте кнопки «Далее» и «Назад» для распределения опций калькулятора на несколько экранов, которые можно пролистывать (инструкция). Это визуально снижает сложность формы и увеличивает степень лояльности клиентов к её заполнению.

Для предотвращения отправки череды заявок с одного устройства в uCalc можно включить антиспам защиту.

Есть возможность реализовать формат доступа к калькулятору через всплывающее окно. Это мега-полезная функция, способная в контексте УТП (уникального торгового предложения) принести множество заявок. Использовать можно на любой странице сайта, подробная инструкция находится здесь.

Калькулятор интегрирован в популярные CRM Битрикс24 и amoCRM, его можно добавить в качестве бесплатного приложения. Также есть официальный плагин uCalc для WordPress.

В соответствии с буквой закона вы можете подключить соглашение на обработку персональных данных (есть готовый шаблон).

Кроме того, uCalc имеет несколько локализаций, среди которых английская и даже японская!

После завершения работ необходимо «Сохранить» готовый онлайн калькулятор. Вы получите код виджета калькулятора и ссылку на инструкцию по его внедрению на сайт. Можно создавать сколько угодно калькуляторов. Прогресс по их состоянию сохраняется автоматически: если прервётесь либо закроете вкладку в процессе, ничего никуда не потеряется.

Примеры онлайн-калькуляторов для сайта

Для понимания того, как это все выглядит и работает покажем вам пару живых примеров калькуляторов:

Вы можете вводить промо-коды путём использования виджета «HTML-код»: клиент при достижении выбранной вами суммы заказа и отправке формы заказа получит промо-код, дающий право на какой-нибудь бонус – скидку, участие в акции, бонус или ещё что-нибудь полезное, заготовленное вами. Это позволяет усилить маркетинговую составляющую вашего предложения, а также индивидуально распределять скидки между покупателями, персонализировать условия совершения покупки для клиентов. Вот подробная инструкция по настройке промо-кодов в uCalc.

Также вы можете прикреплять в форму файлы объёмом до 5 Мб. Для этого необходимо выбрать тип содержимого «Файл» в виджете «Поле».

Возможно прикрепление множества расширений файлов: таблицы, текстовые документы, презентации, архивы, изображения, медиа-файлы и другие вариации в широком ассортименте форматов (подробное описание здесь).

Данная функциональность доступна только на платных тарифах (на бесплатном этого поля в интерфейсе не увидите).

Как сделать онлайн калькулятор в uCalc

После регистрации и/или входа в систему вы сможете создать новый проект либо продолжить достраивать уже начатый. Итак, отсюда поподробнее:

• Выбираем шаблон. Можете начать создание калькулятора с чистого листа, но проще будет взять заготовку и подогнать её под вашу задачу. Есть формы для заказа такси, подбора мебели, аренды квартир и строительства домов, заказа клининговых и консалтинговых услуг, пиццы и ещё несколько. Если у вас типовая задача, скорее всего, что-то из списка уже подходит. Перед выбором можно предварительно посмотреть форму.
• Редактирование шаблона. Например, выбрали калькулятор для заказа пиццы. Посмотрите перечень начинок и соусов, добавьте недостающие и уберите лишние. Для этого войдите в режим редактирования пунктов.
• Редактирование значений полей. Откройте раздел «Формула» и проставьте вашу цену для каждой начинки и соуса. Также можете внести изменения в формулу расчёта стоимости.
• Настройте дизайн. В хедере формы выберите цветовую схему либо цвет фона формы вручную. Также можно выбрать тему оформления, которая определит общую визуальную стилистику калькулятора.
• Сохранение изменений и получение кода для вставки. После всех преобразований сохраните прогресс, после чего на экране появится всплывающее окошко с кодом размещения вашей формы. Можете предварительно оценить результат в режиме предпросмотра, что-то поправить, доводя до финальной версии. Код нужно скопировать и разместить на странице сайта. Инструкция для разных движков, социальных сетей и почтовых служб в комплекте есть – следуйте по шагам, и у вас точно всё получится.

С технической точки зрения создавать формы в uCalc проще простого. Вопрос другом: работая с нуля, нужно представлять структуру калькулятора, взаимосвязь элементов, расчётов и увязать это в логичную последовательность.

Может попросту не хватить воображения или, в конце концов, понимания математической части.

Кстати, если нужно сделать чего-то экстраординарного (это реально может быть сложно), в uCalc можно заказать изготовление калькулятора под индивидуальный запрос. Стоит услуга 2500 рублей, выполнит специалист из Divly – эти с результатом не подводят.

Преимущества использования калькулятора услуг

uCalc – мощное и гибкое решение, наиболее продвинутое в своём классе. Он способен поднять конверсию, увеличить лояльность постоянных клиентов и привести к вам новых. Давайте по пунктам распишем преимущества его использования.

1. Вы получите целевые обращения

   • Человек, не планирующий покупку, не станет заполнять данные в калькуляторе и отправлять заявку. Это не просто звонок ради любопытства, клиенты, использующие инструмент, уверены в своём выборе и нацелены на результат сделки. Калькулятор привлекает внимание, человек изучает информацию о товаре и сразу же узнаёт итоговую цену, включая доставку и прочие нюансы. Решение получается взвешенным, обоснованным пониманием сути и стоимости сделки.

2. Калькулятор гораздо эффективнее обычных форм

   • Устаревшей альтернативой калькуляторам являются прайс-листы и обычные электронные таблицы. Их необходимо скачивать, искать необходимое, подсчитывать стоимость покупки, а потом уже отдельно совершать заказ. Это долго и непродуктивно. Калькулятор совмещает в себе все эти функции, позволяя обрабатывать заявки, платежи, вручать бонусы, рекламировать ваши товары/услуги и ещё при этом улучшать SEO-показатели сайта. Выбор очевиден.

3. Прозрачное ценообразование и доверие клиентов

   • Калькулятор отсекает возможные переговоры и вопросы о ценах, причём, в деталях. Клиент будет чётко понимать, за что и сколько он платит, окажет больше доверия. Это сэкономит время менеджерам, позволяя сконцентрировать внимание на работе с заказом. Калькулятор необходимо ставить в комбинации с описанием преимуществ компании, отзывами и прочей информацией – клиенты будут подготовленными. Скидки и бонусы подогреют мотивацию.

4. Калькулятор придаст эксклюзивности вашему бизнесу

   • Клиент прочувствует эффект индивидуального подхода. Он сам сможет выбрать конфигурацию услуги/товара, поиграться с калькулятором, сравнить различные варианты и выбрать, в итоге, оптимальный для себя лично. Он получит свою прозрачно сформированную цену, рассчитанную специально для него. И всё это без непосредственного участия менеджера.

5. Широкий охват источников трафика

   Калькулятор можно использовать не только на сайте, есть множество других вариантов:

Источник: https://uguide.ru/konstruktor-onlajn-kalkulyatorov-dlya-sajta-ucalc

Microsoft Access. Работа с таблицами из VBA

Microsoft Access. Работа с таблицами из VBA

Работа с таблицами в Microsoft Access может осуществляться как мастерами, так и через язык программирование. В этой части книги рассказывается об этом способе разработки.

Вы научитесь создавать таблицу, проверять ее наличие в базе данных, создавать поля и изменять их свойства средствами VBA.

Наверное, Вы уже научились создавать таблицу с помощью мастера, этот способ указан слева. Теперь давайте попробуем создать ее программным способом. Иногда этот способ становится более предпочтительным, чем стандартный. В качестве переменной создаваемой таблицы будем использовать имя StrTable = «Калькулятор»

На этом снимке экрана показан интерфейс Microsoft Access 2016 для создания таблиц. Для этого в панели меню находится кнопка Конструктор таблиц

• Public Function funCreateTable(strTable As String) As Boolean
•     Dim dbs As Database, tdf As TableDef
•     On Error GoTo 999 'Назначаем переход по ошибке
•     funCreateTable = False 'Возвращаем результат при ошибке
•     If funVerifyTable(strTable) = False Then 'Проверяем таблицу
•         dbs = appAccess.CurrentDb 'Находим базу данных
•         tdf = dbs.CreateTableDef(strTable)  'Создаем таблицу

        tdf.Fields.Append tdf.CreateField(«Пункт», dbLong) 'Создаем 1 поле

        dbs.TableDefs.Append tdf 'Добавляем таблицу

1.         funCreateFields strTable ' Создаем поля
2.         funCreateTable = True 'Возвращаем результат
3.     End If
4.     Exit Function
5. 999:
6.     MsgBox(Err.Description, vbCritical, «Создание таблицы») 'Сообщаем красиво об ошибке
7.     Err.Clear() 'Очищаем поток от ошибок
8. End Function
9. Проверка таблицы

Очень часто при работе с базой данных Вам надо проверить наличие в базе данных объекта. На данном примере указан способ проверки таблицы в базе данных.

Если объекта нет, то случается ошибка и программа очищает поток от ошибок, возвращая значение False.

На этом снимке экрана в Access 2016 отображается таблица Калькулятор. Помните, что системные и другие таблицы в разных базах данных могут быть скрыты от просмотра.

• Public Function funVerifyTable(strTable As String) As Boolean
•     Dim tdf As TableDef
•     On Error GoTo 999  'Назначаем переход по ошибке
•     funVerifyTable = False 'Возвращаем результат при ошибке

    tdf = appAccess.CurrentDb.TableDefs(strTable) 'Находим объект

1.     If (tdf Is Nothing) = False Then funVerifyTable = True 'Проверяем объект
2.     tdf = Nothing 'Уничтожаем переменную
3.     Exit Function 'Выходим из программы
4. 999:
5.     Err.Clear() 'Очищаем поток от ошибок
6. End Function
7. Создание полей таблицы
8. Создание полей с помощью программы является важным элементом программирования баз данных.
9. Так как в складском и бухгалтерском учете очень сложно учесть все поля таблиц из-за часто меняющихся требований к учету, естественно Вы должны предусмотреть в своих программах изменение базы данных различных версий по шаблону (метод называется репликацией). В данном примере в таблицу «Калькулятор», переменная strTable, добавляются два новых поля Выражение иИтог, а также изменяются свойства поля Пункт

На этом снимке экрана таблица Калькулятор в Access 2016 находится в режиме проектирования полей. Мы видим три поля, тип данных и описание.

• Public Function funCreateFields(strTable As String) As Boolean
•     Dim dbs As Database, tdf As TableDef, fld As Field
•     On Error GoTo 999 'Назначаем переход по ошибке
•     funCreateFields = False 'Возвращаем результат при ошибке
•     dbs = appAccess.CurrentDb 'Определяем базу данных
•     tdf = dbs.TableDefs(strTable) 'Находим таблицу
•     With tdf 'Выбираем таблицу для изменения

        .Fields.Append.CreateField(«Выражение», dbText, 75) 'Создаем поле Выражение

        .Fields.Append.CreateField(«Итог», dbDouble) 'Создаем поле Итог

1.     End With
2.     fld = tdf.Fields(«Пункт») 'Изменяем свойства поля «Пункт»
3.     funChangeProperty(fld, «Description», dbText, «Номер выражения в калькуляторе») 'Изменяем описание
4.     funChangeProperty(fld, «Format», dbText, «Fixed») 'Назначаем фиксированный формат
5.     funChangeProperty(fld, «DecimalPlaced», dbByte, 0) 'Отключаем десятичные знаки
6.     fld = Nothing 'Уничтожаем переменную поля
7.     tdf = Nothing 'Уничтожаем переменную таблицы
8.     funCreateFields = True 'Возвращаем результат
9.     Exit Function 'Выходим из программы
10. 999:
11.     MsgBox(Err.Description, vbCritical, «Создание таблицы») 'Сообщаем об ошибке
12.     Err.Clear() 'Очищаем поток от ошибок
13. End Function
14. Изменение свойств таблицы
15. Когда Вы создаете поле программным методом, некоторые его свойства, например, Описание (Description) не создаются автоматически.
16. Вам необходимо научиться изменять свойства полей базы данных, а в случае необходимости добавлять их в базу данных.

На этом примере показано, как изменить значение свойства поля базы данных. В данной программе также предусмотрено, что если свойство отсутствует, то оно будет добавлено в базу данных.

У каждого поля кроме его имени и типа данных есть дополнительные свойства. На этой форме в Access 2016 показано, что их можно увидеть в конструкторе таблицы

'Параметры:

'   fld — поле в таблице (Объект Field)

'   strName — имя свойства (Description, Format …)

'   varType — тип свойства (dbText, dbLong …)

• '   varValue — значение свойства
• '
• Function funChangeProperty(fld As Field, strName As String, varType
•                 As Variant, varValue As Variant) As Boolean
•     Dim prp As Object
•     On Error GoTo 999 'Назначаем переход по ошибке
•     funChangeProperty = False 'Возвращаем результат при ошибке
•     fld.Properties(strName) = varValue 'Присваиваем значение полю
•     funChangeProperty = True 'Возвращаем результат
•     Exit Function 'Выходим из программы
• 999:
•     If Err = 3270 Then  'Свойство не найдено
•         prp = fld.CreateProperty(strName, varType, varValue) 'Создаем свойство

        fld.Properties.Append prp 'Добавляем свойство

1.         Err.Clear() 'Очищаем поток от ошибки
2.         Resume Next 'Возвращаемся к следующему оператору
3.     End If
4.     Err.Clear() 'Очищаем от незнакомой ошибки
5. End Function
6. Проверка знаний
7. Теперь Вы научились создавать таблицы и поля базы данных, а также изменять из свойства. 

Ваш результат обучения Вы можете увидеть, нажав кнопку [Проверка N3] внизу экрана. Перед Вами отобразится база данных, в которой будет пустая таблица «Калькулятор». На следующем этапе программирования мы будем создавать запросы SQL, которые нужны для управления формой калькулятора. Итак для изучения следующей лекции нажмите кнопку Вперед>

• Виктор Leadersoft на 8:33

Источник: https://webhamster.ru/mytetrashare/index/mtb172/1526974092t5ngl0dvqk

uCalc — универсальный конструктор калькуляторов и форм

• Десятки шаблонов для разных сфер бизнеса и готовые блоки для самостоятельной сборки.
• Ползунок, список, галочки, сбор контактов и прием оплат — все под рукой в визуальном редакторе.
• Повышайте SEO-показатели сайта, получайте готовые заявки на почту и телефон, отправляйте сообщения клиентам.
• Не нужно обращаться к разработчикам, чтобы настроить, установить или обновить форму.
• Используйте на сайте, в приложении VK, любом мессенджере, соцсети и почте — виджет на 5 случаев жизни.

• Экономьте бюджет за счет работы с низкочастотными запросами, улучшайте поведенческие показатели, поднимайтесь в поисковой выдаче.
• Моментальный расчет стоимости доступен в любое время дня и ночи. Результаты и ваши контакты можно сохранять себе на почту и телефон.
• Реагируйте на обращения быстрее, получая готовые заявки. Перестаньте тратить время на пустые вопросы и тех, кто все равно не купит.

Создать бесплатно

Наши функциональные калькуляторы в действии

• Строительство и ремонт
• Автосервис
• Недвижимость
• Мебель и интерьер
• Уборка
• Ресторан и кафе
• Праздник
• Еще примеры

• styleИспользуйте готовые шаблоны под популярные запросы
• imageДобавляйте изображения к любому элементу
• font_downloadМеняйте цвета и шрифты без дизайнера

• Настраивайте скидки за объем и комбинацию товаров и услуг
• tuneМеняйте цены и настройки без программиста
• check_circleПринимайте заказы на почту и телефон

• mail_outlineОтправляйте email- и sms-подтверждения о статусе заказа
• paymentПринимайте предоплату прямо в калькуляторе
• insert_chartУзнавайте, откуда пришли заявки

• Калькулятор или форма защищены от копирования с вашего сайта
• Персональные данные ваших клиентов под защитой
• Мобильная версия калькулятора или формы в подарок

Собрав и сохранив свой калькулятор, вы получитеуниверсальный готовый код для сайта на любой платформе.

• 
• 
• 
• И десяткидругих систем

Инструкции по установке калькулятора на популярные конструкторы и CMS вы найдете после регистрации.

Создать бесплатно

Теперь я на шаг впереди конкурентов, так как использую на сайте калькулятор, а они — нет.

Калькулятор упрощает формирование заказов — все становится намного проще: клиент мгновенно видит результат своего выбора, ему не надо писать или звонить и ждать ответа.

Огромный плюс uCalc в том, что ты не потеряешь клиентов, которые заходят на сайт не с ПК, а со смартфона: адаптивность это очень удобно.

УРАГАН!!! У меня много разных услуг, и под каждую нужен калькулятор со своей формулой расчета, своими скидками за объем работ и шкалой — раньше бы к JS-программисту с пачкой заказов идти, а тут я сам залудил калькулятор — и доволен работой этой штуки.

Источник: https://ucalc.pro/

Как сделать калькулятор в access?

В этой статье речь поговорим про вычисляемые поля в запросах Access. В запросе, как и в таблице, для каждой записи могут производиться вычисления с числовыми, строковыми значениями или значениями дат с использованием данных из одного или нескольких полей.

Результат вычисления образует в таблице запроса новое вычисляемое поле. В отличие от вычисляемых полей таблицы, вычисляемые поля запроса в исходных таблицах базы данных новых полей не создают.

При каждом выполнении запроса производятся вычисления на основе текущих значений полей.

Задача 1. В таблице ТОВАР имеются поля ЦЕНА и СТАВКА_НДС, вычислите цену с учетом НДС и сравните ее с полученной в вычисляемом поле таблицы Цена с НДС.

1. Создайте в режиме конструктора запрос на выборку для таблицы ТОВАР. Перетащите в бланк запроса поля НАИМ_ТОВ, ЦЕНА, СТАВКА_НДС и Цена с НДС (рис. 4.6).
2. Для подсчета цены с учетом НДС создайте вычисляемое поле, записав в пустой ячейке строки Поле (Field) выражение +*.
3. Для отбора записей со значением выше 5000 в вычисляемом поле в строку Условие отбора (Criteria) введите > 5000
4. После ввода выражения система по умолчанию формирует имя вычисляемого поля Выражение 1, которое становится заголовком столбца в таблице с результатами выполнения запроса. Это имя вставится перед выражением +*. Для каждого нового вычисляемого поля в запросе номер выражения увеличивается на единицу. Имя вычисляемого поля отделяется от выражения двоеточием. Для изменения имени установите курсор мыши в вычисляемом поле бланка запроса и нажмите правую кнопку мыши. В контекстно-зависимом меню выберите Свойства (Properties) поля и в строку Подпись (Caption) введите новое имя поля ― Цена с НДС1. Теперь в таблице с результатами выполнения запроса в заголовке вычисляемого столбца отобразится это имя. Имя поля может быть исправлено также непосредственно в бланке запроса.
5. Для отображения результата выполнения запроса щелкните на кнопке Выполнить (Run) в группе Результаты (Results). Вычисляемое поле таблицы и за-проса имеют одинаковые значения.
6. Измените в одной из записей запроса цену товара. Значения в обоих вычисляемых полях будут моментально пересчитаны.
7. Для формирования сложного выражения в вычисляемом поле или условии отбора целесообразно использовать построитель выражений. Построитель позволяет выбрать необходимые в выражении имена полей из таблиц, запросов, знаки операций, функции. Удалите выражение в вычисляемом поле и используйте построитель для его формирования.
8. Вызовите построитель выражений (Expression Builder), нажав кнопку Построитель (Builder) в группе Настройка запроса (Query Setup) ленты Конструктор (Design), или выбрав Построить (Build) в контекстно-зависимом меню. Курсор мыши должен быть установлен предварительно в ячейке ввода выражения.
9. В левой части окна Построитель выражений (Expression Builder) (рис. 4.7) выберите таблицу ТОВАР, на которой построен запрос. Справа отобразится список ее полей. Последовательно выбирайте нужные поля и операторы, двойным щелчком вставляя в выражение. Выражение сформируется в верхней части окна. Обратите внимание, построитель перед именем поля указал имя таблицы, которой оно принадлежит, и отделил его от имени поля восклицательным знаком.
10. Завершите процесс построения выражения в вычисляемом поле, щелкнув на кнопке ОК.
11. Сохраните запрос под именем ― Цена с НДС и закройте его.
12. Выполните сохраненный запрос, выделив его в области навигации и выбрав в контекстном меню команду Открыть (Open).

Задача 2. В вычисляемых полях и условиях отбора можно использовать встроенные функции. В Access определено более 150 функций. Пусть необходимо выбрать все накладные, по которым производилась отгрузка в заданном месяце. В таблице НАКЛАДНАЯ дата отгрузки хранится в поле ДАТА_ОТГ с типом данных Дата/время (Date/Time).

1. Создайте в режиме конструктора запрос на выборку для таблицы НАКЛАДНАЯ. Перетащите в бланк запроса поля НОМ_НАКЛ и КОД_СК (рис. 4.8).
2. Создайте вычисляемое поле в пустой ячейке строки Поле (Field), записав туда одно из выражений: Format(!;»mmmm») ― эта функция возвратит пол-ное название месяца или Format(!;»mm») ― эта функция возвратит номер месяца.
3. Для отбора накладных, выписанных в заданном месяце, в вычисляемом поле в строку Условие отбора (Criteria) введите название месяца, например март (рис. 4.8), или номер месяца, например 3 в соответствии с параметром в функции Format.
4. Выполните запрос, нажав кнопку Выполнить (Run) в группе Результаты (Results) на вкладке ленты Работа с запросами | Конструктор (Query Tools | Design).
5. Запишите в вычисляемом поле функцию Month(НАКЛАДНАЯ!ДАТА_ОТГ), и убедитесь, что эта функция возвращает выделенный из даты номер месяца.
6. Для выборки всех строк, относящихся ко второму кварталу, в строку Условие отбора (Criteria) введите оператор Between 4 And 6, определяющий, попадает ли значение выражения в указанный интервал.
7. Запишите в вычисляемом поле выражение MonthName(Month(НАКЛАДНАЯ!ДАТА_ОТГ)) и убедитесь, что функция MonthName преобразует номер месяца в его полное на-звание.

• Для закрепления смотрим видеоурок:
• Параметрический запрос Access тут.

Приветствую! Если вы время от времени работаете на компьютере с цифрами, то, возможно, у вас имеется необходимость в использовании калькулятора. В операционной системе Windows имеется встроенный калькулятор и в этом руководстве будет рассказано, как его открыть.

Источник: http://word-office.ru/kak-sdelat-kal-kulyator-v-access.html

Исходный код калькулятора на языке Visual Basic | Info-Comp.ru — IT-блог для начинающих

Всем привет, сегодня в материале мы с Вами напишем маленькую программку на языке программирования Visual Basic, которая складывает, вычитает, умножает и делит целые числа. Это достаточно простая программа, но для обучения начинающих программистов самое оно.

Ну, давайте начнем, конечно же, у Вас должна уже быть установлена среда программирования Microsoft Visual Basic v 6.0. Запускаем среду, перед Вами окно выбора проекта, выбираем «standard.exe» и нажимаем открыть. Сейчас перед вами форма нашей с Вами программы и давайте ее наполнять.

Для начала сделайте вот что, справа в окне свойств найдите такую строку «StartUpPosition» и выберите там 1-centerowner, это для того чтобы наша программа запускалась по центру нашего монитора.

Далее давайте наполним внешний интерфейс, для этого уже слева в окне выбора объектов выберите «CommandButton», добавьте его на форму, и сделайте это 4 раза, т.е. добавьте 4 кнопки и расположите их слева направо, итого должно получиться так: Command1, Command2, Command3, Command4.

Теперь давайте мы зададим им название, делается это снова в окне свойств (справа) строка Caption.

Для этого щелкните по кнопке Command1 (она выделится) и в строке Caption окна свойств сотрите Command1 и напишите «сложение», потом щелкните (выделите) Command2 и напишите умножение, далее Command3 будет у нас деление, а Command4 вычитание.

С кнопками мы с Вами разобрались, теперь добавим 3 текстовых поля, делается также в окне добавления объекта (слева), выберите TextBox и добавьте 3 штуки, а расположите их так: Text1 и Text2 сверху, а Text3 чуть ниже.

Значение этого свойства отображается по умолчанию в текстовых полях.

Пример исходного кода программы калькулятор

А теперь осталось добавить сам код программы, для этого нажмите 2 раза в пустом месте формы и у Вас появится что-то вроде этого:

Private Sub Form_Load()
End Sub

Вы просто сотрите это и вставьте следующее:

Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub

Private Sub Command2_Click()
Dim a As Long
Dim b As Long
a = Text1.Text
b = Text2.Text
Text3.Text = a * b
End Sub

Private Sub Command3_Click()
Dim a As Long
Dim b As Long
a = Text1.Text
b = Text2.Text
Text3.Text = a / b
End Sub

Private Sub Command4_Click()
Dim a As Long
Dim b As Long
a = Text1.Text
b = Text2.Text
Text3.Text = a — b
End Sub

Вот такая незамысловатая программа, теперь ее нужно проверить, в верхнем меню найдите такую кнопочку (иконку) как «start» и нажмите, если Вы все сделали правильно, то у Вас запустится программа, где будет 3 текстовых поля и 4 кнопки. Вы можете в верхние 2 поля вставить, например: в правое 50, а в левое 10 и можете проверить действие программы, нажимая на все кнопки, только учтите, она выполняет все действия только с целыми числами.

Когда мы все проверили ее можно скомпилировать в exe файл, для этого нажмите меню «файл» «Компилировать проект», потом просто укажите путь, куда его сохранить. После компиляции запустите нашу с Вами программу, и можете пробовать посчитать некоторые числа.

В этой программе мы не прописывали никаких условий, поэтому строго соблюдайте, чтобы в текстовых полях были только целые числа. Вот мы и написали первую программу на Visual Basic в среде программирования Microsoft Visual Basic v 6.0.

В следующих уроках мы уже будем писать программы немного посложней.

Источник: https://info-comp.ru/obucheniest/71-calcvb.html