- •Расчетно-графическая работа По дисциплине «информатика»
- •Оглавление
- •Введение
- •1.Mathcad.Решение систем уравнений.Поиск максимума и минимума функции
- •1.1.Mathcad.Основные сведения
- •1.1.2.Основные нововведения
- •1.2.Решение систем уравнений
- •1.2.Поиск максимума и минимума функции
- •2.Vba: элемент управления text box
- •2.2.Основные свойства элемента управления Textbox
- •2.3.Основные методы элемента управления Textbox
- •3 .3.Общий вид Главной формы “Изменение исходных данных”
- •3.3.1.Описание элементов управления, представленных на форме, их назначение и уникальные имена, используемые в процедурах
- •3.3.2.Описание функционирование формы (события) с приведением листинга соответствующих процедур Запуск формы осуществляется нажатием кнопки на рабочем листе ms Excel:
- •Инициализация формы:
- •Внесение изменений на смете:
- •Проверка внесенных данных:
- •Подсчёт итогов:
- •Запуск UserForm2:
- •3.4.2Описание функционирование формы (события) с приведением листинга соответствующих процедур Инициализация формы:
- •Изменение цвета Checkbox при выборе либо снятии флажка:
- •Построение диаграммы:
- •Выбор типа диаграммы:
- •Литература:
2.3.Основные методы элемента управления Textbox
AppendText- добавляет строку к содержимому текстового элемента управления. (Унаследовано от TextBoxBase.)
BeginChange- начинает блок изменений. (Унаследовано от TextBoxBase.)
Clear- удаляет из текстового поля все его содержимое.
Copy- копирует текущее выделение текста в элементе управления, поддерживающем редактирование текста, вClipboard. (Унаследовано от TextBoxBase.)
Cut-удаляет текущее выделение из элемента управления редактирования текста и копирует его в объектClipboard. (Унаследовано от TextBoxBase.)
Endchange- завершает блок изменений. (Унаследовано от TextBoxBase.)
Select- выбирает диапазон текста в текстовом поле.
Undo-отменяет последнюю команду отмены. Иными словами, отменяет последний блок отмены в стеке отмены.(Унаследовано от TextBoxBase.)
Findname- находит элемент по указанному имени идентификатора. (Унаследовано от FrameworkElement.)
Paste-вставляет текущее содержимое буфера обмена на место текущего выделения в элементе управления, поддерживающем редактирование текста. (Унаследовано от TextBoxBase.)
3. Строительная смета 3.1.Смета с отображением зависимых ячеек
3.2.Смета в режиме отображения формул
|
3 .3.Общий вид Главной формы “Изменение исходных данных”
3.3.1.Описание элементов управления, представленных на форме, их назначение и уникальные имена, используемые в процедурах
В данной форме мы использовали следующие элементы управления пользовательской формы: Label, CommandButton , TextBox, Spinbutton.
Label (надпись) используется для отображения надписей, например, заголовков элементов управления.
TextBox (поле) используется для ввода текста пользователем или для вывода в него результатов расчетов программ.
CommandButton (кнопка) используется для инициирования выполнения некоторых действий, вызываемых нажатием кнопки, например запуск программы или остановка ее выполнения, печать и т. д.
Spinbutton используется для ввода значений пользователем с помощью мыши с определённым шагом.
3.3.2.Описание функционирование формы (события) с приведением листинга соответствующих процедур Запуск формы осуществляется нажатием кнопки на рабочем листе ms Excel:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Инициализация формы:
С листа Excel считываются исходные данные и вносятся в соответствующие окна Textbox
Private Sub UserForm_Initialize()
TextBox1.Value = Worksheets(1).Cells(11, 6)
TextBox2.Value = Worksheets(1).Cells(14, 6)
TextBox3.Value = Worksheets(1).Cells(22, 6)
TextBox4.Value = Worksheets(1).Cells(25, 6)
TextBox5.Value = Worksheets(1).Cells(28, 6)
TextBox6.Value = Worksheets(1).Cells(31, 6)
TextBox7.Value = Worksheets(1).Cells(35, 6)
TextBox8.Value = Worksheets(1).Cells(39, 6)
На данном этапе нажать на кнопку Commandbutton3(Построить диаграмму) невозможно.
CommandButton3.Enabled = False
End Sub
Внесение изменений на смете:
Изменения вносятся при помощи элемента управления spinbutton,увеличаиваясь либо уменьшаясь на одну единицу при нажатии соответствующей стрелки
Private Sub SpinButton1_SpinUp()
TextBox1.Value = CStr(CDbl(TextBox1.Value) + 1)
End Sub
Private Sub SpinButton1_SpinDown()
TextBox1.Value = CStr(CDbl(TextBox1.Value) - 1)
End Sub
Private Sub SpinButton2_SpinUp()
TextBox2.Value = CStr(CDbl(TextBox2.Value) + 1)
End Sub
Private Sub SpinButton2_SpinDown()
TextBox2.Value = CStr(CDbl(TextBox2.Value) - 1)
End Sub
Private Sub SpinButton3_SpinUp()
TextBox3.Value = CStr(CDbl(TextBox3.Value) + 1)
End Sub
Private Sub SpinButton3_SpinDown()
TextBox3.Value = CStr(CDbl(TextBox3.Value) - 1)
End Sub
Private Sub SpinButton4_SpinUp()
TextBox4.Value = CStr(CDbl(TextBox4.Value) + 1)
End Sub
Private Sub SpinButton4_SpinDown()
TextBox4.Value = CStr(CDbl(TextBox4.Value) - 1)
End Sub
Private Sub SpinButton5_SpinUp()
TextBox5.Value = CStr(CDbl(TextBox5.Value) + 1)
End Sub
Private Sub SpinButton5_SpinDown()
TextBox5.Value = CStr(CDbl(TextBox5.Value) - 1)
End Sub
Private Sub SpinButton6_SpinUp()
TextBox6.Value = CStr(CDbl(TextBox6.Value) + 1)
End Sub
Private Sub SpinButton6_SpinDown()
TextBox6.Value = CStr(CDbl(TextBox6.Value) - 1)
End Sub
Private Sub SpinButton7_SpinUp()
TextBox7.Value = CStr(CDbl(TextBox7.Value) + 1)
End Sub
Private Sub SpinButton7_SpinDown()
TextBox7.Value = CStr(CDbl(TextBox7.Value) - 1)
End Sub
Private Sub SpinButton8_SpinUp()
TextBox8.Value = CStr(CDbl(TextBox8.Value) + 1)
End Sub
Private Sub SpinButton8_SpinDown()
TextBox8.Value = CStr(CDbl(TextBox8.Value) - 1)
End Sub