» »

visual basic-seštevanje

visual basic-seštevanje

tx-z ::

mam en problem v visual basicu. K hočem, da mi neki sešteje nardi drgač kt mislm,,no v glavnem. mam text1, pa text 2, pa label1
v text1 k zaženem program v vpišem 10 v text2 pa 20,
pol pa za ukaz nardim: label3.caption = text1.text + text2.text
in kaj mi nardi, v label1 vpiše 1020,,kako bi vpisu, da bi to seštel(rešitev 30)
tx-z

Senitel ::

Sešteje ti pač tekst, moraš pa tekst najprej v število predelat...

StratOS ::

Kontrolnik Text ima po defaultu .Text definiran kot String
Torej če je
Text1.Text=20
Text2.Text=10

Dobiš v Text3.Text sledeče :
Text3.Text=cint(text1.Text) + cint(Text2.Text)

Ti si pa samo združu dva string v enega 20 in 10 !

cint() funkcija pretvori string v integer
ce hoces narediti kalkulator ti priporočam uporabo clng() ali cdbl().

Pregled kontrolnika za številčne vrednosti pa najbolj easy narediš z ukazom IsNumeric() ali negacijo le-tega
if isnumeric(Text1.Text) then
'Je numerična
else
'Ni numerična
msgbox "Vnesi samo številke":Text1.Text="":Text1.SetFocus
end if

P.S.: To seveda pisem kr na pamet !
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

Zgodovina sprememb…

  • spremenila: StratOS ()

tx-z ::

tnx, tadva clng() pa cdbl() delata,,kakšna je razlika med tema dvema.
tx-z

StratOS ::

preglej msdn.microsoft.com
clng vrne Long različico in
cdbl vrne Double različico stringa
Različise se razlikujeta, max pri VB (Double) je nekako okoli 1E300!
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

Red_Mamba ::

najbolje je uporbljati funkcijo number=val(string), ki ti pretvori text v številko. V tvojem primeru bi napisal
text3.caption=val(text1.caption)+val(text2.caption)


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Visual basic noob question

Oddelek: Programiranje
111521 (1276) DonMatejo
»

[VB] Ocena programa

Oddelek: Programiranje
121427 (1291) mtosev
»

[vb] Branje formata števil

Oddelek: Programiranje
91399 (1200) Tugo
»

problem v visual basicu

Oddelek: Programiranje
51142 (1075) destiny
»

VB in kk dobit Ip od račnalnika

Oddelek: Programiranje
81164 (998) alesrosina

Več podobnih tem