«Программирование в среде Visual Basic»

Вид материала

Лабораторная работа

Содержание Последовательность выполнения работы

Подобный материал:

• Тематическое планирование учебного времени раздела «Введение в программирование» (15, 68.18kb.
• Н. Г. Волчёнков программирование на visual basic 6 Учебное пособие, 128.99kb.
• Краткий курс по изучению языка программирования Visual Basic, 357.37kb.
• Даний курс призначений для тих, хто: ніколи не програмував, але хоче навчитися, 360.9kb.
• Тема урока: Массивы в Visual Basic, 35.5kb.
• Учебное пособие Рекомендовано учебно-методическим советом угаэс уфа-2006, 1339.31kb.
• Язык Visual Basic имеет разнообразные средства визуализации разрабатываемых приложений., 41.17kb.
• Опис модуля назва модуля: Visual Basic для додатків. Код модуля, 40.19kb.
• Myreferatik at ua, 109.55kb.
• Visual Basic Основы работы с базами данных, 1336.88kb.

Последовательность выполнения работы

1. Запустите редактор Visual Basic 6.
   
2. Откройте (если нет) окно Проекта, окно Свойств, окно Программы (или Кода) и окно Отладки.
   
3. Ознакомьтесь с командной строкой. Ознакомьтесь с панелью инструментов.
   
4. Создайте проект для расчета арифметического выражения y = sinx²+cos²x для x=2 .
   
5. В появившемся окне Формы добавте элементы управления. С панели Элементов управления (если ее нет , то включите с помощью ) перетащите на форму следующие элементы: два элемента Надпись (Label), два элемента Поле (TextBox), два элемента Кнопка (CommandButton).
   
6. Измените названия элементов. Окно Свойств  Caption новое имя
   

   Элемент	Свойство	Значение
   Form1	Caption	Решение уравнения
   Label1	Caption	X
   Label2	Caption	Y
   Text1	Text	Пусто
   Text2	Text	Пусто
   Command1	Caption	Вычислить
   Command2	Caption	Выход

7. Назначте кнопкам процедуры-события. Кнопке Вычислить процедуру-событие запуска программы расчета, для этого дважды щелкнуть на элементе и ввести текст программы
   

Private Sub Command1_Click()

x% = Text1.Text

y! = Sin(x% 2)+Cos(x%) 2

Text2.Text = y! ' Можно и так Label1.Caption = y

End Sub


Кнопке Выход - Оканчание работы с формой.

Private Sub Command2_Click()

End

End Sub

8. Запустите форму на выполнение. Запуск (Run)  (П.И.)
   

9. Сохраните проект. Предварительно создайте папку с названием группы, в ней папку с вашей фамилией , а в ней файл с именем Lab1-1.
   
10. Измените код для кнопки Вычислить следующим образом:
    

Private Sub Command1_Click()

Dim x As Integer, y As Single :Rem Описание типов данных

x = Text1.Text

y = Sin(x 2) + Cos(x) 2

Text2.Text = y

Debug.Print y ' Вывод в окно Отладки

End Sub

11. Запустите на выполнение, дополнительно вывод результата появляется в окне Отладки.
    
12. Измените код для кнопки Вычислить следующим образом, чтобы данные вводились и выводились в диалоговых окнах:
    

Private Sub Command1_Click()

Dim x As Integer, y As Single

x=Val(InputBox("Введите значение x", "Окно ввода данных"))

x = Text1.Text

y = Sin(x 2)+Cos(x) 2

Text2.Text = y

Debug.Print y

MsgBox "Проверка", vbInformation, "Окно сообщения"

MsgBox "x=" & x & Chr(13) & "y=" & y, , "Окно вывода"

End Sub

13. Запустить на выполнение.
    

14. Сохраните проект. Завершите работу.
    

Лабораторная работа № 1

Тема "Программы линейной структуры".

Цель: приобретение навыков создания программ вычислений простых арифметических выражений, изучение типов данных, функциий их ввода и вывода и способов их описания.

Изучить:

• Типы данных и их объявление (операторы Dim, Option Explicit) ,
  
• арифметические действия в языке,
  
• математические функции языка,
  
• функции ввода и вывода данных (InputBox, MsgBox),
  
• конструкцию вывода (Debug.Print),
  
• функции преобразования: кода символа в символ Chr(код), цифровых строк в числа Val(), числа в строку Str().
  
• Элементы формы (Надпись (Label), Поле (TextBox), Кнопка (CommandButton));
  
• свойства элементов формы (Name, Caption, Text);
  
• метод Show; событие Click.