Розроблення бібліотеки класів для подання інформації про тарифікацію викладачів коледжа

Штучне освітлення у приміщеннях з ПК здійснюється у вигляді комбінованої системи з використанням люмінісцентних джерел світла у світильниках загального освітлення, які розташовують над робочими поверхнями у рівномірно-прямокутному порядку. Пульсація люмінісцентних ламп не повинна перевищувати 10%. Вікна бажано розміщувати з одного боку робочих приміщень.

Відношення яскравості екрану комп'ютера до яскравості оточуючих його поверхонь не повинно перевищувати у робочій зоні 3:1.

Основні вимоги до виробничого приміщення для експлуатації ПК

- воно не може бути розміщено у підвалах та цокольних поверхах;

- площа на одне робоче місце в такому приміщенні повинна становити не менше 6,0м², а об'єм не менше 20,0 м³;

- воно повинно мати природне та штучне освітлення відповідно до СНіПП-4-79;

- в ньому мають бути шафи для зберігання документів, магнітних дисків, полиці, стелажі, тумби тощо, з урахуванням вимог до площі приміщення;

- щоденно проводити вологе прибирання;

- поруч з приміщенням для роботи з ПК мають бути обладнані:

* побутова кімната для відпочинку під час роботи;

* кімната психологічного розвантаження.

Щодо допустимих рівнів звуку та електромагнітних випромінювань і електричного поля в приміщеннях під час роботи з ПК, то вони вказані в табл. 3.11.

Гігієнічні норми до організації і обладнання робочих місць з ПК. При розташуванні елементів робочого місця користувача ПК слід враховувати:

- робочу позу користувача;

- простір для розміщення користувача;

- можливість огляду елементів робочого місця;

- можливість ведення захистів;

- розміщення документації і матеріалів, які використовуються користувачем.

Таблиця 4.1

Допустимі рівні звуку, еквівалентні рівні звуку і рівні звукового тиску в октавних смугах частот

Вид трудової діяльності	Рівні звукового тиску в дБ в октавних смугах із середньо-геометричними частотами, Гц
	31,5	63	125	250	500	1000	2000	4000	8000	Рівні звуку, еквівалентні рівні звуку, дБА/дБАекв.
Програмісти ПК	86	7	61	54	49	45	42	40	38	50
Оператори в залах обробки інформації на ПК та оператори комп'ютерного набору	96	83	74	68	63	60	57	55	54	65
В приміщеннях для розташування шумних агрегатів ПК	103	91	83	77	73	70	68	66	64	75

Конструкція робочого місця користувача ПК має забезпечити підтримання оптимальної робочої пози. Робочі місця з ПК слід так розташувати відносно вікон, щоб природне світло падало збоку, переважно зліва.

Робочі місця з ПК повинні бути розташовані від стіни з вікнами на відстані не менше 1,5м, від інших стін -- на відстані 1 м, відстань між собою - не менше ніж 1,5 м.

Таблиця 4.2

Допустимі параметри електромагнітних випромінювань і електричного поля

Види поля	Допустимі параметри поля	Допустима поверхнева щільність потоку енергії (інтенсивність потоку енергії), Вт/м2
	за електричною складовою (Е), В/м	за магнітною складовою (Н), A/M
Напруженість електромагнітного поля, 6 кГц...3 МГц	50	5
3 МГц...30МГц	2	-
30 МГц...5 ГГц	-	-	10
Електромагнітне поле оптичного діапазону в ультрафіолетовій частині спектру: УФ-С (220...280 мм)			0,001
УФ-В (280...320 мм)			0,01
УФ-А (320. ..400 мм)			10,0
в інфрачервоній частині спектру: 0,76... 10,0 мкм			35,0.. .70,0
Напруженість електричного поля ВДТ			20 вВ/м

Для забезпечення точного та швидкого зчитування інформації в зоні найкращого бачення площина екрана монітора повинна бути перпендикулярною нормальній лінії зору. При цьому повинна бути передбачена можливість переміщення монітора навколо вертикальної осі в межах ±30° (справа наліво) та нахилу вперед до 85° і назад до 105° з фіксацією в цьому положенні.

Клавіатура повинна бути розташована так, щоб на ній було зручно працювати двома руками. Клавіатуру слід розміщати на поверхні столу на відстані 100...300 мм від краю. Кут нахилу клавіатури до столу повинен бути в межах від 5 до 15°, зап'ястя на долонях рук повинні розташовуватись горизонтально до площини столу (рис. 3.9).

Принтер повинен бути розміщений у зручному для користувача положенні, так, що максимальна відстань від користувача до клавіш управління принтером не перевищувала довжину витягнутої руки користувача.

Конструкція робочого стола повинна забезпечувати можливість оптимального розміщення на робочій поверхні обладнання, що використовується, з врахуванням його кількості та конструктивних особливостей (розмір монітора, клавіатури, принтера, ПК та ін.) і документів, а також враховувати характер роботи, що виконується.

Вимоги до режимів праці і відпочинку при роботі з ПК. Під час роботи з ПК для збереження здоров'я працівників, запобігання профзахворюванням і підтримки працездатності встановлюються внутрішньо змінні регламентовані перерви для відпочинку.

Тривалість регламентованих перерв під час роботи з ПК за 8-годинної денної робочої зміни залежно від характеру праці: 15 хвилин через кожну годину роботи - для розробників програм зі застосуванням ПК; 15 хвилин через кожні дві години - операторів із застосуванням ПК; 10 хвилин після кожної години роботи за ПК для операторів комп'ютерного набору.

Для зниження нервово-емоційного напруження, втомленості зорового аналізатора, для поліпшення мозкового кровообігу і запобігання втомі доцільно деякі перерви використовувати для виконання комплексу вправ, які передбачені ДСанПіН 3.3.2.007-98, в тому числі і для сеансів психологічного розвантаження у кімнаті з відповідним інтер'єром та кольоровим оформленням.

Ігнорування санітарних правил і норм роботи з ПК може викликати у осіб, які з ними професійно працюють, загальну втому, зорову втому, болі та відчуття піску в очах, відчуття засміченості та свербіння очей, болі в хребті, закам'янілість та оніміння м'язів шиї та плечового поясу, пошкодження дисків хребта, порушення постави, судоми м'язів ніг, синдром RSI хронічний розтяг зв'язок, синдром тунелю Карпаля, головні болі, поганий сон, депресивні стани тощо.



ВИСНОВКИ

Під час роботи над дипломним проектом було проведено розробку бібліотеки класів «Система тарифікації викладачів», призначеної для комп'ютеризованої роботи навчального відділу при створенні розкладу занять коледжу в середовищі об'єктно-орієнтованої мови програмування MS Visual Basic 2008 Express Edition;

Були виконані наступні завдання:

- проаналізовано предметну область, побудувано словник ключових понять та ідентифіковано основні класи та об'єкти бібліотеки;

- спроектувано ідентифіковані класи та об'єкти;

- написані та налагожені вхідні тексти бібліотеки класів.



ДЖЕРЕЛА ТА ПОСИЛАННЯ

http://upravlenie29.blogspot.com/2011/03/blog-post_4355.html

http://itiss.info/publishing/experts-articles/48-yudin/128-vprovadjennya-novtnh-tehnologi-v-suchasn-sistemi-dokumentoobgu-navchalnogo-zakladu



ДОДАТОК А

Код класу «Викладач»

Public Class Викладач

Public Shared Event ПотрібнаКарткаВикладача(ByVal ІдентВикладача

As UInt32, _

ByRef Картка As КарткаВикладача)

Public Shared Operator =(ByVal В1 As Викладач, ByVal В2 As Викладач)

As Boolean

Return В1.Equals(В2)

End Operator

Public Shared Operator <>(ByVal В1 As Викладач, ByVal В2 As

Викладач) As Boolean

Return Not В1.Equals(В2)

End Operator

Private мІдент As UInt32

Private мКартка As КарткаВикладача

