Уэ №9 Алгоритмическая струтура - «Цыкл».
Задачи УЭ №9. Научится применять и использовать команду «цикл со счетчиком» .
Что делать . Создать проект «Код символа».
Как делать.
Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Код символа.
Разместим на форме кнопку Command1. В окне Свойств объекта установить для свойства Caption – значение Код символа, а свойству-Font –дать значение Начертание – жирный; размер – 24.
Для кнопки Command1- Дата создать событийную процедуру:
Dim N As Integer
Sub Commandl_Сlick ()
For N = 255 To 33 Step -1
Print "Числовой код"; N; “-“; Chr(N)
Next N
End Sub
Уэ №10 Алгоритмическая струтура - «Цыкл».
Задачи УЭ №10. Научится применять и использовать команду «цикл с условием» .
Что делать. Создать проект «Слово перевертыш ».
Как делать.
Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Слово перевертыш.
2. Разместите на форме управляющий элемент Label1, Label2, Label3 (как показано на рисунке)
3. Свойствам Caption дать значения: 1- Введи слово; 2-Перевертыш; 3-пусто ; 4-пусто. Свойствам для Label1 и Label2 дать значения Alignment – 2-Center, AutoSize-True: Appearance – 1-3D .Для Label3 - . свойствам дать значения Alignment – 2-Center, AutoSize-True: Appearance – 0-Flat, Caption –пусто.
а свойству-Font для всех Label –дать значение Начертание – обычный; размер – 12.
4.Разместим на форме текстовое поле Textl . Свойству Техt – пусто. а свойству-Font –дать значение Начертание – обычный; размер – 12.
5. Разместим на форме кнопку Command1. В окне Свойств объекта установить для свойства Caption – значение Пуск, а свойству-Font –дать значение Начертание – жирный; размер – 24.
6.Для кнопки Command1- Дата создать событийную процедуру:
Private Sub Command1_Click()
Dim S As String, N As Byte
Label3.Caption = ""
N = 1
Do While N <= Len(Text1.Text)
S = Mid(Text1.Text, N, 1)
Label3.Caption = S + Label3.Caption
N = N + 1
Loop
End Sub
Уэ №11 Графика
Задачи УЭ №11. Научится применять «графическое окно» PictureBox для рисования различных графических примитивов с использованием графических методов..
Что делать. Создать проект «Графический редактор».
Как делать
1. Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Графический редактор.
2. Создадим графический интерфейс проекта согласно рисунку.
а) поместим на форме графическое поле Picturel (для рисования графических примитивов);
б)7 командных кнопки: Commandl, Command2, Command3, Command4, Command5, Command6, Command7
Свойствам Caption дать значения: 1- Точка; 2-Линия; 3- Прямоугольник ; 4-Закрашенный прямоугольник; 5- Окружность; 6-Система координат; 7- Очистить.
в) поместить восемь меток Label1, Label2, Label4 Label3, Label5, Label6, Label7, Label8 для вывода поясняющих надписей. Свойствам Caption дать значения: 1- Х1; 2-Y1; 3-X2 ; 4-Y2; 5- R, 6- Red; 7-Green; 8- Blue. Свойствам Alignment – 2-Center, AutoSize-True: Appearance – 1-3D – для всех управляющих элементов Label
г) поместить восемь текстовых полей Textl, Text2, Text3, Text4, Text5, Text6, Text7, Text8 (для ввода значений переменных Хl, Y1 и Х2, Y2, содержащих координаты графических примитивов;
текстовое поле Text5 для ввода значения переменной Radius, содержащей радиус окружности; три текстовых поля Text б, Text7 и Text8 для ввода значений переменных Red, Green, Blue, содержащих числовые коды цветов от 0 до 255). Свойству Text текстовых полей значение пусто.
3. Создать событийные процедуры.
P
rivate
Sub Command1_Click()
Dim X1, Y1, X2, Y2, Radius, Red, Green, Blue As Byte, Color As Long
‘ Точка
X1 = Val(Text1.Text)
Y1 = Val(Text2.Text)
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.PSet (X1, Y1), Color
End Sub
Private Sub Command2_Click()
Dim X1, Y1, X2, Y2, Radius, Red, Green, Blue As Byte, Color As Long
‘ Линия
X1 = Val(Textl.Text)
Y1= Val(Text2.Text)
X2 = Val(Text3.Text)
Y2 = Val(Text4.Text)
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text)
Color = RGB(Red, Green, Blue)
Picture1.Line (XI, Y1)-(X2, Y2), Color
End Sub
Private Sub Command3_Click()
Dim X1, Y1, X2, Y2, Radius, Red, Green, Blue As Byte, Color As Long
' Прямоугольник
X1 = Val(Text1.Text)
Y1= Val(Text2.Text)
X2 = Val(Text3.Text)
Y2 = Val(Text4.Text)
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.Line (X1, Y1)-(X2, Y2), Color, B
End Sub
Private Sub Command4_Click()
Dim X1, Y1, X2, Y2, Radius, Red, Green, Blue As Byte, Color As Long
X1 = Val(Textl.Text)
Y1= Val(Text2.Text)
X2 = Val(Text3.Text)
Y2 = Val(Text4.Text)
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.Line (X1, Y1)-(X2, Y2), Color, BF
End Sub
Private Sub Command5_Click()
Dim X1, Y1, X2, Y2, Radius, Red, Green, Blue As Byte, Color As Long
X1 = Val(Textl.Text)
Y1 = Val(Text2.Text)
Radius = Val(Text5.Text)
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.Circle (X1, Y1), Radius, Color
End Sub
Private Sub Command6_Click()
Dim X1, Y1, X2, Y2, Radius, Red, Green, Blue As Byte, Color As Long
Picture1.Scale (0, 100)-(100, 0)
End Sub
Private Sub Command7_Click()
Picture1.Cls
End Sub