Помогите перевести кусок кода из C++ на VB

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

Помогите перевести кусок кода из C++ на VB

Сообщение d3drm » 03.02.2005 (Чт) 16:15

С С++ не очень дружу, помогите пожалуйста перевести всего одну строку кода:

Код: Выделить всё
return( (a<<24L) + (r<<16L) + (g<<8L) + (b<<0L) );


Очень нужно!
ХЎ

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 03.02.2005 (Чт) 16:20

Дык эта...
Я тоже не сишник, но это просто разбивка Long на альфа-канал и красный-зеленый-синий.
Lasciate ogni speranza, voi ch'entrate.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 03.02.2005 (Чт) 16:22

Вернее, не разбивка, а сборка.
Заменяется на A*2^24 or R*2^16 or G*2^8 or B^2^0. Только вот с альфа-каналом надо будет делать по другому, т.к. VB не поддерживает беззнаковое целое.
Lasciate ogni speranza, voi ch'entrate.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 03.02.2005 (Чт) 16:30

Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

d3drm
Астролог
Астролог
Аватара пользователя
 
Сообщения: 2873
Зарегистрирован: 29.05.2002 (Ср) 23:34
Откуда: МаСКвА

Сообщение d3drm » 03.02.2005 (Чт) 16:34

спасиб народ, жаль VB не поддерживает такие большие значения...
ХЎ


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

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

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 33

    TopList