MyCity » Visual Studio -> Visual Basic » Gde mi je greska u kodu?

Gde mi je greska u kodu?

Napisano na dan: 16.5.2007

Gde mi je greska u kodu?
Sledeća strana Pagination

Idi na vrh

Poslao: 16 Maj 2007 22:34
Idi na vrh
offline
  • Pridružio: 27 Apr 2007
  • Poruke: 28
  • Gde živiš: kraljevina MIRIJEVO!

Ovako pravim programcic slican pecku ako neko zna...

Evo kod, pokusao sam na 2 nacina i nije htelo:

Dim D As Variant, D1 As Variant, D2 As Variant, D3 As Variant D1 = txtime.Text D2 = txttacke.Text D3 = txttext.Text D = D1 + D2 + D3 txtchat.Text = D txttext.Text = "" If txttext.Caption = "Sta ima" And txttext.Caption = "Sta ima?" Then    txtchater.Caption = "Evo nista" ElseIf txttext.Caption = "Kako si" And txttext.Caption = "Kako si?" Then    txtchater.Caption = "Dobro" End If


Dim D As Variant, D1 As Variant, D2 As Variant, D3 As Variant D1 = txtime.Text D2 = txttacke.Text D3 = txttext.Text D = D1 + D2 + D3 txtchat.Text = D txttext.Text = "" If txttext.Text = "Sta ima" And txttext.Text = "Sta ima?" Then    txtchater.Text = "Evo nista" ElseIf txttext.Text = "Kako si" And txttext.Text = "Kako si?" Then    txtchater.Text = "Dobro" End If



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 16 Maj 2007 22:47
Idi na vrh
offline
  • Pridružio: 19 Nov 2006
  • Poruke: 140

Zasto si deklarisao varijable na Variant?Potpuno nepotrebno
pre uslovnog granjanja si stavio txttext.Text=""(?!).Kako ocekujes da uslovno granjanje proveri da li nesto ima u kontroli txttext,ako je ona prazna?



Poslao: 17 Maj 2007 13:50
Idi na vrh
offline
  • Pridružio: 27 Apr 2007
  • Poruke: 28
  • Gde živiš: kraljevina MIRIJEVO!

Cek izvalio sam gresku pokusacu da je ispravim!!!

Dopuna: 17 Maj 2007 13:50

Ispravio sam al opet nece Sad

Private Sub cmdPosalji_Click() Dim D As Variant, D1 As Variant, D2 As Variant, D3 As Variant D1 = txtime.Text D2 = txttacke.Text D3 = txttext.Text D = D1 + D2 + D3 txtchat.Text = D txttext.Text = "" If txtime.Text = "" Then  MsgBox "Niste upisali ime" ElseIf txtchat.Text = "Sta ima" And txtchat.Text = "Sta ima?" Then    txtchater.Text = "Evo nista" ElseIf txtchat.Text = "Kako si" And txtchat.Text = "Kako si?" Then    txtchater.Text = "Dobro" End If End Sub

Poslao: 17 Maj 2007 14:51
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Uzmi tabele sa Bulovom algebrom i pogledaj zasto ovaj izraz ne valja
txttext.Text = "Sta ima" And txttext.Text = "Sta ima?"

Da ne mislis da zelim da omalovazavam, i meni su tablice uvek pri ruci. Koliko puta mi je zatrebalo da proverim logiku nekih izraza (narocito kod WinAPI funkcija koje koriste flag-sistem).

Poslao: 18 Maj 2007 18:07
Idi na vrh
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

ElseIf txtchat.Text = "Sta ima" or txtchat.Text = "Sta ima?" Then

Poslao: 18 Maj 2007 18:19
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Ma jako je lose koristiti "=" za uporedjivanje stringova, narocito kada uporedjuje nesto sto unosi korisnik, gde moze biti varijacija i varijacija.
Ja bih se radije odlucio za neku funkciju tipa InStr i njome proveravao da li se neke reci nalaze u datoj recenici.

Poslao: 21 Maj 2007 20:34
Idi na vrh
offline
  • Pridružio: 27 Apr 2007
  • Poruke: 28
  • Gde živiš: kraljevina MIRIJEVO!

Ispravio sam kod koristeci LIKE i sad radi, hvala u svakom slucaju Smile

MyCity » Visual Studio -> Visual Basic » Gde mi je greska u kodu?

Ko je trenutno na forumu
 

Ukupno su 2235 korisnika na forumu :: 93 registrovanih, 9 sakrivenih i 2133 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 6018 - dana 19 Dec 2025 13:41

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 33 bren, 357magnum, Abebe Bikila, aca018, Apok, Ba4e, babaroga, bakovaca, bankulen, Betty25, Bo96, Bobrock1, bolenbgd, brkan1, Ciri1994, Colt D, Comyymoc, cuvarkuca, d.arsenal321, DaliborVukadinovic, darkdruid72, Despot Đurađ, Dexlex, dexteroza, Dioniss, Dovla 1980, Emanuel Arsenijevič, EXIT78, Filip1, Fliper, foka106, goxin, HogarStrashni, iceburn, Imperator_Aleksandr_lll, Jaz, jodzula, Kajzer Soze, kikisp, knutveliki, koom0001, Kriglord, laganini123, lcc, Lep1na, ljuba, MaCS, Miki01, Milanče222, milenko crazy north, MR Z, Mrav Obrad, mrmr, museum, niki-mini_maki, Nikola9223, oldtimer, panzermilan45, ping15, prasinar, prikolica, procesor, Prometeus, Pururin, Qvazimodo, raf87, Rema000, sarma, sasics, SD izvidjac, Shajlok, Sirius, Srna, ss10, starlights, taomaster, tmanda323, tomigun, tritonus, TRZH92, ujke, vaci, Vanderx, VNVK, vukan0799, vukdra, W123, Wrangler, XBMC, zoran77, Zorge, Zvrk, Đurđevdan