Gde mi je greska u kodu?

Gde mi je greska u kodu?

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.
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?



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

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).

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

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

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.

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

Ko je trenutno na forumu
 

Ukupno su 461 korisnika na forumu :: 18 registrovanih, 7 sakrivenih i 436 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: A.R.Chafee.Jr., ccoogg123, Dannyboy, Dimitrije Paunovic, Dimitrise93, hyla, ivica976, KUZMAR, ladro, mackenzie, mrav pesadinac, raketaš, rodoljub, royst33, shaja1, stagezin, vukovi, 125