Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Uncover
0 / 0 / 0
Регистрация: 13.07.2007
Сообщений: 24
#1

Код нахождения среднего из VB в VC++ - C++

28.09.2007, 12:57. Просмотров 917. Ответов 0
Метки нет (Все метки)

Переведите кто может код из VB в VC++:
Visual Basic
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
Private Function Srednee(c1, c2, ca)
 c1 = Hex(c1)
 If Len(c1) < 6 Then
  For n = 1 To 6 - Len(c1)
   c1 = '0' & c1
  Next n
 End If
 Rc1 = Val('&H' & Left$(c1, 2))
 Gc1 = Val('&H' & Mid$(c1, 3, 2))
 Bc1 = Val('&H' & Right$(c1, 2))
 '
 c2 = Hex(c2)
 If Len(c2) < 6 Then
  For n = 1 To 6 - Len(c2)
   c2 = '0' & c2
  Next n
 End If
 Rc2 = Val('&H' & Left$(c2, 2))
 Gc2 = Val('&H' & Mid$(c2, 3, 2))
 Bc2 = Val('&H' & Right$(c2, 2))
 '
 r = (Rc2 * (ca / 100) + Rc1 * ((100 - ca) / 100))
 g = (Gc2 * (ca / 100) + Gc1 * ((100 - ca) / 100))
 b = (Bc2 * (ca / 100) + Bc1 * ((100 - ca) / 100))
 '
 Srednee = RGB(b, g, r)
End Function
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2007, 12:57     Код нахождения среднего из VB в VC++
Посмотрите здесь:

функция нахождения среднего арифметического массива C++
C++ Функция для нахождения среднего значения
C++ Шаблон функции для нахождения среднего арифметичного элементов масива
C++ Покритикуйте код финкции нахождения интеграла
C++ Проблема с циклами для нахождения среднего бала.
Функция для нахождения среднего арифметического пяти чисел типа float C++
Подкорректировать код нахождения суммы ряда C++
Составить код функции вычесления среднего значения для нечетных элементов массива А C++
C++ Код нахождения MD5
Код нахождения MD5 C++
Дайте готовый код нахождения точки пересечения окружности с прямой :-) C++
C++ Написать циклическую программу нахождения среднего арифметического значения векторов

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru