Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
20.07.2002. Download VB6
30.08.2002. Unload forme
05.01.2003. Pomoc oko VB6
08.12.2005. Dva ili više comp.????????
02.01.2006. promena lokalne IP adrese iz VB6
09.03.2006. Pomoc oko VB6->Access
16.03.2006. Custom kontrole iz C# u VB6?
05.02.2007. Ucitavanje potrebnog broja kontrola
25.02.2007. kako da radi vb6 na kompu koji nema vb ili ima vb..

Navigacija

Brisanje liste

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

Pomoc oko kolokvjuma iz VB6!

[es] :: Visual Basic 6 :: Pomoc oko kolokvjuma iz VB6!

[ Pregleda: 2745 | Odgovora: 16 ] > FB > Twit

Autor

Andrej984
Petar Markovic

Član broj: 141728
Poruke: 6
*.crnagora.net.

Profil

Pomoc oko kolokvjuma iz VB6!

^{09.04.2007. u 23:35 - pre 207 meseci}

Jedan od zadataka na kolokvijumu koji mi je preksutra je da nacrtam jedan image(recimo imgSlika) i jedno dugme (cmdUcitaj) i sustina je da se klikom na ovo dugme ciklicno mijenjaju neke 3 slike koje odaberem,znaci kliknem,ucita se prva slika,pa opet kliknem,ucita se druga,sledeci klik,treca,itako u krug!
ja sam stigao do toga da se jedna slika ucita,ali ne mogu dalje!

Private Sub cmdUcitaj_Click()
imgSlika.Picture = LoadPicture("pas.jpg")
End Sub

Kako dalje??????

Puno bi mi znacilo kada bi mi pomogli!!!!

Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dynamic.sbb.co.yu.

Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{10.04.2007. u 00:20 - pre 207 meseci}

Iako smatram da ovo ne treba da bude mesto gde će se nekom rešavati zadaci, mislim da ovaj odgovor neće služiti isključivo tome. Ovo je samo jedan od mnogo načina koji rešavaju taj "problem" (verovatno ne i najbolji).

Code:

Option Explicit
Dim a As Integer

Private Sub Form_Load()
    a = 1
End Sub

Private Sub cmdUcitaj_Click()
    Select Case a
        Case 1
            imgSlika.Picture = LoadPicture("Pas.jpg")
        Case 2
            imgSlika.Picture = LoadPicture("Macka.jpg")
        Case 3
            imgSlika.Picture = LoadPicture("Konj.jpg")
    End Select
    If a = 3 Then a = 0
    a = a + 1
End Sub

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: Pomoc oko kolokvjuma iz VB6!

^{10.04.2007. u 00:23 - pre 207 meseci}

mozda ovako nekako:

Code:

Dim slika(1 To 3) As String
Dim index As Long

Private Sub Form_Load()

   slika(1) = "prva slika.jpg"
   slika(2) = "pa druga.jpg"
   slika(3) = "i treca.jpg"

   index = 0

End Sub

Private Sub cmdUcitaj_Click()

   index = index + 1

   imgSlika.Picture = LoadPicture(slika(index))

   If index = 3 Then index = 0

End Sub

edit:
dennycd2 pretekao si me :)
al dobro, sad ima dva resenja pa nek bira (mada je ovo sto sam ja predlozio lake izmenjivo, tj manje ima da menja ako hoce da doda vise od 3 slike)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dynamic.sbb.co.yu.

Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{10.04.2007. u 15:12 - pre 207 meseci}

Citat:

dennycd2: Ovo je samo jedan od mnogo načina koji rešavaju taj "problem" (verovatno ne i najbolji).

Za @Aleksandar Ružičić

Dopada mi se tvoje rešenje!!!

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{12.04.2007. u 17:33 - pre 207 meseci}

Mozda je ovako lakse:

Code:

Private Sub Command1_Click()
    Static brojac
    brojac = brojac + 1
    If brojac = 1 Then
        Image1.Picture = LoadPicture("c:\1.bmp")
    End If
    If brojac = 2 Then
        Image1.Picture = LoadPicture("c:\2.bmp")
    End If
    If brojac = 3 Then
        Image1.Picture = LoadPicture("c:\3.bmp")
    End If
    If brojac = 3 Then brojac = 0
