Демо (html) Информационные технологии

1. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру для выполнения вычитания.

2. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру перевода чисел из десятичной системы счисления в шестнадцатеричную. Для перевода чисел из десятичной системы счисления в шестнадцатеричную воспользуйтесь функцией Hex.

3. Добавить в Проект 3 «Логический калькулятор» событийную процедуру, реализующую логическую функцию Or.

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

1. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру для выполнения вычитания.

2. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру перевода чисел из шестнадцатеричной системы счисления в десятичную. Введенные в шестнадцатеричные поля в строковой форме числа переводите в шестнадцатеричное представление добавлением приставки "&H" с помощью операции конкатенации строк.

3. Добавить в Проект 3 «Логический калькулятор» событийную процедуру, реализующую логическую функцию Or.

4. Модернизировать проект «Строковый калькулятор». Добавить возможность вырезки из строки произвольной подстроки:

1. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру для выполнения деления.

2. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру перевода чисел из десятичной системы счисления в шестнадцатеричную. Для перевода чисел из десятичной системы счисления в шестнадцатеричную воспользуйтесь функцией Hex.

3. Добавить в Проект 3 «Логический калькулятор» событийную процедуру, реализующую логическую функцию Not.

4. Создать проект, который позволяет заменить все символы строки их кодами:

1. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру для выполнения умножения.

2. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру перевода чисел из десятичной системы счисления в шестнадцатеричную. Для перевода чисел из десятичной системы счисления в шестнадцатеричную воспользуйтесь функцией Hex.

3. Добавить в Проект 3 «Логический калькулятор» событийную процедуру, реализующую логическую функцию Xor.

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

1. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру для выполнения умножения.

2. Добавить в Проект 1 «Мультисистемный калькулятор» событийную процедуру перевода чисел из шестнадцатеричной системы счисления в десятичную. Введенные в шестнадцатеричные поля в строковой форме числа переводите в шестнадцатеричное представление добавлением приставки "&H" с помощью операции конкатенации строк.

3. Добавить в Проект 3 «Логический калькулятор» событийную процедуру, реализующую логическую функцию Xor.

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

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

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

Visual Basic предоставляет следующие типы операторов:

• арифметические операторы выполняют математические вычисления над числовыми значениями:

• операторы сравнения сравнивают два выражения и возвращают логическое значение (Boolean), представляющее результат сравнения:

• операторы объединения объединяют несколько строк в одну:

• логические и побитовые операторы объединяют Boolean или числовые значения и возвращают результат того же типа данных, что и значения:

Примеры выражений:

5 + 4

"Concat" & "ena" & "tion"

763 < 23

Несколько операторов могут выполнять действия в одном выражении:

x = 45 + y * z ^ 2

Проект 1. «Мультисистемный калькулятор»

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

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

1. Запустите Microsoft Visual Basic 2005.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта - LR4___1.

3. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Мультисистемный калькулятор.

4. Разместите на форме три текстовых поля (TextBox1, TextBox2, TextBox3) и пять кнопок (Button1, Button2, Button3, Button4, Button5):

5. Введите для кнопки Button1 (+) событийную процедуру:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

End Sub

6. Введите для кнопки Button5 (Выход) событийную процедуру:

Private Sub Button5___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Me.Close()

End Sub

7. Сохраните проект. Запустите проект, введите в текстовом поле TextBox1 значение 2, в текстовом поле TextBox2 значение 3, нажмите на кнопку +. В текстовом поле TextBox3 появится вычисленное значение:

8. Проверьте работу клавиши Выход.

9. Сохраните проект. Проверьте работу созданного приложения.

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

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

10. Разместите на форме три текстовых поля (TextBox4, TextBox5, TextBox6), кнопку Button6 (Dec-Oct) и надписи: Десятичная система, Восьмеричная система:

11. Введите для кнопки Button6 (Dec-Oct) событийную процедуру:

Private Sub Button6___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

TextBox4.Text = Oct(Val(TextBox1.Text))

