image

variante di semaforo con uso di Image , Visible, True, False
e disegni creati a parte con Paint

attivare ppt

semaforo5
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 immagini (nome Image automatico)
a tre image (image1,2,3) viene applicato Visible-true o false
il programma chiede un numero 1,2,3 e con If seleziona il tipo di operazione
(assegnazione visibilità) alle tre Image 1,2,3 
dopo ogni prova si ricomincia(pulsante2)

codice da copiare e incollare
semaforo4

Private Sub CommandButton1_Click()
Dim x As Integer
x = TextBox1
If x = 1 Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
End If
If x = 2 Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
End If
If x = 3 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
End If
End Sub


Private Sub CommandButton2_Click()
TextBox1 = SetFocus
End Sub

si devono creare 4 immagini come indicato (con Paint) e salvarle con nomi
rosso,giallo,verde,grigio
verrano richiamate in fase di progettazione:selezionare da strumenti:immagine (image1)
e con proprietà assegnare Picture-rosso
ripetere operazione con giallo(image2) , verde(image3) ,grigio(image4)
disporre su grigio le altre tre immagini (con Formato-Ordine-portare in secondo piano grigio)