Статьи
затрат
|
Сумма,
грн
|
Примечания
|
1.Материалы
|
71
|
Таблица
3.6
|
2.Затрары
на оплату труда младшего специалиста
|
315,50
|
|
3.Отлчисления
на социальные мероприятиях
|
118,13
|
37%
от п.2
|
4.Электроэнергия
|
0,48
|
|
5.Накладные
расходы
|
126,2
|
40%
от п.2
|
Всего:
|
631,31
|
|
Расчет затрат
Расчет затрат материалов, необходимых для
тиражирования методических указаний к обучающей программе приведен в таблице 6.
Таблица 6 Расчет затрат материалов.
Наименование
материалов
|
Единицы
измерения
|
Количество
|
Цена
за единицу, грн
|
Сумма,
грн
|
1.Диски
для ПК
|
Шт
|
120
|
2,50
|
300
|
Итого:
|
300
|
Затраты на электроэнергию рассчитываются по
формуле (3.1)
=0,25*12*0,16=0,48 грн.
Учебный эффект
Основным эффектом в обучающей программе «Система
линейных уравнений» есть ускоренное и эффективное обучение с программным
комплексом СЛУ, который предназначен для изучения учащимися всех
общеобразовательных учреждений в кабинете информатики. Он позволит быстро и
качественно научится работать с современными технологиями в математики.
Охрана труда
Общая характеристика рабочего места
Вопросы охраны труда будут рассматриваться для
учебного заведения УИПА, конкретно, для рабочего места в 213 аудитории, 4-ого
корпуса. В данной аудитории проходят занятия по следующим предметам:
«Исследование операций», «Компьютерное документоведение», «Программирование»,
«Компьютерные технологии в управлении и обучении», «Автоматизированные системы
организационного управления» и др.
В оснащение рабочих мест входит рабочий стол
студента, на котором находится компьютер, рабочий стол преподавателя с
компьютером, доска, шкаф для вещей. Рабочее место рассчитано на одного
человека.
Краткая характеристика помещения:
Площадь = 48 м2
Объем = 27 м3
Освещение:
естественное: боковое, одностороннее
искусственное: общее, равномерное
Вентиляция: функционируют воздуховодные каналы,
наличие двух функционирующих кондиционеров БК2000, естественная вентиляция:
инфильтрация и проветривание.
Отопление: централизованное, водяное.
Вредные факторы, присутствующие на рабочем
месте:
запыленность воздуха рабочей зоны;
повышенная или пониженная температура воздуха
рабочей зоны;
повышенный уровень шума, электромагнитных
излучений;
пониженная влажность воздуха, повышенная
ионизация;
статические перегрузки, умственное
перенапряжение, перенапряжение органов чувств, монотонность труда,
эмоциональные перегрузки (в процессе сдачи экзамена, зачета, в летний период).
Город Харьков находится в 4-м световом поясе в
зоне с неустойчивым снежным покровом.
Размером объектом расчета является толщина линии
приблизительно 0,2 мм.
Согласно СНиП ІІ-4-79 характеристика зрительной
работы - высокой точности, характеристика световой контраст объект различения с
фоном - подразряд зрительной работы - Г
В помещении осуществляется боковое естественное
освещение
Значение КЕО для Харькова
еІV = еІІІ с*m
где с = 0.9 - Коэффициент светового пояса.= 0.75
- Коэффициент солнечности климата для восприятия ориентирования окон.
Значения коэффициентов взяли из СНиП ІІ-4-79.
В аудитории постоянно используется искусственное
общее освещение
Источник света - ЛМ лампы.
Требуемое значение освещенности согласно
характеристики зрительной работы Ен = 300 ЛК.
Произведем расчет искусственного освещения в
аудитории 213 4-го корпуса методом коэффициентов использования по методичке
приведенной в таблице [7].
Дано:
|
Принятые
обозначения:
|
Высота
рабочей поверхности Толщина объекта различения Освещаемая площадь Высота
помещения Длина помещения Ширина помещения Заданная минимальная освещенность.
Коэффициент запаса Коэффициент использования светового потока в долях единицы
|
hр = 0,8 м
d = 0,3 мм
S = 48 м2
H = 4,5 м
A = 8 м B = 6 м E=
300 лк k=1.5 = 0,84
|
Для данного помещения можно выбрать
люминесцентные лампы т.к. высота помещения не превышает 6-ти метров.
В зависимости от выполняемых работ для данного
помещения
Выбрали [Таблица 3, 1]:=1.5 , E= 300 лк
По условиям окружающей среды подобрали
светильник ЛСП02 [1].
Выбранный светильник имеет кривую
светораспределения типа Д-2, для которой =
0,96 [Табл. 7, 2].
Значения коэффициентов отражения стен и потолка
[Табл. 3, 2]:пот=70% Sстен=50% Sр=10%
Принимаем hс=0.
Определим:
= H - hр - hс = 4,5 - 0 - 0,8 = 3,7 м
Расстояние между соседними светильниками
определим по формуле:
= h*
= 3.2*0.96 = 3.6 м
Для определения табличного значения коэффициента
использования светового потока находится индекс
помещения i :
i = =
=
48/59.2 = 0,81
Выбираем из таблицы 2 [2]
=0.84
Определим число светильников расположенных вдоль
помещения:
х*(L+1.5) = 9
*(3.6+1.5) = 9*5.1 = 9= 8/5.1 = 2 шт
Определим число светильников расположенных по
ширине помещения:
*L = 7
*3.6 = 7= 6/3.6 = 2 шт
Определим количество светильников:
в= x*y = 2*2 = 4 шт
При расчете по методу коэффициента использования
потребный световой поток ламп в каждом светильнике Ф находится по формуле:
Ф=
Е=k*S*z / N**Ф
Ф=7071,42
Ф = Ф/2 = 7071,42/2 = 3535,71 лк
Выбираем из приложения 7 [2] лампу типа ЛТБ
мощностью 80Вт со стандартным световым потоком: Фст = 4440 лн.
Для аудитории 213 необходимо установить 4
светильника с люминесцентными лампами по 2 шт. в каждом мощностью 80Вт типа ЛТБ
в соответствии со схемой 3.
Схема 3. Расположение люминесцентных ламп в
аудитории 213.
Заключение
Продуманная методика обучения, разработанная
специально для компьютерного обучения, огромный объем тщательнейшим образом
подобранного материала и интеллектуальные средства контроля в совокупности
создают все предпосылки для эффективного обучения.
Благодаря системе видеообучения Вы можете быстро
и с интересом .пройти курс предназначен для использования как одним
пользователем, так и группой. Таким образом, курс пригоден как для
самоподготовки, так и для систем дистанционного обучения.
Уникальная пошаговая интерактивная обучающая
программа поможет легко и быстро научиться пользоваться программой Системой
линейных уравнений.
В мультимедийном пособии «Знакомство с системой
решения систем линейных уравнений» Учащемся предложено выполнить 17 упражнение,
которые объединены в 8 уроков: в конце каждого упражнения учащегося ожидает
промежуточное обучение принципу «Выбери правильный ответ». По результатам
тестирования выставляется оценка, а также даются рекомендации - идти дальше или
повторить пройденный урок.
Поняв, для чего предназначена СЛУ, учащийся
научится редактировать и форматировать задания, добавлять их в тетрадь и решать
самые сложные системы с помощью эксперта, зарегистрироваться, а также получить знания
с теории. Под чутким руководством мультимедийного пособия учащийся поймет какая
б не была сложная СЛУ программа с задачей справится.
Курс предназначен для использования как одним
пользователем, так и группой. Таким образом, курс пригоден как для самоподготовки,
так и для систем Дистанционного Обучения.
Программа поможет учащимся общеобразовательных
учреждений получать умения знания и навыки в решении математических любого
уровня. Т.к. программа одобрена министерством образования и науки Украины я надеюсь
моя обучающая программа пригодится для освоения СЛУ.
Список литературы
Дипломное
проектирование. Методические указания по экономическому обоснованию дипломных
проектов для студентов дневной и заочной формы обучения специальностей
7.0110101, 7.01010405, 7.01010429, 7.092203, 7.091401. - Харьков, УИПА, 1998.
Методичні
вказівки з економічного обґрунтування дипломних проектів для студентів
електромеханічного факультету. - Харків, УІПА, 2003 - 40 стор.
Методические
указания по выполнению раздела «Охрана труда и окружающей среды» в дипломных
проектах (специальности: 7.090601, 7.090603, 7.090501, 7.090503, 7.050201,
7.092201, 7.01010101).
Указания
по выполнению методической части дипломного проекта специальности 7.01010101. -
Харьков, УИПА, 1996.
Методические
Указания к Бакалаврскому проекту Харьков, УИПА, 1996.Basic 6.0 Издательство
Питер - С.П. 2004 680 стр.
СНИП
II - 4 - 79 Естественное и искусственное освещение.
Методические
указания по расчету искусственного освещения промышленных помещений в разделе «Охрана
труда и окружающей среды» - Грицай А.К., Головченко Г.Т. - 1986 г.
Методические
указания по дипломному проектированию. Раздел «Охрана труда» для инженерных и
инженерно- педагогических специальностей \ сост. Смирнитская
М.Б.
Харьков:
УИПА
2005-20 ст.
Приложение А
Sub Form_MouseMove(Button As
Integer, Shift As Integer, x As Single, y As Single).ForeColor =
vbBlue.ForeColor = vbBlue.ForeColor = vbBlue.ForeColor = vbBlue.ForeColor =
vbBlueSubSub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single,
y As Single).ForeColor = vbGreenSubSub Label2_MouseMove(Button As Integer,
Shift As Integer, x As Single, y As Single).ForeColor = vbGreenSubSub
Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As
Single).ForeColor = vbGreenSubSub Label5_MouseMove(Button As Integer, Shift As
Integer, x As Single, y As Single).ForeColor = vbGreenSubSub
Label6_MouseMove(Button As Integer, Shift As Integer, x As Single, y As
Single).ForeColor = vbGreenSub
Форма 9Sub
Label2_Click().Show.MediaPlayer1.FileName =
"D:/1/clip0010.avi".MediaPlayer2.FileName =
"D:/2/1.wav".ForeColor = vbRedSubSub
Label3_Click().Show.MediaPlayer1.FileName =
"D:/1/clip0008.avi".MediaPlayer2.FileName =
"D:/2/regum.wav".ForeColor = vbRedSubSub
Label4_Click().Show.MediaPlayer1.FileName = "D:/1/робоче
мысце
учня.avi".MediaPlayer2.FileName
= "D:/2/zowut.wav".ForeColor = vbRedSubSub
Label5_Click().Show.MediaPlayer1.FileName =
"D:/1/clip0010.avi".MediaPlayer2.FileName =
"D:/2/zowut.wav".ForeColor = vbRedSubSub Label6_Click().Show.MediaPlayer1.FileName
= "D:/1/Регистрация.avi".ForeColor
= vbRedSubSub Label7_Click().Show.MediaPlayer1.FileName =
"D:/1/k.avi".MediaPlayer2.FileName =
"D:/2/generator.wav".ForeColor = vbRedSub
ф4Sub
Command1_Click().ShowSubSub Form_Load()SubSub Label1_Click().ShowSub
литSub
Command1_Click(Index As Integer).ShowMeSubSub Command3_Click()
Лит.ShowSubSub
Form_Load().Text = ""SubSub Command2_Click().ShowSubSub
Label1_Click(Index As Integer)App.Path & "\Text\1.txt" For Input
As #1#1, a1
Лит.Text1.Text
= a1#1(1).ForeColor = vbRedSubSub Label10_Click()App.Path &
"\Text\4.txt" For Input As #1#1, a1
Лит.Text1.Text
= a1#1.ForeColor = vbRedSubSub Label11_Click().ShowSubSub Label2_Click(Index As
Integer)App.Path & "\Text\2.txt" For Input As #1#1, a1
Лит.Text1.Text
= a1#1(1).ForeColor = vbRedSubSub Label3_Click(Index As Integer)App.Path &
"\Text\3.txt" For Input As #1#1, a1
Лит.Text1.Text
= a1#1(1).ForeColor = vbRedSubSub Label4_Click(Index As Integer)App.Path &
"\Text\4.txt" For Input As #1#1, a1
Лит.Text1.Text
= a1#1(1).ForeColor = vbRedSubSub Label5_Click(Index As Integer)App.Path &
"\Text\7.txt" For Input As #1#1, a1
Лит.Text1.Text
= a1#1(1).ForeColor = vbRedSubSub Label6_Click(Index As Integer)App.Path &
"\Text\6.txt" For Input As #1#1, a1
Лит.Text1.Text
= a1#1(1).ForeColor = vbRedSubSub Label7_Click()App.Path &
"\Text\8.txt" For Input As #1#1, a1
Лит.Text1.Text
= a1#1.ForeColor = vbRedSubSub Label8_Click()App.Path &
"\Text\5.txt" For Input As #1#1, a1
Лит.Text1.Text
= a1#1.ForeColor = vbRedSubSub Label9_Click()App.Path &
"\Text\9.txt" For Input As #1#1, a1
Лит.Text1.Text
= a1#1.ForeColor = vbRedSub
ф тестирn
As Integermark As Integerx As Integerk As IntegerSub
Command1_Click()Option2.Value = True Then"Ответ
Верен"
n = n + 1"Ответ неверен"
k = k + 1If.Visible = TrueSubSub
Command2_Click()Option5.Value = True Then"Ответ
Верен"
n = n + 1"Ответ неверен"
k = k + 1If.Visible = TrueSubSub
Command3_Click()Option8.Value = True Then"Ответ
Верен"
n = n + 1"Ответ неверен"
k = k + 1If.Visible = TrueSubSub
Command4_Click()Option10.Value = True Then"Ответ
Верен"
n = n + 1"Ответ неверен"
k = k + 1If.Visible = TrueSubSub
Command5_Click()Option14.Value = True Then"Ответ
Верен"
n = n + 1"Ответ неверен"
k = k + 1If.Visible = TrueSubSub
Command6_Click()Option17.Value = True Then"Ответ
Верен"
n = n + 1"Ответ неверен"
k = k + 1If.Visible = TrueSubSub
Command7_Click()Option20.Value = True Then"Ответ
Верен"
n = n + 1"Ответ неверен"
k = k + 1If.Visible = True
st = "Правильных ответов - " + Str(n)
+ Chr(10) + Chr(13) + "Неправильных ответов - " + Str(k)
x = MsgBox(st, vbInformation, "РЕЗУЛЬТАТ")=
Int(n * (5 / 3))= MsgBox(Str(mark), vbInformation, "ОЦЕНКА")SubSub
Command8_Click()
Лит.ShowSubSub
Command9_Click()= 0= 0SubSub tomain_Click().Show.Hide= 0= 0.Visible =
False.Visible = False.Visible = False.Visible = False.Visible = False.Visible =
False.Visible = TrueSub
ф поискSub
cmd_clear__Click().ClearSubSub cmd_clear_Click()_txt.ClearSubSub
cmdsearch_con_Click()o(1 To 10) As Stringc(1 To 10) As Stringm As Integerl As
Integerk As Stringword As Stringword1 As Stringogl As String.Clear(1) = Лит.Label1(1).Caption(2)
= Лит.Label2(1).Caption(3)
= Лит.Label3(1).Caption(4)
= Лит.Label4(1).Caption(5)
= Лит.Label5(1).Caption(6)
= Лит.Label6(1).Caption(7)
= Лит.Label7.Caption(8)
= Лит.Label8.Caption(9)
= Лит.Label9.Caption(10)
= Лит.Label10.Caption(1)
= "1.txt"(2) = "2.txt"(3) = "3.txt"(4) =
"4.txt"(5) = "5.txt"(6) = "6.txt"(7) =
"7.txt"(8) = "8.txt"(9) = "9.txt"(10) =
"10.txt"Flag As Booleanflag1 As Boolean=
LCase(Trim(txtsearch_con.Text))= UCase(Trim(txtsearch_con.Text))l = 1 To 10=
App.Path & "\Text\" + o(l)= Falsek For Input As #1While Not
EOF(1)Input #1, a= c(l)= FalseInStr(a, word) > 0 Then= TrueIfFlag = True
Then.AddItem ogl#1k For Input As #1While Not EOF(1)#1, a1
Лит.Text1.Text
= a1
Лит.ShowIf#1l_con.SetFocus_con.SelStart
= 0_con.SelLength = Len(txtsearch_con)SubSub cmdsearch_ogl_Click()c(1 To 10) As
Stringl As Integerword1 As Stringword2 As Stringogl_ As Stringogl1 As
String_txt.Clear(1) = Лит.Label1(1).Caption(2)
= Лит.Label2(1).Caption(3)
= Лит.Label3(1).Caption(4)
= Лит.Label4(1).Caption(5)
= Лит.Label5(1).Caption(6)
= Лит.Label6(1).Caption(7)
= Лит.Label7.Caption(8)
= Лит.Label8.Caption(9)
= Лит.Label9.Caption(10)
= Лит.Label10.Caption=
LCase(Trim(txtsearch_ogl.Text))= LCase(Trim(txtsearch_ogl.Text))l = 1 To 10_ =
LCase(Trim(c(l)))= c(l)InStr(ogl_, word1) > 0 Or InStr(ogl_, word2) > 0
Then_txt.AddItem ogl1Ifl.Showl = 1 To 10ogl_txt.Text = c(l) Then
'frmmain.lbltext1.ForeColor =
vbWhiteIfl_ogl.SetFocus_ogl.SelStart = 0_ogl.SelLength = Len(txtsearch_ogl)SubSub
cmdshow__Click()x(1 To 10) As Stringq(1 To 10) As Stringa As String
Лит.Label1(1).Visible
= False
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= False
Лит.Text1.Text
= ""(1) = Лит.Label1(1).Caption(2)
= Лит.Label2(1).Caption(3)
= Лит.Label3(1).Caption(4)
= Лит.Label4(1).Caption(5)
= Лит.Label5(1).Caption(6)
= Лит.Label6(1).Caption(7)
= Лит.Label7.Caption(8)
= Лит.Label8.Caption(9)
= Лит.Label9.Caption(10)
= Лит.Label10.Captioncon.SelCount
Then= con.TextIfl = 1 To 10a = x(l) Then
Лит.Show
'frmmain.shapetext.Visible = True(1)
= Лит.Label1(1)x(l)
= q(1) Then
Лит.Label1(1).Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= False
If(2) = Лит.Label2(1)x(l)
= q(2) Then
Лит.Label1(1).Visible
= False
Лит.Label2(1).Visible
= True
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(3) = Лит.Label3(1)x(l)
= q(3) Then
Лит.Label1(1).Visible
= False
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= True
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(4) = Лит.Label4(1)x(l)
= q(4) Then
Лит.Label1(1).Visible
= False
Лит.Label4(1).Visible
= True
Лит.Label3(1).Visible
= False
Лит.Label2(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= False
If(5) = Лит.Label5(1)x(l)
= q(5) Then
Лит.Label1(1).Visible
= False
Лит.Label5(1).Visible
= True
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label2(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(6) = Лит.Label6(1)x(l)
= q(6) Then
Лит.Label1(1).Visible
= False
Лит.Label6(1).Visible
= True
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label2(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(7) = Лит.Label7x(l)
= q(7) Then
Лит.Label1(1).Visible
= False
Лит.Label7.Visible
= True
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label2(1).Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(8) = Лит.Label8x(l)
= q(8) Then
Лит.Label1(1).Visible
= False
Лит.Label8.Visible
= True
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label2(1).Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(9) = Лит.Label9x(l)
= q(9) Then
Лит.Label1(1).Visible
= False
Лит.Label9.Visible
= True
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label2(1).Visible
= False
Лит.Label10.Visible
= FalseIf(10) = Лит.Label10x(l)
= q(10) Then
Лит.Label1(1).Visible
= False
Лит.Label10.Visible
= True
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label2(1).Visible
= FalseIfIflSub
Sub cmdshow_Click()x(1 To 10) As
Stringq(1 To 10) As Stringa As String
Лит.Label1(1).Visible
= False
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= False
Лит.Text1.Text
= ""(1) = Лит.Label1(1).Caption(2)
= Лит.Label2(1).Caption(3)
= Лит.Label3(1).Caption(4)
= Лит.Label4(1).Caption(5)
= Лит.Label5(1).Caption(6)
= Лит.Label6(1).Caption(7)
= Лит.Label7.Caption(8)
= Лит.Label8.Caption(9)
= Лит.Label9.Caption(10)
= Лит.Label10.Captionogl_txt.SelCount
Then= ogl_txt.TextIfl = 1 To 10a = x(l) Then
Лит.Show
'frmmain.shapetext.Visible = True(1)
= Лит.Label1(1)x(l)
= q(1) Then
Лит.Label1(1).Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= False
If(2) = Лит.Label2(1)x(l)
= q(2) Then
Лит.Label2(1).Visible
= True
Лит.Label1(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(3) = Лит.Label3(1)x(l)
= q(3) Then
Лит.Label3(1).Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label1(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(4) = Лит.Label4(1)x(l)
= q(4) Then
Лит.Label4(1).Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label1(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(5) = Лит.Label5(1)x(l)
= q(5) Then
Лит.Label5(1).Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label1(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(6) = Лит.Label6(1)x(l)
= q(6) Then
Лит.Label6(1).Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label1(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(7) = Лит.Label7x(l)
= q(7) Then
Лит.Label7.Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label1(1).Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(8) = Лит.Label8x(l)
= q(8) Then
Лит.Label8.Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label1(1).Visible
= False
Лит.Label9.Visible
= False
Лит.Label10.Visible
= FalseIf(9) = Лит.Label9x(l)
= q(9) Then
Лит.Label9.Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label1(1).Visible
= False
Лит.Label10.Visible
= FalseIf(10) = Лит.Label10x(l)
= q(10) Then
Лит.Label10.Visible
= True
Лит.Label2(1).Visible
= False
Лит.Label3(1).Visible
= False
Лит.Label4(1).Visible
= False
Лит.Label5(1).Visible
= False
Лит.Label6(1).Visible
= False
Лит.Label7.Visible
= False
Лит.Label8.Visible
= False
Лит.Label9.Visible
= False
Лит.Label1(1).Visible
= FalseIfIflSubSub Command1_Click().ShowMeSubSub Command2_Click()
Лит.ShowMeSubSub
Form_Load()Sub
ф 7 о
автореfW
As Integer, fH As Integer ' ширина
и
высота
картинкиx
As Integer, y As IntegerSub Command1_Click().Show
HideSub
' инициализация формы
Private Sub
Form_Initialize().Visible = False.AutoSize = True.Picture = LoadPicture(CurDir
+ "\6.bmp")= Picture2.Width= Picture2.Height.Width = Form1.Width +
Picture2.Width - Picture1.Width.Width = Picture2.Width= 0= 0.Interval =
50.Enabled = True
End Sub
' обработка сигнала таймера
Private Sub Timer1_Timer()= y + 10
' вывод
части
Picture1 в
Picture2.PaintPicture Picture2.Picture, _
x, -y
' если выведенная часть картинки не полностью
' покрывает область вывода (Picture2),
дорисовываем
' верхнюю
часть
картинки
снизуy
+ Picture1.ScaleHeight >= Picture2.ScaleHeight Then.PaintPicture
Picture2.Picture, _
, -y + Picture2.ScaleHeightIfy >=
Picture2.ScaleHeight Then y = 0Sub
фрм анимfW
As Integer, fH As Integer ' ширина
и
высота
картинкиx
As Integer, y As Integer
' щелчок
на
кнопке
OkSub Command1_Click().ShowSubSub Command2_Click().ShowSub
' инициализация
формыSub
Form_Initialize().Visible = False.AutoSize = True.Picture = LoadPicture(CurDir
+ "\5.bmp")= Picture2.Width= Picture2.Height.Height = Form1.Height +
Picture2.Height - _.Height.Top = Command1.Top + Picture2.Height -
_.Height.Height = Picture2.Height= 0= 0.Interval = 50.Enabled = True
End Sub
' обработка сигнала таймера
Private Sub Timer1_Timer()= x + 40
' вывод
части
Picture1 в
Picture2.PaintPicture Picture2.Picture, _
x, -y
' если выведенная часть картинки не полностью
' покрывает область вывода (Picture2),
дорисовываем
' часть
картинки
рядом
справаx
+ Picture1.ScaleWidth >= Picture2.ScaleWidth Then.PaintPicture
Picture2.Picture, _
x + Picture2.ScaleWidth, -yIfx >=
Picture2.Width Then x = 0
End Sub