Private Sub Command1_Click()
Load Form2
Form2.Show
End Sub
Private Sub Command2_Click()
Load Form3
Form3.Show
End Sub
Private Sub Command3_Click()
Load Form4
Form4.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Коды второй формы:
Private Sub Command1_Click()
Const Pi = 3.14
Dim R, V As Single
R = Val(Text1.Text)
V = (Pi * R ^ 3) / 3
Label4.Caption = V
'Или кратко: Label4.Caption=(Pi * Val(Text1.Text) ^ 3) / 3
End Sub
Private Sub Command2_Click()
Unload Form2
End Sub
'Процедуры, следующие ниже показать
'как вариант оформления проекта
Private Sub Form_Load()
Me.Show 'Активизация объектов на форме
Text1.SetFocus 'Установка курсора
End Sub
Private Sub Text1_Click()
Text1.Text = "" 'Очистка окна при щелчке
End Sub
Задание на дом:
1. Закончить проект.
2. Оформить задачу в виде Word –документа с приведенными кодами и копиями форм.
Занятие 2. Продолжение работы со свойствами формы.
Работа с различными типами переменных.
Работа с функцией Format().
Приемы печати на форму.
Первые навыки работы с графикой.
Замечания по поводу типов переменных и печати на форму
1. Типы переменных, объявление переменных и констант
Dim R As Single, S As Long и т.д.
Const ИмяКонстанты [ As Тип] = Значение Константы
В Visual Basic 6 переменная может иметь один из более чем десяти типов. Мы рассмотрим лишь часть из них, только те, которые употребляются наиболее часто. Переменные первых пяти типов называют числовыми переменными.
• Короткое неотрицательное целое число (Byte). Число (значение переменной этого типа) занимает 1 байт памяти.
• Целое число (Integer). Значение переменной этого типа занимает 2 байта памяти.
• Длинное целое число (Long). Значение переменной этого типа занимает 4 байта памяти.
• Десятичное число обычной точности (Single). Значение занимает 4 байта памяти.
• Десятичное число двойной точности (Double,). Значение занимает 8 байт памяти.
• Строка (String). Занимаемая память линейно зависит от числа символов в строке.
• Произвольное значение (Variant). По существу, тип Variant типом как таковым не является. Переменная этого «типа» может иметь любой тип. Но за это надо платить дорогую цену — объём памяти, занимаемой значением этого типа бывает разным, но не менее 16 байт!
В каких пределах могут меняться значения переменных перечисленных типов:
• для типа Byte: от 0 до 255;
• для типа Integer: от —32768 до 32767;
• для типа Long: от —2147483648 до 2147483647;
• для типа Single: от 1.401298Е-45 до 3.402823Е+38 (по модулю);
• для типа Double: от 4.9406564584124 7Е-324 до 1.79769313486232Е+308 (по модулю).
2. Оператор With …. (объект)…. End With
3. Обращение к некоторым свойствам формы:
With Form1
·.CurrentX = 600
·.CurrentY = 400
· FontSize = 14
·.FontBold = True
·.FontItalic = True
·.ForeColor = RGB(255, 0, 0) '255 - это интенсивность цвета
End With
4. Оператор Print:
· Print Tab(30); "A= "; A
· Print Tab(30); "b="; B
· Print Tab(30); "C= "; Format(C, "###.##")
Печать на бумагу
With Printer 'Все это будет отражаться и на экране
FontSize = 12
.FontBold = True
ForeColor = RGB(0, 0, 255)
Print Tab(20); "Список группы"
'------- Ниже расположить таблицу со писком группы -----------------------
.EndDoc 'Чтобы печать пошла на бумагу
End With
Первые навыки в графике
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
MyHeart
End Sub
Private Sub Form_Load()
With Form1
.Show
'------Первая надпись---------------
.Font = "Times New Roman"
.FontSize = 24
.FontBold = True 'Полужирный
.FontItalic = True 'Курсив
.ForeColor = RGB(255, 0, 0)
CurrentX = 2500
.FontUnderline = True
Print "Задача с графикой"
.FontUnderline = False
'-----Вторая надпись-----------------
.CurrentX = 3500
.CurrentY = 500
.ForeColor = vbMagenta
Print "Elina"
'----- Точка -------------------------
Print "Это точка"
.DrawWidth = 13
Form1.PSet (2800, 1350), vbYellow
'---Прямоугольник заштрихованный ---------
'---Штриховка будет работать только при флаге B-----
.CurrentX = 0
.CurrentY = 2000
Print "Это прямоугольник"
.DrawWidth = 4 ' Окантовка прямоугольника
.FillColor = QBColor(14)
.FillStyle = 6 'Тип Штриховки
.ForeColor = QBColor(2)
Form1.Line (1000, 2800)-(2500, 3500),, B 'Построение прямоугольника
'Теперь рисуем сектор
.CurrentX = 0
.CurrentY = 4000
.ForeColor = vbMagenta
Print "Это сектор"
.FillStyle = 6 'Тип заливки сектора
.DrawWidth = 4 'Толщина линии у сектора
Form1.Circle (3500, 4800), 1000, vbRed, -3.14 / 6, -2 * 3.14 / 3 'Построение сектора
End With
With Form1 'Оператор присоединения
.CurrentX = 0
.CurrentY = 5000
Print "Это линии"
.DrawWidth = 1
Form1.Line (500, 6000)-(4000, 6000), vbMagenta
.DrawWidth = 3
Form1.Line (500, 6200)-(4000, 6200), vbYellow
.DrawWidth = 5
Form1.Line (500, 6400)-(4000, 6400), vbRed
.DrawWidth = 7
Form1.Line (500, 6600)-(4000, 6600), vbCyan
End With
End Sub
Private Sub Picture1_Click()
Picture1.Cls 'Очистка объекта Picture
End Sub
Private Sub MyHeart()
'Процедура-подпрограмма рисунка сердца в объекте Picture1
With Picture1
Picture1.Scale (-20, 20)-(20, -20) 'Новая система координат
.DrawWidth = 7
Picture1.Circle (-3.3, 2), 4, vbRed, 3.14 / 6, 4 * 3.14 / 3 'Углы заданы в радианах
Picture1.Circle (3.3, 2), 4, vbRed, 5 * 3.14 / 3, 5 * 3.14 / 6
Picture1.Circle (4.8, -4.8), 4.5, vbRed, 3.14 / 2.2, 3.14
Picture1.Circle (-4.8, -4.8), 4.5, vbRed, 0, 3.14 / 1.9
End With
End Sub
Задание на дом:
Создать проект, состоящий из 3-х форм.
На первой форме демонстрируются различные виды печати на форму с изменением цветов, начертаний, размеров шрифта, подчеркивания и расположения текста. Также необходимо продемонстрировать печать на форму переменных и констант различных типов с применением функции Format().
При щелчке по первой форме загружается вторая форма, на которой демонстрируется работа с графическими объектами аналогично выполненной в аудитории, но с использованием большего количества свойств и методов графических объектов.
При щелчке по второй форме загружается третья форма, на которой одним из способов формируется список группы в виде таблицы.