Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

ProgressBar i wyświetlanie

f00g

Przez f00g
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

NeuronSKY Pomocnik

NeuronSKY

Opublikowano
Pomocnik

NeuronSKY

Opublikowano

Zakładając, że kod progressbar'a jest podobny do tego

Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        

End Sub

to

Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        
If e.ProgressPercentage = 100 Then
   Form1.Text = zmienna_z_losowymi_liczbami
End IF

End Sub

Z grubsza coś takiego

 

 

// może coś z tego wyciągniesz :D

------------------------------------------------------------


 


~`Chcesz zamówić u mnie stronę? Chcesz zapoznać się z moimi pracami? A może kojarzysz mnie z jakichś innych projektów i jesteś zainteresowany moimi usługami? Jeżeli tak to zapraszam Cię do mojego portfolio: www.theneuronsky.pl, a jeżeli nie to też Cię tam zapraszam  :)


 

------------------------------------------------------------

NeuronSKY Pomocnik

NeuronSKY

Opublikowano
Pomocnik

NeuronSKY

Opublikowano

Za ciebie wszystkiego nie zrobimy. Jeżeli chcesz coś wyciągnąć z tego na przyszłość to poszukaj sam ;)

 

//google

------------------------------------------------------------


 


~`Chcesz zamówić u mnie stronę? Chcesz zapoznać się z moimi pracami? A może kojarzysz mnie z jakichś innych projektów i jesteś zainteresowany moimi usługami? Jeżeli tak to zapraszam Cię do mojego portfolio: www.theneuronsky.pl, a jeżeli nie to też Cię tam zapraszam  :)


 

------------------------------------------------------------

f00g Uczeń

f00g

Opublikowano
Uczeń

f00g

  • Autor
Opublikowano

a co tutaj jest nie tak ?

Dim zmienna As Integer = CInt(Int(6 * Rnd()) + 1))

       If ProgressBar1 = 100 Then




           Form1.Text = zmienna




       End If
NeuronSKY Pomocnik

NeuronSKY

Opublikowano
Pomocnik

NeuronSKY

Opublikowano

Daj mi chwilę

------------------------------------------------------------


 


~`Chcesz zamówić u mnie stronę? Chcesz zapoznać się z moimi pracami? A może kojarzysz mnie z jakichś innych projektów i jesteś zainteresowany moimi usługami? Jeżeli tak to zapraszam Cię do mojego portfolio: www.theneuronsky.pl, a jeżeli nie to też Cię tam zapraszam  :)


 

------------------------------------------------------------

kosmo53 Pasjonat

kosmo53

Opublikowano
Pasjonat

kosmo53

Opublikowano

Zakładając, że kod progressbar'a jest podobny do tego

Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        

End Sub

to

Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        
If e.ProgressPercentage = 100 Then
   Form1.Text = zmienna_z_losowymi_liczbami
End IF

End Sub

Z grubsza coś takiego

 

 

// może coś z tego wyciągniesz :D

 TAAAAAA ... czemu z WebClient ?!

 

Do kodu progressbar-a dodaj to :

If ProgressBar1.value = 100 Then
form1.Text = 'zmienne'
End If

sygna.png

NeuronSKY Pomocnik

NeuronSKY

Opublikowano
Pomocnik

NeuronSKY

Opublikowano

kosmo... kod dla przykładu mu podałem geniuszu

------------------------------------------------------------


 


~`Chcesz zamówić u mnie stronę? Chcesz zapoznać się z moimi pracami? A może kojarzysz mnie z jakichś innych projektów i jesteś zainteresowany moimi usługami? Jeżeli tak to zapraszam Cię do mojego portfolio: www.theneuronsky.pl, a jeżeli nie to też Cię tam zapraszam  :)


 

------------------------------------------------------------

f00g Uczeń

f00g

Opublikowano
Uczeń

f00g

  • Autor
Opublikowano

Neuron zrobisz mi kod na to? :D

 

I mam pytanie

