Logo GenDocs.ru

Поиск по сайту:  

Загрузка...

Используя Visual Basic создать приложение MoveModificationLabel, которое перемещает и модифицирует текстовую метку в пределах формы - файл 1.doc


Используя Visual Basic создать приложение MoveModificationLabel, которое перемещает и модифицирует текстовую метку в пределах формы
скачать (180 kb.)

Доступные файлы (1):

1.doc180kb.26.11.2011 01:02скачать

содержание

1.doc


Министерство образования Российской Федерации


Кузбасский государственный технический университет


Кафедра информационных и автоматизированных

производственных систем
Пояснительная записка
к курсовой работе по курсу “Информатика”
ВЫПОЛНИЛ: ст.гр. ИТ – 022

Евстигнеев В.С.

ПРОВЕРИЛ:

Преслер В. Т.


Кемерово 2003


Оглавление:

1.Условие задачи. 3

2.Список переменных. 4

3. Текстовый алгоритм. 5

4. Графический алгоритм 6

5. Программный алгоритм. 7

6. Контрольный пример. 11

7. Инструкция пользователю. 13

8. Список литературы. 14




^





1.Условие задачи.


Приложение MoveModificationLabel. Перемещает и модифицирует текстовую метку в пределах формы. Перемещение производится по горизонтали на заданный шаг с регулярностью, регламентируемой значением свойства Interval объекта Timer, и состоит в постепенном наращивании ширины и высоты метки. При этом увеличивается размер шрифта текста метки и изменяется его цвет. После достижения меткой правого края формы реализуется обратный процесс до приведения метки в исходное состояние. Исходное состояние метки – левый верхний угол формы. Значение свойства Interval, шаги перемещения и наращивания размеров метки задаются на форме. Процесс запускается по кнопке пуск, на которой впоследствии размещается счетчик числа перемещений, наращивающий свое значение при движении вправо и уменьшающий это значение при движении влево. После прихода метки в исходное состояние восстанавливается текст кнопки. На этапе разработки в заголовок формы помещается название приложения и ФИО студента, а на этапе работы добавляется текущее время.



^




2.Список переменных.


i,x,w,H-целочисленные переменные, использующиеся для ввода переменных.
^

3. Текстовый алгоритм.





  1. Начало программы.

  2. Ввод интервала, шага перемещения, шага по длине и ширине.

  3. Проверка на преобразование введённых данных в числовой формат.

  4. Присваиваем свойству Interval объекта Timer интервал введённый ранее.

  5. Запуск программы.

  6. Конец программы.

^

4. Графический алгоритм






5. Программный алгоритм.



Dim i As Integer

Dim x As Integer

Dim w As Integer

Dim H As Integer
Private Sub Command1_Click()

Dim Msg As String

If Text1.Text <> " " Then

If IsNumeric(Text1.Text) Then

i = CDbl(Text1.Text)

Else

Msg = "Не число"

Msg = Msg & "Введи число"

MsgBox Msg, vbExclamation, "Ошибка ввода"

Text1.SetFocus

End If

Else

Msg = "Пусто"

Msg = Msg & "Введи число"

MsgBox Msg, vbExclamation, "Ошибка ввода"

Text1.SetFocus

End If


If Text2.Text <> " " Then

If IsNumeric(Text2.Text) Then

x = CDbl(Text2.Text)

Else

Msg = "Не число"

Msg = Msg & "Введи число"

MsgBox Msg, vbExclamation, "Ошибка ввода"

Text2.SetFocus

End If

Else

Msg = "Пусто"

Msg = Msg & "Введи число"

MsgBox Msg, vbExclamation, "Ошибка ввода"

Text2.SetFocus

End If
If Text3.Text <> " " Then

If IsNumeric(Text3.Text) Then


w = CDbl(Text3.Text)

Else

Msg = "Не число"

Msg = Msg & "Введи число"

MsgBox Msg, vbExclamation, "Ошибка ввода"

Text3.SetFocus

End If

Else

Msg = "Пусто"

Msg = Msg & "Введи число"

MsgBox Msg, vbExclamation, "Ошибка ввода"

Text3.SetFocus

End If
If Text4.Text <> " " Then

If IsNumeric(Text4.Text) Then

H = CDbl(Text4.Text)

Else

Msg = "Не число"

Msg = Msg & "Введи число"

MsgBox Msg, vbExclamation, "Ошибка ввода"

Text4.SetFocus

End If

Else