Public Sub New(ByVal ІдентВикладача As UInt32)

мІдент = ІдентВикладача

мКартка = Nothing

End Sub

Public Sub New(ByVal дч As IO.BinaryReader)

завантажитиЗ(дч)

End Sub

Public Overrides Function Equals(ByVal примірник As Object) As Boolean

If ReferenceEquals(Me, примірник) Then Return True

If TypeOf примірник Is Викладач Then

Dim інший As Викладач = DirectCast(примірник, Викладач)

Return Me.мІдент = інший.мІдент

Else

Return False

End If

End Function

Public ReadOnly Property Номер() As UInt32

Get

Return мІдент

End Get

End Property

Public Property Картка() As КарткаВикладача

Get

If мКартка Is Nothing Then

RaiseEvent ПотрібнаКарткаВикладача(мІдент, мКартка)

End If

Return мКартка

End Get

Set(ByVal знач As КарткаВикладача)

мКартка = знач

мІдент = мКартка.Номер

End Set

End Property

Protected Overridable Sub завантажитиЗ(ByVal дч As

System.IO.BinaryReader)

мІдент = дч.ReadUInt32

мКартка = Nothing

End Sub

Public Overridable Sub зберегтиУ(ByVal дз As System.IO.BinaryWriter)

дз.Write(мІдент)

End Sub

End Class

Код класу «КарткаВикладача»

Public Class КарткаВикладача

Inherits КлючованіКолекції.КлючованийЕлемент(Of UInt32)

Private мОсоба As Особа

Private мДаніПроОсвіту As New ДаніПроОсвіту

Private мКатегорія As String = ""

Private мХідВикладання As ХідВикладання

Public Sub New(ByVal Ідент As UInt32)

MyBase.New(Ідент)

мОсоба = New Особа(Стать.Чол)

мХідВикладання = New ХідВикладання

End Sub

Public Sub New(ByVal дч As System.IO.BinaryReader)

MyBase.New(дч)

End Sub

Public ReadOnly Property Номер() As UInt32

Get

Return MyBase.Ключ

End Get

End Property

Public Property Особа() As Особа

Get

Return мОсоба

End Get

Set(ByVal знач As Особа)

мОсоба = знач

End Set

End Property

Public Property ДаніПроОсвіту() As ДаніПроОсвіту

Get

Return мДаніПроОсвіту

End Get

Set(ByVal знач As ДаніПроОсвіту)

мДаніПроОсвіту = знач

End Set

End Property

Public Property Категорія() As String

Get

Return мКатегорія

End Get

Set(ByVal знач As String)

мКатегорія = знач

End Set

End Property

Public ReadOnly Property ХідВикладання() As ХідВикладання

Get

Return мХідВикладання

End Get

End Property

Public Overrides Sub завантажитиЗ(ByVal дч As System.IO.BinaryReader)

мКлюч = дч.ReadUInt32

мОсоба = New Особа(дч)

мДаніПроОсвіту = New ДаніПроОсвіту(дч)

мКатегорія = дч.ReadString

мХідВикладання = New ХідВикладання(дч)

End Sub

Public Overrides Sub зберегтиУ(ByVal дз As System.IO.BinaryWriter)

дз.Write(мКлюч)

мОсоба.зберегтиУ(дз)

мДаніПроОсвіту.зберегтиУ(дз)

дз.Write(мКатегорія)

мХідВикладання.зберегтиУ(дз)

End Sub

End Class

Код класу «Особа»

Public Enum Стать As Byte

Чол

Жін

End Enum

Public Class Особа

Private мПрізвище As String

Private мІмення As String

Private мБатьківське As String

Private мСтать As Стать

Private мДатаНародження As Date

Public Sub New(ByVal Стать As Стать)

мСтать = Стать

мДатаНародження = Now.Date

End Sub

Public Sub New(ByVal дч As System.IO.BinaryReader)

завантажитиЗ(дч)

End Sub

Public Overrides Function Equals(ByVal obj As Object _

) As Boolean

If TypeOf obj Is Особа Then

