Skocz do zawartości

Jak zrobić żeby w textboxie były inne cyfry


skot

Rekomendowane odpowiedzi

Jak zrobić żeby po kliknięciu w button i gdzie progress bar dojdzie do końca i chcę żeby inne cyfry i ma ich być 14 się pojawiły za każdym kliknięciem w button.Mój kod

 
 
VB?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        Randomize()
        Dim x As Integer
        For x = 1 To 100
            ProgressBar1.Value = x
            ProgressBar1.Value = x - 1
            ProgressBar1.Value = x
            System.Threading.Thread.Sleep(3)
        Next
        TextBox1.Text = Strings.Right("12345678923455" & Int(Rnd() * 0), 14)
        TextBox1.Text = Strings.Right("445567112354" & Int(Rnd() * 0), 14)
 
 
 
 
 
    End Sub
End Class
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!

 

 

  • 2 tygodnie później...
Next
        if ProgressBar1.Value = 100 then
                   TextBox1.Text = rnd.Next(10000000000000, 9999999999999)
        TextBox1.Text = Strings.Right("12345678923455" & Int(Rnd() * 0), 14)
        TextBox1.Text = Strings.Right("445567112354" & Int(Rnd() * 0), 14)
Odnośnik do komentarza
  • 1 miesiąc temu...

Odpaliłem ten Twój projekt i nie potrzebujesz timera.

Dobra, inaczej.

Stwórz nowy projekt. Na formę dodaj:

- Button

- Progressbar

- Textbox

Następnie w kodzie wklej: (wszędzie byle nie w obrębie jakiegoś obiektu, tzn wklej to jak osobny element zaraz za jakimś End Sub)

Dim rnd As New Random
    Sub liczba()
 
        TextBox1.Clear()
 
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        Randomize()
 
        Dim x As Integer
        For x = 1 To 100
            ProgressBar1.Value = x
            ProgressBar1.Value = x - 1
            ProgressBar1.Value = x
            System.Threading.Thread.Sleep(3)
        Next
        System.Threading.Thread.Sleep(1000)
 
        Do Until TextBox1.TextLength = 14
            TextBox1.Text = TextBox1.Text + rnd.Next(0, 9).ToString
        Loop
    End Sub

Następnie klikasz dwa razy na button i wklejasz do niego tylko to:

 liczba()

Odpal program i masz gotowe.

 

Teraz tak żebyś mógł sobie przerobić kod, to część odpowiedzialna za losowanie liczb wygląda tak:

  Do Until TextBox1.TextLength = 14
            TextBox1.Text = TextBox1.Text + rnd.Next(0, 9).ToString
        Loop

Jest to pętla Do która będzie się powtarzać do momentu, aż w TextBox1 nie będzie 14 znaków (w naszym wypadku cyfr)

Kod w pętli za każdym wykonaniem pętli dopisuje jedną losową cyfrę od 0 do 9.

  • Super 1
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 .