Библиотека Рефераты Курсовые Дипломы Поиск
Библиотека Рефераты Курсовые Дипломы Поиск
сделать стартовой добавить в избранное
Кефирный гриб на сайте za4eti.ru

Компьютеры, Программирование Компьютеры, Программирование     Программирование, Базы данных Программирование, Базы данных

Калькулятор на VB - это легко!

Крючки с поводками Mikado SSH Fudo "SB Chinu", №4BN, поводок 0,22 мм.
Качественные Японские крючки с лопаткой. Крючки с поводками – готовы к ловле. Высшего качества, исключительно острые японские крючки,
58 руб
Раздел: Размер от №1 до №10
Забавная пачка денег "100 долларов".
Купюры в пачке выглядят совсем как настоящие, к тому же и банковской лентой перехвачены... Но вглядитесь внимательней, и Вы увидите
60 руб
Раздел: Прочее
Коврик для запекания, силиконовый "Пекарь".
Коврик "Пекарь", сделанный из силикона, поможет Вам готовить вкусную и красивую выпечку. Благодаря материалу коврика, выпечка не
202 руб
Раздел: Коврики силиконовые для выпечки

(автор: Есин И. В., email: ofrie d@lis .ru) О чём . Статья имеет две редакции: для начинающих осваивать язык и для тех у кого не только аббревиатура VB не вызывает вопросов, но и более-менее владеющих им. В данной редакции от читателя требуется знание VB на достаточно хорошем уровне, что означает владение навыками визуального программирования, событийно-управляемого программирования и конечно «основных» операторов языка. Предлагается один из способов поиска решения подобных задач.Первый шаг или интерфейс пользователяЗдесь особо ничего фантазировать не надо, а просто вспомнить, как выглядит обычный калькулятор, какие кнопки у него и каково их назначение. У меня получилось так:Инструмент Comma dBu o содержит такие интересующие нас свойство и событие, которые дают нам полную ясность его выбора. Аналогичное можно сказать и про инструмент Label. Декоративный инструмент Li e необязателен. Для понимания моего программного кода вам надо будет согласиться со следующими именами представленных объектов и их свойствами: Форме присвоим имя Calcula or. Кнопки с цифрами образуют массив кнопок K opki индексы, которых совпадают с их надписями. Кнопка точка - это объект с именем ochka, a кнопка изменения знака числа - Plusmi . Кнопки арифметических операций имеют общее имя Operacia, но проиндексированы. Причём кнопка с надписью имеет индекс 4, кнопка со знаком минус - индекс 2, кнопка &quo ;разделить&quo ; - 0, а кнопка соответствующая умножению - 5. Кнопка &quo ;сброс&quo ; - Ochis ka. Кнопка &quo ;удалить&quo ; [ 0 ablo.Cap io = &quo ;-&quo ; & ablo.Cap io E d Selec E d SubДругая - возможность ввода дробного числа:Priva e Sub ochka Click() ' если число целое, то разрешаем ввести дробное число: If Fix(Val( ablo.Cap io )) = Val( ablo.Cap io ) Or Rav o. ag = &quo ;второе&quo ; he ablo. ag = &quo ;не целое&quo ; ' к тому же . если вводить дробное число после указания операции, то целая его часть - ноль: If Rav o. ag = &quo ;второе&quo ; he ablo.Cap io = &quo ;0&quo ;E d Sub Исправление ошибок . Позволим также стирать набранное число и удалять последнюю цифру числа на табло, что обеспечит следующий фрагмент программного кода:Priva e Sub ochis ka Click() ' щелчёк по кнопке CE &quo ;превращает&quo ; число на табло в ноль: ablo.Cap io = &quo ;0&quo ; ablo. ag = &quo ;&quo ; ' вводим целое числоE d SubPriva e Sub udali Click() um aya.Se Focus ' является ли число целым? If Fix(Val( ablo.Cap io )) = Val( ablo.Cap io ) he ' если целое - удалим последнюю цифру ablo.Cap io = Mid( ablo.Cap io , 1, Le ( ablo.Cap io ) - 2) ' а если число было нулём - то так и оставим - &quo ;ноль&quo ;: If ablo.Cap io = &quo ;.&quo ; he ablo.Cap io = &quo ;0&quo ; Else ' если на табло число не целое, то просто удалим последнюю цифру надписи ablo.Cap io = Mid( ablo.Cap io , 1, Le ( ablo.Cap io ) - 1) E d IfE d Sub Считать, считать и ещё раз считать! Далее пользователь, скорее всего, захочет указать одно из арифметических действий: сложить, вычесть, умножить, разделить заданное число с каким-то другим. Предоставим ему такую возможность! Здесь необходимо предусмотреть следующее: 1) пользователь может изменить выбранную операцию (не изменив до этого числа на табло), 2) если пользователь уже выбирал до этого какую-то операцию, не вычислял её значение с помощью клавиши равно или не задавал состояние первоначальной готовности, то вычисляется результат этой операции.

Легко понять, что эти особенности взаимосвязаны между собой: вторая возможна только тогда, кода пользователь не изменяет выбор операции. Первая особенность выбора арифметического действия частично рассмотрена. Вспомним, что при указании пользователем операции программа запишет в переменную Rav o. ag значение &quo ;второе&quo ;. Таким образом, при вхождении в процедуру обработки события щелчка мыши по одной из кнопок Operacia условный оператор программного кода с помощью данной переменной проверит: &quo ;А не изменяет ли пользователь выбранную операцию?!&quo ;. При отрицательном ответе с помощью переменной deys vie будет решать надо ли передавать управление процедуре вычисления значения резултата Rezul a (). В любых случаях, переменная deys vie примет значение соответствующее выбранному арифметическому действию. При этом уже знакомая нам переменная pervoe примет значение числа табло, а Rav o. ag будет сообщать процедуре ввода числа, что вводится новое число и предоставлять возможность изменить операцию. Всё это находим в следующей процедуре:Priva e Sub Operacia Click(I dex As I eger) If Rav o. ag = &quo ;&quo ; he ' нет изменения выбора операции? ' если операция была задана - вычисляем её значение: If deys vie &quo ;нет&quo ; he v oroe = Val( ablo.Cap io ): rezul a E d If Selec Case I dex ' запишем выбранное действие Case 0 deys vie = &quo ;разделить&quo ; Case 2 deys vie = &quo ;вычесть&quo ; Case 4 deys vie = &quo ;сложить&quo ; Case 5 deys vie = &quo ;умножить&quo ; E d Selec pervoe = Val( ablo.Cap io ) ' первое число операции - то что на табло при выборе операции Rav o. ag = &quo ;второе&quo ; ' режим ввода второго числаE d Sub Несложно догадаться, что процедура вычисления результата будет вызываться также из процедуры обработки нажатия кнопки &quo ;равно&quo ;. И прежде чем рассматривать первую, напишем программный код для второй. Сделаем так, что если: 1) второе число не введено и кнопка &quo ;равно&quo ; нажимается один раз, то значение не вычисляется, 2) если кнопка нажимается два раза подряд, то в качестве второго числа операции выбирается текущее число табло и результат вычисляется.Во всех случаях нам будет способствовать переменная Rav o. ag. Если она равна &quo ;второе&quo ;, то это удовлетворяет первому условию. Однако чтобы реализовать второе назначим данной переменной пустой символ. И уже здесь вследствие условия положим значение переменной v oroe число, &quo ;которое на табло&quo ; и запустим процедуру Rezul a (), затем зададим калькулятору подобие начального состояния (без отображения на табло нуля). Можно написать так:Priva e Sub Rav o Click() If Rav o. ag &quo ;второе&quo ; he v oroe = Val( ablo.Cap io ) Call rezul a Rav o. ag = &quo ;второе&quo ; ' режим ввода &quo ;второго&quo ; числа ablo. ag = &quo ;&quo ; ' две переменные ука- deys vie = &quo ;нет&quo ; ' зывают начальное состояние Else Rav o. ag = &quo ;&quo ; ' можем в &quo ;следующий раз&quo ; считать первым числом текущее число табло E d IfE d Sub «Ноль», «нельзя» и «делить» А вот и процедура обработки результата (понимание которой у вас, я думаю, не составит труда):Priva e Sub rezul a () Selec Case deys vie Case &quo ;сложить&quo ; ablo.C

