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