Udregn tekstbox

ikke med mindre du manuelt parser indholdet i tekstboxen da den jo arbejder med tekst. du kan køre en foreach lykke der løber de forskellige chars igennem for derefter at behandle dem efter ønske.

Vh

Du kan gøre således:

Private Sub Command1_Click()
Dim sum As Integer
Dim tal1 As Integer
Dim tal2 As Integer
tal1 = Val(Text1.Text)
tal2 = Val(Text2.Text)
sum = tal1 + tal2
MsgBox "Summen er" & sum

End Sub

Så er det i to textbokse og det var ikke meningen tror jeg..

Prøv at se her.

http://www.eksperten.dk/spm/434044

2 textboxe og en commandbutton. Gå op i "projects" og vælg "components"
Sæt kryds i "Microsoft Script control"
Klik den på værktøjslinien og tilføj den til din form.

Private Sub Command1_Click()
Text2.Text = Form1.ScriptControl1.Eval(Text1.Text)
End Sub

Nu kan du skrive alle mulige regnestykker i Text1 og bruge Sin Cos og meget andet.

Det er LIDT nemmere end at lave en funktion selv. Hvis der bare kan være +-*/ bliver det hurtigt meget kompliceret. Man kan jo ikke lægge sammen inden man ganger og hvis der er paranteser bliver det endnu værre.

Ups, hvis du bruger Sin Cos o.s.v. skal du huske at den regner i Radianer.

Men f.ex. et stykke som
2*(1.5-3+4/5)+3/(8/2)
bliver udregnet uden problemer.

rynke10>  læg svar.. :)
har prøvet din metode og den virker fint indtil der kommer et regne stykke med noget i potens.

fx 10^4.2 det er den ikek så glad for
tester det ved
msgbox ScriptControl1.Eval(10^4.2)
jeg får bare en run time error 1002

er der noget jeg kan gøre ved det eller den kan jo godt forstå 10^4??

Den kan godt forstå 10^4 og den kan faktisk også godt forstå 10^4.2
Prøv at skrive 10^4,2 istedet ;-) Der er forskel på om du bruger komma, eller punktum. Tror det er der dit problem ligger.
Jeg har selv haft det samme problem, der er forskel på om computeren bruger . eller , som seperator. I mit program lavede jeg en funktion der udskiftede , til . og bagefter evaluerede. Den kan du også lige se her :

Public Function konverter(omform As String) As Single
  On Error Resume Next
  omform = Replace(omform, ",", ".")
  konverter = Form1.ScriptControl1.Eval(omform)
  If Error <> "" Then MsgBox Error
End Function

Nåeh ja, svar :-)

dim test as string
test="10^4,2"
msgbox(Scriptcontrol1.Eval(test))
Giver stadig samme fejl...

det var . der skulle skulle stå i stedet for ,