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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Плз обьясните неучу как выполнить в VC++ код на asme. http://www.cyberforum.ru/cpp-beginners/thread461044.html
Плз обьясните неучу как выполнить в VC++ код на asme. Дериктива _asm а как с ней работать ? Допутим есть код для примера : text segment 'code' assume CS:text, DS:text begin: mov AX,text mov DS,AX mov AH,09h mov DX,offset message int 21h mov AH,4Ch
C++ Статья о создании и использовании DLL Ребят плз подкиньте доку о создании DLL на VC++. и если кто знает линк, конвертации C++ DLL в декларацию для VB. Митаюсь между языками часто нужно одно использовать в другом и наоборот.... Буду очень признателен Stan http://www.cyberforum.ru/cpp-beginners/thread461043.html
Создание инстанса ADOConnection C++
Пишу HRESULT hr; hr = m_pConnection.CreateInstance( __uuidof( Connection ) ); if (SUCCEEDED(hr)) { // делаю что-то }И условие не попадаю! Заранее спасибо!
Сертификация OCX или незарегистрированных компонент на новой машине C++
Napisal ActiveX, na localke normal'no rabotaet. Delayu cab file. Stavlyu na server v html stranitcy. Pishy v nej 'codebase='bla/bla/control.cab'' Gryzhy s clienta ety stranitcy. IE nachinaet rygatsya i xrenovo delaet download, tak chto object potom na cliente ne rabotaet. Govoryat eto ot security, tozhe ne pomogaet. Mne kazhetsya chto delo v certificatcii, ved' activex-i melkomyagkix notmal'no...
C++ Как заставить ComboBox не реагировать на клик по элементу? http://www.cyberforum.ru/cpp-beginners/thread461017.html
как можно заставить ComboBox (который не dropdown, а simple) не реагировать на клик по элементу? EnableWindow не пойдет, так как нужно вносить текст
C++ Где в интернете найти толковый учебник по VC++? Где в интернете найти толковый учебник по VC++? Желательно бесплатный. Заранее благодарю. подробнее

Показать сообщение отдельно
Uncover
0 / 0 / 0
Регистрация: 13.07.2007
Сообщений: 24

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

28.09.2007, 12:57. Просмотров 921. Ответов 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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru