Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.01.2013, 19:47   #1
Євгеній Бєлік
Пользователь
 
Аватар для Євгеній Бєлік
 
Регистрация: 29.10.2011
Сообщений: 52
По умолчанию Шум Гаусса

Кто может реализовать шум на картинке!
вот реализировал такую программу, но можна ли изменять ступень шума (как в фотошопе) или как-то по другому это все сделать?
Вложения
Тип файла: rar шум.rar (179.3 Кб, 23 просмотров)
Євгеній Бєлік вне форума Ответить с цитированием
Старый 03.01.2013, 21:51   #2
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

А что такое "ступень шума" в твоем понимании?
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 03.01.2013, 22:06   #3
Євгеній Бєлік
Пользователь
 
Аватар для Євгеній Бєлік
 
Регистрация: 29.10.2011
Сообщений: 52
По умолчанию Гаусс

что бы можна было выбирать на столько много добавлять шум?
Євгеній Бєлік вне форума Ответить с цитированием
Старый 04.01.2013, 02:16   #4
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

В таком случае используй не
Код:
for i:= 0 to bmp1.Width -1 do
For j:=0 to bmp1.Height - 1 do
А
Код:
stepen_shyma:=inttostr(Edit1.text);// защиту от дурака не забудь сделать
i:=0;
j:=0;
while i<=bmp1.Width -1 do
while j<=bmp1.Height -1 do
begin
//...................
//обработка изображения
//....................
i:=i+stepen_shyma;
j:=j+stepen_shyma;
end;
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 05.01.2013, 23:46   #5
Євгеній Бєлік
Пользователь
 
Аватар для Євгеній Бєлік
 
Регистрация: 29.10.2011
Сообщений: 52
По умолчанию

спасибо конечно за помощь, но всё равно не работает, так как надо
Євгеній Бєлік вне форума Ответить с цитированием
Старый 06.01.2013, 10:15   #6
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Поясните, что именно не так?
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 06.01.2013, 14:49   #7
Євгеній Бєлік
Пользователь
 
Аватар для Євгеній Бєлік
 
Регистрация: 29.10.2011
Сообщений: 52
По умолчанию

Ну вот скачай архивчик и посмотри...
если делфи нету, то хотя бы запусти ексе!
Вложения
Тип файла: rar шум.rar (183.0 Кб, 22 просмотров)
Євгеній Бєлік вне форума Ответить с цитированием
Старый 06.01.2013, 22:18   #8
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Вы объясните словами, что не так. Я и сам могу исправить первый ваш исходник.
Я не работаю в фотошопе, и поэтому не знаю как оно должно быть.
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 06.01.2013, 22:36   #9
Євгеній Бєлік
Пользователь
 
Аватар для Євгеній Бєлік
 
Регистрация: 29.10.2011
Сообщений: 52
По умолчанию

Там при значении 1 что-то изменяется!
а если больше то ни каких измененных...
я еще закинул скриншоты из фотошопа, посмотрите...вот как-то так...
Изображения
Тип файла: jpg Оригинал.jpg (18.8 Кб, 76 просмотров)
Тип файла: jpg 1.jpg (112.4 Кб, 83 просмотров)
Тип файла: jpg 2.jpg (136.9 Кб, 86 просмотров)
Тип файла: jpg 3.jpg (31.9 Кб, 78 просмотров)
Тип файла: jpg 4.jpg (123.5 Кб, 83 просмотров)
Євгеній Бєлік вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Шум от монитора. Ghost3 Компьютерное железо 20 08.12.2012 14:31
шум,турбуленция мята Общие вопросы C/C++ 0 07.03.2011 13:26
шум при перемещении мыши Lotles Компьютерное железо 6 14.12.2010 21:16
Информационный шум usersat Свободное общение 0 21.04.2009 17:46
Шум от кулера, ЧЕМ ЛЕЧИТЬ? Altera Компьютерное железо 10 21.08.2008 14:00