Forum » Programiranje » 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)
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
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 !
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."
"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 ()
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!
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."
"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)
text3.caption=val(text1.caption)+val(text2.caption)
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Visual basic noob questionOddelek: Programiranje | 1572 (1327) | DonMatejo |
» | [VB] Ocena programaOddelek: Programiranje | 1481 (1345) | mtosev |
» | [vb] Branje formata številOddelek: Programiranje | 1446 (1247) | Tugo |
» | problem v visual basicuOddelek: Programiranje | 1184 (1117) | destiny |
» | VB in kk dobit Ip od račnalnikaOddelek: Programiranje | 1212 (1046) | alesrosina |