jak zrobić że jak mam Checkbox 1 do 5 to jak zrobić że można wybrać tylko jeden i jak nie jest zaznaczone to progress bar nie idzie

Mój kod jest taki :D

If CheckBox1.Checked = False Then
            MessageBox.Show("Wybierz Operatora", "Informacja")

        End If

I dalej nie wiem co zrobić:D

NeuronSKY Pomocnik

NeuronSKY

Opublikowano
Pomocnik

NeuronSKY

Opublikowano 
If e.ProgressPercentage = 100 Then
        Dim rdm As New Random()
        Dim allowChrs() As Char = "123456789".ToCharArray()
        Dim sResult As String = ""

        For i As Integer = 0 To 10 - 1
            sResult += allowChrs(rdm.Next(0, allowChrs.Length))
        Next

   Form1.Text = sResult
End If

Widzę @kosmo czytać nie umiesz. Tam jasno napisane ,, załóżmy, że " aby mógł złapać jak to powinno wyglądać a kod z WC bo taki miałem pod ręką... co za różnica? wpisałem po to by wiedział, gdzie ma to wkleić.

------------------------------------------------------------


 


~`Chcesz zamówić u mnie stronę? Chcesz zapoznać się z moimi pracami? A może kojarzysz mnie z jakichś innych projektów i jesteś zainteresowany moimi usługami? Jeżeli tak to zapraszam Cię do mojego portfolio: www.theneuronsky.pl, a jeżeli nie to też Cię tam zapraszam  :)


 

------------------------------------------------------------

NeuronSKY Pomocnik

NeuronSKY

Opublikowano
Pomocnik

NeuronSKY

Opublikowano

Tam gdzie masz progress bar. ... tam wyżej masz przykład
 
 
... jeszcze raz .
 
Jeżeli masz kod progressbar'a ,, dla przykładu " ten: 

Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        

End Sub

to robisz tak 

 

// pokaż swój kod

Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged


        If e.ProgressPercentage = 100 Then
        Dim rdm As New Random()
        Dim allowChrs() As Char = "123456789".ToCharArray()
        Dim sResult As String = ""

        For i As Integer = 0 To 10 - 1
        sResult += allowChrs(rdm.Next(0, allowChrs.Length))
        Next

       Form1.Text = sResult
       End If


End Sub

------------------------------------------------------------


 


~`Chcesz zamówić u mnie stronę? Chcesz zapoznać się z moimi pracami? A może kojarzysz mnie z jakichś innych projektów i jesteś zainteresowany moimi usługami? Jeżeli tak to zapraszam Cię do mojego portfolio: www.theneuronsky.pl, a jeżeli nie to też Cię tam zapraszam  :)


 

------------------------------------------------------------

kosmo53 Pasjonat

kosmo53

Opublikowano
Pasjonat

kosmo53

Opublikowano

 

Tam gdzie masz progress bar. ... tam wyżej masz przykład

 

 

... jeszcze raz .

 

Jeżeli masz kod progressbar'a ,, dla przykładu " ten: 

Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        

End Sub

to robisz tak 

Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        If e.ProgressPercentage = 100 Then
Dim rdm As New Random()
Dim allowChrs() As Char = "123456789".ToCharArray()
Dim sResult As String = ""

For i As Integer = 0 To 10 - 1
sResult += allowChrs(rdm.Next(0, allowChrs.Length))
Next

Form1.Text = sResult
End If
End Sub

GDZIE TU WIDZISZ DOWNLOAD ?!

sygna.png

NeuronSKY Pomocnik

NeuronSKY

Opublikowano
Pomocnik

NeuronSKY

Opublikowano

Nie nadużywaj caps locka. Ile razy mam ci pisać, że tamten kod jest przykładowy i podałem tylko po to by wiedział gdzie wkleić tą środkową część

 

czyli tą:

If e.ProgressPercentage = 100 Then
Dim rdm As New Random()
Dim allowChrs() As Char = "123456789".ToCharArray()
Dim sResult As String = ""

For i As Integer = 0 To 10 - 1
sResult += allowChrs(rdm.Next(0, allowChrs.Length))
Next

Form1.Text = sResult
End If

//daj kod

------------------------------------------------------------


 


~`Chcesz zamówić u mnie stronę? Chcesz zapoznać się z moimi pracami? A może kojarzysz mnie z jakichś innych projektów i jesteś zainteresowany moimi usługami? Jeżeli tak to zapraszam Cię do mojego portfolio: www.theneuronsky.pl, a jeżeli nie to też Cię tam zapraszam  :)


 

------------------------------------------------------------

f00g Uczeń

f00g

Opublikowano
Uczeń

f00g

  • Autor
Opublikowano

to mój progressbar

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)



    End Sub

a to zegarek

 

   
Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
        End If
    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        If e.ProgressPercentage = 100 Then
            Dim rdm As New Random()
            Dim allowChrs() As Char = "123456789".ToCharArray()
            Dim sResult As String = ""


            For i As Integer = 0 To 10 - 1
                sResult += allowChrs(rdm.Next(0, allowChrs.Length))
            Next


            Form1.Text = sResult
        End If
    End Sub
NeuronSKY Pomocnik

NeuronSKY

Opublikowano
Pomocnik

NeuronSKY

Opublikowano

Źle zrobiłeś. Napisałem, że to przykład.

 

mając zrobiony progress bar interesuje cię tylko to:

 

//ale jakoś nie widzę u cb zrobionego progress bar'a

 If e.ProgressPercentage = 100 Then
            Dim rdm As New Random()
            Dim allowChrs() As Char = "123456789".ToCharArray()
            Dim sResult As String = ""
 
            For i As Integer = 0 To 10 - 1
                sResult += allowChrs(rdm.Next(0, allowChrs.Length))
            Next
 
            Form1.Text = sResult
        End If

------------------------------------------------------------


 


~`Chcesz zamówić u mnie stronę? Chcesz zapoznać się z moimi pracami? A może kojarzysz mnie z jakichś innych projektów i jesteś zainteresowany moimi usługami? Jeżeli tak to zapraszam Cię do mojego portfolio: www.theneuronsky.pl, a jeżeli nie to też Cię tam zapraszam  :)


 

------------------------------------------------------------

kosmo53 Pasjonat

kosmo53

Opublikowano
Pasjonat

kosmo53

Opublikowano

1. Dodaj progressbar do kodu (kliknij na niego 2 razy)

2. Wklej do niego ten kod :

 If progressbar1.value = 100 Then
            Dim rdm As New Random()
            Dim allowChrs() As Char = "123456789".ToCharArray()
            Dim sResult As String = ""
 
            For i As Integer = 0 To 10 - 1
                sResult += allowChrs(rdm.Next(0, allowChrs.Length))
            Next
 
            Form1.Text = sResult
        End If

KONIEC !

sygna.png

kosmo53 Pasjonat

kosmo53

Opublikowano
Pasjonat

kosmo53

Opublikowano

Dodaj :

 

X1 button

X1 progressbar

X1 timer

 

kliknij na coś 2 razy ( oczywiście na jakąś część programu NP: button)

 

i wciśnij "Ctrl + a" i wklej ten kod :

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value = 100 Then
            Dim rdm As New Random()
            Dim allowChrs() As Char = "123456789".ToCharArray()
            Dim sResult As String = ""


            For i As Integer = 0 To 14 - 1 '14 to ilość losowanych liczb 
                sResult += allowChrs(rdm.Next(0, allowChrs.Length))
            Next
            Timer1.Stop()
            Me.Text = sResult
        Else
            ProgressBar1.Value = ProgressBar1.Value + "1"
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
End Class

LICZĘ NA + SKORO TO ZROBIŁEM ZA CB :) - na gg masz gotowy projekt do edycji. - robiłem to z nudy. POZDRO

sygna.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...