Moin moin
So habe das mit dem Button und der Ampelphase durchschalten mal gemacht.
Button Klick und Anzeige passen.
Spoiler anzeigen
So habe das mit dem Button und der Ampelphase durchschalten mal gemacht.
Button Klick und Anzeige passen.
Im Form
In Klasse
Im Form
VB.NET-Quellcode
-
- Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- btn_stoerung_ein_aus.Enabled = False : cbx_wechsel_24_nacht.Enabled = False
- TextAnzeigeBetriebsmodus()
- StartAmpelphasen()
- End Sub
- Private Sub StartAmpelphasen()
- Steuerung.getAmpelphase(Steuerung.Zähler)
- lbl_aktlAmpelphase.Text = Steuerung.AktuelleAmpelPhase.ToString
- Button1.Text = CStr(Steuerung.Zähler)
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- StartAmpelphasen()
- Steuerung.Zähler = Steuerung.Zähler + 1
- Steuerung.getAmpelphase(Steuerung.Zähler)
- End Sub
In Klasse
VB.NET-Quellcode
-
- Public Class Kreuzung
- Friend Zähler As Integer
- Friend AktuelleAmpelPhase As Ampelphase_Auto = Ampelphase_Auto.HsRotGelb_NsRot
- Dim AmpelphaseCount As Integer = [Enum].GetNames(GetType(Ampelphase_Auto)).Length
- .....
- ...
- Friend Sub getAmpelphase(ByVal num As Integer)
- If num = AmpelphaseCount Then Zähler = -1
- Select Case num
- Case 0
- AktuelleAmpelPhase = Ampelphase_Auto.HsRotGelb_NsRot
- Case 1
- AktuelleAmpelPhase = Ampelphase_Auto.HsGrün_NsRot
- Case 2
- AktuelleAmpelPhase = Ampelphase_Auto.HsGelb_NsRot
- Case 3
- AktuelleAmpelPhase = Ampelphase_Auto.NsRot_HsRot
- Case 4
- AktuelleAmpelPhase = Ampelphase_Auto.NsRotGelb_HsRot
- Case 5
- AktuelleAmpelPhase = Ampelphase_Auto.NsGrün_HsRot
- Case 6
- AktuelleAmpelPhase = Ampelphase_Auto.NsGelb_HsRot
- Case 7
- AktuelleAmpelPhase = Ampelphase_Auto.HsRot_NsRot
- End Select
- End Sub
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.