[es] - Pitanja u vezi sa VB

ShyRay
Nemanja Djordjevic
Pozarevac

Član broj: 98633
Poruke: 8
*.dynamic.sbb.co.yu.

Profil

^{31.01.2007. u 16:46 - pre 209 meseci}

Prvo pitanje: Kako vaditi koren u vizual basicu? Naprimer hocu da napisem obrazac za povrsinu jednakostranicnog trougla (a ^ 2 * koren iz 3 / 2 )

Drugo pitanje: Kako napraviti digitron? Ja sam do sad napravio digitron pomocu dve text boxe ali nije dobar posto moze samo dva broja da racuna.

Molim vas da mi ne odgovarate sa "ovakva tema postoji, koristi pretragu" bez link-a jer ja trebam da se ubijam posle citanja ovog posta koje Key wordove da koristim..

Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dhcp-pool-zr.sbb.co.yu.

Profil

Re: Pitanja u vezi sa VB

^{31.01.2007. u 17:17 - pre 209 meseci}

Kvadratni koren: sqr(X) ,a treci koren napr. X^(1/3). Digitron vec imas u racunaru.

Odgovor na temu

ShyRay
Nemanja Djordjevic
Pozarevac

Član broj: 98633
Poruke: 8
*.dynamic.sbb.co.yu.

Profil

Re: Pitanja u vezi sa VB

^{31.01.2007. u 22:08 - pre 209 meseci}

Sta je treci koren :S?

Odgovor na temu

dennycd2

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

Profil

Re: Pitanja u vezi sa VB

^{31.01.2007. u 23:10 - pre 209 meseci}

Isto sto i kubni koren (ako znas sta je to?). OK, ne znam da li se to uci u osnovnoj skoli, ali ako neki broj pomnozis sa samim sobom 3 puta (a*a*a), to je neki broj na treci. Kada se iz tog proizvoda izvadi treci ili kubni koren, onda ponovo dobijes taj broj. Inace, da se napravi digitron nije neki problem, ali se odmah postavlja pitanje zasto bi se mucili praveci tako nesto, kada vec postoji u svakom racunaru. Za izracunavanje povrsine jednakostranicnog trougla, najbolje je da napises napr. : Label1.Caption = a ^ 2 * Sqr(3) / 4.

_{[Ovu poruku je menjao dennycd2 dana 01.02.2007. u 00:48 GMT+1]}

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: Pitanja u vezi sa VB

^{01.02.2007. u 00:10 - pre 209 meseci}

Ako ne znas sta je treci koren, znaci da ti to nije ni trebalo :)

Inace, n-ti koren iz broja y je resenje jednacine xⁿ=y
Odnosno, ako imas da je xⁿ=y, onda je n-ti koren iz y jednak x.

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

ShyRay
Nemanja Djordjevic
Pozarevac

Član broj: 98633
Poruke: 8
*.dynamic.sbb.co.yu.

Profil

Re: Pitanja u vezi sa VB

^{01.02.2007. u 18:50 - pre 209 meseci}

Hmmm nema veze ne razumem nista :> Jos sam mali za to...

Trece sto me zanima je kako da uradim ovo:

Prvi put pritisnem na dugme(Komandu) i odradi se neka operacija

Drugi put pritisnem na to dugme i on mi odradi neku drugu operaciju a ne onu prvu... Isto tako dalje...

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.co.yu.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Pitanja u vezi sa VB

^{01.02.2007. u 21:42 - pre 209 meseci}

Najjednostavnije ti je da napraviš nekakav brojač. Dakle, deklarišeš jednu promenljivu, recimo operacija i onda koristiš select case. Ovako nešto.

Code:
Dim operacija As Long

Private Sub Command1_Click()
Select Case operacija
Case 0
'uradi nesto
Case 1
'uradi nesto drugo
Case 2
'uradi nesto trece
...i tako sve dok ne obradis sve operacije koje hoces
Case Else 'nema vise operacija
operacija = -1 'kada sledeci put kliknes ponovo se izvrsava prva operacija
End Select
operacija = operacija + 1
End Sub

-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

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
80.74.160.*

+41 Profil

Re: Pitanja u vezi sa VB

^{01.02.2007. u 21:42 - pre 209 meseci}

Pa, ako sam te dobro shvatio, bukvalno resenje tvog problema bi bilo:

