Hallo.

Wir sollen in der Schule eine 7 Segmentanzeige mit VB (Express 2010, ich hoffe, dass ich in diesem Forum richtig bin) schreiben. Die Anzeige der einzelnen Ziffern funktioniert auch super, allerdings wird das ganze ja ne Menge Quellcode... Kann man das Ganze eventuell mit Arrays arrangieren?

Zum Programmaufbau bei mir:
Ich habe eine simple Form mit 3 7 Segment Anzeigen erstellt. Die Zahlen werden aus einem Textfeld geholt und durch druck auf den Button wird die jeweilige Zahl angezeigt.
Nun möchte ich aber nicht, wie im angehängten Quellcode, jede Ziffer einzeln als Case Anweisung schreiben, sondern nach Möglichkeit die Textfeldeingabe in einzelne Zeichen zerlegen, in einem Array speichern und somit die Segmente ebenfalls per Array einblenden. Kann mir da jemand helfen?

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99

Public Class Form1       Private Sub los_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles los.Click             Select Case zahl.Text             Case 0                 or3.Visible = True                 ur3.Visible = True                 ol3.Visible = True                 ul3.Visible = True                 om3.Visible = True                 um3.Visible = True                 mm3.Visible = False               Case 1                 or3.Visible = True                 ur3.Visible = True                 ol3.Visible = False                 ul3.Visible = False                 om3.Visible = False                 um3.Visible = False                 mm3.Visible = False               Case 2                 or3.Visible = True                 ur3.Visible = False                 ol3.Visible = False                 ul3.Visible = True                 om3.Visible = True                 um3.Visible = True                 mm3.Visible = True               Case 3                 or3.Visible = True                 ur3.Visible = True                 ol3.Visible = False                 ul3.Visible = False                 om3.Visible = True                 um3.Visible = True                 mm3.Visible = True               Case 4                 or3.Visible = True                 ur3.Visible = True                 ol3.Visible = True                 ul3.Visible = False                 om3.Visible = False                 um3.Visible = False                 mm3.Visible = True               Case 5                 or3.Visible = False                 ur3.Visible = True                 ol3.Visible = True                 ul3.Visible = False                 om3.Visible = True                 um3.Visible = True                 mm3.Visible = True               Case 6                 or3.Visible = False                 ur3.Visible = True                 ol3.Visible = True                 ul3.Visible = True                 om3.Visible = True                 um3.Visible = True                 mm3.Visible = True               Case 7                 or3.Visible = True                 ur3.Visible = True                 ol3.Visible = False                 ul3.Visible = False                 om3.Visible = True                 um3.Visible = False                 mm3.Visible = False               Case 8                 or3.Visible = True                 ur3.Visible = True                 ol3.Visible = True                 ul3.Visible = True                 om3.Visible = True                 um3.Visible = True                 mm3.Visible = True               Case 9                 or3.Visible = True                 ur3.Visible = True                 ol3.Visible = True                 ul3.Visible = False                 om3.Visible = True                 um3.Visible = True                 mm3.Visible = True         End Select       End Sub End Class