TrackBar и Timer

@dragonvs · Регистрация: 11.03.2012

Студворк — интернет-сервис помощи студентам

Привет уважаемые форумчани !
Не знаю как закрепить Timer с TrackBar так, что бы при перемотке песни, время менялось, а не тупо отсчитывало время.
Заранее благдарен.

Ddv122 · 30.04.2012, 12:51

Сообщение от dragonvs

Time

Может MediaPlayer?

@dragonvs · 30.04.2012, 12:54 **[ТС]**

Да, верно =)

Ddv122 · 30.04.2012, 12:56

dragonvs,

C++
1
2
TrackBar1->Max = MediaPlayer1->Length();
TrackBar1->Position = MediaPlayer1->Position;

И посмотрите тему

@dragonvs · 30.04.2012, 13:02 **[ТС]**

Вот в этом событии все следует писать ?

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::TrackBar2Change(TObject *Sender)
{
TrackBar2->Max = MediaPlayer1->Length;
TrackBar2->Position = MediaPlayer1->Position;
  if((MediaPlayer1->Position > TrackBar2->Position + 10) ||
    (MediaPlayer1->Position < TrackBar2->Position - 10))
    {
      MediaPlayer1->Pause();
      MediaPlayer1->Position = TrackBar2->Position;
      MediaPlayer1->Play();
    }
}

Ddv122 · 30.04.2012, 13:21

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
bool set_track; //ãëîáàëüíîé îáúÿâëåíà äëÿ ñêîðîñòè íàïèñàíèÿ)
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
MediaPlayer1->Open();
   TrackBar1->Position = 0;
   TrackBar1->Max = MediaPlayer1->Length;
   MediaPlayer1->Play();
   Timer1->Enabled = true;
   set_track = false;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
if (TrackBar1->Focused() && MediaPlayer1->Mode == mpPlaying) 
   {
   MediaPlayer1->Position = TrackBar1->Position;
   MediaPlayer1->Play();
   MediaPlayer1->SetFocus();
   set_track = true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if(MediaPlayer1->Mode == mpPlaying)
   {
 
       if (set_track==true)
         {
         MediaPlayer1->Position= TrackBar1->Position;
         MediaPlayer1->Play();
         set_track = false;
         }
       else
         {
         TrackBar1->Position = MediaPlayer1->Position;
         }
   }
   else Timer1->Enabled = false;        
}
//---------------------------------------------------------------------------

Вот весь листинг рабочего кода....

@dragonvs · 30.04.2012, 13:57 **[ТС]**

EdarGp, Даже и не знаю... как в моем коде поменять... что бы все это работало... вывод времени у меня через label2 ...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
#include <vcl.h>
#pragma hdrstop
 
#include "MainForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
#include "FileCtrl.hpp"  // для доступа к TSearchRec
 
AnsiString SoundPath; // путь к MP3 файлам
int min,sec;   // время воспроизведения (минуты, секунды)
 
int mode = 0;  // 0 - режим "Стоп"
               // 1 - режим "Воспроизведение"
 
/* Процедуре vaweOutSetVolume в качестве параметра
   передается двойное слово, старший байт которого
  определяет громкость левого канала, младший - правого.
  Определив таким образом тип TVolume, имеется возможноcть
  независимой регулировки громкости каждого канала.
  Максимальной громкости канала соответствует значение 0xFFFF.
*/
union TVolume{
          unsigned long Volume;
          struct
            {
                Word Left;
                Word Right;
            };
    } volume;
 
 
// начало работы программы
void __fastcall TForm1::FormActivate(TObject *Sender)
{
    PlayList("");
 
    // установить регулятор громкости в соответствии
    // с текущим уровнем, установленным в системе
    waveOutGetVolume(0,&volume.Volume);
    TrackBar1->Position = 0xFFFF -volume.Left;
}
 
