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

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

if ProgressBar1.Value = 100 then
TextBox1.Text = rnd.Next(10000000000000, 9999999999999)

end if
 

moze cos takiego?

To gdzie to umieścić 

1 godzinę temu, skot napisał:

To gdzie to umieścić 

Po pętli next z progressbarem.

Error    1    'Next' is not a member of 'Single'.   

TextBox1.Text = rnd.Next(10000000000000, 9999999999999)

6 minut temu, skot napisał:

Error    1    'Next' is not a member of 'Single'.   

TextBox1.Text = rnd.Next(10000000000000, 9999999999999)

Nie zadeklarowałeś random.

Dim rnd as new random

Error    1    Constant expression not representable in type 'Integer'.   

Cisza

Sorry, zapomniałem o tym temacie. Za 2-3 godziny będę miał czas to Ci odpowiem.

EDIT# Nie wiem czemu ale nie mogę wkleić kodu bo dostaje bloka od cloudflare.

EDI2# https://pastebin.com/iMcBD6ny

@skot Podziałało?

Jutro będę w domu to sprawdzę

Coś mi to nie wychodzi bo nie ma timera do progressbara i zrób taki form i pod to kod dałem cały kod z form i dałem na hosting mediafire.Link:

http://www.mediafire.com/file/gx7yebacqn6vgx1/Generator.rar/file

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.

Coś dalej nie wychodzi a zrobiłem tak mi podałeś .Nagrałem obraz pulpitu .Link:

 https://www.mediafire.com/file/llibj3exitfm733/Rec.avi/file

12 minut temu, skot napisał:

Coś dalej nie wychodzi a zrobiłem tak mi podałeś .Nagrałem obraz pulpitu .Link:

 https://www.mediafire.com/file/llibj3exitfm733/Rec.avi/file

End class przenieś na sam koniec programu.

Stary dzięki w końcu ktoś mi tu pomógł i tak szybko mi odpisywałeś

I po każdym kliknięciu w button okienko z komunikatem że dodano msgbox

to jeszcze zapomniałem

W buttonie masz tylko liczba(), pod tym dodaj MsgBox("Tutaj wpisz jakiś tekst.")

Stary ale mi pomogłeś

Luz, od tego jest forum.