Pomoc oko kolokvjuma iz VB6!

Pomoc oko kolokvjuma iz VB6! 09.04.2007. u 23:35 · pre 237 meseci #1

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!!!!

Re: Pomoc oko kolokvjuma iz VB6! 10.04.2007. u 00:20 · pre 237 meseci #2

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

Re: Pomoc oko kolokvjuma iz VB6! 10.04.2007. u 00:23 · pre 237 meseci #3

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)

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Pomoc oko kolokvjuma iz VB6! 10.04.2007. u 15:12 · pre 237 meseci #4

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!!!

Re: Pomoc oko kolokvjuma iz VB6! 12.04.2007. u 17:33 · pre 237 meseci #5

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]}

Potpis

rgdrajko

Re: Pomoc oko kolokvjuma iz VB6! 12.04.2007. u 17:45 · pre 237 meseci #6

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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Pomoc oko kolokvjuma iz VB6! 12.04.2007. u 23:43 · pre 237 meseci #7

@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

Re: Pomoc oko kolokvjuma iz VB6! 13.04.2007. u 09:22 · pre 237 meseci #8

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

Re: Pomoc oko kolokvjuma iz VB6! 13.04.2007. u 10:33 · pre 237 meseci #9

>
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>

Re: Pomoc oko kolokvjuma iz VB6! 13.04.2007. u 19:07 · pre 237 meseci #10

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.

Re: Pomoc oko kolokvjuma iz VB6! 14.04.2007. u 15:25 · pre 237 meseci #11

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]}

Potpis

rgdrajko

Re: Pomoc oko kolokvjuma iz VB6! 14.04.2007. u 16:38 · pre 237 meseci #12

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.

Re: Pomoc oko kolokvjuma iz VB6! 15.04.2007. u 00:52 · pre 237 meseci #13

@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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Pomoc oko kolokvjuma iz VB6! 15.04.2007. u 08:37 · pre 237 meseci #14

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

Re: Pomoc oko kolokvjuma iz VB6! 15.04.2007. u 18:48 · pre 237 meseci #15

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.

Potpis

-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

Re: Pomoc oko kolokvjuma iz VB6! 15.04.2007. u 21:40 · pre 237 meseci #16

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.

Re: Pomoc oko kolokvjuma iz VB6! 19.04.2007. u 14:55 · pre 237 meseci #17

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.

Srodne teme