TextBox5.Text = Oct(Val(TextBox2.Text))

TextBox6.Text = Oct(Val(TextBox3.Text))

End Sub

12. Сохраните проект. Проверьте работу созданного приложения. Введите числа в два первых текстовых поля десятичной системы. Щелкнете по кнопке «+», а затем Dec-Oct. Будет выполнено сложение десятичных чисел и их перевод в восьмеричную систему.

Пример:

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

Введенные в восьмеричные поля в строковой форме числа переведем сначала в восьмеричное представление добавлением приставки "&0" с помощью операции конкатенации строк. Полученное восьмеричное число в строковой форме переведем в десятичную числовую с помощью функции Val. Создадим кнопку и запишем для нее событийную процедуру перевода чисел.

13. Разместите на форме кнопку Button7 (Oct-Dec) и введите для нее событийную процедуру:

Private Sub Button7___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

TextBox1.Text = Val("&O" + TextBox4.Text)

TextBox2.Text = Val("&O" + TextBox5.Text)

TextBox3.Text = Val("&O" + TextBox6.Text)

End Sub

14. Сохраните проект. Проверьте работу созданного приложения. Запустить проект на выполнение. Ввести числа в два первых текстовых поля восьмеричной системы. Щелкнуть по кнопке Oct-Dec. Будет выполнен их перевод в десятичную систему. Выполнить арифметическую операцию в десятичной системе, щелкнув, например, по кнопке «+». Перевести результат в восьмеричную систему, щелкнув по кнопке Dec-Oct.

Пример:

Цель:

изучение системы программирования Microsoft Visual Basic 2005.

Результаты обучения:

После успешного завершения занятия пользователь должен уметь работать:

· с арифметическими операциями и функциями преобразования типов данных;

· с логическими операторами.

Список рекомендуемой литературы:

• Степанов А., Шевякова Д. Самоучитель Visual Basic 2005. – СПб.: BHV, 2006.
• Богданов М.Р. Visual Basic 2005 на примерах. – СПб.: BHV, 2007.
• Патрик Т., Крейг К. Visual Basic 2005: рецепты программирования. – СПб.: BHV, 2008.
• Балена Ф. Программирование на Microsoft Visual Basic 2005. – М.: «Эком», 2008.

Используемые программы:

Microsoft Visual Basic 2005 Express Edition

Microsoft Visual Basic 2005 Express Edition — средство разработки программного обеспечения, включающее язык программирования и среду разработки. Данный продукт предназначен для создания небольших Windows-приложений на основе технологии Windows Forms, являющейся частью Microsoft .NET. С помощью Visual Basic 2005 Express Edition можно создавать консольные приложения и компоненты.

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

Массивы в коде программы объявляются точно так же, как переменные. Место, в котором объявляется массив, определяет, где его можно использовать (его область видимости). Если массив объявлен локально для процедуры, то его можно использовать только в этой процедуре. Если массив объявлен в верхней части формы, то его можно использовать во всей форме. Если массив объявлен открытым в стандартном модуле, его можно использовать в любом месте проекта. Обычно при объявлении массива в оператор объявления включают следующую информацию:

• имя массива, которое будет использовано для представления массива в программе;
• тип данных, хранимых в массиве;
• размерность массива.

Примеры объявления массивов:

Dim bytA(0 To 10) As Byte

Dim strA(0 To 33), strB(0 To 10) As String

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

Employees(5) = "Лесли"

Scoreboard(0, 2) = 4

Проект 1. «Сортировка числового массива». Разработаем проект, который позволит заполнять числовой массив целыми случайными числами, находить минимальный элемента массива, осуществлять сортировку массива.

Заполнение массива случайными числами. Для генерации последовательности целых случайных чисел используем функцию генерации псевдослучайных (то есть каждый раз повторяющихся) последовательностей чисел Rnd и функцию выделения целой части числа Int.

Заполнение массива bytA, состоящего из 10 элементов, реализуем с помощью цикла со счетчиком. В целях визуального контроля предусмотрим вывод массива в текстовое поле с использованием функции Str (преобразования числа в строковую форму).

