semaforo2

assegnazione di colore mutevole con uso di BackColor
programma per simulare semaforo a funzionamento manuale con inserimento numero 1,2 3

da immagine e da codice si vede che servono:
1 pulsante (nome automatico,inserire testo informativo)
1 casella testo (textbox1 automatico)
5 etichette (nome label automatico)
a tre etichette (label1,2,3) viene applicato BackColor e codice colore
il programma chiede un numero 1,2,3 e con If seleziona il tipo di operazione
(assegnazione colore) alle tre label 1,2,3

vedi attivato ppt

Private Sub CommandButton1_Click()
Dim x As Integer
x = TextBox1
If x = 1 Then
Label1.BackColor = &HFF&
Label2.BackColor = &HFFFFFF
Label3.BackColor = &HFFFFFF
End If
If x = 2 Then
Label1.BackColor = &HFFFFFF
Label2.BackColor = &H80C0FF
Label3.BackColor = &HFFFFFF
End If
If x = 3 Then
Label1.BackColor = &HFFFFFF
Label2.BackColor = &HFFFFFF
Label3.BackColor = &HFF00&
End If
TextBox1 = SetFocus
End Sub

semaforo3 :variante con comparsa di scritte di avviso

vedi attivato ppt

semaforo3
assegnazione di colore mutevole con uso di BackColor
programma per simulare semaforo a funzionamento manuale con inserimento numero 1,2 3 e comparsa scritta di avviso

da immagine e da codice si vede che servono:
2 pulsant1 (nome automatico,inserire testo informativo)
1 casella testo (textbox1 automatico)
4 etichette (nome label automatico)
a tre etichette (label1,2,3) viene applicato BackColor e codice colore e scritta di avviso
il programma chiede un numero 1,2,3 e con If seleziona il tipo di operazione
(assegnazione colore) alle tre label 1,2,3 e visualizza avviso:
dopo ogni prova si cancellano le scritte apparse (pulsante2)




Private Sub CommandButton1_Click()
Dim x As Integer
x = TextBox1
If x = 1 Then
Label1.BackColor = &HFF&
Label2.BackColor = &HFFFFFF
Label3.BackColor = &HFFFFFF
Label1.Caption = "stop"
End If
If x = 2 Then
Label1.BackColor = &HFFFFFF
Label2.BackColor = &H80C0FF
Label3.BackColor = &HFFFFFF
Label2.Caption = "attenzione"
End If
If x = 3 Then
Label1.BackColor = &HFFFFFF
Label2.BackColor = &HFFFFFF
Label3.BackColor = &HFF00&
Label3.Caption = "avanti"
End If
End Sub


Private Sub CommandButton2_Click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
TextBox1 = SetFocus
End Sub

vedi variante con uso di Image