Dim Інший As Особа = CType(obj, Особа)

Return Me.мСтать = Інший.мСтать _

AndAlso Me.мДатаНародження = Інший.мДатаНародження _

AndAlso Me.мПрізвище = Інший.мПрізвище _

AndAlso Me.мІмення = Інший.мІмення _

AndAlso Me.мБатьківське = Інший.мБатьківське

Else

Return False

End If

End Function

Public Overrides Function ToString() As String

Return String.Format("{0} {1} {2}, нар. {3:dd.MM.yy}", _

мПрізвище, мІмення, мБатьківське, мДатаНародження)

End Function

Public ReadOnly Property Стать() As Стать

Get

Return мСтать

End Get

End Property

Public Property Батьківське() As String

Get

Return мБатьківське

End Get

Set(ByVal знач As String)

мБатьківське = знач

End Set

End Property

Public Property Імення() As String

Get

Return мІмення

End Get

Set(ByVal знач As String)

мІмення = знач

End Set

End Property

Public Property Прізвище() As String

Get

Return мПрізвище

End Get

Set(ByVal знач As String)

мПрізвище = знач

End Set

End Property

Public Property ДатаНародження() As Date

Get

Return мДатаНародження

End Get

Set(ByVal знач As Date)

мДатаНародження = знач

End Set

End Property

Public Function ПІБ() As String

Return String.Format("{0} {1} {2}", мПрізвище, мІмення, мБатьківське)

End Function

Public Function ПрізвищеІніціали() As String

Return String.Format("{0} {1}.{2}.", _

мПрізвище, _

Left(мІмення, 1), _

Left(мБатьківське, 1))

End Function

Public Function Вік(ByVal Дата As Date) As Integer

Return CInt(Дата.Subtract(мДатаНародження).TotalDays / 365)

End Function

Protected Overridable Sub завантажитиЗ(ByVal дч As

System.IO.BinaryReader)

мПрізвище = дч.ReadString

мІмення = дч.ReadString

мБатьківське = дч.ReadString

мСтать = DirectCast(дч.ReadByte, Стать)

мДатаНародження = Date.FromBinary(дч.ReadInt64)

End Sub

Public Overridable Sub зберегтиУ(ByVal дз As System.IO.BinaryWriter)

дз.Write(мПрізвище)

дз.Write(мІмення)

дз.Write(мБатьківське)

дз.Write(мСтать)

дз.Write(мДатаНародження.ToBinary)

End Sub

End Class

Код класу «Тарифікація»

Imports System.IO

Imports НапрямкиПідготовки

Imports Викладачі

''' <summary>Клас Тарифікація подає список примірників

ЕлементТарифікації,

''' забезпечуючі глобальну точку доступу до його єдиного примірника.

''' Спадкує від List(Of ЕлементТарифікації).

''' </summary>

Public Class Тарифікація

Inherits List(Of ЕлементТарифікації)

Public Shared Sub ініціалізувати(ByVal Файл As String)

If мПримірник Is Nothing Then

мПримірник = New Тарифікація(Файл)

End If

End Sub

Public Shared Function Примірник() As Тарифікація

Return мПримірник

End Function

Private Shared мПримірник As Тарифікація = Nothing

Private мФайл As String

Protected Sub New(ByVal Файл As String)

MyBase.New()

мФайл = Файл

відкрити()

End Sub

Public ReadOnly Property МаєПустеЗначення() As Boolean

Get

Return MyBase.Count = 0

End Get

End Property

Public ReadOnly Property Тарифіковано(ByVal Викладач As Викладач)

As Boolean

Get

For Each елем As ЕлементТарифікації In Me

If елем.Викладач = Викладач Then Return True

Next

Return False

End Get

End Property

Public ReadOnly Property Тарифіковано(ByVal Посилання As

ПосиланняНаДисципліну) As Boolean

Get

For Each елем As ЕлементТарифікації In Me

If елем.ПосиланняНаДисципліну = Посилання Then Return True

Next

Return False

End Get

End Property

Public ReadOnly Property Тарифіковано(ByVal Дисципліна As

ІДисциплінаТарифікації) As Boolean

Get

Return Тарифіковано(Дисципліна.ДайПосилання)

End Get

End Property

Public ReadOnly Property РівеньТарифікації(ByVal Викладач As

Викладач) As Integer

Get

Dim рівень As Integer = 0

For Each елем As ЕлементТарифікації In Me

If елем.Викладач = Викладач Then рівень += 1

Next

Return рівень

End Get

End Property

Public ReadOnly Property РівеньТарифікації(ByVal Посилання As

ПосиланняНаДисципліну) As Integer

Get

Dim рівень As Integer = 0

For Each елем As ЕлементТарифікації In Me

If елем.ПосиланняНаДисципліну = Посилання Then рівень += 1

Next

Return рівень

End Get

End Property

Public ReadOnly Property РівеньТарифікації(ByVal Дисципліна As

ІДисциплінаТарифікації) As Integer

Get

Return РівеньТарифікації(Дисципліна.ДайПосилання)

End Get

End Property

Public Function ДисципліниВикладача(ByVal Викладач As Викладач)

As List(Of ПосиланняНаДисципліну)

Dim список As New List(Of ПосиланняНаДисципліну)

For Each елем As ЕлементТарифікації In Me

If елем.Викладач = Викладач Then

список.Add(елем.ПосиланняНаДисципліну)

Next

Return список

End Function

Public Function СписокДисциплін() As List(Of

ПосиланняНаДисципліну)

Dim список As New List(Of ПосиланняНаДисципліну)

For Each елем As ЕлементТарифікації In Me

If Not список.Contains(елем.ПосиланняНаДисципліну) Then

список.Add(елем.ПосиланняНаДисципліну)

Next

Return список

End Function

Public Function ВикладачіДисципліни(ByVal Посилання As

ПосиланняНаДисципліну) As List(Of Викладач)

Dim список As New List(Of Викладач)

For Each елем As ЕлементТарифікації In Me

If елем.ПосиланняНаДисципліну = Посилання Then

список.Add(елем.Викладач)

Next

Return список

End Function

Public Function ВикладачіДисципліни(ByVal Дисципліна As

ІДисциплінаТарифікації) As List(Of Викладач)

Return ВикладачіДисципліни(Дисципліна.ДайПосилання)

End Function

Public Function СписокВикладачів() As List(Of Викладач)

Dim список As New List(Of Викладач)

For Each елем As ЕлементТарифікації In Me

If Not список.Contains(елем.Викладач) Then

список.Add(елем.Викладач)

Next

Return список

End Function

Public Function Розподілити(ByVal Викладач As Викладач, _

ByVal Дисципліна As ІДисциплінаТарифікації _

) As ЕлементТарифікації

Dim новий As New ЕлементТарифікації(Викладач, Дисципліна)

Dim індекс As Integer = MyBase.IndexOf(новий)

If індекс = -1 Then

MyBase.Add(новий)

Return новий

Else

Return Nothing

End If

End Function

Public Function Звільнити(ByVal Викладач As Викладач, _

ByVal Дисципліна As ІДисциплінаТарифікації _

) As Boolean

Dim новий As New ЕлементТарифікації(Викладач, Дисципліна)

Dim індекс As Integer = MyBase.IndexOf(новий)

If індекс = -1 Then Return False

MyBase.RemoveAt(індекс)

Return True

End Function

Public Function Звільнити(ByVal Викладач As Викладач) As Boolean

Dim лог As Boolean = False

For інд As Integer = Me.Count To 1 Step -1

If Me(інд).Викладач = Викладач Then

Me.RemoveAt(інд)

лог = True

End If

Next

Return лог

End Function

Public Function Звільнити(ByVal Дисципліна As

ІДисциплінаТарифікації) As Boolean

Dim посилання As ПосиланняНаДисципліну =

Дисципліна.ДайПосилання

Dim лог As Boolean = False

For інд As Integer = Me.Count To 1 Step -1

