Элективные курсы математика информатика Саратов 2005 удк 373 016




НазваниеЭлективные курсы математика информатика Саратов 2005 удк 373 016
страница19/19
Дата конвертации12.04.2013
Размер1.7 Mb.
ТипЭлективный курс
1   ...   11   12   13   14   15   16   17   18   19

Дополнительно


  • после ответа пользователя на последний вопрос, кнопка [Вопрос], заменяется на кнопку [Сохранить];

  • при нажатии на кнопку [Сохранить] – результат тестирования записывается в файл Resultat.txt.

  • появляется панель сообщений с сообщением о том, что сохранение прошло успешно, например, «Результат успешно сохранен».

  1. Создадим в БЛОКНОТЕ файл Voprosy.txt. Организуем его следующим образом: в первой строке 1-й вопрос, во второй – ответ на 1-й вопрос (0 или 1); в третьей строке 2-й вопрос, в четвертой – ответ на 2-й вопрос и т.д.

  2. Сохраним файл в папку будущего проекта.

  3. В качестве основы проекта воспользуемся программой из предыдущего упражнения.

  4. Добавим в оформление теста картинку.

  5. В процедуре Private Sub Form_Load() организуем загрузку вопросов в массив Vopr из файла:

Open "Vopr.txt" For Input As #1

For i = 1 To 10

Line Input #1, Vopr(i)

Input #1, Otv(i)

Next i

Close #1

  1. В процедуре Private Sub CmdVopr_Click() изменим количество вопросов на 10 и дополним условие окончания тестирования выводом результата в метку Label1

num = num + 1

If num > 10 Then

Text1.Text = ""

Label1.Caption = Str(sum) + " из 10"

CmdVopr.Visible = False

Text1.Enabled = False

Exit Sub

End If

  1. В процедуре Private Sub Opt_Click(Index As Integer) дополним условие проверки правильности ответа счетчиков правильных ответов Sum.
Дополнительно

  1. Чтобы кнопка [Вопрос] заменялась на кнопку [Сохранить], нужно разместить их одна над другой. И так как кнопка [Сохранить] большую часть времени не видна, установим для нее свойство Visible=False.

  2. Дополним процедуру Private Sub CmdVopr_Click() еще одной строкой: CmdSave.Visible = True – сделать видимой кнопку [Сохранить]

num = num + 1

If num > 10 Then

Text1.Text = ""

Label1.Caption = Str(sum) + " из 10"

CmdVopr.Visible = False

CmdSave.Visible = True

Text1.Enabled = False

Exit Sub

End If

  1. Добавим новую процедуру Private Sub CmdSave_Click()

Private Sub CmdSave_Click()

Open "Resultat.txt" For Output As #1

Print #1, Label1.Caption

Close #1

End Sub

  1. Для того чтобы после сохранения результата появлялась панель сообщений, добавим в конец процедуры Private Sub CmdSave_Click() оператор: MsgBox Результат успешно сохранен ”,64, “Информация”


2. Использование стандартного компонента Common Dialog Control 6.0 для открытия файла. Разработка главного меню приложения с использованием Menu Editor.

  1. Включим в панель инструментов компонент Common Dialog Control 6.0. Для этого выберем в меню:Project – Components..– Common Dialog Control 6.0

  2. Разместим на форме экземпляр класса Common Dialog, изменим его свойства: Name–dlgOpen; DialogTitle–“Загрузить вопросы ”; Filter – "Файл с вопросами"|*.txt|.

  3. Создадим меню приложения. Меню будет состоять из двух пунктов: «Файл» с подпунктами «Открыть» и «Сохранить», и «Выход».

  4. Выберите в меню VB: Tools – Menu Editor

  5. Создайте меню по образцу, задав Name для пункта «Файл»–mnuFile, для «Открыть»–mnuOpen, для «Сохранить»– mnuSave, для «Выход»–mnuExit:




  1. За основу приложения возьмем программу из предыдущего упражнения.

  2. Удалим в процедуре Private Sub Form_Load() строки, связанные с открытием файла.

  3. Создадим процедуру для объекта mnuOpen:

Private Sub mnuOpen_Click()

dlgOpen.ShowOpen ‘метод ShowOpen открывает стандартное диалоговое окно «Открыть..»

Open dlgOpen.FileName For Input As #1 dlgOpen.FileName– используется вместо имени файла

For i = 1 To 10

Line Input #1, Vopr(i)

Input #1, Otv(i)

Next i

