[es] - progressbar do pola

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

^{28.09.2007. u 18:43 - pre 201 meseci}

Citat:

Shadowed: 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 :)

Da ne bih izmisljao "toplu vodu" i pisao kod sa preko 300 linija koda i jos koriscenjem klase da se izvede jednostavna animacija koja je data u "vb animation.zip", to apsolutno isto sam uradio sa 10 linija koda koriscenjem PictureClip kontrole.

[/code]
Option Explicit

Private Sub Timer1_Timer()
Static n As Integer
picClip1.ClipX = 0
picClip1.ClipY = n * picClip1.Height / 10

picClip1.ClipHeight = picClip1.Height / 10
picClip1.ClipWidth = picClip1.Width

Picture1.Picture = picClip1.Clip
n = n + 1
If n > 9 Then
n = 0
End If
End Sub

rgdrajko

Prikačeni fajlovi

Rajko.zip - 84.51k

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: progressbar do "pola"

^{28.09.2007. u 19:03 - pre 201 meseci}

Rajko, rekao sam za moj kod, ne Aleksandrov.

BTW, nauci da koristis [code] tagove, vec sam ti nekoliko puta ispravljao poruke. Nije tesko.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

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

Re: progressbar do "pola"

^{28.09.2007. u 22:00 - pre 201 meseci}

Citat:

rgdrajko: Da ne bih izmisljao "toplu vodu" i pisao kod sa preko 300 linija koda i jos koriscenjem klase da se izvede jednostavna animacija koja je data u "vb animation.zip", to apsolutno isto sam uradio sa 10 linija koda koriscenjem PictureClip kontrole.

Option Explicit

Private Sub Timer1_Timer()
Static n As Integer
picClip1.ClipX = 0
picClip1.ClipY = n * picClip1.Height / 10

picClip1.ClipHeight = picClip1.Height / 10
picClip1.ClipWidth = picClip1.Width

Picture1.Picture = picClip1.Clip
n = n + 1
If n > 9 Then
n = 0
End If
End Sub

pa trazeno je bez dodatnih kontrola (a ti si koristio 2), a i taj tvoj kod nece da radi na svim masinama isto, tj Timer kontrola ce na sporijim masinama da radi sporije dok ce na brzim da radi brze, moj kod ce na svakoj masini da bude iste brzine, sto je kod animacija bitno (dobro u ovom slucaju to moze i da se zaobidje, ali generalno ne)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*

+7 Profil

Re: progressbar do "pola"

^{28.09.2007. u 23:27 - pre 201 meseci}

Citat:

Aleksandar Ružičić: 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

moglo je i ovako (brisemo zadnju a crtamo sledecu):

Code:

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
    aPictureBox.Line (Rec.x, y)-(Rec.x, y + Width), aPictureBox.BackColor
    aPictureBox.Line (Rec.x + Rec.Width, y)-(Rec.x + Rec.Width, y + Width), vbHighlight


End Sub

HomePage http://www.eurora3d.com

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

Re: progressbar do "pola"

^{29.09.2007. u 16:43 - pre 201 meseci}

moglo je i tako da se funkcija zove MoveRectangleBy1px :) tj promeni ime f-je i onda necu imati zamerki na tvoj kod :)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*

+7 Profil

Re: progressbar do "pola"

^{29.09.2007. u 23:50 - pre 201 meseci}

Moze MoveByPix
Inace ovo je u Basicu Subrutina , nije funkcija.
Licno ja bi najpre koristio onaj kod sa slikom da meni treba ovako nesto.
Pozdrav

HomePage http://www.eurora3d.com

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

Re: progressbar do "pola"

^{30.09.2007. u 19:36 - pre 201 meseci}

subroutina (tj procedura po naski) ili funkcija, isto ti se to 'vata :) (vec neko vreme slabo radim u vb-u pa sam i "zaboravio" neke termine)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: progressbar do "pola"

^{01.10.2007. u 00:00 - pre 201 meseci}

Citat:

Eurora3D Team: :)
Moze MoveByPix
Inace ovo je u Basicu Subrutina , nije funkcija.
Licno ja bi najpre koristio onaj kod sa slikom da meni treba ovako nesto.
Pozdrav

Koji kod sa slikom?

rgdrajko

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*

+7 Profil

Re: progressbar do "pola"

^{01.10.2007. u 12:03 - pre 201 meseci}

Ovaj
http://static.elitesecurity.or...1/7/1712742/vb%20animation.zip

HomePage http://www.eurora3d.com

Odgovor na temu