|
|
|
Junior Member
 
участник
Last Login: 31.07.2002 21:33
Сообщ.: 24,
Visits: 265
|
|
Переведите кто может код из VB в VC++:
--------------------------------------------------
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
--------------------------------------------------
|
|
|
|