Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Umwandlung einer Dezimalzahl als 7 Segment-Anzeige VB 6
Autor: AK88
Datum: 07.05.07 09:34
habs versucht für mcih einfacher zu machen ^^ Dim varZiffer As Variant Dim I As Integer Dim varWert As Variant Dim intLaenge2 As Integer Dim intMitte As Integer Option Explicit Private Sub cmdButton_Click() varZiffer = Text1.Text For I = 1 To 7 Shape1(I).Visible = False Next I Call anzeige End Sub Private Sub anzeige() varWert = Choose(varZiffer + 1, 123456, 23, 12754, 12347, 2367, 13467, 134567, 123, 1234567, 123467) intLaenge2 = Len(varWert) For I = 1 To intLaenge2 intMitte = Mid$(varWert, I, 1) Shape1(intMitte).Visible = True Next I End Sub mfg

Umwandlung einer Dezimalzahl als 7 Segment-Anzeige VB 6	1.989	AK88	02.05.07 09:17
Re: Umwandlung einer Dezimalzahl als 7 Segment-Anzeige VB 6	1.633	Zardoz	03.05.07 11:22
Re: Umwandlung einer Dezimalzahl als 7 Segment-Anzeige VB 6	970	AK88	03.05.07 22:44
Re: Umwandlung einer Dezimalzahl als 7 Segment-Anzeige VB 6	1.264	AK88	07.05.07 09:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen