Проекты на языке ООП VB
проект по информатике и икт (9, 10, 11 класс) на тему

Private Sub CommandButton1_Click()

'Генерация с равной вероятностью 0 (решка),либо 1 (орел),

'т.е. моделирование бросания монеты

Randomize

Монета = Int(2 * Rnd)

'Сравнение результата бросания монеты компьютером

'с ситуацией, если игрок загадал "Орел"

If OptionButtonl.Value = True Then

If Монета = 0 Then MsgBox "Не везет. Займись-ка лучше изучением VBA"

If Монета = 1 Then MsgBox "Везунчик. Поздравляю, ты выиграл"

End If

'Сравнение результата бросания монеты компьютером

' с ситуацией, если игрок загадал "Решка"

If OptionButton2.Value = True Then

If Монета = 1 Then MsgBox "Не везет. Займись-ка лучше изучением VBA"

If Монета = 0 Then MsgBox "Везунчик. Поздравляю, ты выиграл"

End If

End Sub

Private Sub UserForm_Click ()

End Sub

Задание к графику функции:

1. Изменить цвет рисования графика на красный

2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим цветом.

3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его зелёным  цветом.

4. Сравнить полученные результаты.

5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.

Задание к графику функции:

1. Изменить цвет рисования графика на красный

2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим цветом.

3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его зелёным  цветом.

4. Сравнить полученные результаты.

5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.

Задание к графику функции:

1. Изменить цвет рисования графика на красный

2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим цветом.

3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его зелёным  цветом.

4. Сравнить полученные результаты.

5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.

Задание к графику функции:

1. Изменить цвет рисования графика на красный

2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим цветом.

3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его зелёным  цветом.

4. Сравнить полученные результаты.

5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.

Задание к графику функции:

1. Изменить цвет рисования графика на красный

2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим цветом.

3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его зелёным  цветом.

4. Сравнить полученные результаты.

5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.

Графический редактор

Dim X1, X2, Y1, Y2 As integer, Radius, Red, Green, Blue As Byte, Color As Long

'Система координат

Private Sub Command1_Click()

Picture1.Scale (0, 100)-(100, 0)

End Sub

'Точка

Private Sub Command2_Click()

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 Command1_Click()

X1 = Val(Text1.Text)

Y1 = Val(Text2.Text)

X2 = Val(Text3.Text)

Y2 = Val(Text4.Text)

Red = Val(Text5.Text): Green = Val(Text6.Text): Blue = Val(Text7.Text): Color = RGB(Red, Green, Blue)

Picture1.Line (X1, Y1)-(X2, Y2), Color

End Sub

'Прямоугольник

Private Sub Command4_Click()

X1 = Val(Text1.Text)

Y1 = Val(Text2.Text)

X2 = Val(Text4.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 Command5_Click()

X1 = Val(Text1.Text)

Y1 = Val(Text1.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 Command6_Click()

X1 = Val(Text1.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 Command7_Click()

Picture1.Cls

End Sub

Проект «Графический редактор»

Задание 1. Создать проект, который позволит рисовать линии, прямоугольники, окружности заданным цветом.

1. Запускаем редактор VB: Пуск>Все программы>MS Visual Basic 6.0
2. Появляется окно Новый Проект. На вкладке Новый выбираем Standart EXE
3. Опираясь на программный код, создайте графический интерфейс проекта, для этого разместите на форме Form1 необходимые элементы управления.
4. С помощью окна Параметры (свойства объекта) измените установленные по умолчанию значения свойств элементов управления.

• Выделите форму Form1 и измените значение свойства Caption на Графический редактор.

1. Измените цвет фона формы Form1 –  значение свойства BackColor.

В результате форма должна принять вид как на рисунке 1.

1. В окне Программного кода создать обработчик события для кнопки Линия:

Dim X1, X2, Y1, Y2 As Integer

Private Sub Command1_Click()

'Рисуем линию красного цвета.  Линия будет изображена после введения координат в поля X1, X2,Y1,Y2'

X1 = Text1.Text

X2 = Text2.Text

Y1 = Text3.Text

Y2 = Text4.Text

Picture1.Line (X1, Y1)-(X2, Y2), vbRed

End Sub

1. В окне Программного кода создать обработчик события для кнопки Окружность:

Private Sub Command2_Click()

'Рисуем окружность'

Picture1.Circle (1000, 500), 500, vbGreen

End Sub

1. В окне Программного кода создать обработчик события для кнопки Прямоугольник:

Private Sub Command3_Click()

'Рисуем прямоугольник'

Picture1.Line (1800, 2600)-(2600, 2800), vbGreen, B

End Sub

1. В окне Программного кода создать обработчик события для кнопки Закрашенный прямоугольник:

Private Sub Command4_Click()

'Рисуем закрашенный прямоугольник'

Picture1.Line (1080, 1000)-(2600, 2800), QBColor(12), BF

End Sub

1. В окне Программного кода создать обработчик события для кнопки Очистить:

Private Sub Command5_Click()

Picture1.Cls

End Sub

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

Проект «Создание графического интерфейса»

1. Запустить Visual Basic. Создать новый проект командой [File – New – Standart].

2. С помощью Панели инструментов на форму (Form1) разместить метку (Label1), текстовое поле (Text1) и командную кнопку (Command1).

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

4. Двойным щелчком по кнопке cmd1 вызвать окно Программный код с пустой процедурой cmd1_Click(). Ввести в процедуру метод Print.

frm1.Print “Первый проект на языке Visual Basic”

5. Ввести команду [Run – Start]. Появится окно приложения Первый проект.

Для выполнения событийной процедуры щёлкнуть по кнопке Метод Print.

6. Активизировать форму frm1. В окне Свойства объекта выбрать свойство Backcolor (цвет фона) и двойным щелчком открыть диалоговое окно с цветной палитрой. Выбрать цвет, например жёлтый.

7. Активизировать метку lbl1. В окне Свойства объекта установить значение свойств: Backcolor – зелёный, Forecolor (цвет надписи) – синий, Font – размер шрифта 18, Alignment (выравнивание) – center.

8. Активизировать текстовое поле txt1. В окне  Свойства объекта установить значения свойств:  , Forecolor (цвет надписи) – красный, Font – размер шрифта 14 и начертание курсивное, Alignment (выравнивание) – center.

9. Двойным щелчком по кнопке cmd1 вызвать окно Программный код. Ввести в процедуру cmd1_Click() строку

Font.Size = 12 .

10. После запуска проекта и щелчка по кнопке Метод Print получим новый вид графического интерфейса.

11. Сохранить файл командой [Save Form1.frm As…] как frmVB1.frm  и файл проекта командой [Save Project As …] как prjVB1.vbp.

Проект «Создание графического интерфейса»

1. Запустить Visual Basic. Создать новый проект командой [File – New – Standart].

2. С помощью Панели инструментов на форму (Form1) разместить метку (Label1), текстовое поле (Text1) и командную кнопку (Command1).

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

4. Двойным щелчком по кнопке cmd1 вызвать окно Программный код с пустой процедурой cmd1_Click(). Ввести в процедуру метод Print.

frm1.Print “Первый проект на языке Visual Basic”

5. Ввести команду [Run – Start]. Появится окно приложения Первый проект.

Для выполнения событийной процедуры щёлкнуть по кнопке Метод Print.

6. Активизировать форму frm1. В окне Свойства объекта выбрать свойство Backcolor (цвет фона) и двойным щелчком открыть диалоговое окно с цветной палитрой. Выбрать цвет, например жёлтый.

7. Активизировать метку lbl1. В окне Свойства объекта установить значение свойств: Backcolor – зелёный, Forecolor (цвет надписи) – синий, Font – размер шрифта 18, Alignment (выравнивание) – center.

8. Активизировать текстовое поле txt1. В окне  Свойства объекта установить значения свойств:  , Forecolor (цвет надписи) – красный, Font – размер шрифта 14 и начертание курсивное, Alignment (выравнивание) – center.

9. Двойным щелчком по кнопке cmd1 вызвать окно Программный код. Ввести в процедуру cmd1_Click() строку

Font.Size = 12 .

10. После запуска проекта и щелчка по кнопке Метод Print получим новый вид графического интерфейса.

11. Сохранить файл командой [Save Form1.frm As…] как frmVB1.frm  и файл проекта командой [Save Project As …] как prjVB1.vbp.

ЗАДАНИЯ К ПРОЕКТУ 9_10:

№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших со дня вашего рождения.

№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.

ЗАДАНИЯ К ПРОЕКТУ 9_10:

№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших со дня вашего рождения.

№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.

ЗАДАНИЯ К ПРОЕКТУ 9_10:

№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших со дня вашего рождения.

№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.

ЗАДАНИЯ К ПРОЕКТУ 9_10:

№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших со дня вашего рождения.

№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.

ЗАДАНИЯ К ПРОЕКТУ 9_10:

№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших со дня вашего рождения.

№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.

ЗАДАНИЯ К ПРОЕКТУ 9_10:

№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших со дня вашего рождения.

№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.

ЗАДАНИЯ К ПРОЕКТУ 9_10:

№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших со дня вашего рождения.

№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.

ЗАДАНИЯ К ПРОЕКТУ 9_10:

№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших со дня вашего рождения.

№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.

Движение тела под углом к горизонту

Dim G As Single

Dim Pi As Single

Dim V0, A, S, T, Y, L As Double, I As Integer

Private Sub Command1_Click()

G = 9.8

Pi = 3.14

V0 = Val(Text1.Text)

A = Val(Text2.Text)

S = Val(Text3.Text)

H = Val(Text4.Text)

L = S * Tan(A * Pi / 180) - (G * S ^ 2) / (2 * V0 ^ 2 * Cos(A * Pi / 180) ^ 2)

Text5.Text = L

Select Case L

Case Is < 0

Text6.Text = "Недолет!"

Case Is > H

Text6.Text = "Перелет!"

Case Else

Text6.Text = "Попадание!!!!"

End Select

Picture1.Scale (0, 10)-(40, -5)

For T = 0 To 40 Step 0.1

Y = V0 * Sin(A * Pi / 180) * T - G * T * T / 2

X = (V0 * Cos(A * Pi / 180) * T)

Picture1.PSet (X / 100, Y / 60)

Next T

'ось Х

Picture1.Line (0, 0)-(40, 0)

For I = 0 To 40 Step 5

Picture1.PSet (I, 0)

Picture1.Print I * 100

Next I

' ось У

Picture1.Line (0, -10)-(0, -20)

For I = -5 To 10 Step 5

Picture1.PSet (0, I)

Picture1.Print I * 50

Next I

'мишень

Picture1.Line (S / 100, 0)-(S / 100, H / 60)

End Sub

Программа DragDrop.

Проект 4 «Перевод чисел»

1. Создать новый проект. Разместить на форме три текстовых поля (txtDec, txtOct, txtHex) для ввода и вывода чисел, четыре кнопки(cmdDecOct, cmdDecHex,сmdOctDec,cmdHexDec) для создания событийных процедур, реализующих перевод чисел, и три метки (lblDec,  lblOct, lblHex) для вывода поясняющих надписей над текстовыми полями.

К вводимым в текстовые поля txtOct и txtHex в строковой форме числам добавим восьмеричную и шестнадцатеричную приставки “&O” и “&H” с помощью операции конкатенации строк. Полученное восьмеричное или шестнадцатеричное число в строковой форме переведём в десятичную числовую форму с помощью функции Val.

2. Ввести событийную процедуру cmdOctDec_Click(), реализующую перевод чисел из восьмеричной системы в десятичную:

Sub cmdOctDec_Click()

txtDec.Text=Val(“&O”+ txtOct.Text)

End Sub

3. Создать событийную процедуру cmdHextDec_Click(), реализующую перевод чисел из шестнадцатеричной системы в десятичную.

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

4. Создать событийную процедуру cmdDecHex_Click(), реализующую перевод чисел из десятичной системы в шестнадцатеричную:

Sub cmdDecHex_Click()

txtHex.Text= Hex(Val(txtDec.Text))

End Sub

5. Создать событийную процедуру cmdDecOct_Click(), реализующую перевод чисел з десятичной системы в восьмеричную.

6. Запустить проект. Для перевода десятичного числа в восьмеричную и шестнадцатеричную системы счисления ввести в левое текстовое поле десятичное число и последовательно щёлкнуть по кнопкам Dec-Oct и Dec-Hex.