[es] - Opet greska u kodu :)

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.

Profil

^{17.05.2007. u 17:50 - pre 206 meseci}

Gde mi je greska?

Code:
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

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.DIALUP-SMIN.neobee.net.

+41 Profil

Re: Opet greska u kodu :)

^{17.05.2007. u 18:09 - pre 206 meseci}

Pa u logici

Umesto AND treba da koristis OR

Code:

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" OR txtchat.Text = "Sta ima?" Then
        txtchater.Text = "Evo nista"
    ElseIf txtchat.Text = "Kako si" OR txtchat.Text = "Kako si?" Then
        txtchater.Text = "Dobro"
    End If

End Sub

Sam kod i da li moze drugacije ovaj put necu komentarisati.

Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.

Profil

Re: Opet greska u kodu :)

^{18.05.2007. u 11:47 - pre 206 meseci}

Ispravio sam za "Or" al' opet nece da izbaci odgovor!

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Opet greska u kodu :)

^{18.05.2007. u 12:49 - pre 206 meseci}

Ko nece sta da izbaci? Hajde se malo potrudi, pa objasni sta taj tvoj kod treba da radi, tj. sta bi ti voleo da radi, tj. opisi problem. Ja sam ti ukazao na ociglednu gresku kod koriscenja AND operatora, jer se taj uslov nikad nece ispuniti: NE MOZE VODA BITI ISTOVREMENO I VRUCA I HLADNA (u stvari moze, ako filozofski posmatras taj problem - ali ovo je forum programiranja, a ne filozofije).

I na kraju da te uputim na pravilnik http://www.elitesecurity.org/o/pravilnik/korisnici/ (obrati paznju na clan 3).

Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.

Profil

Re: Opet greska u kodu :)

^{18.05.2007. u 14:47 - pre 206 meseci}

Ok, dakle:

Hocu da napravim programcic slican pecku ako neko zna sta je!

Znaci ima txtbox gde treba da se ukuca ime, txtbox gde treba da se ukuca poruka, txtbox gde ce ta poruka da se vidi i txt box u kojem ce program da odgovara na zadato pitanje. Evo obnjasnjenja za svaki red

Code:
Dim D As Variant, D1 As Variant, D2 As Variant, D3 As Variant

    D1 = txtime.Text        ovo je txtbox za ime
    D2 = txttacke.Text     ovo je txtbox za 2 tacke u kome su vec kao caption upisane dve tacke(:)
    D3 = txttext.Text       ovo je txtbox za poruku

    D = D1 + D2 + D3       ovo je radnja koja treba da se izvrsi i to mi radi znaci on mi izbaci npr:Sale kako si

    txtchat.Text = D        ovo je txtbox u kome izlazi poruka npr:Sale: Kako si?
    txttext.Text = ""        ovo znaci kada se klikne na posalji da se txtbox za poruku ocisti kako bi bio spreman za sledecu

    If txtime.Text = "" Then         ovo znaci da ako ne upisete ime
        MsgBox "Niste upisali ime"   program izbaci msgbox sa porukom
    ElseIf txtchat.Text = "Sta ima" OR txtchat.Text = "Sta ima?" Then    ovo bi trebalo da znaci ako korisnik ukuca sta ima
        txtchater.Text = "Evo nista"                                                   program treba da izbaci evo nista
    ElseIf txtchat.Text = "Kako si" OR txtchat.Text = "Kako si?" Then      ovo bi trebalo da znaci ako korisnik ukuca kako si
        txtchater.Text = "Dobro"                                                        program treba da izbaci evo nista
    End If

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Opet greska u kodu :)

^{18.05.2007. u 15:42 - pre 206 meseci}

Ne, sta je pecko? Objasni sta konkretno zelis, bez pisanja koda.

rgdrajko

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Opet greska u kodu :)

^{18.05.2007. u 16:54 - pre 206 meseci}

E to je vec nesto ;)

Treba da koristis LIKE operator uz JOKER karaktere, posto ti vrednost za D3 nikad nece biti jednaka onoj sa kojom poredis.

Code:

Private Sub cmdPosalji_Click()
    Dim D As String, D1 As String, D2 As String, D3 As String

    D1 = txtime.Text
    D2 = txttacke.Text
    D3 = txttext.Text

    D = D1 + D2 + D3

    txtchat.Text = D
    txttext.Text = ""

    If D1 = "" Then
        MsgBox "Niste upisali ime"
    ElseIf D3 LIKE "*Sta ima*" Then
        txtchater.Text = "Evo nista"
    ElseIf D3 LIKE "*Kako si*" Then
        txtchater.Text = "Dobro"
    End If

End Sub

Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.

Profil

Re: Opet greska u kodu :)

^{18.05.2007. u 19:26 - pre 206 meseci}

Uspelo je sa LIKE, hvala mnogo!

@rgdrajko to je programcic koji kad mu postavis neko pitanje on ti odgovori... recimo koliko imas godina on ti kaze 15...

Odgovor na temu