Skocz do zawartości

ProgressBar w procentach


max188

Rekomendowane odpowiedzi

Przeszukałem cały temat VB i nigdzie nie widze a potrzebuje pomocy.

 

Haki sa i działaja jak należy ale nie moge poradzić sobie z jedną rzeczą a mianowicie z progressbarem w %.

 

Tj klikam np h@ack i pasek progressbara leci az sie cały zapełni i wtedy wyskakuje okienko więc wszystko gra, ale chciałbym żeby w czasie zapełniania paska obok tez leciało w % ile paska sie wypałniło od 1 do 100%  - ładniej to wygląda jak jest taka dodatkowa informacja w %.

 

Pomoże ktoś jak to zrobić?

Odnośnik do komentarza

Zarejestruj się za darmo i naucz się zarabiać online!

  • 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, sztucznej inteligencji i wiele więcej!

Musisz wstawić label i w timerze dopisać: Label1.Text = ProgressBar1.Value & "%", powinno pomóc :)

 

Cos robie nie tak, Timer 2 który odpowiada za progressbar2 i label4 ktory ma obecnie text "Progress:"

 

Tak to wyglada a pogrubiona jest linijka ktora dodalem ale wyskakuje blad

 

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Labe4.Text = ProgressBar2.Value & "%"

        ProgressBar2.Increment(1)

        If ProgressBar2.Value = ProgressBar2.Maximum Then

            Timer2.Stop()

            Dim key As Integer

            key = (Rnd() * 3)

            MsgBox("Sucess!", MsgBoxStyle.Information)

        End If

    End Sub

Odnośnik do komentarza

A wiecie jak zrobić by dane pole do zaznaczenia było obowiązkowe.

np. mam opcję "iOS" i "Android" i jedną z nich muszę obowiązkowo zaznaczyć, ew. wpisać coś w dane pole muszę obowiązkowo

 

Musisz zastosować coś takiego:

If RadioButton1. Checked = False then

If radiobutton2.Checked = False then

Timer1.Stop()

Messagebox.Show("You have to choose one option","Error")

Else

Timer1.Start()

End if

End if

 

 

Cos robie nie tak, Timer 2 który odpowiada za progressbar2 i label4 ktory ma obecnie text "Progress:"

 

Tak to wyglada a pogrubiona jest linijka ktora dodalem ale wyskakuje blad

 

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Labe4.Text = ProgressBar2.Value & "%"

        ProgressBar2.Increment(1)

        If ProgressBar2.Value = ProgressBar2.Maximum Then

            Timer2.Stop()

            Dim key As Integer

            key = (Rnd() * 3)

            MsgBox("Sucess!", MsgBoxStyle.Information)

        End If

    End Sub

 

Po pierwsze masz tam "Labe" zamiast "Label", a po drugie wrzuć to:

Label4.Text = ProgressBar2.Value & "%"

po tym:

 ProgressBar2.Increment(1)

Daj znać czy działa :)

Edytowane przez Xander92
  • Super 3
Odnośnik do komentarza

A wiecie jak zrobić by dane pole do zaznaczenia było obowiązkowe.

np. mam opcję "iOS" i "Android" i jedną z nich muszę obowiązkowo zaznaczyć, ew. wpisać coś w dane pole muszę obowiązkowo

 

Wtedy dajesz zwyczajnie warunek na dany przycisk.

If radioButton1.Checked = true Or radioButton2.Checked = true thenZrób coś tamElseWyświetl komunikat że ma coś zaznaczyć :)End If
Edytowane przez SaRNEh
  • Super 1
Odnośnik do komentarza

Ja mam problem innego rodzaju.
Pewnie to błahostka ale nie mogę tego nigdzie znaleźć :(

Chciałbym aby na moim progreebarze przelatywało białe światełko (Mam nadzieje że wiecie o co mi chodzi :))

W chwili obecnej mój progressbar jest po prostu zielony, chciałbym aby się ładnie błyszczał :)
Wydaje mi się że nie jest to wina kodu lecz jakiegoś ustawienia i nie mogę tego znaleźć :(

Odnośnik do komentarza

Musisz zastosować coś takiego:

If RadioButton1. Checked = False then

If radiobutton2.Checked = False then

Timer1.Stop()

Messagebox.Show("You have to choose one option","Error")

Else

Timer1.Start()

End if

End if

 

 

 

Po pierwsze masz tam "Labe" zamiast "Label", a po drugie wrzuć to:

Label4.Text = ProgressBar2.Value & "%"

po tym:

 ProgressBar2.Increment(1)

Daj znać czy działa :)

A co zrobić w przypadku TextBoxa?

Odnośnik do komentarza

"

If RadioButton1. Checked = False then

If radiobutton2.Checked = False then

Timer1.Stop()

Messagebox.Show("You have to choose one option","Error")

Else

Timer1.Start()

End if

End if

"

 

Wpisuję ten kod i przy wyborze 1 nie startuje progres bar. przy wyborze 2 staruje bez problemu. co może być nie tak??

 

Już wiem 1 nie odnosi się do ELSE ale jak poprawić aby się odnosił??

Edytowane przez znk
Odnośnik do komentarza

już sobie z tym poradziłem.

 

Poprawny skrypt wygląda tak:

 If RadioButton1.Checked = False Then

            If RadioButton2.Checked = False Then

                Timer1.Stop()

                MessageBox.Show("You have to choose Your Device", "Error")

            Else

                Timer1.Start()

            End If

        Else

            Timer1.Start()
        End If

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 .