Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795797 Tue, 16 Apr 2019 17:12:40 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795797 Цитата BlackSun @
Арифметика-то идёт с Byte и Integer

В данном конкретном примере вся арифметика работает в Double, потому что первое выполняемое действие - деление.
Просто это уже привычка, когда арифметика целочисленная, то Long оптимальнее, Integer я практически никогда не использую, кроме случаев, когда это необходимо.
Цитата BlackSun @
По умолчанию в VB идёт тип Integer

Это касается только целочисленных констант от -32768 до 32767.
Там, кстати, можно раскрыть скобки и сократить вычисления. То, что я дал, следует воспринимать не как готовый код, а как демонстрацию математики происходящего.]]> Mikle Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795782 Tue, 16 Apr 2019 14:48:14 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795782
Добавлено
Цитата MIF @
Integer переменная использует 4 байта

с каких это пор?]]> BlackSun Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795780 Tue, 16 Apr 2019 14:41:40 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795780 MIF Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795779 Tue, 16 Apr 2019 14:25:55 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795779
    Dim v As Long
      v = ((v1 / 255) ^ 2.2 + (v2 / 255) ^ 2.2) ^ (1 / 2.2) * 255

будет заменён на
      v = CLng((v1 / 255) ^ 2.2 + (v2 / 255) ^ 2.2) ^ (1 / 2.2) * 255)

или нет?

2. 32-x битные регистры делятся на два 16-ти битных, и расширения Integer до Long не должно происходить. Может именно поэтому VB по умолчанию имеет тип Integer, т.к. большинству операций его достаточно и они должны выполняться "без выкрутасов".]]> BlackSun Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795708 Mon, 15 Apr 2019 18:34:30 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795708 А скорость конкретно CLng и CInt зависит от многих факторов, в том числе от того, какой тип данных берётся изначально.]]> Mikle Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795698 Mon, 15 Apr 2019 16:58:29 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795698 BlackSun Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795014 Mon, 08 Apr 2019 07:40:01 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3795014 Цитата BlackSun @
Тут вместо v As Long можно v As Integer

Можно, просто As Long быстрее работает (хотя при использовании степеней, это не так важно).]]> Mikle Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3794987 Sun, 07 Apr 2019 18:03:01 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3794987 v As Long можно v As Integer ;)]]> BlackSun Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3793819 Sat, 23 Mar 2019 10:12:14 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3793819
    r = GammaAdd(r1, r2)
    g = GammaAdd(g1, g2)
    b = GammaAdd(b1, b2)
     
    Function GammaAdd(v1 As Byte, v2 As Byte) As Byte
      Dim v As Long
      v = ((v1 / 255) ^ 2.2 + (v2 / 255) ^ 2.2) ^ (1 / 2.2) * 255
      If v > 255 Then GammaAdd = 255 Else GammaAdd = v
    End Function
]]> Mikle Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3793803 Sat, 23 Mar 2019 06:19:18 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3793803
    For Each c In aRange.Cells
      i = c.Interior.Color
     If i <> 16777215 Then
      k = k + i
      R = R + 1
     End If
    Next
    End If
    MainColor = k / R
]]> alex77755 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3793788 Fri, 22 Mar 2019 20:15:29 +0000 Получить результирующий цвет от 2-х источников света https://forum.sources.ru/index.php?showtopic=414436&view=findpost&p=3793788 BlackSun Visual Basic: Общие вопросы