Visual basic 2010-ben hogyan oldható meg ez?

Szia.

Tömbben, vagy egy fájlban tárolod a beirt kódokat (attól függően, hogy a kódismétlés tiltása elég csak a program futási ideje alatt, vagy akkor is kell ha a programot máskor is használják), és bekérés után egy ciklussal végigszaladsz a tömbön vagy a fájlon és megnézed, hogy volt-e már a beadott kód, ha igen akkor kiirod, hogy ez a kód már szerepelt, és kérsz ujat.

Nem vagyok Visual basices, de leirónyelven leirom a teendőket.

"ÉrvenyesKód" válzozó beállitása igazra

"Ciklus1" -> addig megy mig "ÉrvenyesKód" változó igaz.

Bekerés ("Kód")

"ÉrvenyesKód" változó beállitása Hamisra

"KódTalalat" válzozó beállitása Hamisra

"KódFile" megnyitása olvasásra

Ciklus2 -> addig megy mig nincs vége a "KódFilének" vagy mig "KódTalálat" változó hamis

"KódFiléből" egy kód beolvasása ("BeolvasottKód")

"KódTalálat" változó legyen egyenlő ("BeolvasottKód"="Kód") // Igaz vagy Hamis

Ciklus2 vége

Feltétel1 -> Ha "Kódtalálat" változó igaz

Hiba kiirása (EZ a kód már volt egyszer)

"ÉrvenyesKód" válzozó beállitása igazra

Feltétel1 Vége

Ciklus1 vége

"Kódfile" Lezárása

"KódFile" megnyitása irásra

"Kódfile"-be a beadott "Kód" beleirása

"Kódfile" Lezárása

Sok sikert.

Üdv.