"
Team:Valencia/PruebaDocs2
From 2009.igem.org
(Difference between revisions)
| Line 2: | Line 2: | ||
<SCRIPT LANGUAGE=vbscript> | <SCRIPT LANGUAGE=vbscript> | ||
| + | |||
| + | Dim MatLab As Object | ||
Sub Prueba_Click() | Sub Prueba_Click() | ||
| - | Dim | + | Dim Result As String |
| + | Dim vector_f() As Double | ||
| + | ReDim vector_f(Val(Combo1.Text)) | ||
| + | For i_captura = 1 To CDbl(Combo1.Text) | ||
| + | vector_f(i_captura) = CDbl(VSFlexGrid2.TextMatrix(i_captura, 1)) | ||
| + | Next i_captura | ||
Set MatLab = CreateObject("Matlab.Application") | Set MatLab = CreateObject("Matlab.Application") | ||
| - | Result = MatLab.Execute(" | + | Call MatLab.Putworkspacedata("a", "base", vector_f) ' aqui se traspasa la variable |
| + | Result = MatLab.Execute("plot(a)") | ||
| + | Result = MatLab.Execute("whitebg('k')") | ||
| + | Result = MatLab.Execute("axis('auto')") | ||
End Sub | End Sub | ||
| - | </script> | + | </script> |
<body> | <body> | ||
Revision as of 17:12, 13 August 2009
