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

Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then) 25.01.2004. u 13:44 · pre 277 meseci #1

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]

Potpis

Sve u sta verujes - bice ti ispunjeno

Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a 25.01.2004. u 14:49 · pre 277 meseci #2

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

Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a 25.01.2004. u 15:41 · pre 277 meseci #3

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

Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then) 25.01.2004. u 17:30 · pre 277 meseci #4

Mnogo brzi kod i pregledniji kod je

Code:
if len(text1.text)=0 then

Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then) 25.01.2004. u 21:19 · pre 277 meseci #5

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.

Potpis

Sve u sta verujes - bice ti ispunjeno

Re: Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then) 26.01.2004. u 10:33 · pre 277 meseci #6

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

Potpis

Blue Man Group

Forum kao aplikacija na telefonu

Srodne teme