Skocz do zawartości
  • Jak zarabiać przez Internet?

    Dołącz do nas, a na pewno zaczniesz zarabiać! Uzyskaj dostęp do unikalnych materiałów i najlepszych metod zarabiania! Pokażemy Ci jak zarabiać na afiliacji, CPA/PPA, Instagram, SMS, programach partnerskich i wielu innych! Często aktualizowane materiały i pomocna społeczność. Zarejestruj się za darmo!

skot

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

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

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

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

end if
 

moze cos takiego?

Edytowane przez Cresh2

6.png

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach
1 godzinę temu, skot napisał:

To gdzie to umieścić 

Po pętli next z progressbarem.

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach
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)

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

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

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

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach
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

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

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

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

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

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Usuń formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.


  • Podobna zawartość

    • Przez Seeebastianeeek
      Dzień Doberek! 
      Poszukuje osoby która zna bardzo dobrze obsługę Bota Jarvee. 
      A dokładniej.. Potrzebuję osoby która byłaby wstanie nagrać mi kilka poradników wraz z tłumaczeniem co dokładne ustawienie oznacza oraz jak dokładnie ustawić Bota min pod.. 
       
      Instagram, Follow /LIKE/ unfollow i inne tego typu związane z Instagramem, 
       
      Facebook, dodawanie postów w grupach, wyszukiwanie grup itd. 
       
      Vps - zamówienie, dodanie Jarvee na VPS by móc korzystać z kilku kont. 
       
       
      Jezeli jesteś chętny i chciałbyś mi pomóc z chęcią zapraszam do pozostawienia wiadomości prywatnej. 
      Oczywiście każdy z poradników będzie odpłatnie, za przelew najwygodniej by było dla mnie. 
    • Przez MinerG33k
      Cześć 🤝
      Oferuję wykonanie wszelkiego rodzaju botów przy pomocy Chrome jak i zwykłych request'ów.
      Daję możliwość obejścia captchy z użyciem takich serwisów jak 2Captcha, AntiCaptcha,
      czy również popularnego wśród środowiska SEO XEvil.
      Kłopotem nie będzie przygotowanie pliku wykonywalnego
      dla systemów Windows, Linux czy MacOS w wersji 64/32-bit.
      Oczywiście jeśli zajdzie potrzeba udzielę pomocy przy konfiguracji 🙂
      Możliwe jest również wystawienie faktury VAT 😊
      Kontakt można że mną uzyskać przez Forum, Discord lub Telegram.
      Zachęcam do korzystania z usługi 😉

       
    • Przez mysc
      USŁUGI GET PAID 2.0
      MENTORING - SEO - COPYWRITING - WEBMASTERING - PROGRAMOWANIE - USŁUGI FILMOWE - GRAFIKA …
      Potwierdzam aktualność oferty: Luty 2020
      _______________________________________________________________________________________________
      Jeśli szukasz usług w pełni dostosowanych pod standardy "zarabiania w internecie" – bardzo dobrze trafiłeś/aś. Usługi Get Paid 2.0 są wykonywane przez osoby zaangażowane w CPA od co najmniej kilku lat, bardzo dobrze znające standardy i metody zarabiania.
      "w pełni rozumiemy jaki chcesz uzyskać efekt" _______________________________________________________________________________________________
      Wycena oraz zadawanie pytań dotyczących usług są w pełni bezpłatne i do niczego nie zobowiązują.
      Proszę śmiało wysyłać wiadomości - odpowiemy : )
      _______________________________________________________________________________________________
      Usługi Get Paid 2.0 składają się z następujących elementów:
      _______________________________________________________________________________________________
      ...
       Profesjonalny Mentoring - rozwijany od 2015 roku!

      Mentoring Get Paid 2.0 to dostęp do ponad 152 poradników dotyczących zarabiania w internecie! Wszystko jest aktualne, posegregowane i ułożone w optymalnej kolejności i stale rozwijane.

      Od siebie gwarantuję:
      – pełną uczciwość dot. realnych możliwości zarobkowych
      – dbanie o aktualność wszystkich poradników
      – rzetelne/staranne opisywanie i rozwijanie materiałów
      – odpowiadanie na wszystkie otrzymywane wiadomości
      – brak zawyżonych niewspółmiernych do wartości cen. Ceny mentoringu są kilkukrotnie (czasem kilkunasto :>) niższe od cen „kursów zarabiania w internecie” sprzedawanych na FB/YT – dodatkowo opłata jest jednorazowa, a prezentowany w ramach mentoringu materiał stale się powiększa.
       
      W CELU POZNANIA SZCZEGÓŁÓW PRZEJDŹ DO GŁÓWNEJ OFERTY:
      --> Profesjonalny Mentoring - rozwijany od 2015 roku <--  _______________________________________________________________________________________________
      ...
       Webmastering - Skrypty - Programowanie - Pomoc techniczna - Wordpress
       
      - PRACE WYKONYWANE PRZEZ DOŚWIADCZONEGO WEBMASTERA I PRAKTYKA E-ZARABIANIA
      - PHP, JAVA SCRIPT, MYSQL, HTML, CSS, NODE.JS
      - CZAS REALIZACJI: JAK NAJSZYBCIEJ, MAKSYMALNIE DO 7 DNI
      - CENY SĄ USTALANE INDYWIDUALNIE W ZALEŻNOŚCI OD STOPNIA SKOMPLIKOWANIA ZAMÓWIENIA
      - FORMA PŁATNOŚCI: PRZELEW, PAYPAL (przedpłata)
      - FAKTURY BEZ VAT
      —> LINK DO OPISU PEŁNEJ OFERTY <—
      ...
      NA SKRÓTY:
      WIESZ CZEGO CHCESZ? W CELU WYCENY I ZŁOŻENIA ZAMÓWIENIE NAPISZ NA ADRES:
      programista@getpaid20.pl _______________________________________________________________________________________________
      ...
       Pozycjonowanie stron - Sklep SEO/SEM
      - PRACE WYKONYWANE PRZEZ DOŚWIADCZONEGO POZYCJONERA I PRAKTYKA E-ZARABIANIA
      - KOMPLEKSOWE USŁUGI SEO - OD A DO Z - W MODELU ABONAMENTOWYM
      - SKLEP SEO Z JEDNORAZOWYMI OPŁATAMI
      - CENY SĄ USTALANE INDYWIDUALNIE W ZALEŻNOŚCI OD STOPNIA SKOMPLIKOWANIA ZAMÓWIENIA
      - FORMA PŁATNOŚCI: PRZELEW, PAYPAL (przedpłata)
      - FAKTURY BEZ VAT oraz FAKTURY VAT
      - MOŻLIWOŚĆ PODPISANIA UMOWY
      —> LINK DO OPISU PEŁNEJ OFERTY <—
      ...
      NA SKRÓTY:
      WIESZ CZEGO CHCESZ? W CELU WYCENY I ZŁOŻENIA ZAMÓWIENIE NAPISZ NA ADRES:
      pozycjonowanie@getpaid20.pl _______________________________________________________________________________________________
      ...
       Copywriting – Ghostwriting

      – ZLECENIA WYKONYWANE PRZEZ DOŚWIADCZONEGO COPYWRITERA I PRAKTYKA E-ZARABIANIA
      – KOMPLEKSOWE USŁUGI | WYSOKA JAKOŚĆ TEKSTÓW | UWZGLĘDNIONE ZASADY SEO
      – CZAS REALIZACJI: JAK NAJSZYBCIEJ, MAKSYMALNIE DO 7 DNI
      – CENY SĄ USTALANE INDYWIDUALNIE W ZALEŻNOŚCI OD STOPNIA SKOMPLIKOWANIA ZAMÓWIENIA
      – FORMA PŁATNOŚCI: PRZELEW, PAYPAL (przedpłata)
      – RACHUNKI BEZ VAT oraz FAKTURY VAT
      – MOŻLIWOŚĆ WYSTAWIENIA DOKUMENTU PRZEKAZANIA PRAW AUTORSKICH (na życzenie)
      —> LINK DO OPISU PEŁNEJ OFERTY <—
      ...
      NA SKRÓTY:
      WIESZ CZEGO CHCESZ? W CELU WYCENY I ZŁOŻENIA ZAMÓWIENIE NAPISZ NA ADRES:
      copywriting@getpaid20.pl _______________________________________________________________________________________________
      ...
       Grafika - Webdesign
      - PRACE WYKONYWANE PRZEZ DOŚWIADCZONEGO GRAFIKA I PRAKTYKA E-ZARABIANIA
      - GRAFIKA RASTROWA I WEKTOROWA
      - CZAS REALIZACJI: JAK NAJSZYBCIEJ, MAKSYMALNIE DO 7 DNI
      - CENY SĄ USTALANE INDYWIDUALNIE W ZALEŻNOŚCI OD STOPNIA SKOMPLIKOWANIA ZAMÓWIENIA
      - FORMA PŁATNOŚCI: PRZELEW, PAYPAL (przedpłata)
      - RACHUNKI BEZ VAT
      —> LINK DO OPISU PEŁNEJ OFERTY <—
      ...
      NA SKRÓTY:
      WIESZ CZEGO CHCESZ? W CELU WYCENY I ZŁOŻENIA ZAMÓWIENIE NAPISZ NA ADRES:
      grafik@getpaid20.pl _______________________________________________________________________________________________
      ...
       Usługi filmowe: Produkcja - Edycja - Montaż
       
      - FILMY REKLAMOWE, INSTRUKTAŻOWE, EDUKACYJNE, INSPIRUJĄCE, DEMONSTRUJĄCE I INNE
      - FILMY WYJAŚNIAJĄCE DZIAŁANIE BOTÓW, APLIKACJI, GENERATORÓW I INNYCH NARZĘDZI
      - JAKOŚĆ FULL HD 1080p 1920x1080
      - PROFESJONALNI NARRATORZY Z WIELOLETNIM DOŚWIADCZENIEM STUDYJNYM
      - FORMA PŁATNOŚCI: PRZELEW, PAYPAL (przedpłata)
      - RACHUNKI BEZ VAT
      —> LINK DO OPISU PEŁNEJ OFERTY <—
      ...
      NA SKRÓTY:
      WIESZ CZEGO CHCESZ? W CELU WYCENY I ZŁOŻENIA ZAMÓWIENIE NAPISZ NA ADRES:
      filmy@getpaid20.pl _______________________________________________________________________________________________
      Zapraszam serdecznie, warto skorzystać
      _______________________________________________________________________________________________
      Kontakt:
      Pytania dotyczące USŁUG (nie dotyczy mentoringu) proszę kierować na adresy e-mail podane przy ofertach konkretnych usług 
      Masz pytanie niezwiązane z usługą lub nie dostałeś odpowiedzi na wysłany e-mail w ciągu 24h? Napisz:
      1. PW : Wyślij (preferowana forma kontaktu)
      2. GG : 5975423
      3. E-MAIL : mysc@getpaid20.pl
      4. FACEBOOK : FanPage
      .
      ___________________________________________________________________________________________
      .
       
    • Przez Liczi7836
      Witam, chciałbym wam przedstawić program do dorobienia sobie.
      Nie wymaga żadnej weryfikacji. Polega na przepisywaniu 3 cyfrowego kodu.
      Nie jest to trudne, dużo czasu też nie zajmuje 😀
      Zapraszam obczaić, darmowe.
      Może skorzystasz a na pewno nie stracisz nic!

    • Przez klajam94mag
      Witam 
      Szukam kogoś kto mógłby mnie pokierować w temacie zarabiania w programie partnerskim Fire Ads. Aktualnie działam na lidstar, jednak ni wiem dlaczego moje zarobki to maksymalnie 100 zł na miesiąc. Większość moich wniosków jest odrzucana. Wstawiam ogłoszenia na fb i piszę z ludźmi na messengerze. Efekt raczej marny. 
      Jeszce raz proszę o pomoc. Chciałabym osiągać wyniki podobne do tych w galerii. Czy jest ktoś powie mi jak działać na wyżej wymienionym programie?
      Z góry dziękuję.
      Klaudia
×
×
  • 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 .