Srodne teme
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: 1510 | Odgovora: 5 ]

 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

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
25.01.2004. u 12:44 

Safet Beriša
Safet Beriša
Novi Sad

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

Sajt: www.novibalkan.com


Profil

icon Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a 25.01.2004. u 13:49
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
25.01.2004. u 13:49 

BeastMaster
Dragan Mitic
Krusevac

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

ICQ: 22756094
Sajt: www.krusevac-oglasi.com


Profil

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

Code:
If text1.text = "" Then 
         ' uradi nesto 
    Else
         ' Uradi to drugo...
end if
http://www.krusevac-oglasi.com
25.01.2004. u 14:41 

stalker
Branko Kokanovic
Beograd

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



Profil

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

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

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
25.01.2004. u 20:19 

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

Moderator
Član broj: 6598
Poruke: 2064
*.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
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
Blue Man Group
26.01.2004. u 09:33 

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

[ Pregleda: 1510 | Odgovora: 5 ]

 Postavi temu Odgovori

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