Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.01.2012, 18:19
Аватар для sariman
sariman sariman вне форума
Активный
 
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
По умолчанию Регулирование громкости BASS

как получить текущую громкость в TrackBar.Position? что бы было в диапазоне от 1 до 100? подскажите плз)

Последний раз редактировалось sariman, 30.01.2012 в 18:50.
Ответить с цитированием
  #2  
Старый 30.01.2012, 21:14
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Громкость чего, в BASS-е несколько понятий громкости. Громкость потока в диапазоне 0..1, глобальная горомкость потока 0..10000, системная громкость 0..1. Так какую нужно изменять? Вот от этого и исходи.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
sariman (31.01.2012)
  #3  
Старый 30.01.2012, 21:48
Аватар для sariman
sariman sariman вне форума
Активный
 
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
По умолчанию

имеется ввиду системная громкость
Ответить с цитированием
  #4  
Старый 30.01.2012, 22:00
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Если параметр Max у TrackBar-а равен 100, то:
Код:
  BASS_SetVolume(TrackBar.Position / 100)
иначе:
Код:
  BASS_SetVolume(TrackBar.Position / TrackBar.Max)
и получить также, только используем BASS_GetVolume
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
sariman (31.01.2012)
  #5  
Старый 30.01.2012, 23:59
Аватар для sariman
sariman sariman вне форума
Активный
 
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
По умолчанию

та чет не получается, пишет Incompatible types: 'Integer and 'Extended', объявляю переменную VolumeGeneral типа integer.
Ответить с цитированием
  #6  
Старый 31.01.2012, 00:06
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Как люди не любят читать справку, там на английском по-белому написано - тип Single. Откуда Integer взялся?
Кстати, разве не видно, что для деления я использую /, а не div?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
sariman (31.01.2012)
  #7  
Старый 31.01.2012, 00:19
Аватар для sariman
sariman sariman вне форума
Активный
 
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
По умолчанию

хорошо,определил тип single пишет Incompatible types: 'Integer' and 'Single', при объявлении var VolumeGeneral: Single; при создании формы назначаю переменную VolumeGeneral:=BASS_GetVolume/100; не пашет
Ответить с цитированием
  #8  
Старый 31.01.2012, 00:28
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Код:
var
  fDefMusicVolume : Single;
...
  fDefMusicVolume := BASS_GetVolume;
  TrackBar.Position := Trunc(fDefMusicVolume * 100);
В fDefMusicVolume величина в пределах 0..1, а ты ещё умудрился на 100 разделить.
P.S. тип Single появился с версии 2.4, в 2.3 был Integer;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось angvelem, 31.01.2012 в 00:31.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
sariman (31.01.2012)
  #9  
Старый 31.01.2012, 00:31
Аватар для sariman
sariman sariman вне форума
Активный
 
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
По умолчанию

странно, если ставлю громкость системы на 50% и потом запускаю прогу то выводит только 30% в TrackBar
Ответить с цитированием
  #10  
Старый 31.01.2012, 00:44
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Сколько в TrackBar-е Max, если отлично от 100, то нужно пересчитывать.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
sariman (31.01.2012)
  #11  
Старый 31.01.2012, 01:02
Аватар для sariman
sariman sariman вне форума
Активный
 
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
По умолчанию

нет, стоит мин 0 а макс 100
Ответить с цитированием
  #12  
Старый 31.01.2012, 01:06
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Ну не знаю как ты ставишь, только в системе (ОС) диапазон регулировки 0..255.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
sariman (31.01.2012)
  #13  
Старый 31.01.2012, 01:11
Аватар для sariman
sariman sariman вне форума
Активный
 
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
По умолчанию

хм..как так? я проматываю его и вижу в hint'е что макс значение 100
Ответить с цитированием
  #14  
Старый 31.01.2012, 01:17
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Я про регулировку звука в ОС, там регулируется от 0 до 255.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
sariman (31.01.2012)
  #15  
Старый 31.01.2012, 01:23
Аватар для sariman
sariman sariman вне форума
Активный
 
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
По умолчанию

я про нее и говорю, но и как мне быть?)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:27.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter