vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
??? - Wenn mehrfach dann eine Variable = 0 
Autor: JBL
Datum: 02.08.12 09:14
hallo,

ich habe folgendes Problem:

Variable i1 bis i9


nun kann es vorkommen das die Variablen i1 bis i9 mit mehrfachen (also gleichen Zahlen) gefüllt wird.

Beispiel einer Variante:
i1 = 18
i2 = 26
i3 = 6
i4 = 18
i5 = 26
i6 = 20
i7 = 25
i8 = 3
i9 = 20

Wie könnte man es nun machen das nur jede Zahl 1 x in den i1 bis i9 verbleibt?
Also wenn mehrfach dann eine Variable davon = 0 usw.


Ergebnis so z.B.
i1 = 18
i2 = 26
i3 = 6
i4 = 0
i5 = 0
i6 = 20
i7 = 25
i8 = 3
i9 = 0

Es verbleiben also in diesem Beispiel 6 Variable mit noch einem Wert > 0
mit denen ich dann weiter arbeiten kann.

Würde mich freuen wenn mir bitte jemand helfen könnte

LG
Angelina
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: ??? - Wenn mehrfach dann eine Variable = 0 
Autor: Manfred X
Datum: 02.08.12 12:42
Hallo!

Schreib Deine Zahlenfolge in ein Array (Typ Integer)
und lasse eine Doppelschleife darüber laufen.
Formal: 
i von ArrayLowerBound bis ArrayUpperBound-1
  k von i+1 bis ArrayUpperBound
     Falls array(i) <> 0 and array(i) = array(k) then array(k) = 0
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: ??? - Wenn mehrfach dann eine Variable = 0 
Autor: JBL
Datum: 02.08.12 12:52
hallo Manfred

danke vorab ...


verzeihe mir - ich verstehe es nicht



sorry
LG
Angelina
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: ??? - Wenn mehrfach dann eine Variable = 0 
Autor: Manfred X
Datum: 02.08.12 13:00
Private Sub Test()
 
Dim i1%, i2%, i3%, i4%, i5%, i6%, i7%, i8%, i9%
 
i1 = 18
i2 = 26
i3 = 6
i4 = 18
i5 = 26
i6 = 20
i7 = 25
i8 = 3
i9 = 20
 
Dim iarr(9) As Integer
 
iarr(1) = i1
iarr(2) = i2
iarr(3) = i3
iarr(4) = i4
iarr(5) = i5
iarr(6) = i6
iarr(7) = i7
iarr(8) = i8
iarr(9) = i9
 
Dim i%, k%
 
For i = 1 To 9
   If iarr(i) > 0 Then
      For k = i + 1 To 9
         If iarr(i) = iarr(k) Then iarr(k) = 0
      Next k
   End If
Next i
 
i1 = iarr(1)
i2 = iarr(2)
i3 = iarr(3)
i4 = iarr(4)
i5 = iarr(5)
i6 = iarr(6)
i7 = iarr(7)
i8 = iarr(8)
i9 = iarr(9)
 
 
End Sub
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel