Team:Valencia/PruebaDocs

From 2009.igem.org

(Difference between revisions)
Line 1: Line 1:
 +
<html>
 +
<head>
 +
<SCRIPT LANGUAGE=vbscript>
-
<html><head>
+
Dim MatLab As Object
-
<body>
+
 +
Private Sub Command12_Click()
 +
 +
Dim Result As String
 +
Dim vector_f() As Double
 +
ReDim vector_f(Val(Combo1.Text))
 +
 +
' capturando datos de un vsflexgrid
 +
 +
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")
 +
 +
 +
'Ejecucion de conmandos MATLAB
 +
 +
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
 +
 +
<body>
 +
<input type="button" onclick="Command12()" value="Prueba">
</body>
</body>
</html>
</html>
 +
 +
 +
 +
 +
 +
 +
 +
 +
 +
 +
 +
<html>
<html>

Revision as of 16:44, 13 August 2009

Retrieved from "http://2009.igem.org/Team:Valencia/PruebaDocs"