Code:

Private Sub Command1_Click()
   Static intProcInc As Integer

   intProcInc = intProcInc + 1

   Select Case intProcInc
      Case 1
         'Zoves prvu proceduru
      Case 2
         'Zoves drugu proceduru

         '...

   End Select

End Sub

Ali, mozes i bez SELECT...CASE, koristenjem niza i CallByName komande:

Code:

Private Sub Command1_Click()
   Dim varProcedure As Variant
   Static intProcInc As Integer

   'Niz koji sadrzi imena procedura koje su implementirane
   varProcedure = Array("Procedura1", "Procedura2", "Procedura3")

   'Provera da li se stiglo do kraja, pa vracanje na pocetak
   If intProcInc > UBound(varProcedure) Then intProcInc = 0

   'Poziv procedure
   CallByName Me, varProcedure(intProcInc), VbMethod

   intProcInc = intProcInc + 1

End Sub
Public Sub Procedura1()

   '

End Sub
Public Sub Procedura2()

   '

End Sub
Public Sub Procedura3()

   '

End Sub

Eto, istovremeno smo napisali slicno resenje, a da se nismo ni dogovarali ;)

Odgovor na temu

ShyRay
Nemanja Djordjevic
Pozarevac

Član broj: 98633
Poruke: 8
*.dynamic.sbb.co.yu.

Profil

Re: Pitanja u vezi sa VB

^{02.02.2007. u 17:50 - pre 209 meseci}

E hvala ljudi sada cu da probam ovo sto ste rekli... Usput napravio sam jedan mali programcic za mlade talente osnovne skole pa ako neko zeli nek izvoli:

Prost program koji pri unosu podataka izracunava Povrsinu i Zapreminu Geometrijskih Tela a i Prizama.

http://rapidshare.com/files/14582425/Matematika.rar.html

Uzivajte...

Odgovor na temu

ShyRay
Nemanja Djordjevic
Pozarevac

Član broj: 98633
Poruke: 8
*.dynamic.sbb.co.yu.

Profil

Re: Pitanja u vezi sa VB

^{02.02.2007. u 18:10 - pre 209 meseci}

Izvinite zbog duplog posta nesto nije hteo edit :( :

Code:

Dim operacija As Long

Private Sub Command1_Click()
Select Case operacija
Case 0
'uradi nesto
Case 1
'uradi nesto drugo
Case 2
'uradi nesto trece
...i tako sve dok ne obradis sve operacije koje hoces
Case Else 'nema vise operacija
operacija = -1 'kada sledeci put kliknes ponovo se izvrsava prva operacija
End Select
operacija = operacija + 1
End Sub

E ovako nasao sam ovde dve greske

1. Kada uradim Dim on odradi samo Case 0, resio sam ga tako sto sam Umesto Dim ukucao Static(mada nemam pojma sta znaci)
2. Ja odradim Case 0-2(3 operacije) i to su tri klika na dugmetu, medjutim da bi on poceo opet moram pretisnuti 4 puta a ne 3.... Nadam se da shvatate :>

ovaj 1. nije bitno resio sam ga ali me zanima za ovaj 2.

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.co.yu.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Pitanja u vezi sa VB

^{02.02.2007. u 20:46 - pre 209 meseci}

Trebaš da deklarišeš promenljivu na nivou forme, a ne procedure, inače će gubiti vrednost. Ako koristiš Static onda ne moraš jer varijabla zadržava poslednju primljenu vrednost. Što se tiče druge greške, izmeni kod u ovo

Code:
Private Sub Command1_Click()
ponovo:
Select Case operacija
Case 0
MsgBox "1"
Case 1
MsgBox "2"
Case 2
MsgBox "3"
Case Else 'nema vise operacija
operacija = 0
GoTo ponovo
End Select
operacija = operacija + 1
End Sub

Ili iskoristi ovo drugo rešenje koje je Goran ostavio.

Odgovor na temu

ShyRay
Nemanja Djordjevic
Pozarevac

Član broj: 98633
Poruke: 8
*.dynamic.sbb.co.yu.

Profil

Re: Pitanja u vezi sa VB

^{02.02.2007. u 22:48 - pre 209 meseci}

Hvala ti za ovu pomoc dosta mi je pomogla u radu, mislim hvala obojici... Sta mislite o programu?

Odgovor na temu