ProgressBar

[The Mighty Atom]

Ik heb ruzie met mn progressbar.

Ik heb een integer, van bijvoorbeeld 5.
Vervolgens wil ik dat de progressbar zich binnen 5 seconden helemaal vult, maar wel met steeds 1 stap (één groen blokje).

Als deze integer bijvoorbeeld 20 is, dan moet de progressbar zich binnen 20 seconden helemaal vullen.

Ik krijg dit maar niet goed, hij lijkt zich steeds langzamer of juist sneller te vullen, ondanks de opgegeven integer.

Het is mij ook niet geheel duidelijk wat de maximum waarde voor de progressbar moet zijn en wilke interval ik moet hebben voor mn timer.

Kan iemand mij hiermee helpen?

 

[mastermindzh]

hoi atom ik ben het

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
End Sub

en dan vul je voor de interval 5000

 

[ninjaplayer]

uhm...

timer1 met interval 1000
nummericupdown voor de integer

vullen met timer1.start
legen met progressbar1.value = progressbar1.mininum

private sub timer1_tick etc
progressbar1.maximum = nudvalue.value
if progressbar1.value < nudvalue.value then progressbar1.value += 1
end sub

 

[The Mighty Atom]

Ik heb het een soortement van werkende, maar nu heb ik ruzie met mn progressbar om een ander euvel:

Stel je voor:

Een listview, met 2 kolommen. In de eerste kolom komt gewoon tekst (string). In de tweede kolom een getal.

Nu wil ik door deze items loopen. Dat lukt met behulp van deze code:

For Each lvi As ListViewItem In lvTaken.Items
            MsgBox(lvi.Text & " " & lvi.SubItems(1).Text)
        Next

Als voorbeeld maar ik gebruik van een MsgBox om de tekst onder de eerste kolom en het getal onder de tweede kolom weer te geven.

Dit is verder geen probleem.

Nu heb ik dus die progressbar die zich vult. De tijd hoelang dat moet duren wordt dus bepaalt door het getal onder de tweede kolom. Via een label laat ik de tekst zien die onder de eerste kolom is geplaats.
Wanneer de progressbar vol is, moet tie weer leeggemaakt worden, en moet tie het volgende item in de listview doen. De label krijgt nou de tekst van de tweede item in de listview, en de progressbar moet zich nu opnieuw vullen met het getal onder de tweede kolom, tweede item in de listview.

Hopelijk heb ik het goed uitgelegd. Ik zal morgen een screenshot plaatsen, met wat extra uitleg.

 

[ninjaplayer]

Public Class Form1
Dim timevalue as integer = 0

Backgroundworker1_dowork:

For Each lvi As ListViewItem In lvTaken.Items
            lblText.Text = lvi.text
            timevalue = cint(lvi.subitems(1).text)
            timer1.start
            system.threading.sleep(timevalue * 1000)
        Next

en de vorige code de nummericupdowns vervangen door timevalue.
misschien zitten er fouten in, want ik doe dit uit mijn hoofd.

 

[The Mighty Atom]

Ik ga het proberen, bedankt!
Ik laat het weten.

Edit: Het werkt nog niet geheel zoals moet, maar het doet het in ieder geval al voor een gedeeldte.

Als ik op de button klik dat het hele zaakje start (de button waaronder:

CheckForIllegalCrossThreadCalls = False
        BackgroundWorker1.RunWorkerAsync()

staat), loopt tie wel door de teksten, maar de progressbar loopt niet vol, hij blijft leeg.
Ik zie maar niet waarom niet.

Hier is mn huidige code:

BackgroundWorker1.DoWork:

Timer1.Start()

        For Each Taak As ListViewItem In frmInstellingen.lvTaken.Items
            lblStatus.Text = Taak.Text
            timevalue = Taak.SubItems(1).Text
            Threading.Thread.Sleep(timevalue * 10) 'Heb * 10 gegaan, * 1000 duurt veel te lang
        Next

Timer1.Tick:

pgb1.Maximum = timevalue
        If pgb1.Value < timevalue Then
            pgb1.Value += 1
        End If

Wat denk je dat het zou kunnen zijn?

 

[old Hippy]

Hi ik denk dat het zo dit moet zijn
is het dit

pgb1.Maximum = timevalue
        If pgb1.Value < timevalue Then
           pgb1.value =  pgb1.Value + 1
        End If

 

[The Mighty Atom]

Helaas niet.

pgb1.value =  pgb1.Value + 1

en

pgb1.Value += 1

doen allebei precies hetzelfde: er wordt steeds 1 bij .Value opgeteld, de tweede manier is alleen net wat korter.

index = index + 1

en

index += 1

is bijvoorbeeld ook exact hetzelfde.

Heb ik jouw nou iets geleerd?

 

[ninjaplayer]

Threading.Thread.Sleep(timevalue * 10) 'Heb * 10 gegaan, * 1000 duurt veel te lang
die maal 1000 is zodat het seconden worden, zelfde als bij timer.interval, in milliseconden, misschien zo snel dat je het niet ziet of ik heb wat over het hoofd gezien

 

[old Hippy]

Dank mij valt nog heeeeeel wat te leren

 

[The Mighty Atom]

Helaas werkt dat niet, ik zie wel de label door de items loopen, maar de progress blijft maar leeg.

Of je nou * 10 of * 1000 doet maakt eigenlijk niks uit, als de delay waarden 100 tallen zijn. Bijvoorbeeld 300 * 1000 = 3000 = 3 seconden.

Kijk maar naar deze screenshot:

http://www.themightyatom.nl/screenshots/fop_progbar.jpg

 

[ninjaplayer]

ik doe altijd een msgbox om te kijken of iets werkt, zet een msgbox na de thread.sleep en kijk of die wordt weergeven.

 

[The Mighty Atom]

Ik probeer het gelijk, niet weggaan.

Edit: hier snap ik dus echt geen sikkepit van. Hij looped inderdaad door de items, maar ik zie de progressbar alleen vollopen als ik de msgbox niet wegklik, dus laat staan.

Wut?

 

[ninjaplayer]

dan ligt het aan de thread.sleep, de code gaat niet door totdat je de msgbox wegklikt
dus je moet een andere manier vinden van stopzetten voor een tijdje, of gewoon de oude timer

handig he die msgboxen?

 

[The Mighty Atom]

Het is een handig manier om uit te vinden of iets getriggered wordt of niet. Tof.

Helaas ben ik nog weinig opgeschoten met dit euvel. Ik ben gisterenavond ook een uur of wat aan het prutsen geweest met timers en backgroundworker, steeds hier en daar code verplaats en aanpassen, maar ik krijg het maar niet goed. Het is die for each loop, die loopt direct door alle items heen in plaats van te wachten tot de progressbar vol is en dan naar de volgende item te gaan.

Ik heb dus echt geen idee hoe ik dat moet aanpakken.

 

[raymondhvh]

Hallo might !!!


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True

End Sub



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Commando
ProgressBar1.Increment(+1)
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
Comando

ProgressBar1.Value = 0
End If



Doei! :thumb:

 

[The Mighty Atom]

Volgens mij heb ik het voor elkaar!

Ik test nog even verder, want ik wil zeker weten dat het goed loopt.