546894
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5.520 руб.;
- курсы повышения квалификации от 1.200 руб.
Престижные документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 70%

ВНИМАНИЕ: Скидка действует ТОЛЬКО сейчас!

(Лицензия на осуществление образовательной деятельности № 5201 выдана ООО "Инфоурок")

ИнфоурокИнформатикаДругие методич. материалыПрактическая работа при изучении графических возможностей ЯП VisualBasic (11 класс)

Практическая работа при изучении графических возможностей ЯП VisualBasic (11 класс)

Выберите документ из архива для просмотра:

Выбранный для просмотра документ Проект_Погода в мае.docx

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

Проект «Погода в мае»

Графический интерфейс

  1. Создайте графический интерфейс по образцу:

hello_html_1328b520.png

hello_html_m30379e3.png

  1. Для выделения на форме области графика загрузите соответствующий компонент: ProjectComponents → вкладка Control → выбрать Microsoft Chart Control.

hello_html_m3581745c.pnghello_html_m3231df1c.png

  1. На панели инструментов появиться новый объект

hello_html_m3d8812a1.png

  1. Выбрать его и выделить на форме область расположения графика.

hello_html_26166932.png

  1. Выберите тип диаграммы – график: свойство Chart Type = 3.

Программа

Программные блоки

Примечание

  1. Заполнение списков дат и температур при загрузке формы:

Private Sub Form_Load()

Randomize

For i = 0 To 9

List1.List(i) = (i + 1) & " мая "

List2.List(i) = CStr(5 + Int(Rnd * 15))

Next i

MSChart1.Visible = False

End Sub

Randomize – запускает генератор случайных чисел


& (and) - присоединяет к числу (i+1) слово “мая”


CStr() – преобразует число в строковую (символьную) величину, т.к. поле List является текстовым


Свойство Visible = False объекта MSChart1 делает график изначально невидимым при запуске программы

  1. Нахождение и вывод максимальной температуры и ее даты по нажатию кнопки Статистика (Command1):

nmax = 0

For i = 1 To 9

t = Val(List2.List(i))

tmax = Val(List2.List(nmax))

If t > tmax Then nmax = i

Next i

Label3.Caption = "Максимальная t= " & List2.List(nmax) & " градусов наблюдалась " & nmax + 1 & " мая"


nmax – номер максимального элемента


tmax – максимальное значение температуры

  1. Нахождение и вывод минимальной температуры и ее даты

Разработать самостоятельно

  1. Расчет средней температуры

s = 0

For i = 0 To 9

t = Val(List2.List(i))

s = s + t

Next i

sred = s / 10

Label7.Caption = "Средняя t= " & sred & " градусов "


s – сумма температур


t – значения температур из списка (List2)


sred – среднее значение температуры

  1. Построение графика распределения температур по нажатию клавиши График (Command2):

Dim d(0 To 9, 1 To 2) As Variant

Private Sub Command2_Click()

For i = 0 To 9

d(i, 1) = List1.List(i)

d(i, 2) = Val(List2.List(i))

Next i

MSChart1.ChartData = d

MSChart1.TitleText = "График температур"

MSChart1.Visible = True

End Sub


d – двумерный массив из 10 строк и 2 столбцов:

1-й столбец содержит элементы из списка 1 (даты),

2-й столбец содержит элементы из списка 2 (значения температуры).


Тип Variant означает, что элементы 1-го столбца воспринимаются как подписи по оси Х на графике, а элементы 2-го столбца являются данными для построения самого графика.


Свойство Visible = True объекта MSChart1 делает график видимым



Выбранный для просмотра документ Проект_Погода в мае.ppt