End Sub

_{[Ovu poruku je menjao Aleksandar Ružičić dana 12.04.2007. u 18:48 GMT+1]}

rgdrajko

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: Pomoc oko kolokvjuma iz VB6!

^{12.04.2007. u 17:45 - pre 207 meseci}

pa uporedi samo broj linija koda tvog resenja i mog :)

a zamisli kako bi ti izgledao kod da treba da ucita 20-ak slika...

p.s. koristi code tagove kada postujes kod, preglednije je mnogo

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dynamic.sbb.co.yu.

Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{12.04.2007. u 23:43 - pre 207 meseci}

@rgdrajko Mozda je ovako još lakše, mada se svodi na "Select Case", ali ću se složiti sa definisanjem promenljive "brojac", jer u ovom sličaju daje bolje rešenje. Ipak, Aleksandrova varijanta je, po meni zasad, najbolja.

Code:

Private Sub Command1_Click()

    Static brojac
    brojac= brojac+ 1
    If brojac= 1 Then
        Image1.Picture = LoadPicture("c:\1.bmp")
    ElseIf brojac= 2 Then
        Image1.Picture = LoadPicture("c:\2.bmp")
    ElseIf brojac= 3 Then
        Image1.Picture = LoadPicture("c:\3.bmp")
    End If

    If brojac= 3 Then brojac= 0

End Sub

Odgovor na temu

mkaras
Marko Karas
Beograd

Član broj: 66087
Poruke: 427

+19 Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{13.04.2007. u 09:22 - pre 207 meseci}

Citat:

Aleksandar Ružičić: pa uporedi samo broj linija koda tvog resenja i mog :)

a zamisli kako bi ti izgledao kod da treba da ucita 20-ak slika...

p.s. koristi code tagove kada postujes kod, preglednije je mnogo

@Aleksandar Ružičić
Započinješ bezrazložno prepucavanje šta je bolje a ni tvoje rešenje nije u potpunosti korektno. Prikaz slika će uvek počinjati od slike 1. Mnogo je bolje da počinje od prve sledeće. Moram priznati da je definisinje niza koji će sadržavati nazive slika za učitavanje veoma dobro rešenje. Fali static promenljiva za brojač slika kao što je uradi rgdrajko ali je njegova if-elseif konstrukcija malo nezgrapna.

Znači jedino je kombinacija vaših predloga ona dobitna kombinacija koja maksimalno korektno odrađuje posao.
Cilj ovog foruma nije prepucavanje već da se iznađe rešenje bez mane, ako takvo postoji.

P.S. Kao moderator moraš malo više pripaziti na svoje ponašanje i postupke

Odgovor na temu

djuxy
Nebojsa Djuric
Smederevo

Član broj: 46971
Poruke: 16
*.com
Via: [es] mailing liste

Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{13.04.2007. u 10:33 - pre 207 meseci}

>
Na kom fakultetu (visoj skoli) se radi VB?

Pozdrav.

------=_Part_4114_6381498.1176456630246
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

<div>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">esauth:255749:db6c1d4f297e2432547de28ba1ffa8c1<br>

DJuXY

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.DIALUP-SMIN.neobee.net.

+41 Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{13.04.2007. u 19:07 - pre 207 meseci}

Citat:

mkaras: @Aleksandar Ružičić
Započinješ bezrazložno prepucavanje šta je bolje a ni tvoje rešenje nije u potpunosti korektno. Prikaz slika će uvek počinjati od slike 1. Mnogo je bolje da počinje od prve sledeće. Moram priznati da je definisinje niza koji će sadržavati nazive slika za učitavanje veoma dobro rešenje. Fali static promenljiva za brojač slika kao što je uradi rgdrajko ali je njegova if-elseif konstrukcija malo nezgrapna.

Znači jedino je kombinacija vaših predloga ona dobitna kombinacija koja maksimalno korektno odrađuje posao.
Cilj ovog foruma nije prepucavanje već da se iznađe rešenje bez mane, ako takvo postoji.

P.S. Kao moderator moraš malo više pripaziti na svoje ponašanje i postupke