If Me(інд).ПосиланняНаДисципліну = посилання Then

Me.RemoveAt(інд)

лог = True

End If

Next

Return лог

End Function

Public Sub очистити()

MyBase.Clear()

End Sub

Private Sub відкрити()

With My.Computer.FileSystem

If .FileExists(мФайл) Then

Dim дч As BinaryReader = New BinaryReader(New FileStream(мФайл,

FileMode.Open))

завантажитиЗ(дч)

дч.Close()

End If

End With

End Sub

Public Sub закрити()

If мФайл.Length = 0 Then Exit Sub

Dim дз As BinaryWriter = New BinaryWriter(New FileStream(мФайл, _

FileMode.OpenOrCreate))

зберегтиУ(дз)

дз.Close()

мФайл = ""

End Sub

Private Shadows Sub завантажитиЗ(ByVal дч As IO.BinaryReader)

For ліч As Integer = 1 To дч.ReadInt32

Me.Add(New ЕлементТарифікації(дч))

Next

End Sub

Private Shadows Sub зберегтиУ(ByVal дз As IO.BinaryWriter)

дз.Write(MyBase.Count)

For Each елем As ЕлементТарифікації In Me

елем.зберегтиУ(дз)

Next

End Sub

End Class

Код класу «Елементи тарифікації»

Public Class ЕлементТарифікації

Public Shared Operator =(ByVal оп1 As ЕлементТарифікації, _

ByVal оп2 As ЕлементТарифікації) As Boolean

Return оп1.Equals(оп2)

End Operator

Public Shared Operator <>(ByVal оп1 As ЕлементТарифікації, _

ByVal оп2 As ЕлементТарифікації) As Boolean

Return Not оп1.Equals(оп2)

End Operator

Private мВикладач As Викладачі.Викладач

Private мПосиланняНаДисципліну As

НапрямкиПідготовки.ПосиланняНаДисципліну

Public Sub New(ByVal Викладач As Викладачі.Викладач, _

ByVal Дисципліна As НапрямкиПідготовки.ІДисциплінаТарифікації)

мВикладач = Викладач

мПосиланняНаДисципліну = Дисципліна.ДайПосилання

End Sub

Public Sub New(ByVal дч As IO.BinaryReader)

завантажитиЗ(дч)

End Sub

Public Overrides Function Equals(ByVal obj As Object) As Boolean

If TypeOf obj Is ЕлементТарифікації Then

Dim інший As ЕлементТарифікації = DirectCast(obj,

ЕлементТарифікації)

Return мВикладач = інший.мВикладач _

AndAlso мПосиланняНаДисципліну =

інший.мПосиланняНаДисципліну

Else

Return MyBase.Equals(obj)

End If

End Function

Public Overrides Function ToString() As String

Return String.Format("{0}-{1}", мВикладач.Номер,

мПосиланняНаДисципліну.Значення)

End Function

Public Overrides Function GetHashCode() As Integer

Return Me.ToString.GetHashCode

End Function

Public Property Викладач() As Викладачі.Викладач

Get

Return мВикладач

End Get

Set(ByVal знач As Викладачі.Викладач)

мВикладач = знач

End Set

End Property

Public Property ПосиланняНаДисципліну() As

НапрямкиПідготовки.ПосиланняНаДисципліну

Get

Return мПосиланняНаДисципліну

End Get

Set(ByVal знач As НапрямкиПідготовки.ПосиланняНаДисципліну)

мПосиланняНаДисципліну = знач

End Set

End Property

Protected Overridable Sub завантажитиЗ(ByVal дч As

System.IO.BinaryReader)

мВикладач = New Викладачі.Викладач(дч)

мПосиланняНаДисципліну = New

НапрямкиПідготовки.ПосиланняНаДисципліну(дч)

End Sub

Public Overridable Sub зберегтиУ(ByVal дз As System.IO.BinaryWriter)

мВикладач.зберегтиУ(дз)

мПосиланняНаДисципліну.зберегтиУ(дз)

End Sub

End Class

Размещено на allbest.ru