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 1069 korisnika na forumu :: 46 registrovanih, 7 sakrivenih i 1016 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., aleksandarbl, antonije64, bladesu, bokisha253, BRATORIII, darkangel, debeli, Dimitrije Paunovic, Dimitrise93, dragoljub11987, drimer, FOX, Georgius, goxin, ikan, Insan, jackreacher011011, Karla, Kibice, kokodakalo, kybonacci, Marko Marković, Mi lao shu, milenko crazy north, Ne doznajem se u oružje, nebidrag, nemkea71, Nobunaga, novator, ObelixSRB, offman, ozzy, Pikac-47, procesor, rajkoplje, rasok, RJ, robertino, Rogan33, sasa87, slonic_tonic, Srle993, Stoilkovic, vladulns, 125