Функции преобразования типов

Функция	Значение функции
Asc ( строка )	Код ASCII первого символа строки
Chr ( код ASCII )	Символ, соответствующий коду
CInt ( строка цифр или число )	Целое число
Val ( строка )	Число
Str ( число )	Строка
CDate(выражение)	Выражение типа Date
CBool(выражение)	Выражение типа Boolean
CByte(выражение)	Выражение типа Byte
CCur(выражение)	Выражение типа Currency
CDbl(выражение)	Выражение типа Double
CInt(выражение)	Выражение типа Integer
CLng(выражение)	Выражение типа Long

Функции для работы с графикой

Функция	Значение функции
LoadPicture ( строка-путь к графическому файлу )	Содержимое графического файла
QBColor ( число от 0 до 15 )	Цвет
RGB ( N1, N2, N3 ) N1 – интенсивность красного цвета (от 0 до 255) N2 - интенсивность зеленого цвета (от 0 до 255) N3 - интенсивность синего цвета (от 0 до 255)	Цвет

Лабораторно-практические работы Общие рекомендации по выполнению работ

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

2. Перед выполнением конкретной работы необходимо изучить теоретический материал по тематике работы;

3. Практические работы выполняйте в указанной последовательности;

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

Лабораторно-практическая работа №1

Тема: Типы данных

Цель работы: получить навыки использования в программе различных типов данных

Порядок выполнения

1. Откройте новый проект и установите на форме командную кнопку( Name–Cmd1,Caption–Пример 1), переместите ее в правый верхний угол формы.

2. В окне кода процедуры обработки события Clickдля объектаCmd1 набрать

Dim X As Integer, Y As Integer

X = 5 / 2: Y = 10 / 3: Z = X / Y

Print X, Y, Z

3. Проверьте работу программы, прокомментируйте значения переменных X,Y

4. Измените программу, добавив после первой строки

Dim Z As Currency

5. Проверьте работу программы, прокомментируйте значение переменной Z

6. Измените программу, удалив строки объявления всех переменных (или поставьте знак комментария – апостроф перед оператором Dim

7. Проверьте работу программы, прокомментируйте значения всех переменных

8. Добавьте на форму командную кнопку( Name–Cmd2,Caption–Пример 2), переместите ее в правый верхний угол формы и в окне кода процедуры обработки событияClickдля объектаCmd2 набрать

Dim S As Integer

S = 10 ^ 5

Print S

9. Проверьте работу второй кнопки, объясните причину вывода сообщения об ошибке

10. Остановите работу программы и предложите два способа , позволяющие вычислить требуемое значение без ошибок. Результат показать преподавателю.

11. Для решения новой задачи добавьте на форму новые объекты в соответствии с образцом.

12. Для командной кнопки Вычислитьнабрать программный код

Dim x1, x2, x3

Dim z As Currency

Dim a As Double

Dim b As Currency

x1 = Val(TxtTonn.Text)

x2 = Val(TxtKg.Text)

x3 = Val(TxtGram.Text)

z = Val(TxtZena.Text)

a = (x1 * 1000000 + x2 * 1000 + x3) * z

b = (x1 * 1000000 + x2 * 1000 + x3) * z

LblItog1.Caption = a

LblItog2.Caption = b

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