Close #1

CmdVopr.Enabled = True

mnuOpen.Enabled = False

End Sub

  1. Создадим процедуру для объекта mnuSave:

Private Sub mnuSave_Click()

Open "Resultat.txt" For Output As #1

Print #1, Label1.Caption

Close #1

mnuSave.Enabled = False

End Sub

  1. Процедура для пункта «Выход»

Private Sub mnuExit_Click()

End

End Sub

Урок 12. Создание приложения «Графический редактор»1

Написать простейший графический редактор, позволяющий рисовать линии с помощью нажатия и перемещения левой кнопки мыши, а также стирать аналогичными действиями правой кнопки.

Дополнительно


Предусмотреть выбор цвета линии из палитры цветов в меню приложения.

Решение

Dim Risov As Boolean, Tol As Integer

Option Explicit


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Risov = True

CurrentX = X

CurrentY = Y

'Режим карандаш (нажата левая кнопка мыши)

Цвет черный, толщина 1

If Button = vbLeftButton Then

DrawWidth = 1

ForeColor = ClgColor.Color

End If

'Режим стерка (правая кнопка мыши)

If Button = vbRightButton Then

DrawWidth = 20

ForeColor = BackColor

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Рисование линии

If Risov = True Then Line -(X, Y)

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Risov = False

End Sub

Private Sub mnuPalet_Click()

ClgColor.ShowColor

End Sub

Урок 13. Работа с таймером 2

В языке Visual Basic существует возможность выполнения через одинаковые промежутки времени операций, которые не зависят от действий пользователя во время работы приложения. Для этого используется элемент управления Timer; основная область его применения - определение промежутка времени, в течение которого выполнялись определенные действия в приложении.

Следует отметить, что данный элемент не отображается на форме при работе программы.


Название

Описание

Enabled (СВОЙСТВО)

Позволяет таймеру начать отсчет (Enabled = True)

Interval (свойство)

Задает количество миллисекунд для интервала времени между событиями Timer для таймера

Timer (событие)

Выполняется каждый раз, по истечении очередного промежутка времени, заданного свойством Interval


Например, обновляясь созданная по форме часов, которые будут показывать текущее время, через каждую секунду, нужно на этапе разработки поместить таймер на форму, задать свойство Interval = 1000 (I секунда), а также предусмотреть объект для отображения времени. Как правило, с этой целью используется метка, у которой, при выполнении процедуры обработки события Timer для таймера, соответствующим образом изменяется значение свойства Caption.

Следует отметить тот факт, что существует несколько особенностей, связанных со свойством Interval, влияющих на обработку таймера:

  • значения, которые может принимать свойство Interval, находятся в диапазоне [0; 64767], т.е. событие Timer для таймера не может выполняться реже, чем 1 раз в 65 секунд;

  • несмотря на то, что Interval принимает значения, измеряемые в миллисекундах, реальная частота возникновения события Timer не может превышать 18 раз в секунду, т.к. именно с такой частотой система генерирует отсчеты (ticks) времени.

Создание приложения «Мишень»

Написать программу, в которой за короткий промежуток времени – 30 секунд – необходимо как можно больше раз щелкнуть указателем мыши по изображению мишени. Последняя, при очередном попадании перемещается в случайное место на форме.



Элемент

Свойство

Значение

Форма

(Name)

frmCel

Border Style

1 - Fixed Single

Caption

Мишень

Изображение

мишени

(Name)

imgCel

Picture

(Icon)

Таймер

(Name)

Timer1

Enabled

True

Interval

1000

Метка для секундомера

(Name)

LblTimer

Метка для подсказки

(Name)

Label2

Caption

"Количество:"

Метка для результата

(Name)

LblResult



Решение


Dim Num As Integer, CurrentTime As Integer

Option Explicit

Private Sub Form_Load()

Call Init

End Sub

Private Sub Init()

Инициализация


Num = 0: CurrentTime = 30: LblResult.Caption = "0"

LblTimer.Caption = CurrentTime

Call ShowCel

End Sub

Private Sub ShowCel()

Dim dx, dy As Integer

Randomize

dx = Int(Rnd * (ScaleWidth - ImgCel.Width))

Координата у смещена из-за меток вверху

dy = Int(Rnd * (ScaleHeight - ImgCel.Height - 600)) + 600

ImgCel.Move dx, dy

End Sub

Private Sub imgCel_click()

Num = Num + 1

LblResult = Num

Call ShowCel

End Sub

Private Sub Timer1_Timer()

Dim res

With Timer1

CurrentTime = CurrentTime - 1

LblTimer.Caption = CurrentTime

If CurrentTime = 0 Then

res = "Результат" + Str$(Num)

res = res + Chr(13) + Chr(10)

res = res + "Начать заново?"

res = MsgBox(res, vbQuestion + vbYesNo, "Мишень")

If res = vbNo Then End Else Call Init End If

End If

End With

End Sub


Учебное издание


Серия «Предпрофильная подготовка и

профильное обучение»


ЭЛЕКТИВНЫЕ КУРСЫ


МАТЕМАТИКА

ИНФОРМАТИКА


Ответственный за выпуск Губанова Е.В.


Корректор Баландина А.Ю.


Компьютерный набор, верстка Зарубина Н.Л.


Подписано в печать 20.04.05 г. формат 60х84 (1/16).

Усл. печ. л. 6,5. Гарнитура Times New Roman. Бумага писчая №1.

Печать офсетная. Тираж 250 экз.


ООО Издательство "Научная книга"

410054, г. Саратов, ул. Б. Садовая, д. 127









1 Глушаков С.В., Мельников В.В., Сурядный А.С. Программирование в среде Windows: Учебный курс – Харьков: Фолио, М.: АСТ, 2000–стр. 226-229.

2 Глушаков С.В., Мельников В.В., Сурядный А.С. Программирование в среде Windows: Учебный курс – Харьков: Фолио, М.: АСТ, 2000 – стр. 260-263.

1   ...   11   12   13   14   15   16   17   18   19

Похожие:

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconЭлективные курсы русский язык литература саратов 2008 удк 373 016
Рецензент: Волков А. А., заведующий кафедрой филологического образования гоу дпо «Сарипкипро»

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconГеография саратов 2007 удк 373 016
В настоящем сборнике представлены материалы победителей областного конкурса «Лучший элективный курс для предпрофильной подготовки...

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconМетодическое пособие для учителей. Саратов: Сарипкипро. 2004. Воробьев В. В., Саяхова Л. Г., Муллагалиева Н. Ш. Русский язык в диалоге культур. Элективные курсы в профильном обучении: Образовательная область «Филология»
Элективные курсы, рекомендованные для профильного обучения на 2010-2011 учебный год

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconМетодическое пособие для учителей. Саратов: Сарипкипро. 2004. Воробьев В. В., Саяхова Л. Г., Муллагалиева Н. Ш. Русский язык в диалоге культур. Элективные курсы в профильном обучении: Образовательная область «Филология»
Элективные курсы, рекомендованные для профильного обучения на 2010-2011 учебный год

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconПрофильное обучение классы d p о ф а москва 2005 удк 372. 853
Программы элективных курсов. Физика. 9—11 клас-П78 сы. Профильное обучение / сост. В. А. Коровин. — М.: Дрофа, 2005. 125, [3] с....

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconЭлективные курсы
П 84 Абдулова, Г. Х. Основы медицинских знаний: программа элективного курса. 10-11 классы (по 68 ч.)/Г. Х. Абдулова. //Профильное...

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconУчебного курса для общеобразовательных школ, лицеев и гимназий москва 2005 удк 373. 016: 271. 2
Б 83 А. В. Бородина история религиозной культуры: Программа учебного курса для общеобразовательных школ, лицеев, гимназий. Изд. 4-е,...

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconПрограмма элективного курса по экологии
Значительную роль в развитии обучающихся играют элективные курсы, выбираемые самими учащимися. Элективные курсы поддерживают и углубляют...

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconУчебное пособие Рекомендовано учебно-методическим советом угаэс уфа-2008 удк 681. 3 Ббк 65. 39 Х 24 Рецензенты: Хамидуллин Я. Н. д-р физ мат наук, профессор зав кафедрой «Информатика и математика»
«Информатика и математика» Уфимского института Российского государственного торгово-экономического университета

Элективные курсы математика информатика Саратов 2005 удк 373 016 iconУчебного курса для общеобразовательных школ, лицеев и гимназий москва 2007 удк 373. 016: 271. 2
Б 83 А. В. Бородина история религиозной культуры: Программа учебного курса для общеобразовательных школ, лицеев, гимназий. Изд. 4-е,...


Разместите кнопку на своём сайте:
lib.convdocs.org


База данных защищена авторским правом ©lib.convdocs.org 2012
обратиться к администрации
lib.convdocs.org
Главная страница