// формирует список MP3 файлов, находящихся в указанном каталоге
void __fastcall TForm1::PlayList(AnsiString path)
{
    TSearchRec SearchRec;  // структура SearchRec содержит информацию
                           // о файле, удовлетворяющем условию поиска
   // сформировать список mp3 файлов
   if (FindFirst(path + "*.mp3", faAnyFile, SearchRec) == 0 )
   {
        // в каталоге есть файл с расширением mp3
        // добавим имя этого файла в список
        ListBox1->Items->Add(SearchRec.Name);
        // есть еще mp3-файлы ?
        while (FindNext(SearchRec) == 0)
              ListBox1->Items->Add(SearchRec.Name);
   }
   ListBox1->ItemIndex = 0;
   SpeedButton1->Enabled = false;
}
 
// активизировать воспроизведение MP3 файла, имя которого
// выделено в списке ListBox
void __fastcall TForm1::Play()
{
    Timer1->Enabled = false;
    Label1->Caption = ListBox1->Items->Strings[ListBox1->ItemIndex];
    MediaPlayer1->FileName =
          SoundPath + ListBox1->Items->Strings[ListBox1->ItemIndex];
 
 
    MediaPlayer1->Open();
    MediaPlayer1->Position=TrackBar2->Position;
    MediaPlayer1->Play();
    min = 0;
    sec = 0;
    Timer1->Enabled = true;
 
    SpeedButton2->Glyph = SpeedButton6->Glyph;
    SpeedButton2->Hint = "Stop";
    SpeedButton2->Tag = 1;
 
}
 
// остановить воспроизведение
void __fastcall TForm1::Stop()
{
    MediaPlayer1->Stop();
    Timer1->Enabled = false;
    Label2->Caption = "0:00";
 
    SpeedButton2->Tag = 0;
    SpeedButton2->Glyph = SpeedButton5->Glyph;
    SpeedButton2->Hint = "Play";
}
 
// Щелчок на названии произведения
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
    if ( SpeedButton2-> Tag == 0 )
        // вывести в поле метки Label1 имя выбранного файла
        Label1->Caption = ListBox1->Items->Strings[ListBox1->ItemIndex];
    else
        Play(); // активизировать процесс воспроизведения
 
    // управление доступностью кнопок
    // "К следующей" и "К предыдущей"
    if (ListBox1->ItemIndex == 0) // выбран первый э-т списка
        SpeedButton1->Enabled = false;
    else {
         if (ListBox1->ItemIndex == ListBox1->Items->Count -1)
              SpeedButton3->Enabled = false;
         else {
            if (! SpeedButton1->Enabled)
                    SpeedButton1->Enabled = true;
            if (! SpeedButton3->Enabled)
                    SpeedButton3->Enabled = true;
         }
    }
}
 
// Щелчок на кнопке Play/Stop
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
  // свойство Tag хранит информацию о состоянии
  // плеера: 0 - стоп; 1 - воспроизведение
  if ( SpeedButton2->Tag == 0 )
      // начать воспроизведение
      Play();
  else
        // если кнопка Воспроизведение нажата,
        // то повторное нажатие останавливает
        // воспроизведение
     Stop();
}
 
// щелчок на кнопке Предыдущий трек
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
    if ( ListBox1->ItemIndex > 0 )
        ListBox1->ItemIndex = ListBox1->ItemIndex - 1;
    if ( SpeedButton2->Tag == 1 )
        Play();
 
    // управление доступностью кнопок "<<" ">>"
    if (ListBox1->ItemIndex == 0)
        SpeedButton1->Enabled = false;
 
    if ( (! SpeedButton3->Enabled) && (ListBox1->Items->Count > 1 ))
         SpeedButton3->Enabled = true;
}
 
// щелчок на кнопке Следующий трек
void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{
    if ( ListBox1->ItemIndex < ListBox1->Count )
        ListBox1->ItemIndex = ListBox1->ItemIndex + 1;
    if ( SpeedButton2->Tag == 1 )
        Play();
 
    // управление доступностью кнопок "<<" ">>"
    if (ListBox1->ItemIndex  == ListBox1->Items->Count-1)
        SpeedButton3->Enabled = false;
 
    if ( (! SpeedButton1->Enabled) && (ListBox1->Items->Count > 1 ))
         SpeedButton1->Enabled = true;
}
 
