[ ShyRay @ 31.01.2007. 16:46 ] @
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..
[ dennycd2 @ 31.01.2007. 17:17 ] @
Kvadratni koren: sqr(X) ,a treci koren napr. X^(1/3). Digitron vec imas u racunaru.
[ ShyRay @ 31.01.2007. 22:08 ] @
Sta je treci koren :S?
[ dennycd2 @ 31.01.2007. 23:10 ] @
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]
[ Shadowed @ 01.02.2007. 00:10 ] @
Ako ne znas sta je treci koren, znaci da ti to nije ni trebalo :)

Inace, n-ti koren iz broja y je resenje jednacine xn=y
Odnosno, ako imas da je xn=y, onda je n-ti koren iz y jednak x.
[ ShyRay @ 01.02.2007. 18:50 ] @
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...
[ Marko_L @ 01.02.2007. 21:42 ] @
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
[ goranvuc @ 01.02.2007. 21:42 ] @
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 ;)
[ ShyRay @ 02.02.2007. 17:50 ] @
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...
[ ShyRay @ 02.02.2007. 18:10 ] @
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.
[ Marko_L @ 02.02.2007. 20:46 ] @
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.
[ ShyRay @ 02.02.2007. 22:48 ] @
Hvala ti za ovu pomoc dosta mi je pomogla u radu, mislim hvala obojici... Sta mislite o programu?