Ne bih da ispadam neciji "drveni advokat", ali ja u krckovom postu nisam prepoznao to sto ti navodis i mislim da nije u pitanju ni prepucavanje niti da ima problem sa ponasanjem. Mozda je ton bio malo "obojen" zbog svega sto je uostalom i naveo (nekoristenje code tagova, prilicno glomazna If...Then konstrukcija), ali sve je bilo korektno. Ako neko to vidi drugacije - OK.

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{14.04.2007. u 15:25 - pre 207 meseci}

Koliko sam ja razumeo ovaj forum treba dati takav izvorni kod koji ce razumeti pocetnici, njih ne interesuje glomaznost koda vec jednostavnost. Kada nauce programirati, sami ce optimizovati kod, nece im trebati nikakva pomoc sa strane. Ispravite me ako gresim, mozda ja nisam tako veliki strucnjak kao vi.

_{[Ovu poruku je menjao rgdrajko dana 14.04.2007. u 16:56 GMT+1]}

rgdrajko

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{14.04.2007. u 16:38 - pre 207 meseci}

Nisam nigde video da pise "Forum za pocetnike" niti komentari treba da se rukovode pitanjem "Da li ce ovo razumeti pocetnici?"

Nikada ne postoji samo jedno resenje, a komentari sluze da se sve sto nije jasno dodatno pojasni. Ako je neko resenje ocigledno bolje u svakom smislu, nema potrebe da se oko toga raspravljamo.

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: Pomoc oko kolokvjuma iz VB6!

^{15.04.2007. u 00:52 - pre 207 meseci}

@mkaras:
ne vidim gde to ja (i cime) zapocinjem "bezrazložno prepucavanje" (to zapravo ti radis, ovim tvojim postom).
sto se tice tvoje ocene u korektnosti resenja: nije mi bas jasno zasto nije korektno, kazes da ce pocinjati uvek (kad se program startuje) od slike 1 i to je tacno ali svaki sledeci put kada korisnik klikne na dugme ucitace sledecu sliku (i krenuti iz pocetka, kad stigne do kraja)... ne vidim sta tu nije korektno?
sto se tice Static definisanja, moze i to ali ja vise volim nacin na koji sam ja to uradio (definisao promenljivu kao Private), jer omogucava pristup promenljivoj iz bilo koje funkcije u formi (samim tim, ima prednosti u odnosu na Static verziju), ali to je stvar ukusa (ali ja preporucujem private)

Citat:

P.S. Kao moderator moraš malo više pripaziti na svoje ponašanje i postupke

na ovo ne zelim ni da odgovaram, jer iznosis optuzbe bez ikakvih argumenata. ako mislis da ja ne obavljam duznost moderatora na nacin na koji bih trebao mozes slobodno da se zalis nadleznima ali moras da imash i argumente.

p.s. nemoj da shvatis ovaj moj odgovor kao nastavak bezrazloznog prepucavanja (koje si ti zapoceo) vec samo kao odgovor na tvoje "napade" i kao upozorenje da ce svaki dalji nastavak prepucavanja biti sankcionisam brisanjem poruka

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

mkaras
Marko Karas
Beograd

Član broj: 66087
Poruke: 427

+19 Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{15.04.2007. u 08:37 - pre 207 meseci}

Moderatori dopunjuju i čuvaju po sistemu:

Mirko, pazi metak!
Hvala Slavko, spasao si mi život.

Mnogo ste osetljivi kada se neko ne složi sa vama. Onda su to odmah "napadi" i sledi "upozorenje"

Citat:

Aleksandar Ružičić:
p.s. nemoj da shvatis ovaj moj odgovor kao nastavak bezrazloznog prepucavanja (koje si ti zapoceo) vec samo kao odgovor na tvoje "napade" i kao upozorenje da ce svaki dalji nastavak prepucavanja biti sankcionisam brisanjem poruka

Da ne pričam o izjavi

Citat:

goranvuc:
...
Ako je neko resenje ocigledno bolje u svakom smislu, nema potrebe da se oko toga raspravljamo.
...