// сигнал от таймера
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    AnsiString st;
    TrackBar2->Position = MediaPlayer1->Position;
    // изменить счетчик времени
    if ( sec < 59 )
        sec++;
    else
    {
        sec =0;
        min++;
    }
    // вывести время воспроизведения
    st = IntToStr(min)+":";
    if ( sec < 10 )
        st = st + "0" + IntToStr(sec);
    else st = st + IntToStr(sec);
 
    Label2->Caption = st;
 
    // если воспроизведение текущей завершено
    if ( MediaPlayer1->Position == MediaPlayer1->Length)
    {
        // воспроизведение текущей композиции закончено
        Timer1->Enabled = false; // остановить таймер
        MediaPlayer1->Stop();      // остановить плеер
 
        if ( ListBox1->ItemIndex < ListBox1->Count -1 )
        {
            // список не исчерпан
            ListBox1->ItemIndex = ListBox1->ItemIndex + 1;
            Play();
        }
        else {
                /*
                ListBox1->ItemIndex = 0;
                Play();
                */
                Stop();
            }
    }
}
 
// Щелчок на кнопке Eject
// Выбрать папку, в которой находятся MP3 файлы
void __fastcall TForm1::SpeedButton4Click(TObject *Sender)
{
  AnsiString Dir;
 
  if  ( SelectDirectory("Выберите папку,"
           " в которой находятся mp3-файлы", "", Dir) )
  {
    Dir = Dir + "\\";
 
    // каталог, в котором находятся MP3 файлы выбран
    SoundPath = Dir;
    PlayList(SoundPath);
  }
}
 
// нажатие кнопки мыши в поле компонента Image1
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  // У окна программы заголовка нет.
  // Обманем Windows. Пусть OC думает, что кнопка
  // нажата и удерживается в заголовке окна. В этом случае пользователь
  // может перемещать окно обычным образом.
  ReleaseCapture();
  SendMessage(Form1->Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
}
 
// Выбор в контекстном меню команды Закрыть
void __fastcall TForm1::N1Click(TObject *Sender)
{
    MediaPlayer1->Close();
    Form1->Close();
}
 
// изменилось положение регулятора громкости
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
    volume.Left = 0xFFFF - TrackBar1->Position;
    volume.Right = 0xFFFF - TrackBar1->Position;
    waveOutSetVolume(0,volume.Volume);
}
 
 
// кнопка закрыть окно программы
void __fastcall TForm1::SpeedButton7Click(TObject *Sender)
{
    MediaPlayer1->Close();
    Form1->Close();
}
 
 
// Промотка
void __fastcall TForm1::TrackBar2Change(TObject *Sender)
{
TrackBar2->Max = MediaPlayer1->Length;
  if((MediaPlayer1->Position > TrackBar2->Position + 10) ||
    (MediaPlayer1->Position < TrackBar2->Position - 10))
    {
      MediaPlayer1->Pause();
      MediaPlayer1->Position = TrackBar2->Position;
      MediaPlayer1->Play();
    }
}
//---------------------------------------------------------------------------

Ddv122 · 30.04.2012, 14:08

На TrackBarЕ должен быть статус проигрывания песни?И перемотка?Вы этого хотите?

@dragonvs · 30.04.2012, 14:40 **[ТС]**

EdarGp, trackbar у меня в качестве перемотки песни уже работает, так же через label2 выводится у меня время воспроизведения, которое нужно как то зафиксировать с этим trackbar, что бы они вместе работали. Просто сейчас, когда проматываешь песню, время не меняется...

Ddv122 · 30.04.2012, 14:43

dragonvs, если не сложно выложите проект на форум, имы что нибудь придумаем?

@dragonvs · 30.04.2012, 14:56 **[ТС]**

EdarGp, хорошо, заранее благодарен за помощь ! Mp3.7z

Ddv122 · 30.04.2012, 15:05

dragonvs, у меня 6 builder, проект не запускается. Вам нужно значение значение TrackBar2-> поместить в Edit2?

@dragonvs · 30.04.2012, 15:17 **[ТС]**

