ACCEPTED SOLUTION
Accepted Solutions
Vladimir sent you the converted file but you may notice that some regions are just converted to pictures, rendering the converted sheet useless. The reason is that the older Mathcad versions were much more powerful than the Prime versions which miss a lot of features. Some of the features not available in Prime like embedding symbolic calculations in a program or the used of scripted components were use by Richard in his sheet and thats the reason its not working in Prime.
In case you are interested here is what it looks like after pressing the "Define Matrix" button
and here is the scipt part of the component:
Option Explicit
Dim State
Text = "Define Matrix"
Sub PushBtnEvent_Start()
Rem TODO: Add your code here
End Sub
Sub PushBtnEvent_Exec(Inputs,Outputs)
Dim Regtag, Reg, XML, Val, n, m, i, VarName
If State = 0 Then Exit Sub
Regtag = Inputs(0).Value
For Each Reg in Worksheet.Regions
If Reg.tag = Regtag Then Exit For
Next
If Not IsObject(Reg) Then
MsgBox "Region tag """ & Regtag & """ not found",_
vbOKOnly + vbExclamation, "Error"
Exit Sub
End If
If State = 2 Then
XML = "<ml:define xmlns:ml=""http://schemas.mathsoft.com/math20"">" & vbCrLf & "<ml:id xml:space=""preserve"">MyMatrix</ml:id>" & vbCrLf & "<ml:str xml:space=""preserve"">Matrix not assigned yet</ml:str>" & vbCrLf & "</ml:define>"
Reg.MathInterface.XML = XML
Exit Sub
End If
State = 0
VarName = Inputs(1).Value
n = Inputs(2).Value
m = Inputs(3).Value
XML = "<ml:define xmlns:ml=""http://schemas.mathsoft.com/math20"">"
XML = XML & vbCrLf & "<ml:id xml:space=""preserve"">" & VarName & "</ml:id>"
XML = XML & vbCrLf & "<ml:matrix rows=""" & n & """ cols=""" & m & """>"
For i = 1 to n*m
XML = XML & vbCrLf & "<ml:placeholder/>"
Next
XML = XML & vbCrLf & "</ml:matrix>"
XML = XML & vbCrLf & "</ml:define>"
Reg.MathInterface.XML = XML
End Sub
Sub PushBtnEvent_Stop()
Rem TODO: Add your code here
End Sub
Sub PushBtn_Click()
State = 1
PushBtn.Recalculate()
End Sub
Sub PushBtn_DblClick()
State = 2
PushBtn.Recalculate()
