Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
angelina
Newbie
Newbie

Anmeldedatum: 03.08.2010
Beiträge: 15

Filter - Code verbessern - Hilfe gesucht ??????
Verfasst am: 11.01.2011, 13:09

hallo,


ich habe ein kleines Programm welches als Input
i1,i2,i3,i4,i5,i6,i7
hat und nur solche Input Reihen wieder als print ausgibt, die
eine der Bedingungen erfüllt.

Die Bedingung/Filter schaut so aus:

'Erster 3er-Kombi-Filter 1-2-3

flag1 = 0
If i1 = 1 Or i1 = 2 Or i1 = 3 Then flag1 = flag1 + 1
If i2 = 1 Or i2 = 2 Or i2 = 3 Then flag1 = flag1 + 1
If i3 = 1 Or i3 = 2 Or i3 = 3 Then flag1 = flag1 + 1
If i4 = 1 Or i4 = 2 Or i4 = 3 Then flag1 = flag1 + 1
If i5 = 1 Or i5 = 2 Or i5 = 3 Then flag1 = flag1 + 1
If i6 = 1 Or i6 = 2 Or i6 = 3 Then flag1 = flag1 + 1
If i7 = 1 Or i7 = 2 Or i7 = 3 Then flag1 = flag1 + 1
If flag1 = 3 Then Print #1, i1,i2,i3,i4,i5,i6,i7


Das funktioniert soweit auch alles wenn dies nur ein Filter ist.

Ich habe aber nun ca. 150 dieser "3er-Kombi-Filter" immer mit unterschiedlichen drei Zahlen

Wie könnte ich das vereinfachen/aufbauen, das ich nicht ca. 150 x den obigen Block
mit 3 Zahlen bestücken/schreiben muss ??????????

danke vorab

LG
Angelina
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Keygen - Hilfe bitte 1104 29.08.2007, 10:38
Keine neuen Beiträge Screenshot , hilfe ;) Speichern bzw jo 711 27.05.2007, 10:30
Keine neuen Beiträge hilfe bei ini maker 709 30.04.2007, 22:26
Keine neuen Beiträge [VB] suche hilfe beim 1. projekt 857 02.04.2007, 01:39
Keine neuen Beiträge proxy checker hilfe 1015 30.03.2007, 10:21
 


[ Time: 0.0603s ][ Queries: 82 (0.0243s) ][ GZIP on - Debug on ]