| shizofren | Дата: Пятница, 20 Апреля 2012, 10:44 | Сообщение # 1 |
Starting MS-DOS...
Сейчас нет на сайте
| Как воспроизвести музыку в программе?
Есть множество способов сделать это, мы будем использовать плагин Windows Media Player.
1. Добавим библиотеку в вашу программу Project => Add Reference => COM => Windows Media Player
2. Добавим класс в программу:
Code
Public Class frmMusic
Dim wmp As New WMPLib.WindowsMediaPlayerClass()
3. Функции для управления музыкой:
Code
wmp.currentMedia = wmp.newMedia("Имя файла.mp3") 'Выбираем файл для воспроизведения
wmp.controls.play() 'Начать воспроизведение
wmp.controls.stop() 'Остановить воспроизведение
Как прочитать текстовые файлы?
Построчное чтение:
Code
FileOpen(Номер файла, "Путь к файлу", OpenMode.Input)
Input(Номер файла, Переменная)
Переменная = LineInput(Номер файла)
FileClose(Номер файла)
Теперь рассмотрим всё по отдельности. Номер файла - любое числовое значение, означает номер открытого файла.Желательно не держать много открытых файлов. Лично я всегда ставлю 1, потом при завершении чтения я его закрываю. Input - считывается строка файла до запятой, после запятой начинается новая строка. Согласитесь, иногда это не очень удобно. LineInput - считывание строки файла с учётом абсолютно всех символов. Переменная - переменная, куда запишется значение строки.
Пример. Имеем текстовый файл Lesson1.txt с таким содержимым:
Теперь считаем этот файл функцией Input с учётом того, что есть две переменные типа string: var1, var2.
Code
FileOpen(1, "Lesson1.txt", OpenMode.Input)
Input(1, var1)
Input(1, var2)
FileClose(1)
Рассмотрим, какие значения имеют переменные:
var1 = Привет
var2 = мир.
Считываем этот же файл с помощью LineInput:
Code
FileOpen(1, "Lesson1.txt", OpenMode.Input)
var1 = LineInput(1)
var2 = LineInput(1)
FileClose(1)
Рассмотрим, какие значения имеют переменные:
var1 = Привет, мир.
var2 = Конец.
Надеюсь, понятно почему?
Как записывать текстовые данные в файл?
Парадокс, но записать данные в файл намного легче, чем их считать. Для этого мы будем использовать функцию PrintLine, которая будет построчно записывать указаное значение в файл. Рассмотрим синтаксис:
Code
FileOpen(Номер файла, Путь к файлу, OpenMode.Output)
PrintLine(Номер файла, Значение)
FileClose(Номер файла)
Прошу обратить внимание на режим открытия файла: OpenMode.Output - файл открывается для записи, OpenMode.Input - файл открыт для чтения. Теперь рассмотрим наш PrintLine на практике:
Code
FileOpen(1, "Lesson1.txt", OpenMode.Output)
PrintLine(1, var1)
PrintLine(1, TextBox1.Text)
PrintLine(1, "Конец.")
FileClose(1)
Результатом наших мытарств будет то, что в файле Lesson1.txt первая строка будет аналогинча переменной var1, вторая строка - тест из TextBox1, третья - слово Конец.
Со временем тема будет пополняться.
Добавлено (20.04.2012, 10:44)
---------------------------------------------
Добавлен совет по записи в файл.
Моя команда
Сообщение отредактировал shizofren - Пятница, 20 Апреля 2012, 15:54 |
|
|
| |
