Hallo
Ok das verkürzt meinen Code etwas.![;)](https://www.vb-paradise.de/wcf/images/smilies/wink.png)
Nun habe ich mir überlegt wie ich die "Lichtekästen" ansteuere.
Wäre das eine "gute" Ansatzweise? Im Test klappt das zumindest.![;)](https://www.vb-paradise.de/wcf/images/smilies/wink.png)
Spoiler anzeigen
Ok das verkürzt meinen Code etwas.
![;)](https://www.vb-paradise.de/wcf/images/smilies/wink.png)
Nun habe ich mir überlegt wie ich die "Lichtekästen" ansteuere.
Wäre das eine "gute" Ansatzweise? Im Test klappt das zumindest.
![;)](https://www.vb-paradise.de/wcf/images/smilies/wink.png)
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. ![:huh:](https://www.vb-paradise.de/wcf/images/smilies/huh.png)
![:huh:](https://www.vb-paradise.de/wcf/images/smilies/huh.png)