Msg = "Пусто"

Msg = Msg & "Введи число"

MsgBox Msg, vbExclamation, "Ошибка ввода"

Text4.SetFocus

End If
If x + w > Shape1.Width - Label1.Width Then

Msg = "Выход за границу"

MsgBox Msg, vbExclamation, "Ошибка"

Else

If H > Shape1.Height Then

Msg = "Выход за границу"

MsgBox Msg, vbExclamation, "Ошибка"

Else

Label1.Visible = True

Timer1.Interval = i

Label6.Caption = "0"

End If

End If

End Sub





Private Sub Command2_Click()

End

End Sub
Private Sub Form_Load()

Form1.Tag = 1

End Sub
Private Sub Timer1_Timer()

Dim arr(1 To 10) As Integer

arr(1) = 8

arr(2) = 9

arr(3) = 10

arr(4) = 11

arr(5) = 12

arr(6) = 14

arr(7) = 16

arr(8) = 18

arr(9) = 20

arr(10) = 22

Dim ara(1 To 10) As Double

ara(1) = &HFF&

ara(2) = &HC0C0FF

ara(3) = &HFFFF&

ara(4) = &HFF00&

ara(5) = &HFFFF00

ara(6) = &HFF0000

ara(7) = &HFF00FF

ara(8) = &H80&

ara(9) = &H8080&

ara(10) = &H8000&

If CInt(Label6.Caption) = 0 Then

If (Label1.Left + Label1.Width <= Shape1.Left + Shape1.Width - w - H) Then

If (Label1.Top + Label1.Height <= Shape1.Top + Shape1.Height - H) Then

Label1.Left = Label1.Left + x

Label1.Width = Label1.Width + w

Label1.Height = Label1.Height + H

Label1.Font.Size = arr(Form1.Tag)

Label1.ForeColor = ara(Form1.Tag)

Form1.Tag = Form1.Tag + 0.01

Round (Form1.Tag)

If Form1.Tag > 10 Then Form1.Tag = 1

Else

Label1.Left = Label1.Left - x

Label1.Width = Label1.Width - w

Label1.Height = Label1.Height - H




Label6.Caption = "2"

Label1.Font.Size = arr(Form1.Tag)

Label1.ForeColor = ara(Form1.Tag)

Form1.Tag = Form1.Tag - 0.01

Round (Form1.Tag)

If Form1.Tag < 1 Then Form1.Tag = 10

End If

Else

Label1.Left = Label1.Left - x

Label1.Width = Label1.Width - w

Label1.Height = Label1.Height - H

Label6.Caption = "2"

Label1.Font.Size = arr(Form1.Tag)

Label1.ForeColor = ara(Form1.Tag)

Form1.Tag = Form1.Tag - 0.01

Round (Form1.Tag)

If Form1.Tag < 1 Then Form1.Tag = 10

End If

Else

If (Label1.Left - x >= Shape1.Left) Then

Label1.Left = Label1.Left - x

Label1.Width = Label1.Width - w

Label1.Height = Label1.Height - H

Label1.Font.Size = arr(Form1.Tag)

Label1.ForeColor = ara(Form1.Tag)

Form1.Tag = Form1.Tag - 0.01

Round (Form1.Tag)

If Form1.Tag < 1 Then Form1.Tag = 10

Else

Timer1.Interval = 0

End If

End If

End Sub
Private Sub Timer2_Timer()

Dim f As Date

f = Time

Form1.Caption = "MoveModificationLabel Евстигнеев В.С. " & f
End Sub
^

6. Контрольный пример.











^

7. Инструкция пользователю.


В начале программы нужно ввести нужные данные (интервал, шаг перемещения,

шаг по W, шаг по H). Если данные верны то можно запускать программу с помощью

кнопки Пуск. Иначе будет выскакивать ошибка о неверном вводе данных.

После того как программа будет выполнена можно вновь её запустить либо выйти

из неё при помощи кнопки Выход

^

8. Список литературы.





  1. Семакин И.Г., Шестаков А.П.”Основы программирования”. - М.: Мастерство; НМЦ СПО; Высшая школа, 2001. – 423 с.

  2. 1998 by Microsoft Corporation, перевод на русский язык “БХВ – Санкт – Петербург”,1998. “Visual Basic 6.0”.

  3. Глушаков С.В., Сурядный А.С. “Программирование на Visual Basic 6.0”.-М.:

издательство Фолио, 2003.-117 с.


Скачать файл (180 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации