Перевести маленький кусочек с Pascal на VB

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
qwertyhp
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 156
Зарегистрирован: 07.10.2009 (Ср) 15:02
Откуда: Москва

Перевести маленький кусочек с Pascal на VB

Сообщение qwertyhp » 21.02.2010 (Вс) 1:33

Приведённый ниже код преобразует цветную картинку в чёрно-белую. Но он на Pascal.
Если кому не трудно - переведите его на VB, пожалуйста.
Код: Выделить всё
for Y := 0 to Height-1 do
for X := 0 to Width-1 do begin
  Color := Pixel[X,Y];
  Color := (Red(Color)+Green(Color)+Blue(Color)) div 3;
  if Color > 100 then Pixel[X,Y] := White
                 else Pixel[X,Y] := Black;
end;

Спасибо.
Пятачок Forever! :)

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Перевести маленький кусочек с Pascal на VB

Сообщение Хакер » 21.02.2010 (Вс) 8:01

А тебе не кажется, что это слишком примитивно для перевода цветной картинки в черно-белую?
А тебе не кажется, что с вопросами, оформленными таким образом, тебе в раздел «Работа»?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4158
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Перевести маленький кусочек с Pascal на VB

Сообщение Mikle » 21.02.2010 (Вс) 9:37

qwertyhp
Смотри в этой теме:
viewtopic.php?f=28&t=38123
Фильтр "Линогравюра"
Там есть корректная ф-ция перевода - ARGBtoGray.

qwertyhp
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 156
Зарегистрирован: 07.10.2009 (Ср) 15:02
Откуда: Москва

Re: Перевести маленький кусочек с Pascal на VB

Сообщение qwertyhp » 21.02.2010 (Вс) 23:00

2 Mikle: огромное спасибо, Ваш код решает мою проблему, сейчас разбираюсь в нём по существу.
2 Хакер: Вам тоже спасибо. Вы укрепили меня в намерении заняться изучением Pascal/Delphi. А то ходют тут всякие, хочут на халяву 7 строчек коду (+ ещё один "end;", которого не было в оригинале) перевести (на самом деле - только 4-ю). Низзззяяяяяя!
"А тебе не кажется ... А тебе не кажется ..." : так и просится на музыку в духе 60-70-х.
Здорово, мне нравится.
Спасибо русскому языку за любезно предоставленные буковки.
Пятачок Forever! :)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 17

    TopList