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

Юрьева Наталия Алексеевна

Проекты на языке объектно-ориентированного программирования Visual Basic 6.0

Скачать:


Предварительный просмотр:

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. https://lh6.googleusercontent.com/Vl13n8tmovK6aRbHMR_Iy3M0nwvF99yUI8dwSWeTPcTNmouDYJVlif9NkQU9hT2eqBNFmLmsLkygrAeByAFlVl_cx-8RgdHkKrmX34YG_I5S

  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. С помощью окна Свойства объекта изменить значения свойств формы и управляющих элементов согласно таблице:

Класс объектов

Свойство

Значение по умолчанию

Новое значение

Form (форма)

Name

Form1

frm1

Caption

Form1

Первый проект

Label (надпись)

Name

Label1

lbl1

Caption

Label1

Первый проект

TextBox

(текстовое поле)

Name

Text1

txt1

Caption

Text1

Первый проект

CommandButton

(командная кнопка)

Name

Command1

cmd1

Caption

Command1

Метод  Print

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. С помощью окна Свойства объекта изменить значения свойств формы и управляющих элементов согласно таблице:

Класс объектов

Свойство

Значение по умолчанию

Новое значение

Form (форма)

Name

Form1

frm1

Caption

Form1

Первый проект

Label (надпись)

Name

Label1

lbl1

Caption

Label1

Первый проект

TextBox

(текстовое поле)

Name

Text1

txt1

Caption

Text1

Первый проект

CommandButton

(командная кнопка)

Name

Command1

cmd1

Caption

Command1

Метод  Print

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.


По теме: методические разработки, презентации и конспекты

Работа над проектом "Английский язык вокруг нас"

Проект создан на основе учебной темы «Английский вокруг нас», в рамках которой учащиеся знакомятся со словообразовательными элементами, учатся работать со словарями разных видов. Работа над проектом п...

Исследовательский проект «Английский язык – визитная карточка современного человека»

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

Развитие навыков говорения на уроках-проектах английского языка

В данной статье отображены основные этапы проектной деятельности, а также краткое описание каждого их них. Также в данной статье я постаралась поэтапно раскрыть действия учителя и ученика....

Комплексный анализ текста по теме: «Глагол как часть речи. Группы глаголов по значению». Интегрированный урок-проект русского языка и литературы в 5 классе «На урок с К.Г.Паустовским» (по учебнику С.И.Львовой, В.В.Львова)

Проект практико-ориентированный, по характеру групповой, по времени – краткосрочный, по предметно-содержательной области – межпредметный (русский язык и  литература), связан с изучением творчеств...

Первый проект на языке Visual Basic

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

Методическая разработка по работе над проектом «Английский язык в мире»

Применение медода проектов на уроке английского языка.      Методическая разработка по работе над проектом «Английский язык в мире»...

Проект "Русский язык в пространстве Интернета"

Как использовать Интернет во благо? Предлагаю вариант подготовки к экзамену через пространство социальных сетей с внедрением проектной деятельности....