ap io = pervoe v oroe Case &quo ;вычесть&quo ; ablo.Cap io = pervoe - v oroe Case &quo ;разделить&quo ; If v oroe 0 he ablo.Cap io = pervoe / v oroe Else ' на ноль действительно нельзя делить! ablo.Cap io = &quo ;на ноль не делят!&quo ; E d If Case &quo ;умножить&quo ; ablo.Cap io = pervoe v oroe E d Selec E d SubВ ней, как видите, результат сразу &quo ;выбрасывается&quo ; на табло. О пользе клавиатуры.И прежде чем подготовиться к последнему желанию пользователя - иметь возможность производить вычисления с клавиатуры, добавим к уже имеющейся части программного кода процедуру обработки нажатия кнопки (сброс в первоначальную) готовность:Priva e Sub Sbros Click() deys vie = &quo ;нет&quo ;' стираем, возможно, указанное действие ablo.Cap io = &quo ;0&quo ;' на табло - ноль ablo. ag = &quo ;&quo ;' по умолчанию - вводится целое числоE d SubПользователь будет вводить число с клавиатуры используя клавиши с цифрами, клавиши с точкой, а для перемены знака числа клавишу /=. Редактировать число с помощью клавиш Backspace и Пробел. Данные действия оперделим в коде процедуры Form KeyPress(), используя замечательный аргумент этой процедуры - KeyAscii. Поэтому если знать (или узнать) Ascii-коды клавиш, то понимание этой процедуры не займёт много времени:Priva e Sub Form KeyPress(KeyAscii As I eger) Selec Case KeyAscii Case 8 udali Click Case 42, 43, 45, 47 ' теперь стало ясным почему индексы Operacia Click (47 - KeyAscii) ' следуют не по порядку? Case 61 ' меняем знак Plusmi Click Case Is > 47 ' вводим цифры If KeyAscii < 58 he k opka Click (KeyAscii - 48) Case 32 ' а здесь пробелом &quo ;чистим&quo ; табло ochis ka Click E d Selec E d SubДанная процедура не позволяет отлавливать нажатие «точки», так как Ascii-коды «точки» на малой цифровой клавиатуре отличны при разных раскладках. Напишем соответствующий код в следующей процедуре. Исход будет!Однако мы до сих пор не указали заменители кнопок &quo ;сброса в первоначальное состояние&quo ; и &quo ;равно&quo ;. Для первого случая сложность заключается в придумывании клавиши, а для другого - способа &quo ;отлавливания&quo ; нажатия клавиши (я думаю ни у кого не возникнет сомнения в том, что нажатие клавиши E er будет соответствовать щелчку по кнопке равно).Сбрасываем в начальное состояние клавишей Dele e:Priva e Sub Form KeyDow (KeyCode As I eger, Shif As I eger) If KeyCode = 46 he sbros Click ' поскольку значения &quo ;точки&quo ; малой цифровой клавиатуры у KeyAscii не одинаковые ' при различных раскладках, то &quo ;ловим&quo ; её с помощью KeyCode If KeyCode = 110 he ochka ClickE d SubПоймать нажатие клавиши E er на кнопке можно следующим образом. Для этого вначале бросим на форму текстбокс. И спрячем его под границу будущего окна приложения (вначале увеличим высоту, затем поместим &quo ;туда&quo ; текстбокс и зададим высоту формы до её изменения). Изменим лишь свойства abI dex на 1 и ame на Um o. Как вы уже скорее всего догадались нажатие по этому объекту будет выявлять нажатие клавиши E er. Поэтому имеем такую процедуру:Priva e Sub Um o KeyPress(KeyAscii As I eger) If KeyAscii = 13 he Rav o ClickE d SubОднако, это сработает тогда, когда объект Um o имеет фокус.

