Список ссылок

1. Король, Владимир Иванович. Visual Basic.NET, Visual Basic for Applications 6.0: Язык программирования: Справ. с прим. / В.И. Король. - М.: Кудиц-Образ, 2000. - 446 с.

2. Стивенс, Род. Visual Basic: Тестирование и отладка программ: [Пер. с англ.] / Род Стивенс. - М.: ДМК, 2004. - 378 с.

3. Браун, Стив. Visual Basic.NET: Учеб. курс / С. Браун. - М. и др.: Питер, 2005. - 574 с.

4. Visual Basic.NET: [Наиболее полное рук. для проф. работы в среде Visual Basic.NET] / Пер. с англ. А. Маторосова. - СПб.:БХВ-Петербург, 2003. - 956 с.

5. Лисков, Барбара. Использование абстракций и спецификаций при разработке программ / Лисков, Б. Гатэг Д.; Пер. с англ. С. А. Жигалкина и др. - М.: Мир, 1989. - 424 с.

6. Блехман, Михаил Самойлович. Базы данных. Учебник для вузов: Ок. 17000 терминов. - Харьков, 1993. - 208 с.

7. Кнут, Дональд Э. Основы баз данных: [В 7 т.]: Пер. с англ. - М.: Мир, 1977. - Т. 2: Базы данных / Пер. с англ. Г. П. Бабенко и др.; Под

8. Грайс, Дэвид. Графические средства персонального компьютера / Пер. с англ. С. П. Забродина и А. В. Шалашова. - М.: Мир, 1989. - 379 с.

9. Светозарова, Галина Ивановна. Базы данных: модели, разработка, реализация / Г. И. Светозарова, А. В. Козловский, Е. В. Сигитов; Под ред. С. В.

10. Коберниченко, Алексей. Visual Studio 6.: Базы данных. Локальные базы данных / Алексей Коберниченко. - М.: Нолидж, 1999. - 255 с.

11. http://ru.wikipedia.org/wiki/Last.fm.

12. http://ru.wikipedia.org/wiki/YouTube.

Приложение А Модуль “MP3_Tags.vb”

' Refresh (gets all tags from the specified file)

Public Sub Refresh()

' Declarations

Dim strTag As New String(" ", 3)

Dim strTitle As New String(" ", 30)

Dim strArtist As New String(" ", 30)

Dim strAlbum As New String(" ", 30)

Dim strYear As New String(" ", 4)

Dim strComment As New String(" ", 28)

Dim bytDummy As Byte

Dim bytTrack As Byte

Dim bytGenre As Byte

' Open the file

Dim intFile As Integer = FreeFile()

FileOpen(intFile, mstrFilename, OpenMode.Binary, OpenAccess.Read, OpenShare.LockWrite)

' Gets length of file

Dim lngLOF As Long = LOF(intFile)

If (lngLOF > 128) Then

' Check for the ID3v1 tag

FileGet(intFile, strTag, lngLOF - 127, True)

If (strTag.ToUpper <> "TAG") Then

' No ID3v1 tag found

mblnTagExists = False

mobjFrame(0) = ""

mobjFrame(1) = ""

mobjFrame(2) = ""

mobjFrame(3) = ""

mobjFrame(4) = ""

mobjFrame(5) = ""

mobjFrame(6) = ""

Else

' ID3v1 tag found

mblnTagExists = True

' Read all frames from the file

FileGet(intFile, strTitle)

FileGet(intFile, strArtist)

FileGet(intFile, strAlbum)

FileGet(intFile, strYear)

FileGet(intFile, strComment)

FileGet(intFile, bytDummy)

FileGet(intFile, bytTrack)

FileGet(intFile, bytGenre)

' Assign the frame content to the properties

mobjFrame(0) = strTitle

mobjFrame(1) = strArtist

mobjFrame(2) = strAlbum

mobjFrame(3) = strYear

mobjFrame(4) = bytTrack

mobjFrame(5) = strComment

mobjFrame(6) = bytGenre

End If

End If

' Close the file

FileClose(intFile)

End Sub

Рисунок А.1 – Функция считывания данных из ID3V1

' Update

Public Sub Update()

' Declarations

Dim strTag As New String(" ", 3)

Dim strTitle As New String(" ", 30)

Dim strArtist As New String(" ", 30)

Dim strAlbum As New String(" ", 30)

Dim strYear As New String(" ", 4)

Dim strComment As New String(" ", 28)

Dim bytDummy As Byte

Dim bytTrack As Byte

Dim bytGenre As Byte

' Open the file

Dim intFile As Integer = FreeFile()

FileOpen(intFile, mstrFilename, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockWrite)

' Gets length of file

Dim lngLOF As Long = LOF(intFile)

If (lngLOF > 0) Then

If (lngLOF > 128) Then

' Check for an existing ID3v1 tag

FileGet(intFile, strTag, lngLOF - 127)

If (strTag.ToUpper <> "TAG") Then

' No ID3v1 tag found, so just add one

Seek(intFile, lngLOF)

strTag = "TAG"

FilePut(intFile, strTag)

End If

' Fix the length of the frames

strTitle = LSet(mobjFrame(0), Len(strTitle))

strArtist = LSet(mobjFrame(1), Len(strArtist))

strAlbum = LSet(mobjFrame(2), Len(strAlbum))

strYear = LSet(mobjFrame(3), Len(strYear))

bytTrack = mobjFrame(4)

strComment = LSet(mobjFrame(5), Len(strComment))

bytGenre = mobjFrame(6)

' Write the frames to the file

FilePut(intFile, strTitle)

FilePut(intFile, strArtist)

FilePut(intFile, strAlbum)

FilePut(intFile, strYear)

FilePut(intFile, strComment)

FilePut(intFile, bytDummy)

FilePut(intFile, bytTrack)

FilePut(intFile, bytGenre)

End If

End If

' Close the file

FileClose(intFile)

End Sub

Рисунок А.2 – Функция записи данных ID3V1

Дата добавления: 2015-07-25