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 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
    • Przez mysc
      USŁUGI GET PAID 2.0
      MENTORING - SEO - COPYWRITING - WEBMASTERING - PROGRAMOWANIE - USŁUGI FILMOWE - GRAFIKA …
      Potwierdzam aktualność oferty: Styczeń 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 akacpa


      Drodzy Wydawcy!

      Wielu z Was często prosiło o pomoc w zarabianiu, czy też poszukiwaliście nowych metod promocji.
      Otwieramy się na Was szeroką ofertą Mentoringu!
      Każdy mentoring charakteryzuje coś innego! Sami podejmijcie decyzję co jest Wam najpotrzebniejsze!

      1. ConverBoard - ConverBoard - Forum
      Oficjalny mentor serwisu Lead.Network, współpracujący z nami na wyłączność. Wydawcy są uczeni zarabiania wyłącznie w oparciu o serwis Lead.Network.
      Korzyści płynące z metoringu to dostęp do narzędzi, landing page'y, nisz, metod promocji zupełnie za darmo w zamian za bycie poleconym użytkownika ConverKing.
      Opcjonalnie wydawcy mogą zlecać indywidualne narzędzia oraz landing page w zamian za ustalony % od zarobków. 
      Ponadto wydawcy są nagradzani za pochwalenie się zarobkami w postaci 3% na 24h.

      Kontakt ConverBoard:
      ConverBoard - Forum


      2. Get Paid 2.0 - Get Paid 2.0 
      Kompleksowy mentoring promowania ofert afiliacyjnych. Najdłuższy staż na rynku mentoringów w Polsce. Obszerna wiedza rozpisana w kilkuset poradnikach. 
      Wydawca otrzymuje +5% do stawki oraz stały dostęp do aktualizowanych i rozwijanych materiałów szkoleniowych.
      Dostęp do mentoringu wiąże się z poniesieniem jednorazowej opłaty uzależnionej od typu reklamowanych ofert afiliacyjnych.
      Dostęp do mentoringu to koszt 249 zł dla nowych wydawców, 199 zł dla osób posiadających dostęp do innego dowolnego mentoringu Get Paid 2.0 (Mysc)

      Kontakt Get Paid 2.0:
      Formularz Kontaktowy
      GG: 5975423
      Facebook


      3. Elite Talk - Elite Talk
      Doświadczona grupa wydawców, którzy postanowili podzielić się swoim doświadczeniem z innymi. 
      Na pomoc ze strony grupy mogą liczyć nie tylko początkujący wydawcy ale również doświadczeni earnerzy.
      Doradztwo, pomoc w doborze nisz czy też konsultacja odnośnie Landing Page'a to tylko część oferty mentorskiej Elite Talk.
      Na Lead.Network mentorzy przedstawiają się nickiem EliteTalk.
      Wycena dla każdego jest wyliczana indywidualnie względem oczekiwań i nakładu pracy, który trzeba włożyć by pomóc wydawcy osiągnąć cel.

      Kontakt Elite Talk: 
      Telegram
      Formularz Kontaktowy
      Facebook

      Warunek dołączenia pod jednego z wybranych mentorów to nie przepinanie się między nich. 
      Jeśli jakiś mentor pomógł Tobie postawić kroki i zarabiać doceń jego wkład i zostań jego poleconym.
      Każdy wydawca może indywidualnie ustalić z mentorem % zarobków, który chce mu przekazać w zamian za pomoc.

      Jeśli macie pytania możecie kontaktować się z Waszym Affiliate Managerem!

      Życzymy wysokich zarobków!
      Ekipa Lead.Network
    • Przez Hornio
      Chcę wymienić (skąd i ile): Skrill/paypal/bank Chcę wymienić na (dokąd i ile):PAYEER  Kontakt:pisz tu na pw lub pod postem

      Potrzebuje przelać sb 2 dolary błagam niech ktoś pomoże
    • Przez SiD2k
      Witam!
      Robię gry w js które będą znajdować się na mojej stronie. Czy ktoś mógłby mi może pomóc jak zrobić coś takiego a mianowicie: 
      Mam jakąś grę dajmy na to kółko i krzyżyk. Ktoś sobie rozegra 5 partyjek takiej gierki z komputerem i po tych 5 rundach chciałbym aby mu wyskoczyła reklama np. google  adsense. Jak ciś takiego wykonać, o czym poczytać etc.
      Dzięki za poświęcony czas i proszę o pomoc!
×
×
  • 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 .