Данный раздел представляют данные о структуре программного обеспечения. Разделено на следующие две подразделы:

1) Физическая структура программного обеспечения

2) Логическая структура программного обеспечения

1.1.1 Физическая структура

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

Рис. 1.1.1

1.1.2 Логическая структура программного обеспечения

Логическая структура программы - это простая схема который показывает причинно-следственные связи между:

· результатами и изменениями, которые вы надеетесь получить;

· действиями, которые вы планирует предпринять; и

· ресурсами, которые у вас есть для реализации программы

В рис. 1.1.2 приведено логическая структура программного обеспечения.

Рис. 1.1.2

Программное обеспечение является комплексом программ и это дает каждому компоненту (подпрограмма) самостоятельно выполнятся даже без установки других компонентов.

1.2 Описание исходных кодов программного обеспечения

End Sub

Листинг 1.2.1.2 Процедура для включения возможности включения перерисовки наследованного элемента управления.

Public Sub New ()

DrawMode = Windows. Forms. DrawMode. OwnerDrawVariable

End Sub

Листинг 1.2.1.3 Процедура для перерисовки элемента управления.

Protected Overrides Sub OnDrawItem (e As DrawItemEventArgs)

' События при рисовании элемента

Try

If Items. Count = 0 Or e. Index = - 1 Then Exit Sub

' Если нет ни одного элемента то выходим из цикла

Dim s As String = Items (e. Index). ToString ' Получаем текст строки

Dim sf As StringFormat = New StringFormat () ' Формат текста

sf. Alignment = StringAlignment. Center

If (e. State And DrawItemState. Focus) = 0 Then ' Проверяем выбран ли элемент списка

Call ItemDraw (e, s) ' Если не выбран то просто рисуем элемент

Else

Call DrawActiveItem (e, s) ' Если выбран то задаем его задный цвет

End If

Catch ex As Exception

MsgBox (ex. Message)

End Try

End Sub

Листинг 1.2.1.4 Функция для рисования элемента списка при создании с изображением и текстом.

Protected Function ItemDraw (ByVal e As DrawItemEventArgs, s As String)

Try

Dim ItemFont As Font = New Font ("Segoe UI", 18)

Dim r As Rectangle = New Rectangle (New Point (e. Bounds. X + 10, e. Bounds. Y + 10), New Size (e. Bounds. Width - 20, e. Bounds. Height - 12))

e. Graphics. DrawRectangle (New Pen (New SolidBrush (System. Drawing. Color. FromArgb (200, 200, 200)), 1), r)

Dim imgstr As String = application. startuppath & "\" & bini. ReadString (s, "Image")

If IO. File. Exists (imgstr) = True Then

Dim img As Bitmap = New Bitmap (imgstr)

e. Graphics. DrawImage (img, New Rectangle (New Point (e. Bounds. X + 18, e. Bounds. Y + 18), New Size (64, 64)))

img. Dispose ()

End If

e. Graphics. DrawString (bini. ReadString (s, "Text"). ToString, ItemFont, New SolidBrush (System. Drawing. Color. FromArgb (47, 47, 47)), New Point (e. Bounds. X + 88, e. Bounds. Y + 12))

Catch ex As Exception

MsgBox (ex. Message)

End Try

End Function

Листинг 1.2.1.5 Функция для рисования элемента списка при выборе.

Protected Function DrawActiveItem (ByVal e As DrawItemEventArgs, s As String)

Try

Dim ItemFont As Font = New Font ("Segoe UI", 18)

Dim r As Rectangle = New Rectangle (New Point (e. Bounds. X + 10, e. Bounds. Y + 10), _

New Size (e. Bounds. Width - 19, e. Bounds. Height - 11))

Dim lg As LinearGradientBrush = New LinearGradientBrush (r, System. Drawing. Color. FromArgb _

(121, 187, 255), System. Drawing. Color. FromArgb (65, 151, 238), LinearGradientMode. Vertical)

e. Graphics. FillRectangle (lg, r)

Dim imgstr As String = application. startuppath & "\" & bini. ReadString (s, "Image")

If IO. File. Exists (imgstr) = True Then

Dim img As Bitmap = New Bitmap (imgstr)

e. Graphics. DrawImage (img, New Rectangle (New _

Point (e. Bounds. X + 18, e. Bounds. Y + 18), New Size (64, 64)))

img. Dispose ()

End If

e. Graphics. DrawString (bini. ReadString (s, "Text"), ItemFont, New SolidBrush (System. Drawing. Color. _

FromArgb (255, 255, 255)), New Point (e. Bounds. X + 88, e. Bounds. Y + 12))

Catch ex As Exception

MsgBox (ex. Message)

End Try

End Function

Описание свойств и функций модуля UICreate. Данный модуль связано с созданием и настройкой главного окна программы. Данный модуль позволяет настроит главное окно на основе параметров в файле конфигурации.

Листинг 1.2.1.6 Функция для проверки и возможности на загрузку конфигурационного файла.

Public Function LoadSettings (ByVal FileName As String) As Boolean

Dim s As Boolean = False

Try

ini = New IniFile (FileName)

s = True

Catch ex As Exception

MsgBox (ex. Message)

End Try

LoadSettings = s

End Function

Листинг 1.2.1.7 Функция для настройки окна проиложения

' Настроим окно приложения

Public Function CreateMainWindow (ByVal Wnd As Form)

Dim st As Boolean = False

Try

With Wnd

. Text = ini. ReadString (APP, "Caption", "Книги")

. Icon = New Icon (application. startuppath & "\" & ini. ReadString (APP, "IcoFile"))

. StartPosition = FormStartPosition. CenterScreen

. WindowState = FormWindowState. Maximized

. FormBorderStyle = FormBorderStyle. None

. Size = Screen. PrimaryScreen. WorkingArea. Size

Dim b As Array = Split (ini. ReadString (APP, "BackColor", "255,47,47,47"), ",")

. BackColor = System. Drawing. Color. FromArgb (b (0), b (1), b (2), b (3))

Dim s As String = ini. ReadString (APP, "BackgroundImage")

If s. Length > 0 Then

. BackgroundImage = New Bitmap (application. startuppath & "\" & s)

. BackgroundImageLayout = ImageLayout. Stretch

End If

End With

st = True

Catch ex As Exception

MsgBox (ex. Message)

End Try

CreateMainWindow = st

End Function

Листинг 1.2.1.8 Функция создания элемента управления для отображения списка книг.

' Создаем слой для вывода списка книг

Public Function BooksLayer (ByVal Section As String)

Dim uc As UserControl = New UserControl

With uc

'задаем фоновой цвет

Dim b As Array = Split (ini. ReadString (Section, "BackColor", "100,255,255,255"), ",")

. BackColor = System. Drawing. Color. FromArgb (b (0), b (1), b (2), b (3))

b = Nothing

Dim bmgs As String = ini. ReadString (Section, "Image")

If bmgs. Length > 0 Then

Dim bimg As Bitmap = New Bitmap (bmgs)

End If

End With

BooksLayer = uc

End Function

Листинг 1.2.1.9 Функция для создания заголовка на основе параметрах из файла конфигурации.

Public Function ReadHeader (ByVal Section As String) As Label

Dim l As Label = New Label

With l

. Name = "HeaderText"

. Text = ini. ReadString (Section, "Text", "Немецкий язык")

Dim TextColor As Array = Split (ini. ReadString (Section, "TextColor", "255,255,255,255"), ",") ' Читаем цвет текста

. ForeColor = System. Drawing. Color. FromArgb (TextColor (0), TextColor (1), TextColor (2), TextColor (3)) ' Задаем цвет текста

. AutoSize = True ' Пусть сам вычисляет размер элемента

' Теперь нам необходимо читать расположение элемента

' если значение равен на auto тогда необходимо задать им по умолчанию по 20

Dim ln As String = ini. ReadString (Section, "Location", "auto,auto")

ln = ln. ToLower

Dim loc As Array = Split (ln, ",")

Dim lLocation As Point

If loc (0). ToString = "auto" Then

lLocation. X = 20

End If

If loc (1). ToString = "auto" Then

lLocation. Y = 20

End If

. Location = lLocation ' задаем расположение метки

Dim f As Array = Split (ini. ReadString (Section, "Font", "Palatino Linotype,36"), ",") ' Читаем параметры шрифта

. Font = New System. Drawing. Font (f (0). ToString, f (1)) ' Задаем шрифт

. BackColor = Color. Transparent ' Сделаем цвет фона прозрачным

End With

ReadHeader = l

End Function

Описание класса главной формы Form1. Данная форма является основным окном программы Книги. В это окне расположено элементы управления который позволяет посмотреть электронных книг. Здесь приведет основные процедуры и функции программы.

Листинг 1.2.1.10 Функция для чтения книг в формате pdf. Также программа позволяет читать данные в формате rtf.

Public Function ReadBook (ByVal Section As String)

Panel1. Visible = False

Try

Dim fname As String = ini. ReadString ("Content", "Books")

inf = New IniFile (fname)

fname = Nothing

Dim type As String = inf. ReadString (Section, "Type")

Select Case type

Case "pdf"

pdfs. Visible = False

With pdfs

. Location = New Point (10,10)

. Size = New Size (Panel1. Width - 20, Panel1. Height - 20)

Dim filename As String = application. startuppath & "\" & inf. ReadString (Section, "Book")

If. LoadFile (filename) = False Then

MsgBox ("Файл " & filename & " не существует")

Exit Function

End If

. Name = "pdfreader"

CurrentObjectName =. Name

End With

EnterprisedListBox1. Visible = False

Panel1. Controls. Add (pdf)

pdfs. Visible = True

Panel1. Controls. Add (pdf)

Case "rtf", "txt"

With RichTextBox1

. Location = New Point (10,10)

. Size = New Size (Panel1. Width - 20, Panel1. Height - 20)

Dim rfname As String = application. startuppath & "\" & inf. ReadString (Section, "Book")

. LoadFile (rfname)

. Visible = True

CurrentObjectName =. Name

End With

End Select

Dim btn As Label = New Label

With btn

. Name = "btn"

. AutoSize = False

. Size = New Size (30, 30)

. BackColor = Me. BackColor

. BorderStyle = BorderStyle. FixedSingle

. Text = "X"

. TextAlign = ContentAlignment. MiddleCenter

. Location = New Point (Me. Width - 60, 65)

. ForeColor = Color. White

AddHandler. Click, AddressOf CustomClose

End With

Me. Controls. Add (btn)

Catch ex As Exception

MsgBox (ex. Message)

End Try

Panel1. Visible = True

End Function

Листинг 1.2.1.11 Функция для удаления выбранной книги. Позволяет удалить книгу из базу данных и из файловой системы.

Public Function DeleteBook (ByVal Section As Integer)

inf = New IniFile ("frames. ini")

Try

If MsgBox ("Действительно хотите удалить " & inf. ReadString (EnterprisedListBox1. Items (EnterprisedListBox1. SelectedIndex), "Text"), MsgBoxStyle. YesNo, "Книги") = MsgBoxResult. No Then Exit Function

Dim dfile As String = application. startuppath & "\" & inf. ReadString (Section, "Book")

If IO. File. Exists (dfile) = True Then

Kill (dfile)

End If EnterprisedListBox1. Items. Remove (EnterprisedListBox1. SelectedItem)

dfile = application. startuppath & "\" & inf. ReadString (Section, "Image")

If IO. File. Exists (dfile) = True Then

Kill (dfile)

End If

inf. EraseSection (Section)

MsgBox ("Удалено", MsgBoxStyle. Information)

Catch ex As Exception

MsgBox (ex. Message, MsgBoxStyle. Exclamation)

End Try

End Function

Описание исходных кодов окна add_book. Этот окно позволяет добавлять книги в базу данных. Также позволяет выбрать картинку для отображения книги. Позволяет посмотреть процесс копирования файла.

Листинг 1.2.1.12 Код кнопки для загрузки изображения книги.

Private Sub Button2_Click (sender As Object, e As EventArgs) Handles Button2. Click

Try

Dim ofd As OpenFileDialog = New OpenFileDialog With {. Title = "Выбор файла",. Filter = "JPG (*. jpg) |*. jpg|BMP (*. bmp) |*. bmp|GIF (*. gif) |*. gif|PNG (*. png) |*. png"}

If ofd. ShowDialog = Windows. Forms. DialogResult. Cancel Then Return

PictureBox1. Load (ofd. FileName)

PictureBox1. SizeMode = PictureBoxSizeMode. StretchImage

Label7. Text = ofd. SafeFileName

selectedImgFile = ofd. SafeFileName

Catch ex As Exception

MsgBox (ex. Message)

End Try

End Sub

Листинг 1.2.1.13 Код кнопки для загрузки книги

Private Sub Button3_Click (sender As Object, e As EventArgs) Handles Button3. Click

Try

Dim ht As Hashtable = New Hashtable

If TextBox1. Text. Length < 3 Then

MsgBox ("Введите название книги", MsgBoxStyle. Exclamation)

Exit Sub

End If

Dim imgSavePath As String

Dim sim As String = ""

If selectedImgFile. Length > 0 Then

sim = "\images\" & Now.millisecond. ToString & selectedImgFile

imgSavePath = application. startuppath & sim

selectedImgFile = sim

Else

sim = "\images\" & Now. Second. ToString & Now. Minute. ToString & Now. Hour. ToString & Now. Day. ToString & Now. Month. ToString & Now. Year. ToString &". gif"

imgSavePath = application. startuppath & sim

selectedImgFile = sim

End If

Dim img As Bitmap = New Bitmap (PictureBox1. Image)

img. Save (imgSavePath, System. Drawing. Imaging. ImageFormat. Gif)

ht. Add ("Image", sim)

ht. Add ("Text", TextBox1. Text)

ht. Add ("Book", "data\" & fINFO_. Name)

ht. Add ("Type", Mid (fINFO_. Extension. ToString,

2))

Dim sCount As Integer = ini. ReadSections. Length + 1

ini. Write (sCount, ht)

Timer1. Enabled = True

Call FileCopy (sourcefile, destinationfile)

selectedImgFile = Nothing

Catch ex As Exception

MsgBox (ex. Message)

End Try

End Sub

Листинг 1.2.1.13 Код таймера который показывает процесс загрузки файла.

Private Sub Timer1_Tick (sender As Object, e As EventArgs) Handles Timer1. Tick

Try

fINFO__ = New IO. FileInfo (destinationfile)

intRazm = fINFO__. Length

ProgressBar1. Value = CInt (intRazm \ 1024 \ 1024)

Label3. Text = String. Concat ("Копировано", Convert. ToInt16 (intRazm / 1024/1024), " мб", " из", icxod, " мб")

'Label3. Text += String. Concat ("Выполнено", Convert. ToUInt16 (intRazm / 1024/1024) / icxod * 100, " %")

Label3. Refresh ()

If intRazm >= Max_ Then sender. stop ()

If ProgressBar1. Value <> ProgressBar1. Maximum Then ProgressBar1. Value = ProgressBar1. Maximum

Application. DoEvents ()

Catch ex As Exception

MsgBox (ex. Message)

End Try

End Sub

Описание модификации подпрограммы Слайды который создан нас основе подпрограммы Книга. В этом листинге приведено измененная функция ReaderBook из листинга 1.2.1.10 Данная функция вместо чтения электронных книг позволяет запустить демонстрационные слайды который создан в программе Microsoft Power Point 2007/2003.

Листинг 1.2.1.14 Функция для запуска демонстрационных презентаций Microsoft Power Point.

Public Function ReadBook (ByVal Section As String)

Try

Dim ins As New IniFile (UICreate. ini. ReadString ("Content", "slides"))

Dim s As String = ins. ReadString (Section, "Slide")

If IO. File. Exists (Application. StartupPath. ToString & "\" & s) = True Then

Shell (Application. StartupPath. ToString & "\" & s)

End If

Catch ex As Exception

MsgBox (ex. Message)

End Try

End Function

1.2.2 Описание подпрограммы Видео уроки

Данная программа позволяет читать видео файлы в формате *. mp4, *. avi, *. flv, *. wmv. Для работы программного обеспечения в компьютере должно быт установлено DirectX 10.

Программа состоит из следующих форм и пользовательских элементов управления.

1) Главное окно программы Form1

2) Окно редактирования данных Form2

3) Пользовательский элемент управления videopanel

Описание исходных кодов главного окна программы Form1. Данная форма является основным который позволяет посмотреть и выбрать нужные видео уроки.

Листинг 1.2.2.15 Процедура загрузки формы. Позволяет загружать данные и настроит элементы управления формы.

' Снижаем мерцания

SetStyle (ControlStyles. UserPaint, True)

SetStyle (ControlStyles. AllPaintingInWmPaint, True)

SetStyle (ControlStyles. OptimizedDoubleBuffer, True)

' Создаем рабочую папку если не существует

Dim wp As String = Application. StartupPath & "\data"

If Not IO. Directory. Exists (wp) Then

IO. Directory. CreateDirectory (wp)

End If

' Сначало настроим окно

With Me

. Size = Screen. PrimaryScreen. WorkingArea. Size

. FormBorderStyle = Windows. Forms. FormBorderStyle. None

. StartPosition = FormStartPosition. CenterScreen

. MaximizeBox = False

' Задаем фоновой цвет

b = Split (ini. ReadString ("Application", "BackColor", "255,67,67,67"), ",")

. BackColor = System. Drawing. Color. FromArgb (b (0), b (1), b (2), b (3))

' Получаем фоновую картинку. Проверяем если задано и файл существует тогда загружаем и сделаем его фоном

Dim sPath As String = Application. StartupPath & "\" & ini. ReadString ("Application", "BackgroundImage")

If IO. File. Exists (sPath) Then

. BackgroundImage = New Bitmap (sPath)

. BackgroundImageLayout = ImageLayout. Stretch

End If

' Задаем заголовок окна

. Text = ini. ReadString ("Application", "Cption", "Видеоуроки")

' Задаем Padding

b = Split (ini. ReadString ("Application", "Padding", "0,0,0,0"), ",")

. Padding = New System. Windows. Forms. Padding (b (0), b (1), b (2), b (3))

' Задаем иконку

Dim ss As String = Application. StartupPath & "\" & ini. ReadString ("Application", "Icon")

If IO. File. Exists (ss) Then

. Icon = New Icon (ss)

End If

End With

'Настроим заголовок

With Label1

. AutoSize = False

. Size = New Size (Me. Width, 80)

. Location = New Point (0, 0)

. TextAlign = ContentAlignment. MiddleLeft

. Text = ini. ReadString ("Header", "Text", "Видеоуроки")

' Задаем фоновый цвет

b = Split (ini. ReadString ("Header", "BackColor", "255,67,67,67"), ",")

. BackColor = System. Drawing. Color. FromArgb (b (0), b (1), b (2), b (3))

' Задаем цвет текта

b = Split (ini. ReadString ("Header", "ForeColor", "255,0,150,242"), ",")

. ForeColor = System. Drawing. Color. FromArgb (b (0), b (1), b (2), b (3))

' Теперь задаем шрифт и его размер

b = Split (ini. ReadString ("Header", "Font", "Palatino Linotype, 28"), ",")

. Font = New Font (b (0). ToString, b (1))

' Задаем Padding

b = Split (ini. ReadString ("Header", "Padding", "20,10,10,10"), ",")

. Padding = New System. Windows. Forms. Padding (b (0), b (1), b (2), b (3))

End With

' Теперь загружаем данные о директориях

' По умолчанию рабочая папка Data

Dim s As String = Application. StartupPath & "\data"

If Not IO. Directory. Exists (s) Then

IO. Directory. CreateDirectory (s)

End If

Dim sWP As String = ini. ReadString ("Application", "WorkPath", Application. StartupPath & "\data")

If IO. Directory. Exists (sWP) Then

dr = New IO. DirectoryInfo (sWP)

Else

dr = New IO. DirectoryInfo (Application. StartupPath & "\data")

End If

' Настроим панель1

With Panel1

' Устанавливаем размеры

. Size = New Size (250, Me. Height - Label1. Height - 30)

' Задаем позицию

. Location = New Point (10, 100)

' Задаем фон

b = Split (ini. ReadString ("LeftPanel", "BackColor", "255,239,239,242"), ",")

. BackColor = System. Drawing. Color. FromArgb (b (0), b (1), b (2), b (3))

' Задаем Padding

b = Split (ini. ReadString ("LeftPanel", "Padding", "0,0,0,0"), ",")

. Padding = New System. Windows. Forms. Padding (b (0), b (1), b (2), b (3))

End With

' Задаем параметры Listbox a

With ListBox1

' Размеры

. Size = New Size (Panel1. Width - 20, Panel1. Height - 20)

' Позиция

. Location = New Point (10,10)

' Фоновой цвет

b = Split (ini. ReadString ("LeftPanel", "ListBackColor", "255,47,47,47"), ",")

. BackColor = System. Drawing. Color. FromArgb (b (1), b (2), b (3))

' Задаем шрифт

b = Split (ini. ReadString ("LeftPanel", "Font", "Palatino Linotype,14"), ",")

. Font = New Font (b (0). ToString, b (1))

' Задаем цвет шрифта

b = Split (ini. ReadString ("LeftPanel", "ForeColor", "255,0,150,242"), ",")

. ForeColor = System. Drawing. Color. FromArgb (b (0), b (1), b (2), b (3))

. BorderStyle = BorderStyle. None

'** Заполняем листбокс

Dim drinfo () As IO. DirectoryInfo = dr. GetDirectories

If drinfo. Length > 0 Then

For i As Integer = 0 To drinfo. Length - 1

. Items. Add (drinfo (i). Name)

Next

End If

' Настроим правую панель

With Panel2

' Создаем слой заднего фона

' Задаем размеры относительно формы и правой панели

. Size = New Size (Me. Width - Panel1. Width - Panel1. Left - 30, Panel1. Height)

' Позиция

. Location = New Point (Panel1. Left + Panel1. Width + 10, 100)

' Задаем фон

b = Split (ini. ReadString ("RightPanel", "BackColor", "255,47,47,47"), ",")

. BackColor = System. Drawing. Color. FromArgb (b (0), b (1), b (2), b (3))

' Задаем Padding

b = Split (ini. ReadString ("RightPanel", "Padding", "10,10,10,10"), ",")

. Padding = New System. Windows. Forms. Padding (b (0), b (1), b (2), b (3))

. AutoScroll = True

Dim ss2 As String = Application. StartupPath & "\" & ini. ReadString ("RightPanel", "BackgroundImage")

If IO. File. Exists (ss2) Then

. BackgroundImage = New Bitmap (ss2)

. BackgroundImageLayout = ImageLayout. Stretch

End If

End With

' Теперь самое главное. Если в листбоксе ничего не выбрано тогда отображем видеофайлы который расположено в корневом папке

With Panel3

. Location = New Point (10,10)

b = Split (ini. ReadString ("RightPanel", "LayerBackColor", "255,47,47,47"), ",")

. BackColor = System. Drawing. Color. FromArgb (b (0), b (1), b (2), b (3))

. Size = New Size (Panel2. Width - 20, Panel2. Height - 20)

. AutoScroll = True

' Можно и загрузить картинку

Dim ss1 As String = Application. StartupPath & "\" & ini. ReadString ("RightPanel", "LayerBackgroundImage")

If IO. File. Exists (ss1) Then

. BackgroundImage = New Bitmap (ss1)

. BackgroundImageLayout = ImageLayout. Stretch

End If

Call CreateVideoList (dr. FullName)

End With

'Задаем параметры для кнопки Закрыт

With Label3

. Text = "X"

. AutoSize = False

. TextAlign = ContentAlignment. MiddleCenter

. Size = New Size (32, 32)

. Font = New Font ("Segoe IO", 14)

. BackColor = System. Drawing. Color. FromArgb (47, 47, 47)

. ForeColor = Color. White

. Location = New Point (Me. Width - . Width - 20, 30)

. BorderStyle = BorderStyle. FixedSingle

End With

' Задаем параметры для кнопки Настройки

With Label2

. AutoSize = False

. BackColor = Label3. BackColor

. ForeColor = Label3. ForeColor

. BorderStyle = BorderStyle. FixedSingle

. Size = New Size (150, Label3. Height)

. TextAlign = ContentAlignment. MiddleCenter

. Text = "Настройки"

. BorderStyle = BorderStyle. None

. Font = New Font ("Palatino Linotype", 14)

. Location = New Point (Label3. Left - . Width - 20, 30)

End With

End With

End Sub

Листинг 1.2.2.16 Функция для создания списка видеоуроков выбранного заданного раздела в форме.

Public Function CreateVideoList (ByVal sDirectory As String)

Try

Dim x, y As Integer

Dim drc As IO. DirectoryInfo = New IO. DirectoryInfo (sDirectory)

Dim dxVideo As videopanel

Dim ffiles () As IO. FileInfo = drc. GetFiles ()

Dim sFile () As IO. FileInfo

Dim cnt1 As Integer = 0

For i As Integer = 0 To ffiles. Length - 1

Select Case ffiles (i). Extension

Case". mp4"

ReDim Preserve sFile (cnt1)

sFile (cnt1) = ffiles (i)

cnt1 += 1

Case". flv"

ReDim Preserve sFile (cnt1)

sFile (cnt1) = ffiles (i)

cnt1 += 1

Case". avi"

ReDim Preserve sFile (cnt1)

sFile (cnt1) = ffiles (i)

cnt1 += 1

Case". wmv"

ReDim Preserve sFile (cnt1)

sFile (cnt1) = ffiles (i)

cnt1 += 1

End Select

Next

If ffiles. Length = 0 Then Exit Function

Dim cnt As Integer = Panel3. Width \ 300

Dim tmp As Integer = (Panel3. Width - (cnt * 310)) / 2

x = tmp

Dim tmpy As Integer

If tmp > 15 Then

y = 10

tmpy = y

Else

y = tmp

tmpy = y

End If

Panel3. Controls. Clear ()

For i As Integer = 0 To sFile. Length - 1

dxVideo = New videopanel

dxVideo. Size = New Size (300, 250)

dxVideo. VideoFile (sFile (i). FullName)

dxVideo. Location = New Point (x, y)

x += 310

If x = (cnt * 310 + tmp) Then

y += dxVideo. Size. Height + tmpy

x = tmp

End If

AddHandler dxVideo. Click, AddressOf ResizingPanel

Panel3. Controls. Add (dxVideo)

dxVideo. WriteText (sFile (i). Name)

dxVideo. BackColor = System. Drawing. Color. FromArgb (255, 47, 47, 47)

Application. DoEvents ()

Next

Catch ex As Exception

MsgBox (ex. Message)

End Try

End Function

Листинг 1.2.2.17 Функция для отображения выбранного видео файла в полноэкранном виде.

Public Function ResizingPanel (sender As Object, e As EventArgs)

Dim o As videopanel = sender

Dim vp As videopanel = New videopanel

vp. VideoFile (o. GetFileName (""))

Dim f As Form = New Form

With f

. Text = o. GetFileName ("")

. Location = New Point (0, 0)

. FormBorderStyle = Windows. Forms. FormBorderStyle. None

. Size = Screen. PrimaryScreen. WorkingArea. Size

With vp

. Size = New Size (f. Size. Width - 10, f. Size. Height - 10)

. Location = New Point (5,5)

. BackColor = System. Drawing. Color. FromArgb (255, 47, 47, 47)

End With

Dim l As Label = New Label

With l

. Name = "VideoPanels"

. AutoSize = True

. Text = "Закрыть"

. Font = New Font ("Palatino Linotype", 16)

. ForeColor = System. Drawing. Color. FromArgb (47, 47, 47)

. BackColor = System. Drawing. Color. FromArgb (0, 150, 242)

. Location = New Point (40, f. Size. Height + 5)

AddHandler. Click, AddressOf CloseWindow

End With

. Controls. Add (l)

. Controls. Add (vp)

vp. WriteText (o. GetFileName (""))

. StartPosition = FormStartPosition. CenterScreen

. WindowState = FormWindowState. Maximized

. TopMost = True

. TopLevel = True

End With

f. Show ()

End Function

Описание окно настроек Form2. Данное окно позволяет выполнят настройку данных приложения. С помощью этого окна можно добавлять и удалять данные.

Листинг 1.2.2.18 Процедура загрузки формы

Private Sub Form2_Load (sender As Object, e As EventArgs) Handles MyBase. Load

dr = New DirectoryInfo (ini. ReadString ("Application", "WorkPath", Application. StartupPath & "\data"))

Dim d () As DirectoryInfo = dr. GetDirectories

TextBox1. Text = dr. FullName

If d. Length <> 0 Then

For i As Integer = 0 To d. Length - 1

ComboBox1. Items. Add (d (i). Name)

Next

End If

Dim finfo () As FileInfo = dr. GetFiles ("*. mp4")

If finfo. Length = 0 Then Exit Sub

CheckedListBox1. Items. Clear ()

For i As Integer = 0 To finfo. Length - 1

CheckedListBox1. Items. Add (finfo (i). Name)

Next

End Sub

Листинг 1.2.2.19 Функция копирования нескольких файлов

Public Function CopyFiles ()

If currentfile >= sourcefiles. Length Then

Timer1. Stop ()

Timer1. Enabled = False

currentfile = 0

Label3. Text = "Копировано"

Button3. Enabled = True

Exit Function

End If

ProgressBar1. Value = 0

cSourceFile = sourcefiles (currentfile)

cDestination = destination (currentfile)

finfo_ = New FileInfo (cSourceFile)

Max_ = finfo_. Length

CheckedListBox1. Items. Add (safefilenames (currentfile))

ProgressBar1. Maximum = Max_

Label3. Text = safefilenames (currentfile)

Call My.computer. FileSystem. CopyFile (cSourceFile, cDestination, True)

End Function

Листинг 1.2.2.20 Процедура таймера для копирования нескольких файлов

Private Sub Timer1_Tick (sender As Object, e As EventArgs) Handles Timer1. Tick

fInfo = New IO. FileInfo (cDestination)

intRazm = fInfo. Length

ProgressBar1. Value = intRazm

ProgressBar1. Refresh ()

Label3. Refresh ()

If intRazm = Max_ Then

currentfile += 1

If ProgressBar1. Value <> ProgressBar1. Maximum Then ProgressBar1. Value = ProgressBar1. Maximum

Call CopyFiles ()

End If

Application. DoEvents ()

End Sub

Листинг 1.2.3.21 Процедура удаления выбранных файлов

Private Sub Button3_Click (sender As Object, e As EventArgs) Handles Button3. Click

If CheckedListBox1. Items. Count = 0 Then Exit Sub

Dim s () As String

Dim cnt As Integer = 0

Страница:

•  1 
•  2 

дипломная работа "Разработка учебно-методического комплекса для проведения интерактивных уроков с использованием электронной доски по дисциплине "Немецкий язык"" скачать

Подобные документы

• Разработка учебно-методического электронного комплекса

  Обзор графических редакторов: Paint.NET, Photoscape и Adobe Photoshop. Логическая структура учебно-методического электронного комплекса по дисциплине "Информатика". Редактирование главной страницы. Расчет затрат на его разработку и эксплуатацию.
  
  дипломная работа [24,5 M], добавлен 18.10.2015
  

• Разработка программного обеспечения для организации интерфейса программно-методического комплекса

  Выбор базовых программных средств для разработки оригинального программного обеспечения. Компоненты программно-методического комплекса проектирования токарных операций. Программное обеспечение для организации интерфейса программно-методического комплекса.
  
  дипломная работа [2,8 M], добавлен 14.05.2010
  

• Электронный учебно-методический комплекс по дисциплине "Введение в циркумполярное регионоведение" для студентов заочного обучения

  Создание электронного учебно-методического комплекса как педагогическая проблема. Структура электронного учебно-методического комплекса. Требования к блоку самоконтроля. Место циркумполярного регионалистики в системе общеэкономических дисциплин.
  
  дипломная работа [3,5 M], добавлен 26.05.2012
  

• Разработка программного обеспечения для станка с ЧПУ FMS-3200

  Разработка системы бережливого производства на ООО "Нижегородские моторы", создание программного обеспечения для станка с ЧПУ FMS-3200. Технология решения задачи, функциональные возможности и структура программы. Язык программирования электроавтоматики.
  
  отчет по практике [555,3 K], добавлен 27.05.2014
  

• Документирование процесса разработки программного обеспечения с использованием UML

  Выбор, обоснование и особенности языка программирования. Вербальное и графическое описание функционального назначения системы. Разработка диаграммы классов, описывающей логическую модель системы. Проектирование физической структуры программного средства.
  
  курсовая работа [2,4 M], добавлен 26.05.2014
  

• Создание электронного учебно-методического пособия по дисциплине "Глобальная компьютерная сеть - Интернет"

  Обзор задач электронного учебно-методического пособия по дисциплине "Глобальная компьютерная сеть - Интернет". Подборка материала, разработка названий тем и глав, вопросов к лекциям, для зачёта. Требования к составу и параметрам технических средств.
  
  практическая работа [1,4 M], добавлен 21.06.2012
  

• Модернизация электронного учебно-методического комплекса

  Анализ структуры электронного учебно методического комплекса по дисциплине "Проектирование АСОИУ". Цели модернизации электронного учебно-методического комплекса. Общие сведения о системе проверки остаточных знаний, ее алгоритма функционирования.
  
  дипломная работа [1,3 M], добавлен 11.07.2010
  

• Разработка приложения "Передачи данных по сети"

  Проектирование программного модуля: сбор исходных материалов; описание входных и выходных данных; выбор программного обеспечения. Описание типов данных и реализация интерфейса программы. Тестирование программного модуля и разработка справочной системы.
  
  курсовая работа [81,7 K], добавлен 18.08.2014
  

• Программирование с использованием подпрограмм на языке С

  Разработка прикладного программного обеспечения для решения задачи для персонального компьютера. Структура подпрограммы, механизмы передачи параметров и возврат результатов из подпрограммы. Вызов подпрограммы на выполнение. Отладка программы на языке С.
  
  курсовая работа [818,1 K], добавлен 03.01.2014
  

• Создание программного комплекса для повышения доступности и отказоустойчивости информационной системы, разрабатываемой на предприятии ЗАО "Компания РОС"

  Разработка программного комплекса и описание алгоритма. Разработка пользовательского интерфейса. Анализ тестовых испытаний программного блока. Защита пользователей от воздействия на них опасных и вредных факторов. Режимы работы программного комплекса.
  
  дипломная работа [1,7 M], добавлен 14.03.2013
  

• Разработка программного и информационного обеспечения электронного учебно-методического комплекса по предмету информатика на примере 9 класса

  Знакомство с особенностями создания электронного учебно-методического комплекса по предмету информатика на примере 9 класса. Общая характеристика среды Turbo Pascal 7.0. Анализ приоритетных направлений процесса информатизации современного общества.
  
  дипломная работа [3,7 M], добавлен 23.04.2015
  

• Разработка электронного практикума по дисциплине "Мультимедиа технологии"

  Обзор систем дистанционного образования. Функционально-ориентированное проектирование электронного практикума по дисциплине "Мультимедиа технологии". Разработка информационного и программного обеспечения системы. Построение логической модели данных.
  
  дипломная работа [2,7 M], добавлен 27.10.2017
  

• Создание интерактивных сервисов доступа к расписанию занятий СевКавГТУ

  Разработка интерактивных сервисов доступа к расписанию занятий СевКавГТУ в среде программирования Eclipse и базы данных для них с использованием фреймворк Django. Информационное и программное обеспечение разработки. Расчет цены программного продукта.
  
  дипломная работа [6,1 M], добавлен 29.06.2011
  

• Разработка прикладного программного обеспечения для многоканального измерительного прибора Ш9327

  Современные инструменты разработки программного обеспечения для СУТП. Универсальные языки программирования и сравнение их со SCADA-системами. Разработка программного обеспечения с использованием многоканальных измерительных преобразователей Ш9327.
  
  дипломная работа [2,3 M], добавлен 13.07.2011
  

• Создание Web-сайта "Интернет-магазин программного обеспечения"

  Обзор программного обеспечения электронного магазина, использование языка программирования VbScript. Модельная и физическая структура, разработка регистрационной формы Web-сайта, подключение его к базе данных. Особенности создания страницы пользователя.
  
  курсовая работа [2,2 M], добавлен 03.04.2013
  

• Проектирование программного обеспечения электронного экзаменатора

  Использование интерактивных средств обучения в младшей школе. Анализ необходимости внедрения современных компьютерных технологий в начальную школу. Разработка электронного экзаменатора по информатике средствами Visual Basic, описание созданной программы.
  
  дипломная работа [4,5 M], добавлен 19.12.2013
  

• Разработка программного продукта на языке высокого уровня

  Pascal - высокоуровневый язык программирования общего назначения и интегрированная среда разработки программного обеспечения для платформ DOS и Windows. Входная информация, требуемая для решения задачи и принятые обозначения; описание алгоритма.
  
  курсовая работа [259,6 K], добавлен 18.01.2011
  

• Разработка Web-приложения средствами C++ Builder

  Разработка программного модуля, программного обеспечения для компьютерных систем средствами C++ Builder. Разработка карты и интерфейса сайта. Алгоритмы реализации интерактивных функций программы. Пропускная способность линии связи. Программный код сайта.
  
  отчет по практике [1,2 M], добавлен 16.09.2012
  

• Виды программного обеспечения. Общие требования к программным системам

  Цели и задачи программной инженерии. Понятие программного обеспечения. Шесть принципов эффективного использования программного обеспечения. Виды программного обеспечения: общесистемное, сетевое и прикладное. Принципы построения программного обеспечения.
  
  курсовая работа [30,4 K], добавлен 29.06.2010
  

• Создание базы данных "Кадры предприятия"

  Порядок проектирования и разработки базы данных и программного обеспечения. Информация о структуре базы данных, созданных таблицах, формах, отчетах, запросах, хранимой информации. Логическая и концептуальная модели данных; выбор программного обеспечения.
  
  курсовая работа [906,6 K], добавлен 20.01.2010
  

• главная
• рубрики
• по алфавиту
• вернуться в начало страницы
• вернуться к началу текста
• вернуться к подобным работам