Ko je toliko merodavan da može tako da preseče i kaže: "To rešenje je bolje ..."

Da li su moderatori, samo zato što su moderatori, bogom dani i da li se njihova pisanija trebaju samo hvaliti ali nikako kuditi?
Ali možda sam ja pogrešno shvatio smisao foruma i njegovu osnovnu funkciju.

P.S. U svetlu prethodnih postova očekujem da će ovaj post biti obrisan od strane revnosnog i sujetnog moderatora

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.220.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{15.04.2007. u 18:48 - pre 207 meseci}

Nema potrebe ići dalje u offtopic. Postoje 3 rešenja, i sva 3 rade posao. Isti problem se sigurno može rešiti na barem još 10 načina od kojih su neki bolji, a neki lošiji od ponuđenih... kao i svaki drugi programerski problem uostalom, ali to nije razlog da se ne pomene koje rešenje je za sada najbolje. Ako neko ima bolje... slobodno može da ga postavi.

@mkaras
Aleksandar nije započeo raspravu već je samo odgovorio rgdrajku koji je rekao "Možda je ovako lakše", zašto to njegovo rešenje nije lakše. Drugi moderator je to potvrdio. Evo i ja se slažem sa tim. Niko ovde nije postao moderator radi reda, već isključivo zahvaljujući pokazanom znanju i zalaganjem na forumu. Naravno, niko ne kaže da su moderatori uvek u pravu, niti da ne postoji bolje rešenje, već da je to Aleksandrovo najbolje za sada. Ti ako imaš bolje rešenje, izvoli postuj kod... za to ovaj forum i služi, a ako imaš pritužbi na rad moderatora, izvoli se žaliti u forumu "Predlozi i pitanja", a ne ovde. Svaka dalja diskusija na tu temu će dovesti do brisanja poruka ili zaključavanja teme. Hvala.

-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

Mister_rap
SE at Viacom

Član broj: 8822
Poruke: 2540
*.crnagora.net.

Jabber: mister_rap@jabber.com

+21 Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{15.04.2007. u 21:40 - pre 207 meseci}

Citat:

djuxy:
Na kom fakultetu (visoj skoli) se radi VB?

Mislim (mada nisam siguran) da je u pitanju www.fit.cg.yu
Mada bi bilo bolje kada bi autor teme odgovorio na to pitanje jer i mene zivo interesuje :)

Ps.
A ova rasprava oko koda je zaista suvisna.

Odgovor na temu

Andrej984
Petar Markovic

Član broj: 141728
Poruke: 6
89.188.32.*

Profil

Re: Pomoc oko kolokvjuma iz VB6!

^{19.04.2007. u 14:55 - pre 207 meseci}

Citat:

Mister_rap: Mislim (mada nisam siguran) da je u pitanju www.fit.cg.yu
Mada bi bilo bolje kada bi autor teme odgovorio na to pitanje jer i mene zivo interesuje :)

Ps.
A ova rasprava oko koda je zaista suvisna.

Evo i autora teme. :)

Na Ekonomskom fakultetu u Podgorici, na cetvrtoj godini, na smjeru "Informacioni sistemi u ekonomiji".
U okviru ovog smjera postoji predmet Softverski alati, gdje, izmedju ostalog, ucimo i VisualBasic.

Eto. :) Uzgred,puno vam hvala svima na postovima,mnogo ste mi pomogli,licno sam izabrao rjesenje zadatka sa case od dennycd2, jer mi je bilo najlakse da shvatim kako se stize do rjesenja.

Odgovor na temu

[es] :: Visual Basic 6 :: Pomoc oko kolokvjuma iz VB6!

[ Pregleda: 2745 | Odgovora: 16 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
20.07.2002. Download VB6
30.08.2002. Unload forme
05.01.2003. Pomoc oko VB6
08.12.2005. Dva ili više comp.????????
02.01.2006. promena lokalne IP adrese iz VB6
09.03.2006. Pomoc oko VB6->Access
16.03.2006. Custom kontrole iz C# u VB6?
05.02.2007. Ucitavanje potrebnog broja kontrola
25.02.2007. kako da radi vb6 na kompu koji nema vb ili ima vb..

Navigacija

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