Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

progressbar do "pola"

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 30 odgovora
  • 8.757 pregleda

Najnovija ↓

Re: progressbar do "pola" 28.09.2007. u 02:49 · pre 232 meseca #21
U Win Search-u nije ;)
A trazilo se da bude kao tamo (druga je sasvim stvar sto se on predomislio pa uzeo ovo tvoje resenje). :)
Potpis
Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac
Re: progressbar do "pola" 28.09.2007. u 19:43 · pre 232 meseca #22
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
Potpis
rgdrajko
Rajko.zip84.51k
Re: progressbar do "pola" 28.09.2007. u 20:03 · pre 232 meseca #23
Rajko, rekao sam za moj kod, ne Aleksandrov.

BTW, nauci da koristis [code] tagove, vec sam ti nekoliko puta ispravljao poruke. Nije tesko.
Potpis
Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac
Re: progressbar do "pola" 28.09.2007. u 23:00 · pre 232 meseca #24
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)
Potpis
rafforum.rs - Forum Računarskog Fakulteta
Re: progressbar do "pola" 29.09.2007. u 00:27 · pre 232 meseca #25
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
Potpis
HomePage http://www.eurora3d.com
Re: progressbar do "pola" 30.09.2007. u 00:50 · pre 232 meseca #27
:)
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

Potpis
HomePage http://www.eurora3d.com
Re: progressbar do "pola" 01.10.2007. u 01:00 · pre 232 meseca #29
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?
Potpis
rgdrajko
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme