[es] - Svaki pocetak je tezak

mladenmp

Član broj: 193827
Poruke: 51
89.188.32.*

Jabber: info@mladenmp.ml
Sajt: www.mladenmp.ml

+1 Profil

^{14.09.2008. u 16:01 - pre 190 meseci}

Pozdrav svima na forumu. Ja cu vas neko vrijeme muciti sa pitanjima. Naime poceo sam kao nesto da programiram u BB.NET-u pa mi treba pomoc.
Kako da napisem kod iz C-a u VB.NET-u:
for(i=1;i<k;i++)
{
djelj=djelj*(pom-i);
}
for(i=1;i<k;i++)
{
djel=djel*(pom1-i);
}
brkomb=djelj/djel;

Pokusao sam svasta ali stalno dobijam syntax eror, i ostale poruke.
To neka bude prvo pitanje.
A drugo pitanje glasi kako da napisem funkciju koja ce tacku da zmjenjuje sa zarezom i obratno. (tacka ili zarez pisu se izmedju dva broja u textboxu)
Hvala

www.mladenmp.ml

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: Svaki pocetak je tezak

^{14.09.2008. u 19:57 - pre 190 meseci}

Code:

for i as integer = 1 to k-1
djelj = djelj * (pom-i)
next
for i as integer = 1 to k-1
djel = djel * (pom1-i)
next
brkomb = djelj / djel

Tacku zamenjujes zarezom sa TextBox1.Text = TextBox1.Text.Replace(".", ",") a za obrnuto provali sam :)

Napomena - ako ti je promenljiva i vec deklarisana, ne treba ti ono as integer.

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

mladenmp

Član broj: 193827
Poruke: 51
89.188.32.*

Jabber: info@mladenmp.ml
Sajt: www.mladenmp.ml

+1 Profil

Re: Svaki pocetak je tezak

^{14.09.2008. u 20:33 - pre 190 meseci}

@Shadowed

Mozda ce ti se ciniti kao da si mi malo pomogao ali meni ova pomoc znaci mnogo.
Hvala ti 1000 puta.
Sto se tice tacke i zareza to cu tek da probam jer sam vec konvertovao textbox u convert.todouble(textbox1.text).
Jer mi trebaju bas brojevi sa floating point-om.
Haval jos jednom.

_{[Ovu poruku je menjao mladenmp dana 14.09.2008. u 22:45 GMT+1]}

www.mladenmp.ml

Odgovor na temu

mladenmp

Član broj: 193827
Poruke: 51
89.188.32.*

Jabber: info@mladenmp.ml
Sajt: www.mladenmp.ml

+1 Profil

Re: Svaki pocetak je tezak

^{14.09.2008. u 21:12 - pre 190 meseci}

@Shadowed
Oko tacke i zareza:
Tvoj odgovor je ok ali moje pitanje nije bilo potpuno.
Naime, zasto mi treba ta zamjena, kada se unese broj 2.5 u textbox1 kao rezultat se dobija 25.
A ako se unese 2,5 onda je ok. To se desava zbog podesavanja U reginal Settings u control panelu.
Da ne bih ja razmislajo kako je neko podesi svoj racunar meni treba ta zamjena.
Ako imas neku ideju spreman sam da ucim!!!

E sad ja sam rekao u prvom postu da je to samo pocetak mog mucenja.
Imam sad jos dva problema:
Prvi je kako da podesim da se program resetuje, to jeste da se sva polja vrate na pocetno stanje.
Tacnije to sam i napravio, ali mi program i dalje cuva vrijednost promjenjlivih. Kako tu vrijednost da izbisem iz memorije???

A drugi problem je sledeci:
Napravio sam na polju unos:
if unos.text = "" then
dim amessage as integer
amessage = MessageBox.Show("Morate unijeti iznos uplate!..........................

kako da nakon pojavljivanja te poruke program ceka da se unese iznos i ako opet nema iznosa da se ponovi ista poruka???

_{[Ovu poruku je menjao mladenmp dana 14.09.2008. u 22:49 GMT+1]}

www.mladenmp.ml

Odgovor na temu

mladenmp

Član broj: 193827
Poruke: 51
89.188.32.*

Jabber: info@mladenmp.ml
Sajt: www.mladenmp.ml

+1 Profil

Re: Svaki pocetak je tezak

^{16.09.2008. u 12:08 - pre 190 meseci}

OK. Posto nisam dobio pomoc za dugme R E S E T koje sam napravio. posle malo vise mozganja
i cinjenice da imam konstantno gresku u koracima taj problem sam rijesio.
Problem sa porukom koja treba da se ponavlja ako nije unijeta uplata i da se program dalje ne izvrsava je takodje rijesen.

Ali i dalje imam problem oko tacke i zareza.
Dakle ako neko zna gdje mogu da nadje neko rijesenje tipa funkcije za zamjenu karatera u stringu,
neka pomaze ako Boga zna!

www.mladenmp.ml

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.113.*

+7 Profil

Re: Svaki pocetak je tezak

^{16.09.2008. u 14:35 - pre 190 meseci}

Kad hoces da uradis nesto ali samo pod uslovom da je nesto upisano u npr TextBox napravis novu Funkciju / Subrutinu i prvo proveris dali je to sto je trebalo upisano i ako nije eventualno pokazes neko obavestenje i izadjes sa Return. A ako jeste nastavis dalje ...
U tvom primeru to ide npr. ovako

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If unos.Text = "" Then MessageBox.Show("Morate unijeti iznos uplate!") : Return
        MsgBox("VB.NET ima i ovakvu MessageBox funkciju")
        unos.Text = unos.Text.Replace(".", ",") ' Ovo menja tacke u zareze
        unos.Text = unos.Text.Replace(",", ".") ' A ovo menja zareze u tacke...
        ' ali ne izvrsavaj ih jednu posle druge:) zato sto nema efekta
    End Sub

imas i ovo za . ,

HomePage http://www.eurora3d.com

Odgovor na temu