Hallo
Ok das verkürzt meinen Code etwas.
Nun habe ich mir überlegt wie ich die "Lichtekästen" ansteuere.
Wäre das eine "gute" Ansatzweise? Im Test klappt das zumindest.
Spoiler anzeigen
Ok das verkürzt meinen Code etwas.
Nun habe ich mir überlegt wie ich die "Lichtekästen" ansteuere.
Wäre das eine "gute" Ansatzweise? Im Test klappt das zumindest.
Form Lichterkästen
Form Steuerung
Form Lichterkästen
VB.NET-Quellcode
-
- Public Class frm_lichtkaesten
- Private ReadOnly LEDs As New clLichtkaesten
- Public Property EinAus() As Integer
- Public Property Ampelphase() As Boolean
- #Region "ListOfPctureBoxes"
- Private AmpelLED As List(Of PictureBox) = Nothing
- Private Sub PrepareLeds()
- AmpelLED = New List(Of PictureBox) From {PictureBox11, PictureBox12, PictureBox13, PictureBox14, PictureBox15, PictureBox16, PictureBox21, PictureBox22, PictureBox23, PictureBox24, PictureBox25, PictureBox26}
- End Sub
- #End Region
- Private Sub frm_AmpelHStr1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- PrepareLeds()
- End Sub
- #Region "Steuerung"
- 'NUR MAL EINE ZUM TEST
- Public Sub LED_Ein_Aus(ByVal Ampelphase As Integer, ByVal EinAus As Boolean)
- Select Case Ampelphase
- Case Is = 0
- LEDs.RotEinAus(EinAus)
- AmpelLED.Item(0).BackColor = LEDs.Farbe1
- AmpelLED.Item(3).BackColor = LEDs.Farbe1
- AmpelLED.Item(6).BackColor = LEDs.Farbe1
- AmpelLED.Item(9).BackColor = LEDs.Farbe1
- Case Is = 1
- LEDs.GelbEinAus(EinAus)
- 'ToDo
- End Select
- End Sub
- #End Region
- End Class
- '----------------------------------------------------------------
- Public Class clLichtkaesten
- Private IstNachtbetrieb As Boolean = False
- Private Ist24Stdbetrieb As Boolean = False
- Property Farbe1 As Color = Color.Maroon
- Property Farbe2 As Color = Color.SaddleBrown
- Property Farbe3 As Color = Color.DarkGreen
- 'NUR MAL EINE ZUM TEST
- Friend Sub RotEinAus(ByVal Ist24Stdbetrieb As Boolean)
- Ist24Stdbetrieb = Not Ist24Stdbetrieb
- Farbe1 = If(Ist24Stdbetrieb, Color.Red, Color.Maroon)
- End Sub
- End Class
Form Steuerung
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.