ritorna con variabili.html descrizione gestione variabili con VBA
esci con vbasintassi1.htm

ciclocolore.ppt
variazione dei colori fondamentali mediante ciclo For-Next
assegnando da tastiera incremento per colore q
possibile annotare RGB corrispondenti alle variazioni di tonalità generate

Private Sub CommandButton1_Click()
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
q = Val(TextBox2)
f = Int(300 / q)
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

variazione dei colori fondamentali mediante creazione terne casuali
possibile annotare RGB corrispondenti alle variazioni di tonalità generate

ciclocolorex.ppt

Private Sub CommandButton1_Click()
Dim k, h, s, q As Integer
Dim r, g, b, p As Integer
Dim primo, secondo, terzo, quarto, quinto, sesto As Long
r = Int(300 * Rnd())
g = Int(200 * Rnd())
b = Int(100 * Rnd())

If r > 255 Then r = 255
If g > 255 Then g = 255
If b > 255 Then b = 255

primo = RGB(r, g, b)
secondo = RGB(r, 0, b)
terzo = RGB(r, g, 0)
quarto = RGB(0, g, b)
quinto = RGB(0, b, g)
sesto = RGB(0, r, b)

Image1.BackColor = primo
Image2.BackColor = secondo
Image3.BackColor = terzo
Image4.BackColor = quarto
Image5.BackColor = quinto
Image6.BackColor = sesto
ListBox1.AddItem ("----")

ListBox1.AddItem ("primo RGB " & r & "," & g & "," & b)
ListBox1.AddItem ("secondo RGB " & r & "," & 0 & "," & 0)
ListBox1.AddItem ("terzo RGB " & r & "," & g & "," & 0)
ListBox1.AddItem ("quarto RGB " & 0 & "," & g & "," & b)
ListBox1.AddItem ("quinto RGB " & 0 & "," & b & "," & g)
ListBox1.AddItem ("sesto RGB " & 0 & "," & r & "," & b)
ListBox2.AddItem ("primo RGB " & r & "," & g & "," & b)
ListBox2.AddItem ("secondo RGB " & r & "," & 0 & "," & 0)
ListBox2.AddItem ("terzo RGB " & r & "," & g & "," & 0)
ListBox2.AddItem ("quarto RGB " & 0 & "," & g & "," & b)
ListBox2.AddItem ("quinto RGB " & 0 & "," & b & "," & g)
ListBox2.AddItem ("sesto RGB " & 0 & "," & r & "," & b)
MsgBox ("clicca per altro codice")
ListBox2.Clear
End Sub


Private Sub CommandButton2_Click()
Label4.Visible = True
ListBox1.Visible = False
End Sub

Private Sub CommandButton3_Click()
Label4.Visible = False
ListBox1.Visible = True
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
End Sub


Private Sub UserForm_Click()

End Sub