Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[PROBLEM] Gdzie wkleić linijkę?


izari

Rekomendowane odpowiedzi

Opublikowano

Siema. Staram się zrobić keygena, i w poradniku jest napisane tak

"Przejdźmy do kodowania. Klikamy dwukrotnie na „Timer1” i wklejamy tam ten oto kod:

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 = "AG7V3BG895SR"
Case 2
TextBox1.Text = "NS2OP5XV5B11"
Case 3
TextBox1.Text = "41S9VBG7YT2P"
End Select
End If
Ok, kod wklejony, ale przecież już dodawałem taki sam kod przy buttonie..? O tym wspominałem
wcześniej, musimy nieco zmodyfikować nasz kod. Tym razem to Timer ma decydować, kiedy pokaże się
kod. Przecież nie chcemy sytuacji, w której kod się pojawia, zanim załaduję się pasek, prawda?"

Wkleiłem kod do timera, i chcę przejść do "generate"
I gdzie mam wkleić to : "Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum"

Mój obecny kod generate wyglada tak:
"Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim key As Integer
key = (Rnd() * 3 + 1)
Select Case key
Case 1
TextBox1.Text = "AG7V3BG895SR"
Case 2
TextBox1.Text = "NS2OP5XV5B11"
Case 3
TextBox1.Text = "41S9VBG7YT2P"
End Select
End Sub"
Opublikowano

Podmieň kod buttona na ten 2 i dodaj timer tick z pierwszym kodem.

Opublikowano

Nie za bardzo rozumiem. Ten 2 kod to jest mój obecny kod, więc po co go zamieniać? Ma to wyglądać jakoś tak?


"Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum
Dim key As Integer
key = (Rnd() * 3 + 1)
Select Case key
Case 1
TextBox1.Text = "AG7V3BG895SR"
Case 2
TextBox1.Text = "NS2OP5XV5B11"
Case 3
TextBox1.Text = "41S9VBG7YT2P"
End Select
End Sub"
?
Opublikowano

Nie wiem czy Cie dobrze rozumiem ale, timer1.start do buttona dodaj, po kliknięciu w button będzie losować co interval kod, co jest bez sensu.

Po co dodajesz timer ?, odliczanie ?

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...