Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then)

[es] :: Visual Basic 6 :: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then)

[ Pregleda: 3679 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Igor-Rogi-89
Igor Ciric
Beograd

Član broj: 13752
Poruke: 27
*.56.EUnet.yu



Profil

icon Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then)25.01.2004. u 12:44 - pre 216 meseci
Potrebna mi je pomoc oko sledec slucaja :

Znam da napisem - If text1.text = "" Then ' uradi nesto
to je kada nista ne pise u text-u jedan , ali kako da namestim da mi uradi nesto ako nesto pise u text-u jedan.

Molim vas svi koji poznajete Visual Basic i znate nacin kako ovaj problem da resim odgovorite mi .

HVALA VAM SVIMA UNAPRED





[Ovu poruku je menjao mladenovicz dana 25.01.2004. u 16:50 GMT]
Sve u sta verujes - bice ti ispunjeno
 
Odgovor na temu

Safet Beriša
Malo N. Sad, malo SAD.

Član broj: 17338
Poruke: 929
*.telekom.yu



+3 Profil

icon Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a 25.01.2004. u 13:49 - pre 216 meseci
Ako te inderesuje da li piše nešto određeno:
Code:
If text1.text = "to nesto" then 'uradi nesto


Ili:
Code:
If text1.text = NekaPromenljiva then 'uradi nesto


A ako ti nije bitno šta piše već samo da nešto piše:
Code:
If text1.text <> "" then 'uradi nesto
 
Odgovor na temu

BeastMaster
Dragan Mitic
Krusevac

Član broj: 4666
Poruke: 1561
*.air.tehnicom.net

ICQ: 22756094


Profil

icon Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a 25.01.2004. u 14:41 - pre 216 meseci

Code:
If text1.text = "" Then 
         ' uradi nesto 
    Else
         ' Uradi to drugo...
end if
 
Odgovor na temu

stalker
Branko Kokanovic
Beograd

Član broj: 11897
Poruke: 606
*.drenik.net



+2 Profil

icon Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then)25.01.2004. u 16:30 - pre 216 meseci
Mnogo brzi kod i pregledniji kod je
Code:
if len(text1.text)=0 then
 
Odgovor na temu

Igor-Rogi-89
Igor Ciric
Beograd

Član broj: 13752
Poruke: 27
*.36.EUnet.yu



Profil

icon Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then)25.01.2004. u 20:19 - pre 216 meseci

Puno svima hvala na odgovorima koje ste mi slali nisam jos samo isprobao onaj poslednji sa len - a i nisam bas najbolje razumeo ono sa promenljivom - ali nema veze u svakom slucaju snasao sam se sa kodom : if text1.text <> "" then ' uradi nesto.

Sada mi se javio mali problom koji sam siguran da moze da se resi samo ga ja jos ne znam - malo veci problem mi predstavlja to sto recimo naprimer kada pisem jedan mali program za matematiku - naporno mi je da pisem stalno :

If txtstranica.text <> "" then
txtpovrsina.text = txtsranica.text ^2

da li postoji nacin ( ja mislim da se to radi preko modula ) da negde ukucam neki programski jezik i da onda stalno umesto txtstranica.text napisem samo slovo aitd.



Sve u sta verujes - bice ti ispunjeno
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then)26.01.2004. u 09:33 - pre 216 meseci
Tek si poceo da programiras, a vec ti naporno da kucas.
Koristi autocomplete (CTRL+Space), ako neces da kucas sve.

Code:

Private Sub cmdPovrsina_Click()
    If IsNumeric(txtStranica.Text) Then
        txtPovrsina.Text = m_PovrsinaKvadrata(txtStranica.Text)
    Else
        Beep
        txtPovrsina.Text = "0"
    End If
End Sub

Private Function m_PovrsinaKvadrata(a As Long) As Long
    m_PovrsinaKvadrata = a ^ 2
End Function

 
Odgovor na temu

[es] :: Visual Basic 6 :: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then)

[ Pregleda: 3679 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.