Для ускорения диффузии применяется длительный нагрев сплава (отжиг); уничтожение внутренних напряжений при отжиге металла также есть следствие процессов диффузии и их ускорения при повышении температуры. Создание больших концентраций газа на границе с металлом при создании условий, обеспечивающих некоторое "разрыхление" поверхностного слоя металла, приводит к диффузии газа внутрь металла; диффузия азота в металлы лежит в основе процесса азотирования. Диффузионное насыщение поверхностных слоев металла различными элементами позволяет получать самые различные свойства поверхностей, необходимые в практике. Фактически процессы цементации, алитирования, фосфатирования есть процессы диффузии углерода, аллюминия, фосфора внутрь структуры металла. Скорость диффузии при этом легко регулируется с помощью различных режимов термообработки. А.с Н 461774: Способ производства изделий из низкоуле родистых сталей путем отжига заготовки и холодного вы давливания отличающийся тем, что с целью улучшения ус ловий выдавливания, перед отжигом заготовку подвергают термодиффузионной обработке, преимущественно цемента ции. 3.6. О с м о с

1. Исследование предельных процессов для числовых последовательностей с применением графических калькуляторов

2. Калькулятор для матриць

3. Программа - калькулятор

4. Численные методы. Программа-калькулятор на Pascal

5. Роль микроэлементов в обменных процессах растений и на накоплении ими биологически активных веществ (Реферат (обзор литературы) () WinWord 97)

6. Экономическая сказка-реферат "НДС - вражья морда" или просто "Сказка про НДС"
7. Несколько рефератов по культурологии
8. Реферат по научной монографии А.Н. Троицкого «Александр I и Наполеон» Москва, «Высшая школа»1994 г.

9. Субъект преступления ("подновлённая" версия реферата 6762)

10. Психология труда (Обзорный реферат по психологии труда)

11. "Русский Тарзан" (реферат о российском пловце Александре Попове)

12. Реферат по статье П. Вайнгартнера «Сходство и различие между научной и религиозной верой»

13. Генезис капитализма в Мексике. Реферат по истории экономики

14. Реферат по книге Н. Цеда Дух самурая - дух Японии

15. Реферат по теме “Человек на войне”

16. Реферат по биографии Виктора Гюго

Подвесные качели "Кассон".
Подвесные детские качели изготовлены из прочного жгута и пластиковых разноцветных деталей. Размер: 48х48х24 см. Материал:
394 руб
Раздел: Качели
Подгузники-трусики для мальчиков Huggies DryNights, 8-15 лет, 9 штук.
Деликатная защита на всю ночь для детей от 4х лет, страдающих энурезом. Одноразовые Трусики Хаггис Драйнайтс для мальчиков 8-15 лет (30-57
468 руб
Раздел: Обычные
Глобус "Двойная карта" рельефный, с подсветкой, на подставке из пластика.
Диаметр: 250 мм. Масштаб: 1:50000000. Материал подставки: пластик. Цвет подставки: прозрачный. Мощность: 220 V, переключатель на шнуре;
1072 руб
Раздел: Глобусы

17. Реферат - Физиология (Транспорт веществ через биологические мембраны)

18. США и Канада в АТР: набор рефератов

19. Как написать хороший реферат?

20. Сборник рефератов о конфликтах

21. Реферат кондитерское изделие

22. Реферат по статье Гадамера Неспособность к разговору
23. Реферат Евро
24. Реферат о прочитаной на немецком языке литературы

25. Лесные пожары - реферат

26. ДЫХАНИЕ - реферат за 9-й класс

27. Реферат по Мексике

28. Перевод реферата "Acquaintance with geometry as one of the main goals of teaching mathematics to preschool children"

29. VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования

30. Логические операторы VB


Поиск Рефератов на сайте za4eti.ru Вы студент, и у Вас нет времени на выполнение письменных работ (рефератов, курсовых и дипломов)? Мы сможем Вам в этом помочь. Возможно, Вам подойдет что-то из ПЕРЕЧНЯ ПРЕДМЕТОВ И ДИСЦИПЛИН, ПО КОТОРЫМ ВЫПОЛНЯЮТСЯ РЕФЕРАТЫ, КУРСОВЫЕ И ДИПЛОМНЫЕ РАБОТЫ. 
Вы можете поискать нужную Вам работу в КОЛЛЕКЦИИ ГОТОВЫХ РЕФЕРАТОВ, КУРСОВЫХ И ДИПЛОМНЫХ РАБОТ, выполненных преподавателями московских ВУЗов за период более чем 10-летней работы. Эти работы Вы можете бесплатно СКАЧАТЬ.