EdarGp, в смысле ? что то не понял.... (

Ddv122 · 30.04.2012, 15:32

C++
1
2
3
4
5
6
7
 // вывести время воспроизведения
    st = IntToStr(min)+":";
    if ( sec < 10 )
        st = st + "0" + IntToStr(sec);
    else st = st + IntToStr(sec);
 
    Label2->Caption = st;

Сюда мы должны вывести позицию с TaskBara?
тогда будет так

C++
1
Label2->Caption=TrackBar2->Position;

Добавлять в таймер вроде как...

@dragonvs · 30.04.2012, 16:38 **[ТС]**

EdarGp, да теперь работает, но осталась последняя проблема. В label2 теперь выводится не в формате времени ... а какие то просто числа. сейчас добавлю скриншот.

Ddv122 · 30.04.2012, 16:44

Возможно что Миллисекунды?

@dragonvs · 30.04.2012, 16:45 **[ТС]**

EdarGp, да похоже на то. первая цифра этого числа секунды отсчитывает явно.

Ddv122 · 30.04.2012, 16:52

C++
1
Label2->Caption=TrackBar2->Position/1000;

в 1 секунды вроде 1000мс)ну не уверен...

@dragonvs · 30.04.2012, 16:59 **[ТС]**

EdarGp, да стал секунды выводить... надо теперь как то попробовать заставить его и минуты.... выводить... странно почему не выводит минуты, до этого выводил...

Ddv122 · 30.04.2012, 17:03

dragonvs,

C++
1
Label2->Caption=TrackBar2->Position/1000/60;

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@dragonvs 1 / 1 / 1 Регистрация: 11.03.2012 Сообщений: 22

	TrackBar и Timer 30.04.2012, 12:39. Показов 7141. Ответов 22 Метки нет (Все метки) Привет уважаемые форумчани ! Не знаю как закрепить Timer с TrackBar так, что бы при перемотке песни, время менялось, а не тупо отсчитывало время. Заранее благдарен. 0

@dragonvs 1 / 1 / 1 Регистрация: 11.03.2012 Сообщений: 22
	30.04.2012, 12:54 [ТС]
	Да, верно =) 0

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	30.04.2012, 14:08
	На TrackBarЕ должен быть статус проигрывания песни?И перемотка?Вы этого хотите? 0

@dragonvs 1 / 1 / 1 Регистрация: 11.03.2012 Сообщений: 22
	30.04.2012, 14:40 [ТС]
	EdarGp, trackbar у меня в качестве перемотки песни уже работает, так же через label2 выводится у меня время воспроизведения, которое нужно как то зафиксировать с этим trackbar, что бы они вместе работали. Просто сейчас, когда проматываешь песню, время не меняется... 0

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	30.04.2012, 14:43
	dragonvs, если не сложно выложите проект на форум, имы что нибудь придумаем? 0

@dragonvs 1 / 1 / 1 Регистрация: 11.03.2012 Сообщений: 22
	30.04.2012, 14:56 [ТС]
	EdarGp, хорошо, заранее благодарен за помощь ! Mp3.7z 0

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	30.04.2012, 15:05
	dragonvs, у меня 6 builder, проект не запускается. Вам нужно значение значение TrackBar2-> поместить в Edit2? 0

@dragonvs 1 / 1 / 1 Регистрация: 11.03.2012 Сообщений: 22
	30.04.2012, 15:17 [ТС]
	EdarGp, в смысле ? что то не понял.... ( 0

@dragonvs 1 / 1 / 1 Регистрация: 11.03.2012 Сообщений: 22
	30.04.2012, 16:38 [ТС]
	EdarGp, да теперь работает, но осталась последняя проблема. В label2 теперь выводится не в формате времени ... а какие то просто числа. сейчас добавлю скриншот. Миниатюры 0

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	30.04.2012, 16:44
	Возможно что Миллисекунды? 0

@dragonvs 1 / 1 / 1 Регистрация: 11.03.2012 Сообщений: 22
	30.04.2012, 16:45 [ТС]
	EdarGp, да похоже на то. первая цифра этого числа секунды отсчитывает явно. 0

@dragonvs 1 / 1 / 1 Регистрация: 11.03.2012 Сообщений: 22
	30.04.2012, 16:59 [ТС]
	EdarGp, да стал секунды выводить... надо теперь как то попробовать заставить его и минуты.... выводить... странно почему не выводит минуты, до этого выводил... 0