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 1097 korisnika na forumu :: 52 registrovanih, 12 sakrivenih i 1033 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: -[CoA]-, 100ka, 8u47, A.R.Chafee.Jr., aramis s, ArchaBasha, babaroga, Bahuss, bato, Bluper, bojcistv, cifra, darkojbn, DeerHunter, djordje92sm, DonRumataEstorski, DragoslavS, Excalibur13, Frunze, Georgius, ILGromovnik, jeen yuhs, Karla, kokodakalo, kunktator, laki_bb, Lieutenant, M1los, maiden6657, mercedesamg, mile23, milenko crazy north, miodrag, Nemanja.M, nenooo, oldtimer, Povratak1912, RED4G-304, savaskytec, Shinobi, solic, Tila Painen, tubular, vaso1, vathra, Vlada1389, vladaa012, wolf431, YugoRanger, ZetaMan, šumar bk2, Čivi