vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Re: If Abfrage mit flag ??? 
Autor: JBL
Datum: 19.04.12 06:09

hallo,

danke für die bisherigen Antworten!


Also genauer gesagt schaut es so aus:


Dim flag As Byte
Dim i1 As Byte
Dim i2 As Byte
Dim i3 As Byte
Dim i4 As Byte
Dim i5 As Byte
Dim i6 As Byte
Dim Top1 As Byte
Dim Top2 As Byte
Dim Top3 As Byte
Dim Top4 As Byte
Dim Top5 As Byte
Dim Top6 As Byte

If i1 = Top1 Or i1 = Top2 Or i1 = Top3 Or i1 = Top4 Or i1 = Top5 Or i1 = Top6 Then flag = flag + 1
If i2 = Top1 Or i2 = Top2 Or i2 = Top3 Or i2 = Top4 Or i2 = Top5 Or i2 = Top6 Then flag = flag + 1
If i3 = Top1 Or i3 = Top2 Or i3 = Top3 Or i3 = Top4 Or i3 = Top5 Or i3 = Top6 Then flag = flag + 1
If i4 = Top1 Or i4 = Top2 Or i4 = Top3 Or i4 = Top4 Or i4 = Top5 Or i4 = Top6 Then flag = flag + 1
If i5 = Top1 Or i5 = Top2 Or i5 = Top3 Or i5 = Top4 Or i5 = Top5 Or i5 = Top6 Then flag = flag + 1
If i6 = Top1 Or i6 = Top2 Or i6 = Top3 Or i6 = Top4 Or i6 = Top5 Or i6 = Top6 Then flag = flag + 1

'-------------------------------
Die Werte dazu: Beispiel
Dim flag kann von 0 bis 36 gehen
Dim i1 bis i6 kann von 1 bis 49 sein

i1 = 10

Top1 = 10
Top2 = 10
Top3 = 20
Top4 = 20
Top5 = 15
Top6 = 25

Da Top1 bis Top6 gleiche Werte enthalten kann (in diesem Beispiel die 10 und 20)
Wird bei der flag durch "or" nur um eins erhöhrt.

Wie könnte man es schreiben wenn der flag nicht um eins sondern um jede gleiche erhöht werden soll?
Also immer wenn die i1 mit ihrer 10 in der Top1 bis Top6 gleich ist.


Danke vorab

JBL
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
If Abfrage mit flag ???1.258JBL18.04.12 12:05
Re: If Abfrage mit flag ???740eierlein18.04.12 15:55
Re: If Abfrage mit flag ???735Manfred X18.04.12 19:01
Re: If Abfrage mit flag ???696Blackbox18.04.12 19:38
Re: If Abfrage mit flag ???720Franki19.04.12 00:05
Re: If Abfrage mit flag ???760JBL19.04.12 06:09
Re: If Abfrage mit flag ???708Manfred X19.04.12 07:30
Re: If Abfrage mit flag ???747Rippler19.04.12 08:11

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-2025 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