Skocz do zawartości

Generowanie kodu, bez powtarzania


#b3free

Rekomendowane odpowiedzi

Jako, że jestem nowy na forum... WITAM! :)

 

I prosta sprawa... tworzę program w VB który ma generować powiedzmy 3 kody. KOD1, KOD2, KOD3, ale każdy z nich może zostać użyty tylko RAZ.

 

Mam w generatorze coś takiego: 

  Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then            Timer1.Stop()            Dim key As Integer            key = (Rnd() * 3)            Select Case key                Case 1                    TextBox1.Text = "KOD1"                Case 2                    TextBox1.Text = "KOD2"                Case 3                    TextBox1.Text = "KOD3"            End Select        End If    End Sub

Jak to zabezpieczyć aby jeden kod, mógł być generowany RAZ? 

Edytowane przez #b3free

"I don't get lucky. I make my own luck." ~Harvey Specter

rc.gif

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

ale żaden z nich może zostać użyty tylko RAZ.

 

To zdanie nie ma sensu, wiesz?

 

Ale na dole chyba się na szczęście poprawiłeś.

 

Stwórz prosty warunek: if case1 został wybrany, then... wiadomość np. "kod został już wykorzystany". else dalsza instrukcja programu.

(ode mnie gotowego kodu nie dostaniesz, bo się nigdy nie nauczysz sam).

"Wojna to pokój.
Wolność to niewola.
Ignorancja to siła."

Odnośnik do komentarza

Tylko, że nie ma wyrzucać żadnej wiadomości tylko po prostu jeżeli został wygenerowany = nie generuj go ponownie. :) Bez żadnej info czy ponownego klikania GENERUJ. 

 

@EDIT

 

Poprawione ^^

 

https://www.google.pl/search?q=if+nic+nie+r%C3%B3b&oq=if+nic+nie+r%C3%B3b&aqs=chrome..69i57.3172j0j4&sourceid=chrome&espv=210&es_sm=93&ie=UTF-8#q=return+0

  • Super 1

"Wojna to pokój.
Wolność to niewola.
Ignorancja to siła."

Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .