Пояснительная записка Элективный курс «Базы данных шаг к успеху» предназначен для предпрофильной подготовки учащихся 9-х классов общеобразовательной школы. Концепция программы

Скачать 0.73 Mb.

Название	Пояснительная записка Элективный курс «Базы данных шаг к успеху» предназначен для предпрофильной подготовки учащихся 9-х классов общеобразовательной школы. Концепция программы
страница	9/9
Дата публикации	09.10.2014
Размер	0.73 Mb.
Тип	Пояснительная записка

100-bal.ru > Информатика > Пояснительная записка

1 2 3 4 5 6 7 8 9

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

после ответа пользователя на последний вопрос, кнопка [Вопрос], заменяется на кнопку [Сохранить];
при нажатии на кнопку [Сохранить] – результат тестирования записывается в файл Resultat.txt.
появляется панель сообщений с сообщением о том, что сохранение прошло успешно, например, «Результат успешно сохранен».

Создадим в БЛОКНОТЕ файл Voprosy.txt. Организуем его следующим образом: в первой строке 1-й вопрос, во второй – ответ на 1-й вопрос (0 или 1); в третьей строке 2-й вопрос, в четвертой – ответ на 2-й вопрос и т.д.
Сохраним файл в папку будущего проекта.
В качестве основы проекта воспользуемся программой из предыдущего упражнения.
Добавим в оформление теста картинку.
В процедуре 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

В процедуре 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

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

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

Чтобы кнопка [Вопрос] заменялась на кнопку [Сохранить], нужно разместить их одна над другой. И так как кнопка [Сохранить] большую часть времени не видна, установим для нее свойство Visible=False.
Дополним процедуру 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

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

Private Sub CmdSave_Click()

Open "Resultat.txt" For Output As #1

Print #1, Label1.Caption

Close #1

End Sub

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

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

Включим в панель инструментов компонент Common Dialog Control 6.0. Для этого выберем в меню:Project – Components..– Common Dialog Control 6.0
Разместим на форме экземпляр класса Common Dialog, изменим его свойства: Name–dlgOpen; DialogTitle–“Загрузить вопросы ”; Filter – "Файл с вопросами"|*.txt|.
Создадим меню приложения. Меню будет состоять из двух пунктов: «Файл» с подпунктами «Открыть» и «Сохранить», и «Выход».
Выберите в меню VB: Tools – Menu Editor
Создайте меню по образцу, задав Name для пункта «Файл»–mnuFile, для «Открыть»–mnuOpen, для «Сохранить»– mnuSave, для «Выход»–mnuExit:

За основу приложения возьмем программу из предыдущего упражнения.
Удалим в процедуре Private Sub Form_Load() строки, связанные с открытием файла.
Создадим процедуру для объекта 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

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

Private Sub mnuSave_Click()

Open "Resultat.txt" For Output As #1

Print #1, Label1.Caption

Close #1

mnuSave.Enabled = False

End Sub

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

Private Sub mnuExit_Click()

End

End Sub

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

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

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

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

Решение

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. Работа с таймером ^²

В языке 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

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

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

1 2 3 4 5 6 7 8 9

Похожие:

	Программа элективного курса Пояснительная записка. Элективный курс «индикаторы» Элективный курс «индикаторы» предназначен для предпрофильной подготовки учащихся 9-х классов. На изучение данного курса отводится...		Пояснительная записка. Элективный курс «Свидание с французской песней»... Использование «песенных материалов» на занятиях в качестве методически обоснованного комплекса упражнений при овладении различными...
	Элективный курс «Some Pages of British History» (From ancient time... Элективный курс предназначен для учащихся 9 классов, как курс по выбору в рамках предпрофильной подготовки		Пояснительная записка Тема занятия «Я познаю мир» Элективный курс для предпрофильной подготовки учащихся основной школы “ Museen in Deutschland.”
	Пояснительная записка Данный элективный курс составлен на основе... Элективный курс предназначен для учащихся 9 классов и является предметно-ориентированным. Данный курс относится к типу элективных...		Элективный курс по физике «Элементы биофизики»» Автор : Лимонов Н.... Элективный курс предназначен для учащихся 9 классов общеобразовательных учреждений. Курс основан на знаниях и умениях, полученных...
	Им. И. С. Черных г. Томска Элективный курс «Художественная обработка материала» (Цветы из ткани) – курс ранней предпрофильной ориентации для обучающихся 8 классов...		Пояснительная записка Элективный курс «Милая Франция» предназначен для учащихся 8-11 классов, не изучающих французский язык в качестве основного
	Элективный курс предпрофильной подготовки учащихся 9 классов общеобразовательных учреждений Россия, Челябинская область, Челябинская область, г. Еманжелинск, учитель истории и обществознания муниципального бюджетного общеобразовательного...		Элективный курс «Задачи с параметром» Элективный курс предназначен для реализации в 11классе общеобразовательной школы
	Программа элективного курса «Химия и здоровье» Элективный курс предназначен для учащихся 9-х классов на этапе предпрофильной подготовки. Целью курса является формирование мотивации...		Элективный курс "Немецкая литература: ее вчера и сегодня" Белянина... Курс «Немецкая литература: эпохи, произведения» предназначен в качестве элективного курса учащимся 10 класса в рамках предпрофильной...
	Элективный курс для предпрофильной подготовки учащихся основной школы " Museen in Deutschland." Элективный курс для предпрофильной подготовки учащихся основной школы “ Museen in Deutschland.”		Пояснительная записка. За душу каждого математика борются демон абстрактной... Элективный курс «Теория графов» (в рамках предпрофильной подготовки учащихся 9 класса)
	Программа по формированию навыков безопасного поведения на дорогах... Занимательная физика. Элективный курс для учащихся 9-х классов в рамках Программы предпрофильной подготовки		Образовательная программа Элективный курс для предпрофильной подготовки учащихся основной школы “ Museen in Deutschland.”

Школьные материалы