ritorna con variabili.html descrizione gestione variabili con VBA
esci con vbasintassi1.htm
ciclocolorey.ppt
variazione dei colori fondamentali mediante ciclo For-Next
assegnando da tastiera indice n(1-2-3) per attivare
tre procedure con assegnato numero di prove(53-27-18) e
incremento(5-10-15)
possibile annotare RGB corrispondenti alle variazioni di
tonalità generate
Private Sub CommandButton1_Click()
Dim n, f1, q1 As Integer
n = Val(TextBox1)
Select Case n
Case 1
Call attiva(53, 5)
Case 2
Call attiva(27, 10)
Case 3
Call attiva(18, 15)
End Select
End Sub
Private Sub attiva(d As Integer, h As Integer)
Dim k, f, q As Integer
Dim r, g, b As Integer
Dim rosso, verde, blu, giallo, cyan, magenta, nero, bianco, vario
As Long
r = 0
g = 0
b = 0
f = d
q = h
For k = 1 To f Step 1
rosso = RGB(r, 0, 0)
verde = RGB(0, g, 0)
blu = RGB(0, 0, b)
giallo = RGB(r, g, 0)
cyan = RGB(0, g, b)
magenta = RGB(r, 0, b)
bianco = RGB(255 - r, 255 - g, 255 - b)
nero = RGB(r, g, b)
vario = RGB(r, 255 - g, 100 + b)
Image1.BackColor = rosso
Image2.BackColor = verde
Image3.BackColor = blu
Image4.BackColor = giallo
Image5.BackColor = cyan
Image6.BackColor = magenta
Image7.BackColor = bianco
Image8.BackColor = nero
Image9.BackColor = vario
ListBox1.AddItem ("----")
ListBox1.AddItem ("prova n. " & k & " su
totale " & f)
ListBox1.AddItem ("rosso RGB " & r &
"," & 0 & "," & 0)
ListBox1.AddItem ("verde RGB " & 0 &
"," & g & "," & 0)
ListBox1.AddItem ("blu RGB " & 0 &
"," & 0 & "," & b)
ListBox1.AddItem ("giallo RGB " & r &
"," & g & "," & 0)
ListBox1.AddItem ("cyan RGB " & 0 &
"," & g & "," & b)
ListBox1.AddItem ("bianco RGB " & (255 - r) &
"," & (255 - g) & "," & (255 -
b))
ListBox1.AddItem ("nero RGB " & r &
"," & g & "," & b)
ListBox1.AddItem ("vario RGB " & r &
"," & (255 - r) & "," & (b))
ListBox2.AddItem ("prova n. " & k &
" su totale " & f)
ListBox2.AddItem ("rosso RGB " & r &
"," & 0 & "," & 0)
ListBox2.AddItem ("verde RGB " & 0 &
"," & g & "," & 0)
ListBox2.AddItem ("blu RGB " & 0 &
"," & 0 & "," & b)
ListBox2.AddItem ("giallo RGB " & r &
"," & g & "," & 0)
ListBox2.AddItem ("cyan RGB " & 0 &
"," & g & "," & b)
ListBox2.AddItem ("magenta RGB " & r &
"," & 0 & "," & b)
ListBox2.AddItem ("bianco RGB " & (255 - r) &
"," & (255 - g) & "," & (255 -
b))
ListBox2.AddItem ("nero RGB " & r &
"," & g & "," & b)
ListBox2.AddItem ("vario RGB " & r &
"," & (255 - r) & "," & (b))
MsgBox ("clicca per altro
codice")
ListBox2.Clear
r = r + q
g = g + q
b = b + q
If r > 255 Then r = 255
If g > 255 Then g = 255
If b > 255 Then b = 255
Next k
End Sub
Private Sub CommandButton2_Click()
Label4.Visible = True
Label5.Visible = True
ListBox1.Visible = False
End Sub
Private Sub CommandButton3_Click()
Label4.Visible = False
Label5.Visible = False
ListBox1.Visible = True
End Sub
Private Sub CommandButton4_Click()
ListBox1.Clear
End Sub
Private Sub UserForm_Click()
End Sub
(variante)variazione dei colori
fondamentali mediante ciclo
For-Next
assegnando da tastiera indice n(1..10) per attivare
tre procedure con assegnato numero di prove e
incremento(5-10-15-20-25-30-45-40-45-50)
possibile annotare RGB corrispondenti alle variazioni di
tonalità generate
Private Sub
CommandButton1_Click()
Dim n, f1, q1 As Integer
n = Val(TextBox1)
Select Case n
Case 1
Call attiva(53, 5)
Case 2
Call attiva(27, 10)
Case 3
Call attiva(18, 15)
Case 4
Call attiva(14, 20)
Case 5
Call attiva(12, 25)
Case 6
Call attiva(10, 30)
Case 7
Call attiva(9, 35)
Case 8
Call attiva(8, 40)
Case 9
Call attiva(7, 45)
Case 10
Call attiva(7, 50)
End Select
End Sub
Private Sub attiva(d As Integer, h As Integer)
Dim k, f, q As Integer
Dim r, g, b As Integer
Dim rosso, verde, blu, giallo, cyan, magenta, nero, bianco, vario
As Long
r = 0
g = 0
b = 0
f = d
q = h
For k = 1 To f Step 1
rosso = RGB(r, 0, 0)
verde = RGB(0, g, 0)
blu = RGB(0, 0, b)
giallo = RGB(r, g, 0)
cyan = RGB(0, g, b)
magenta = RGB(r, 0, b)
bianco = RGB(255 - r, 255 - g, 255 - b)
nero = RGB(r, g, b)
vario = RGB(r, 255 - g, 100 + b)
Image1.BackColor = rosso
Image2.BackColor = verde
Image3.BackColor = blu
Image4.BackColor = giallo
Image5.BackColor = cyan
Image6.BackColor = magenta
Image7.BackColor = bianco
Image8.BackColor = nero
Image9.BackColor = vario
ListBox1.AddItem ("----")
ListBox1.AddItem ("prova n. " & k & " su
totale " & f)
ListBox1.AddItem ("rosso RGB " & r &
"," & 0 & "," & 0)
ListBox1.AddItem ("verde RGB " & 0 &
"," & g & "," & 0)
ListBox1.AddItem ("blu RGB " & 0 &
"," & 0 & "," & b)
ListBox1.AddItem ("giallo RGB " & r &
"," & g & "," & 0)
ListBox1.AddItem ("cyan RGB " & 0 &
"," & g & "," & b)
ListBox1.AddItem ("bianco RGB " & (255 - r) &
"," & (255 - g) & "," & (255 -
b))
ListBox1.AddItem ("nero RGB " & r &
"," & g & "," & b)
ListBox1.AddItem ("vario RGB " & r &
"," & (255 - r) & "," & (b))
ListBox2.AddItem ("prova n. " & k & " su
totale " & f)
ListBox2.AddItem ("rosso RGB " & r &
"," & 0 & "," & 0)
ListBox2.AddItem ("verde RGB " & 0 &
"," & g & "," & 0)
ListBox2.AddItem ("blu RGB " & 0 &
"," & 0 & "," & b)
ListBox2.AddItem ("giallo RGB " & r &
"," & g & "," & 0)
ListBox2.AddItem ("cyan RGB " & 0 &
"," & g & "," & b)
ListBox2.AddItem ("magenta RGB " & r &
"," & 0 & "," & b)
ListBox2.AddItem ("bianco RGB " & (255 - r) &
"," & (255 - g) & "," & (255 -
b))
ListBox2.AddItem ("nero RGB " & r &
"," & g & "," & b)
ListBox2.AddItem ("vario RGB " & r &
"," & (255 - r) & "," & (b))
MsgBox ("clicca per altro codice")
ListBox2.Clear
r = r + q
g = g + q
b = b + q
If r > 255 Then r = 255
If g > 255 Then g = 255
If b > 255 Then b = 255
Next k
End Sub
Private Sub CommandButton2_Click()
Label4.Visible = True
Label5.Visible = True
ListBox1.Visible = False
End Sub
Private Sub CommandButton3_Click()
Label4.Visible = False
Label5.Visible = False
ListBox1.Visible = True
End Sub
Private Sub CommandButton4_Click()
ListBox1.Clear
End Sub
Private Sub UserForm_Click()
End Sub