Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

progressbar do "pola"

[es] :: Visual Basic 6 :: progressbar do "pola"

Strane: 1 2

[ Pregleda: 5647 | Odgovora: 30 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

MACTEPx

Član broj: 47593
Poruke: 341
*.dialup.neobee.net.



+5 Profil

icon progressbar do "pola"24.09.2007. u 14:19 - pre 201 meseci
da li je moguce da progres bar izgleda kao prilikom pretrage fajlova u windowsu xp odn. da se 3-4 segmenta vrte u krug posto ne mogu da odredim maksimalnu vrednost za progress bar?
#include <iostream.h>
void main()
{
cout << "Pozdrav...";
}
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.223.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: progressbar do "pola"24.09.2007. u 15:02 - pre 201 meseci
Pa ako ne znaš makimalnu vrednost onda i nema neke svrhe postavljati progress bar, zar ne, jer on upravo i služi da prikaže progres u odnosu na postavljene vrednosti. Ako baš hoćeš da ti ide u krug, stavi mu neku proizvoljnu vrednost kao max, pa kad dođe do nje vrati ga na nulu. Mada je moje mišljenje da ako već trebaš da prikažeš da nešto radi, a nemaš max vrednost, onda je bolje napraviti neku animaciju koju ćeš da vrtiš kada se obavlja zadata operacija.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: progressbar do "pola"24.09.2007. u 17:15 - pre 201 meseci
Evo.

Code:
Private Sub Form_Load()
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 10
    If ProgressBar1.Value >= ProgressBar1.Max Then
        ProgressBar1.Value = 0
    End If
End Sub

rgdrajko
Prikačeni fajlovi
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: progressbar do "pola"24.09.2007. u 17:55 - pre 201 meseci
Ne moz' to sto hoces sa standardnim ProgressBar-om. Eventualno mozes da simuliras tako sto ces staviti jos jedan preko pa mu menjati velicinu tako da prekriva onaj ispod koliko treba. Ili napraviti sebi kontrolu koja ce iscrtavati onako kako treba. Ili pogledati na net-u ima li nekog primera/kontrole za download za infinite progress bar.

 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: progressbar do "pola"24.09.2007. u 18:16 - pre 201 meseci
slazem se sa Markom da ti ne treba progress bar ako ne znas koliko ce trajati proces. i da, najbolje je da koristis neku animaciju tipa
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: progressbar do "pola"24.09.2007. u 21:10 - pre 201 meseci
Citat:
MACTEPx: da li je moguce da progres bar izgleda kao prilikom pretrage fajlova u windowsu xp odn. da se 3-4 segmenta vrte u krug posto ne mogu da odredim maksimalnu vrednost za progress bar?


Evo tacno to sto si trazio sa 4 segmenta.

Code:
Dim pocetnavrednost As Integer
Dim korak As Integer

Private Sub Form_Load()
    pocetnavrednost = Picture2.Left
    Timer1.Interval = 100
    korak = 100
End Sub

Private Sub Timer1_Timer()
    Picture2.Left = Picture2.Left + korak
    If Picture2.Left > Picture1.Width Then
        Picture2.Left = pocetnavrednost
    End If
End Sub

rgdrajko
Prikačeni fajlovi
 
Odgovor na temu

MACTEPx

Član broj: 47593
Poruke: 341
*.com
Via: [es] mailing liste



+5 Profil

icon Re: progressbar do "pola"25.09.2007. u 14:24 - pre 200 meseci
Jeste, najbolje je da se pusti neka animacija, ali kako, nece ni sa picture
box-om, ni sa image kontrolom, a ne volim da koristim bas neke active x
kontrole, pokusavam da sto vise koristim standardne kontrole ili od njih
pravim neke druge...?
#include <iostream.h>
void main()
{
cout << "Pozdrav...";
}
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: progressbar do "pola"25.09.2007. u 14:43 - pre 200 meseci
Crtaj po picturebox-u. Pretpostavljam da nece biti zahtevno sa standardnim VB funkcijama za crtanje, ako jeste, mozes i api-em.
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: progressbar do "pola"25.09.2007. u 21:58 - pre 200 meseci
Kazi tacno sta zelis i kako zelis da to bude uradjeno.
rgdrajko
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: progressbar do "pola"25.09.2007. u 23:19 - pre 200 meseci
Rekao bih da ovo hoce (ceo projekat sa kontrolama je u attacment-u):

Code:

'Coded by Shadowed
'Purpose: showing responsitivity of aplication, operation in progress of onknown duretion
'Licence: MIT licence - http://opensource.org/licenses/mit-license.php

Dim MyRec As Rectangle  'Rectangle drawed on PictureBox

Private Type Rectangle
    x As Integer        'x coordinate
    y As Integer        'y coordinate
    Height As Integer   'height of rectangle
    Width As Integer    'width of rectangle
End Type
Private Sub DrawRectangle(aPictureBox As PictureBox, Rec As Rectangle)
    Dim i As Integer
    
    aPictureBox.Cls
    For i = Rec.x To Rec.x + Rec.Width
        aPictureBox.Line (i, y)-(i, y + Width), vbHighlight
    Next i
End Sub

Private Sub Form_Load()
    MyRec.Height = pcbProgress.Height
    MyRec.Width = 50
    MyRec.y = 0
    MyRec.x = -MyRec.Width
End Sub

Private Sub tmrProgress_Timer()
    With MyRec
        If .x < (.Width + pcbProgress.Width) Then
            .x = .x + 1
        Else
            .x = -.Width
        End If
    End With
    Call DrawRectangle(pcbProgress, MyRec)
    DoEvents
End Sub


[Ovu poruku je menjao Shadowed dana 26.09.2007. u 00:30 GMT+1]
Prikačeni fajlovi
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: progressbar do "pola"26.09.2007. u 00:15 - pre 200 meseci
ne videh da je Shadowed uradio, pa sam uradio i ja ("nabacano" na brzaka, ali moze da se vidi poenta)...

u attachmentu je projekat...
Prikačeni fajlovi
 
Odgovor na temu

MACTEPx

Član broj: 47593
Poruke: 341
*.com
Via: [es] mailing liste



+5 Profil

icon Re: progressbar do "pola"26.09.2007. u 13:59 - pre 200 meseci
Hvala puno svima na pomoci, taj zadnji projekat mi je bio potreban!
#include <iostream.h>
void main()
{
cout << "Pozdrav...";
}
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: progressbar do "pola"26.09.2007. u 17:42 - pre 200 meseci
Ako je neko zainteresovan neka proba da nadje optimizaciju za ovaj kod koji sam ja pisao, vezbe radi (postoji jedna jednostavna). Naravno, ne mislim na rad sa API-jem, ili sa iscrtavanjem iz slike, to bi bila izmena algoritma :)
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: progressbar do "pola"27.09.2007. u 14:55 - pre 200 meseci
Jel smem ja?



