[ Irfank @ 19.03.2005. 21:36 ] @
Posto sam totalni pocetnik u pisanju koda probao sam praviti najednostavniji
digitron koji sabira a kod glasi ovako Text3 = Text1 + Text2 i uvek umesto
da sabere u Text3 polju mi se upisu ta dva broja jedan do drugog.Probao sam
sa mnozenjem,deljenjem i oduzimanjem i koristio sam kod npr. za oduzimanje
Text3 = Text1 - Text2 i brojevi su oduzeti.Zasto se kod sabiranja ne saberu brojevi.
Napisite mi kod pa cu ga ja prouciti.
[ Marko_L @ 19.03.2005. 21:55 ] @
Zato što se znak + tretira kao operand & što označava spajanje.Da bi to izbegao, kod sabiranja koristi Val.
Code:
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
[ Irfank @ 19.03.2005. 22:02 ] @
Hvala
[ Andrej Čvoro @ 21.03.2005. 11:00 ] @
He,he...A ja sam to do sada radio ovako:

Code:

Text3.Text = Text1.Text - - Text2.Text





Poz
[ andre @ 23.03.2005. 17:01 ] @
if operacija="+" then text1.text=cdbl(text1.text)+a
if operacija="-" then text1.text=a-cdbl(text1.text)
[ BackSpaceR @ 28.03.2005. 07:49 ] @
Zasto jednostavno ne pozoves windows-ov calculator?
[ Aleksandar Ružičić @ 28.03.2005. 13:19 ] @
ili ako imas neki slozeni izraz tipa 3+(8^(2/4)+2)*(2+(5-6)) mozes da koristis MS Script Control:
(prvo postavis referencu na Microsoft Scripting Control)
Code:

Sub Command1_Click()
 Dim calc As New MSScriptControl.ScriptControl
 calc.Language="VBScript"
 MsgBox "Rezultat je: " & calc.Eval(Text1.Text)
End Sub

gde ti Text1 TextBox u koji je upisan taj slozeni izraz...
[ hugo_017 @ 29.05.2012. 21:17 ] @
Citat:
Aleksandar Ružičić: ili ako imas neki slozeni izraz tipa 3+(8^(2/4)+2)*(2+(5-6)) mozes da koristis MS Script Control:
(prvo postavis referencu na Microsoft Scripting Control)
Code:

Sub Command1_Click()
 Dim calc As New MSScriptControl.ScriptControl
 calc.Language="VBScript"
 MsgBox "Rezultat je: " & calc.Eval(Text1.Text)
End Sub

gde ti Text1 TextBox u koji je upisan taj slozeni izraz...



Pozdrav, zanima me da li moze MS Script Control da se koristi u Delphiju 7? Ako moze, kako? Hvala unapred.