1. Запустите Microsoft Visual Basic 2005 Express Edition.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта - LR3___1.

3. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвоить ему значение Работа с числовым массивом.

4. Разместите на форме текстовое поле TextBox1 и кнопку Button1. Измените свойство Text кнопки:

5. Введите для кнопки событийную процедуру заполнения массива и его вывода в текстовое поле:

Dim bytI, bytA(0 To 10) As Byte

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = ""

Randomize()

For bytI = 1 To 10

bytA(bytI) = Int(Rnd() * 10)

TextBox1.Text = TextBox1.Text + Str(bytA(bytI))

Next bytI

End Sub

6. Сохраните проект. Запустите проект и щелкнете по кнопке Заполнить. В текстовом поле появится последовательность случайных чисел. Например:

Поиск минимального элемента. Будем считать сначала, что минимальный элемент равен первому элементу массива bytA(1) и присвоим переменной bytMin его значение. Затем в цикле сравним последовательно элементы массива со значением переменной bytMin, если какой-либо элемент окажется меньше, присвоим его значение переменной bytMin, а его индекс присвоим переменной bytN. Результаты выводим в соответствующие текстовые поля.

7. Разместите на форме текстовые поля TextBox2 и TextBox3, а также соответствующие им надписи Label1 и Label2. Измените свойство Text надписей:

8. Измените событийную процедуру Private Sub Button1___Click(...) таким образом, чтобы осуществлялся поиск минимального элемента массива и его индекса:

Dim bytI, bytA(0 To 10), bytMin, bytN As Byte

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = ""

Randomize()

For bytI = 1 To 10

bytA(bytI) = Int(Rnd() * 10)

TextBox1.Text = TextBox1.Text + Str(bytA(bytI))

Next bytI

bytMin = bytA(1)

bytN = 1

For bytI = 2 To 10

If bytA(bytI) < bytMin Then bytMin = bytA(bytI) : bytN = bytI

Next bytI

TextBox2.Text = Str(bytMin)

TextBox3.Text = Str(bytN)

End Sub

9. Сохраните проект. Проверьте работу созданного приложения.

Например:

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

На первом шаге находим минимальный элемент массива и меняем его местами с первым элементом массива. Остаются неупорядоченными N—1 элемент. Проводим поиск минимального элемента среди элементов с индексами от 2 до N и делаем перестановку.

Повторяем процедуру поиска минимального элемента среди оставшихся неупорядоченных элементов многократно. Повторение реализуем с помощью цикла со счетчиком, максимальное значение которого составляет N-1. В результате массив сортируется по возрастанию.

10. Разместите на форме кнопку Button2, текстовое поле TextBox4. Измените свойство Text добавленной кнопки:

11. Введите для кнопки Button2 событийную процедуру сортировки массива и его вывода в текстовое поле.

12. Сохраните проект. Проверьте работу созданного приложения.

Например:

Цель:

изучение системы программирования Microsoft Visual Basic 2005.

Результаты обучения:

После успешного завершения занятия пользователь должен уметь работать:

· с числовыми массивами;

· со строковыми массивами.

Список рекомендуемой литературы:

• Степанов А., Шевякова Д. Самоучитель Visual Basic 2005. – СПб.: BHV, 2006.
• Богданов М.Р. Visual Basic 2005 на примерах. – СПб.: BHV, 2007.
• Патрик Т., Крейг К. Visual Basic 2005: рецепты программирования. – СПб.: BHV, 2008.
• Балена Ф. Программирование на Microsoft Visual Basic 2005. – М.: «Эком», 2008.

Используемые программы:

Microsoft Visual Basic 2005 Express Edition

Microsoft Visual Basic 2005 Express Edition — средство разработки программного обеспечения, включающее язык программирования и среду разработки. Данный продукт предназначен для создания небольших Windows-приложений на основе технологии Windows Forms, являющейся частью Microsoft .NET. С помощью Visual Basic 2005 Express Edition можно создавать консольные приложения и компоненты.

