Color palette By Harsh Mathur

Color Palette
Presented By
Harsh Mathur
Bachelor of Computer Application
Dezyne E’cole College, Ajmer

Color Palette With hexadecimal Values

Code
Dim r, g, b As Variant
Dim a(3), n, j, k, t As Integer
Private Sub Form_Load()
End Sub
Private Sub VScroll1_Change()
i = 0
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Form1.BackColor = RGB(r, g, b)
Text1.Text = r
i = 0
n = Val(VScroll1.Value)
While (n > 0)
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
k = 0
If (a(1) = 10) Then
k = "A"
ElseIf (a(1) = 11) Then
k = "B"
k = "C"
k = "D"
k = "E"
k = "F"
Else
k = a(1)
End If
If (a(0) = 10) Then
k = "A"
k = "B"
k = "C"
k = "D"
k = "E"
k = "F"

Else
k = a(0)
End If
Text4.Text = k & i
End Sub
Private Sub VScroll1_Scroll()
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Text1.Text = r
i = 0
While (n > 0)
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
k = 0
If (a(1) = 10) Then
k = "A"
k = "B"
k = "C"
k = "D"
k = "E"
k = "F"
Else
k = a(1)
End If
If (a(0) = 10) Then
j = "A"
j = "B"

j = "C"
j = "D"
j = "E"
j = "F"
Else
k = a(0)
End If
Text4.Text = k & j
End Sub
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Text2.Text = g
i = 0
While (n > 0)
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
k = 0
If (a(1) = 10) Then
k = "A"
k = "B"
k = "C"
k = "D"
k = "E"
k = "F"
Else

k = a(1)
End If
If (a(0) = 10) Then
j = "A"
j = "B"
j = "C"
j = "D"
j = "E"
j = "F"
Else
k = a(0)
End If
Text5.Text = k & j
End Sub
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Text2.Text = g
i = 0
While (n > 0)
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
k = 0
If (a(1) = 10) Then
k = "A"
k = "B"
k = "C"
k = "D"

k = "E"
k = "F"
Else
k = a(1)
End If
If (a(0) = 10) Then
j = "A"
j = "B"
j = "C"
j = "D"
j = "E"
j = "F"
Else
k = a(0)
End If
Text5.Text = k & j
End Sub
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Text3.Text = b
i = 0
While (n > 0)
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
k = 0
If (a(1) = 10) Then
k = "A"
k = "B"

k = "C"
k = "D"
k = "E"
k = "F"
Else
k = a(1)
End If
If (a(0) = 10) Then
j = "A"
j = "B"
j = "C"
j = "D"
j = "E"
j = "F"
Else
k = a(0)
End If
Text6.Text = k & j
End Sub
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Text3.Text = b
i = 0
While (n > 0)
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend

k = 0
If (a(1) = 10) Then
k = "A"
k = "B"
k = "C"
k = "D"
k = "E"
k = "F"
Else
k = a(1)
End If
If (a(0) = 10) Then
j = "A"
j = "B"
j = "C"
j = "D"
j = "E"
j = "F"
Else
k = a(0)
End If
Text6.Text = k & j
Text7.Text = "#" & Text4.Text + Text5.Text + Text6.Text
End Sub

Color palette By Harsh Mathur

More Related Content

What's hot (18)

Similar to Color palette By Harsh Mathur (20)

More from Harsh Mathur (20)

Recently uploaded (20)

Color palette By Harsh Mathur