4. Лабораторная работа № 2 Ввод, вывод данных. Использование нескольких форм в приложении

Цельданной работыознакомиться с приемами ввода и вывода данных вVisualBasic; разработать интерфейс пользователя, состоящий из нескольких форм, и код линейной программы.

Задание: разработать проект, состоящий из трех формэкранной заставкиForm1, формы ввода исходных данныхForm2 и формы выходного документаForm3. Исходные данные: сведения о номере цеха, шифре и наименовании материала, плане выпуска изделий и потребности в материале для изготовления одного изделия. Необходимо определить потребности цеха в материалах для выпуска планируемого количества изделий.

Проектирование формы заставки связано с размещением на ней текста задания в элементе управленияLabel1 и помещении на форму таймераTimer1. По истечении 3 секунд заставка убирается с экрана методомHide, и пользователю предоставляется интерфейс для ввода исходных данныхForm2.

Ввод наименования материалавыполняется в текстовое окно (Text5)набором с клавиатуры. Для вводашифра материалаиномера цехаиспользованы счетчикиUpDown1 иUpDown2. Значенияплана выпускаизделийипотребностив материалеобеспечивают линейки прокруткиVScroll1 иVScroll2.

На форме размещена кнопка Command1, щелчок по которой запускает процедуру обработки событияCommand1_Click(). В процедуре организована пересылка части исходных данных в выходной документ, выполнение требуемых вычислений и их отображение на формеForm3, адресация к элементам которой требует указания полного имени, например,Form3.Text3.Text. ФункцииVal() иStr() позволяют преобразовать данные строкового типа в числовой и из числового в строковый.

Щелчки по навигационным кнопкам счетчиков и линеек прокрутки формируют события Change, в процедурах обработки которого организовано отображение значения свойстваValueв соответствующих текстовых окнах.

Рис. 11. Интерфейс пользователя (Form1)

Таблица свойств формы (Form1) и элементов управления.

Таблица 7.

Объект	Свойство	Значение
Form	Name	Form1
	Backcolor	&H00000000&(чёрный)
	Caption	Lab.2
	Forecolor	&H80000012&(чёрный)
	Font	MS Sans Serif
	WindowState	2 - Maximized
Label	Name	Label1
	Alignment	2 - Center
	Backcolor	&H00FF80FF&(сиреневый)
	Caption	Вычисление требуемого количества материала
	Forecolor	&H0000FFFF&(жёлтый)
	Font	Comic Sans MS
Timer	Name	Timer1
	Enabled	True
	Interval	3000

Программный код

Private Sub Timer1_Timer()

Form1.Hide

Form2.Show

Timer1.Enabled = False

End Sub

Бумага

Рис. 12. Интерфейс пользователя (Form2)

Таблица свойств формы (Form2) и элементов управления.

Таблица 8.

Объект	Свойство	Значение
1	2	3
Form	Name	Form2
	Backcolor	&H00FF80FF&(сиреневый)
	Caption	Lab.2
	Forecolor	&H00FF80FF&(сиреневый)
	Font	MS Sans Serif
	WindowState	2 – Maximized
Label	Name	Label1
	Alignment	2 – Center
	Backcolor	&H00FF80FF&(сиреневый)
	Caption	Введите данные о материале
	Forecolor	&H0000FFFF&(жёлтый)
	Font	Comic Sans MS
Label	Name	Label2-Label6
	Alignment	2 – Center
	Backcolor	&H0000FFFF&(жёлтый)
	Caption	Шифр, номер цеха, план выпуска,…
	Forecolor	&H00FF80FF&(сиреневый)
	Font	Comic Sans MS
TextBox	Name	Text1-Text5
	Alignment	0 – Left Justify
	Backcolor	&H0000FFFF&(жёлтый)
	Forecolor	&H00FF00FF&(сиреневый)
	Font	MS Sans Serif
	Text	‘окна ввода и отображения исходных данных
UpDown	Name	UpDown1
	Dragmode	0 – vbManual
	Max	20
	Min	0
UpDown	Name	UpDown2
	Dragmode	0 – vbManual
	Max	10
	Min	0
VscrollBar	Name	Vscroll1
	Dragmode	0 – vbManual
	LargeChange	1
	Max	20000
	Min	0
	SmallChange	1
1	2	3
VScrollBar	Name	VScroll2
	Dragmode	0 - vbManual
	LargeChange	1
	Max	500
	Min	0
	SmallChange	1

Программный код

Private Sub Command1_Click()

DimKolAsSingle‘потребность в материале на все изделия

DimVipAsLong‘план выпуска изделий

DimPotrAsLong‘потребность в материале на 1 изделие

Form3.Text1.Text = Text5.Text ‘наименование материала

Form3.Text2.Text = Text1.Text ‘шифр материала

Vip= Val(Text3.Text)

Potr = Val(Text4.Text)

Kol = Vip * Potr

Form3.Text3.Text = Str(Kol)

Form2.Hide‘скрыть форму Form2

Form3.Show‘показать форму Form3

End Sub

Private Sub UpDown1_Change()

Text1.Text = UpDown1.Value

End Sub

Private Sub UpDown2_Change()

Text2.Text = UpDown2.Value

End Sub

Private Sub VScroll1_Change()

Text3.Text = VScroll1.Value

End Sub

Private Sub VScroll2_Change()

Text4.Text = VScroll2.Value

End Sub

Пояснения к форме Form2.Чтобы включить элемент управленияUpDownв Окно Элементов Управления, следует выбрать команду менюProject/Components. Откроется диалоговое окноComponents. В нем следует выбрать группу элементов управленияMicrosoftWindowsCommonControls-2 6.0. Нажать кнопкуOK. ЭУUpDownпоявится в Окне Элементов Управления, после чего с ним можно работать как с обычным элементом управления, т.е. расположить на форме и задать требуемые свойства.

Бумага

Рис. 13. Интерфейс пользователя (Form3)

Таблица свойств формы (Form3) и элементов управления.

Таблица 9.

Объект	Свойство	Значение
1	2	3
Form	Name	Form3
	Backcolor	&H00FF80FF&(сиреневый)
	Caption	Lab.2
	Forecolor	&H80000012&(чёрный)
	Font	MS Sans Serif
	WindowState	2 – Maximized
Label	Name	Label1 Label3
	Aligment	2 – Center
	Backcolor	&H0000FFFF&(жёлтый)
	Caption	Наименование,шифр,колич
	Forecolor	&H00FF00FF&(сиреневый)
	Font	Comic Sans MS
TextBox	Name	Text1 Text3
	Aligment	0 – Left Justify
	Backcolor	&H0000FFFF&(жёлтый)
	Forecolor	&H00FF00FF&(сиреневый)
	Font	MS Sans Serif
	Text	‘окна вывода результатов

1	2	3
CommandButton	Name	Command1
	BackColor	&H8000000F&(серый)
	Caption	Вернуться назад
	DragMode	0 - Manual
	Font	Comic Sans MS
CommandButton	Name	Command2
	BackColor	&H8000000F&(серый)
	Caption	Выход
	DragMode	0 - Manual
	Font	Comic Sans MS

Программный код

Private Sub Command1_Click()

Form3.Hide

Form2.Show

End Sub

Private Sub Command2_Click()

End

End Sub