btw ovo mi je 2^10 post yeepe!
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: progressbar do "pola"27.09.2007. u 15:05 - pre 200 meseci
Naravno :)
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: progressbar do "pola"27.09.2007. u 18:36 - pre 200 meseci
recimo, prvo sto mi bode oci to je ona For petlja u DrawRectangle proceduri, koja moze ovako da se napise:
Code:

Private Sub DrawRectangle(aPictureBox As PictureBox, Rec As Rectangle)
    
    aPictureBox.Cls
    aPictureBox.DrawWidth = Rec.Width
    aPictureBox.Line (Rec.x, Rec.y)-(Rec.x, Rec.y + Rec.Height)

End Sub

sto je mnogo brze (nema petlje, i nema dodatne promenljive)

ostalo sto bih menjao, bi izmenilo algoritam, a to si rekao da "ne moze" :D
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: progressbar do "pola"27.09.2007. u 19:21 - pre 200 meseci
Na debljinu linije sam totalno zaboravio :)
Inace, ono na sta sam mislio je crtanje horizontalnih linija jer ih ima manje duzih a crtanje duge linije traje prakticno koliko kratke.
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: progressbar do "pola"27.09.2007. u 19:43 - pre 200 meseci
vidis, ja se nisam setio da duzih linija ima manje :D (zato sto sam gledao da zaobidjem petlju)
ali tada bi morala da postoji i provera da li duzi Windth ili Height :)
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: progressbar do "pola"27.09.2007. u 22:56 - pre 200 meseci
Na osnovu zahtevanog je width vece (vidi u search-u) :)
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: progressbar do "pola"27.09.2007. u 23:42 - pre 200 meseci
a sta ako je progressbar vertikalan? :)
 
Odgovor na temu

[es] :: Visual Basic 6 :: progressbar do "pola"

Strane: 1 2

[ Pregleda: 5647 | Odgovora: 30 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.