Скачать 1.89 Mb.
|
Label1 - метка; Label2 - метка; Labe3 - метка; Label4 — метка; Text 1 - текстовое окно; Text 2 - текстовое окно; Text 3 - текстовое окно; Text 4 - текстовое окно; Command1 - командная кнопка; Command2 - командная кнопка. Перенести на пустую форму эти элементы и уменьшить размеры формы до допустимо возможных, так как других компонент нет. 3. В работе следует использовать следующие свойства Properties: Label1 Caption = 'Случайное число А' LabeI 2 Caption = 'Случайное число В' Label 3 Caption = ' Результат' Label 4 Caption = ' Знак операции' Text1, Text2, Text3, Text4 Text = ' 0 ' Command1 Caption = 'Старт' Command 2 Caption = 'Финиш' Form1 Caption = 'Практическая работа № 2' 4. Набрать программный код в соответствии с приведенным ниже текстом Private Sub Command1_Click() ' Для командной кнопки «Старт»’ Dim а, b, с As Single, oper As String a = Rnd * 300: b = Rnd * 200 Text1.Text = Format(а, "###.#") Text2.Text = Format(b, "###.#") oper = InputBox ("Введите название операции", "Пример 2") If oper = "сложение" Then с = a + b Text4.Text = Format("+") End If If oper = "вычитание" Then с = a - b Text4.Text = Format("-") End If If oper = "умножение" Then с = a * b Text4.Text = Format("*") End If If oper = "деление" And b <> 0 Then с = a / b Text4.Text = Format("/") End If Text3.Text = Format(c, "######.####") 'Вывод результата End Sub Private Sub Command2_Click() ‘Для командной кнопки «Финиш»’ End End Sub 5. Запустите программу на выполнение: из меню Run/Start или клавишей F5. После запуска программы следует нажать кнопку «Старт», на экране появится окно с заголовком «Пример 2». Необходимо в текстовом поле набрать название операции и нажать кнопку «Старт». Повторите все сначала, нажав кнопку «Старт»: измените данные, введите название новой операции и т. д.
Практическое занятие №8 Вывод данных на форму Вывод результатов вычислений на форму при создании приложений. Оператор цикла. Преобразование данных строкового типа в числовые. Задание. Составить программу для построения таблицы значений а и b, если а = х+4.3, b = ах + 1.23 при изменении х в диапазоне [0, 5] с шагом h =0.5. Результат вычислений вывести в виде таблицы.
Label1 - метка; Command1 –командная кнопка; Command2 - командная кнопка. Перенести на пустую форму эти элементы и уменьшить размеры формы до допустимо возможных, так как других компонент нет.
Label1 Caption = ‘Группа, Ф.И.О. студента' Command1 Caption = 'Старт' Command2 Caption = 'Финиш' Form1 Caption = 'Практическая работа №3' 4. Набрать программный код в соответствии с приведенным ниже текстом Private Sub Command1_Click() Dim x0, xk, x, a, b, h As Single Dim i, n As Integer Rem Ввод данных в текстовое окно и преобразование их в числа x0, xk, h x0 = Val(InputBox("Ввести начальное значение х", "Пример 3")) xk = Val(InputBox("Ввести конечное значение xk", "Пример 3")) h = Val(InputBox("Ввести h - шаг изменения х", "Пример 3")) х = х0 Form1.Cls ' - Очистка формы Print: :Print " "; " х0="; x0, "xk="; xk, "h ="; h Print: :Print " "; " a", " b", " x": Print Rem - Выделение целой части числа n = Int((xk – x0) / h) Rem Определение количества данных, выводимых на форму For i=1 To n A=x+4.4:b=a*x+1.23 Print “ “;a,b,x X=x+h Next End Sub Private Sub Command2_Click() End End Sub
Практическое занятие №9 Вывод табличных данных Вывод результатов вычислений на нестандартные управляющие элементы при создании приложений. Оператор цикла. Задание. Составить программу для заполнения массива Тab(5,5) случайными, целыми числами в интервале [0÷150]. Результат вычислений вывести в виде таблицы Microsoft FlexGrid.
Label1 - метка; Command1 - командная кнопка; MS FlexGrid - таблица. Чтобы поместить элемент Microsoft Flex Grid на панель инструментов, необходимо в меню Project выбрать команду Components, в одноименном диалоге найти и отметить флажком элемент Microsoft Flex Grid Control 6.0 и нажать кнопку «Применить». Выбранный элемент появится на панели компонентов в виде значка. Перенести на пустую форму эти элементы и уменьшить размеры формы до допустимо возможных, так как других компонент нет. 3. В работе следует использовать следующие свойства Properties: Label1 Caption = Труппа, Ф.И.О. студентов' Command1 Caption = 'Заполнить таблицу' Form1 Caption = 'Практическая работа № 4' MS FlexGrid Rows = 6, Cols = 6
ption Explicit Private Sub Commandl_Click() Dim Tabl(5, 5), c, w As Integer ' w - столбцы, с - строки For w = 0 To 4 ‘ начало цикла по строкам 0 То 4 ‘ начало цикла по столбцам с) = Int(Rnd * 150) ' заполнение таблицы целыми ' случайными числами Next c Next w Rem назначение количества строк и столбцов на нестандартном элементе MSFlexGridl.Row = 6: MSFlexGrid1.Cols = 6 MSFlexGridl.Row =0 ‘нумерация столбцов на MSFlexGridl For с= 0 To 5 MSFlexGridl. Col = с MSFlexGridl.ColWidth(c) = 500 ‘ширина столбцов на MSFlexGridl MSFlexGridl.Text = с Next с MSFlexGridl.Col = 0 ‘нумерация строк на MSFlexGridl For w = 1 To 5 MSFlexGridl.Row = w MSFlexGridl.Text = w Next w Rem заполнение ячеек на MSFlexGridl элементами массива Tabl(5,5) For w = 1 To 5 For с = 1 To 5 MSFlexGridl.Col = с MSFlexGridl.Row = w MSFlexGridl.Text = Tabl(w - 1, с - 1) Next с Next w End Sub
Рис. 4.7. Результат работы программы 9. Задание. Измените данные, количество строк и столбцов, тип чисел, размеры ячеек и другие свойства элемента MSFlexGridl и повторите запуск программы. Практическое занятие №10 График функции Получение навыков программирования графических объектов и построения графиков функций. Задание. Составить программу для построения таблицы значений и графика функции у=1.2sinx при изменении х в диапазоне [-10, 10]. Результат вычислений вывести на форму в виде таблицы. 1. Запустите Visual Basic с помощью меню Window/Пуск/Программы. Если программа уже работает, то открыть новый проект Project. 2. Для создания приложения необходимо использовать следующие объекты управления: Lab el1 — метка; Command1 — командная кнопка; Command2 - командная кнопка; PictureBox1 - окно рисунка. Перенести на пустую форму эти элементы и уменьшить размеры формы до допустимо возможных, как показано на рис. 4.8. 3. В работе следует использовать следующие свойства Properties: Label1 Caption = Труппа, Ф.И.О. студентов' Command1 Caption = Трафик' Command2 Caption = 'Таблица' Form1 Caption = 'Практическая работа № 5" Рис. 4.8. Заготовка приложения 4. Набрать программный код в соответствии с приведенным ниже текстом Option Explicit Private Sub Command1_Click() Dim x As Single Form1.Cls Picture1.Visible = True Picture1.DrawWidth = 1: Picture1.DrawStyle = 0 Picture1.Scale (-12, 2)-(12, -2) Picture1.Line (-11, 0)-(ll, 0) Picture1.Line (0, 1.5)-(0, -1.5) For x = -10 To 10 Step 0.2 Picture1.DrawWidth = 4: Picture1.DrawStyle = 2 Picture1.PSet (x, 1.2 * Sin(x) - x ), RGB(0,0, 256) Next x End Sub Private Sub Coinmand2_Click () Dim x As Single Form1.Cls Picture1.Visible = False Print: Print " ", " x ", " Функция": Print For x = -10 To 10 Step 2.5 Print " ", x, 1.2 * Sin(x)-x Next x End Sub 5. Запустите программу на выполнение: из меню Run/Start или клавишей F5. После запуска программы пользователь, поочередно нажимая кнопки «График» 1 и «Таблица», получит соответственно в окне рисунка график функции или таблицу функции на форме. 6. Результат работы программы показан на рис. 7. Для завершения выполнения программы необходимо нажать значок «закрыть» на форме или выполнить команду Run/End. 8. Сохранить файл программы и файл формы с соответствующими расширениями .bas и .frm. 9. Задание. Измените функцию, выберите шаг, измените свойства линии (цвет и толщину) и повторите запуск приложения. Практическое занятие №11 Флажки. Таймер Получение навыков работы со стандартным диалоговым окном, таймером и флажками. Задание. Составить программу, которая выводит в текстовое окно время при установке флажка или показывает изображение — картинку, которую пользователь и процессе работы может изменить, если щелкнет по изображению указателем мыши.
Text1- текстовое окно; Check1- флажок; Check2 - флажок; Image1 - рисунок. Перенести на пустую форму эти элементы и уменьшить размеры формы до допустимо возможных. 3. В работе следует использовать следующие свойства Properties: Check1 Caption = 'Время' Oheck2 Caption = 'Рисунок' Form1 Caption = 'Часы' Image1 Stretch (растяжка) = ‘True' BorderStyle (стиль рамки) = 1 — Fixed Single (тонкая фиксированная) Picture (изображение) - выбрать изображение. Чтобы выбрать изображение, следует нажать кнопку с многоточием в диалоговом окне с заголовком Load Picture (загрузить рисунок). Найти «исходный рисунок», который будет загружаться автоматически при запуске программы. Полное название этого файла (например, С:\Мои документы\DBWlZ\cfd.gif) необходимо запомнить. Для облегчения просмотра графических файлов при работе программы можно использовать стандартное диалоговое окно выбора файлов - Microsoft Common Dialog. Чтобы поместить, элемент Microsoft Common Dialog на панель инструментов, необходимо в меню Project выбрать команду Components, в одноименном диалоге найти и отметить флажком элемент Microsoft Common Dialog Control 6.0 и нажать кнопку «Применить». Выбранный элемент появится на панели компонентов в виде значка. Для Common Dialog установить свойства: |
12 Достижения компьютерной техники 15 Программирование Программирование 3 | Программа по формированию навыков безопасного поведения на дорогах... Понятно, что программирование стержень профильного курса информатики. Но какова его роль и есть ли необходимость изучать программирование... | ||
Рабочая программа дисциплины оп. 08 Теория алгоритмов (с дополнениями... Специальность 09. 02. 03 «Программирование компьютерных систем» (базовая подготовка) | Основная образовательная программа среднего профессионального образования... Нормативные документы для разработки ооп спо по специальности 230115 Программирование в компьютерных системах | ||
«Динамическое Web-Программирование» Целью курса "Динамическое Web-Программирование" является изучение принципов разработки приложений, работающих в среде Интернет и... | Рабочая программа по дисциплине “алгоритмизация и программирование”... Алгоритмизация и программирование” составлена в соответствии с требованиями Государственного общеобразовательного стандарта высшего... | ||
Программа учебной дисциплины технические средства информатизации... Рабочая программа учебной дисциплины разработана на основе Федерального государственного образовательного стандарта (далее – фгос)... | Самостоятельная работа Методические указания к выполнению самостоятельной... Методические указания выполнению самостоятельной работы по курсу «Информатика» и «Информатика и программирование»: Авт сост Н. В.... | ||
Обзор цифровых образовательных ресурсов, рекомендованных Министерством... Программа предназначена для проведения квалификационных испытаний в рамках процедуры аттестации педагогических работников по должности... | Реферат по дисциплине «Информатика и программирование» | ||
Разработка урока по информатике с применением икт на тему «Программирование... ... | Программирование в среде логомиры «Убегающая кнопка» развивает у учеников первоначальные навыки работы с мышью | ||
Аннотация рабочих программ учебных дисциплин (модулей) специальности... | «икт в образовании» Рабочая программа дисциплины «Программирование» /сост. Хатаева Р. С.– Грозный: чгпи, 2012г | ||
Учебно-методический комплекс дисциплины «Информатика и программирование» Государственного образовательного учреждения высшего профессионального образования | Курсовая работа по дисциплине «Информатика и программирование» Кафедра «Программное обеспечение вычислительной техники и автоматизированных систем» |