библиотека
материалов
Проект «Погода в мае» Обработка списков. Визуализация данных
Графический интерфейс
1. Разместите на форме указанные объекты для размещения исходных данных и выв...
2. Для выделения на форме области графика загрузите соответствующий компонент...
Для выделения на форме области графика загрузите соответствующий компонент: P...
3. На панели инструментов появиться новый объект MSChart
4. Выбрать его и выделить на форме область расположения графика. 5. Выбрать т...
Программа Заполнение списков дат и температур при загрузке формы (Form_Load()...
1. Заполнение списков дат и температур при загрузке формы Программные блоки	П...
2. Нахождение и вывод максимальной температуры и ее даты по нажатию кнопки Ст...
3. Нахождение и вывод минимальной температуры и ее даты
4. Расчет средней температуры Программные блоки	Примечание s = 0 For i = 0 To...
5. Построение графика по нажатию клавиши График (Command2): Программные блоки...
6. Проект готов. Сохранить файл с расширением .ехе (File → Make…exe…). 7. Зап...

Описание презентации по отдельным слайдам:

1 слайд Проект «Погода в мае» Обработка списков. Визуализация данных
Описание слайда:

Проект «Погода в мае» Обработка списков. Визуализация данных

2 слайд Графический интерфейс
Описание слайда:

Графический интерфейс

3 слайд 1. Разместите на форме указанные объекты для размещения исходных данных и выв
Описание слайда:

1. Разместите на форме указанные объекты для размещения исходных данных и вывода результатов статистической обработки

4 слайд 2. Для выделения на форме области графика загрузите соответствующий компонент
Описание слайда:

2. Для выделения на форме области графика загрузите соответствующий компонент (Microsoft Chart Control), в результате чего на панели инструментов появится новый объект - MSChart.

5 слайд
Описание слайда:

6 слайд Для выделения на форме области графика загрузите соответствующий компонент: P
Описание слайда:

Для выделения на форме области графика загрузите соответствующий компонент: Project → Components → вкладка Control → выбрать Microsoft Chart Control.

7 слайд 3. На панели инструментов появиться новый объект MSChart
Описание слайда:

3. На панели инструментов появиться новый объект MSChart

8 слайд 4. Выбрать его и выделить на форме область расположения графика. 5. Выбрать т
Описание слайда:

4. Выбрать его и выделить на форме область расположения графика. 5. Выбрать тип диаграммы – график: свойство Chart Type = 3.

9 слайд Программа Заполнение списков дат и температур при загрузке формы (Form_Load()
Описание слайда:

Программа Заполнение списков дат и температур при загрузке формы (Form_Load()). Нахождение и вывод максимальной температуры и ее даты. Нахождение и вывод минимальной температуры и ее даты. Расчет средней температуры. Построение графика распределения температур по нажатию клавиши График (Command2_Click()). по нажатию клавиши Статистика (Command1_Click())

10 слайд 1. Заполнение списков дат и температур при загрузке формы Программные блоки	П
Описание слайда:

1. Заполнение списков дат и температур при загрузке формы Программные блоки Примечание Private Sub Form_Load() Randomize For i = 0 To 9 List1.List(i) = (i + 1) & " мая " List2.List(i) = CStr(5 + Int(Rnd * 15)) Next i MSChart1.Visible = False End Sub Randomize – запускает ГСЧ & (and) - присоединяет к числу (i+1) слово “мая” CStr() – преобразует число в строковую величину Свойство Visible = False объекта MSChart1 делает график изначально невидимым при запуске программы

11 слайд 2. Нахождение и вывод максимальной температуры и ее даты по нажатию кнопки Ст
Описание слайда:

2. Нахождение и вывод максимальной температуры и ее даты по нажатию кнопки Статистика Программные блоки Примечание nmax = 0 For i = 1 To 9 t = Val(List2.List(i)) tmax = Val(List2.List(nmax)) If t > tmax Then nmax = i Next i Label3.Caption = "Максимальная t= " & List2.List(nmax) & " градусов наблюдалась " & nmax + 1 & " мая" nmax – номер максимального элемента tmax – максимальное значение температуры

12 слайд 3. Нахождение и вывод минимальной температуры и ее даты
Описание слайда:

3. Нахождение и вывод минимальной температуры и ее даты

13 слайд 4. Расчет средней температуры Программные блоки	Примечание s = 0 For i = 0 To
Описание слайда:

4. Расчет средней температуры Программные блоки Примечание s = 0 For i = 0 To 9 t = Val(List2.List(i)) s = s + t Next i sred = s / 10 Label7.Caption = "Средняя t= " & sred & " градусов " s – сумма температур t – значения температур из списка (List2) sred – среднее значение температуры

14 слайд 5. Построение графика по нажатию клавиши График (Command2): Программные блоки
Описание слайда:

5. Построение графика по нажатию клавиши График (Command2): Программные блоки Примечание Dim d(0 To 9, 1 To 2) As Variant Private Sub Command2_Click() For i = 0 To 9 d(i, 1) = List1.List(i) d(i, 2) = Val(List2.List(i)) Next i MSChart1.ChartData = d MSChart1.TitleText = "График температур" MSChart1.Visible = True End Sub d – двумерный массив : 1-й столбец содержит элементы из списка 1, 2-й столбец содержит элементы из списка 2. Тип Variant означает, что элементы 1-го столбца воспринимаются как подписи по оси Х на графике, а элементы 2-го столбца являются данными для построения самого графика.

15 слайд 6. Проект готов. Сохранить файл с расширением .ехе (File → Make…exe…). 7. Зап
Описание слайда:

6. Проект готов. Сохранить файл с расширением .ехе (File → Make…exe…). 7. Запустить файл с расширением .ехе на исполнение.

Общая информация

Номер материала: ДБ-132060

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс «1С: Предприятие 7.7»
Курс «3D Studio MAX»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Онлайн-конференция Идет регистрация