Poslao: 16 Maj 2007 22:34
|
offline
- GazdaSale
- Novi MyCity građanin
- 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
|
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
|
offline
- GazdaSale
- Novi MyCity građanin
- 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
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
|
offline
- bobby
- Administrator
- 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
|
offline
- biser-x
- Počasni građanin
- 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
|
offline
- bobby
- Administrator
- 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
|
offline
- GazdaSale
- Novi MyCity građanin
- Pridružio: 27 Apr 2007
- Poruke: 28
- Gde živiš: kraljevina MIRIJEVO!
|
Ispravio sam kod koristeci LIKE i sad radi, hvala u svakom slucaju
|
|
|
|