Private Sub Picture1_Click()

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

Коды 2-ой формы:

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

'Либо Private Sub Picture1_Click() коротко: 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

Задание на дом Private Sub Picture1_Click():

1. Окончить проект.

2. Оформить задачку в виде Word –документа с приведенными кодами и копиями форм.

Занятие 2. Продолжение работы со качествами формы.

Работа с разными типами переменных.

Работа с функцией Format().

Приемы печати на форму.

1-ые способности работы с графикой.

Замечания по поводу типов переменных и печати на форму

1. Типы Private Sub Picture1_Click() переменных, объявление переменных и констант

Dim R As Single, S As Long и т.д.

Const ИмяКонстанты [As Тип] = Значение Константы

В Visual Basic 6 переменная может иметь один из более чем 10 типов. Мы разглядим только часть из их, только те, которые употребляются более нередко. Переменные первых 5 типов именуют числовыми переменными.

• Куцее неотрицательное Private Sub Picture1_Click() целое число (Byte). Число (значение переменной этого типа) занимает 1 б па­мяти.

• Целое число (Integer). Значение переменной этого ти­па занимает 2 б памяти.

• Длинноватое целое число (Long). Значение переменной это­го типа занимает 4 б памяти.

• Десятичное число обыкновенной точности (Single). Значе­ние занимает 4 б памяти.

• Десятичное число двойной точности (Double,). Значе­ние Private Sub Picture1_Click() занимает 8 б памяти.

• Строчка (String). Занимаемая память линейно находится в зависимости от числа знаков в строке.

• Случайное значение (Variant). По существу, тип Variant типом как таким не является. Переменная этого «типа» может иметь хоть какой тип. Но за это нужно платить дорогую стоимость — объём памяти, занимаемой значением этого типа бывает различным, но более Private Sub Picture1_Click() 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 ….(объект Private Sub Picture1_Click())….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

Print Tab(20); "Перечень группы"

'------- Ниже расположить Private Sub Picture1_Click() таблицу со писком группы -----------------------

.EndDoc 'Чтоб печать пошла на бумагу

End With

1-ые способности в графике

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

'-----Вторая Private Sub Picture1_Click() надпись-----------------

.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 Private Sub Picture1_Click() = 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()

'Процедура-подпрограмма рисунка сердца Private Sub Picture1_Click() в объекте 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-х форм.

На первой форме демонстрируются разные виды печати на форму с конфигурацией цветов, начертаний Private Sub Picture1_Click(), размеров шрифта, подчеркивания и расположения текста. Также нужно показать печать на форму переменных и констант разных типов с применением функции Format().

При щелчке по первой форме загружается 2-ая форма, на которой показывается работа с графическими объектами аналогично выполненной в аудитории, но с внедрением большего количества параметров и способов Private Sub Picture1_Click() графических объектов.

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


pritcha-o-vazhnosti-roditelej.html
pritcha-po-rasskazu-ubijca-na-eksport-5-glava.html
pritcha-vorona-i-pavlin-nossrata-pezeshkeyana.html