1. Добавьте в проект новую форму с помощью команды Project-Add Windows Form... Выберите тип формы Windows Form. Нажмите на кнопку Add.

2. Активизируйте форму Form2 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Вторая форма.

3. Активизируйте форму Form2, дважды щелкните мышкой, добавьте событийную процедуру:

Private Sub Form2___Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim image As Bitmap

image = New Bitmap(" ... \2.jpg", True)

Me.BackgroundImage = image

End Sub

4. Сохраните проект.

5. Для запуска проекта, начиная с формы Form2, выполните команду Project-LR2 Properties... В поле Startup form: установите Form2:

6. Проверьте работу созданного приложения.

7. Запрограммируем возможность вывода изображения на форму Form2 по нажатию на кнопку. Разместите на форме кнопку Button1. Измените свойство Text кнопки:

8. Дважды щелкните мышкой по кнопке Button1, введите код событийной процедуры:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim image As Bitmap

image = New Bitmap(" ... \2.jpg", True)

Me.BackgroundImage = image

End Sub

Удалите процедуру Private Sub Form2___Load(...).

9. Сохраните проект. Проверьте работу созданного приложения:

1. Усовершенствовать созданный проект так, чтобы обеспечить возможность перехода из второй формы на первую.

2. Создать проект «Видимость календаря», в котором по щелчку по кнопке «Показать» элемент управления DateTimePicker1 выводится на форму, а по щелчку по кнопке «Скрыть» - исчезает.

1. Усовершенствовать созданный проект так, чтобы обеспечить возможность перехода из второй формы на первую.

2. Создать проект «Видимость метки», в котором по щелчку по кнопке «Показать» - надпись Label1 выводится на форму, а по щелчку по кнопке «Скрыть» – исчезает:

1. Усовершенствовать созданный проект так, чтобы обеспечить возможность перехода из второй формы на третью.

2. Создать проект «Видимость списка», в котором по щелчку по кнопке «Показать» список ListBox1 выводится на форму, а по щелчку по кнопке «Скрыть» - исчезает.

1. Усовершенствовать созданный проект так, чтобы обеспечить возможность перехода из третьей формы на вторую.

2. Создать проект «Видимость рисунка», в котором по щелчку по кнопке «Показать» рисунок PictureBox1 выводится на форму, а по щелчку по кнопке «Скрыть» - исчезает.

1. Усовершенствовать созданный проект так, чтобы обеспечить возможность перехода из третьей формы на первую.

2. Создать проект «Видимость текстового поля», в котором по щелчку по кнопке «Показать» текстовое поле TextBox1 выводится на форму, а по щелчку по кнопке «Скрыть» - исчезает.

Цель:

изучение системы программирования Microsoft Visual Basic 2005.

Результаты обучения:

После успешного завершения занятия пользователь должен уметь:

· автоматически выводить изображение на форму после запуска проекта;

· выводить изображение на форму с помощью событийных процедур;

· выводить изображение на форму с использованием элемента управления PictureBox;

· организовывать переходы между формами, входящими в проект.

Список рекомендуемой литературы:

• Степанов А., Шевякова Д. Самоучитель Visual Basic 2005. – СПб.: BHV, 2006.
• Богданов М.Р. Visual Basic 2005 на примерах. – СПб.: BHV, 2007.
• Патрик Т., Крейг К. Visual Basic 2005: рецепты программирования. – СПб.: BHV, 2008.
• Балена Ф. Программирование на Microsoft Visual Basic 2005. – М.: «Эком», 2008.

Используемые программы:

Microsoft Visual Basic 2005 Express Edition

Используемые файлы:

1.jpg, 2.jpg

Microsoft Visual Basic 2005 Express Edition — средство разработки программного обеспечения, включающее язык программирования и среду разработки. Данный продукт предназначен для создания небольших Windows-приложений на основе технологии Windows Forms, являющейся частью Microsoft .NET. С помощью Visual Basic 2005 Express Edition можно создавать консольные приложения и компоненты.