Team:Valencia/PruebaDocs

From 2009.igem.org

(Difference between revisions)
 
Line 1: Line 1:
-
<html>
 
-
<head>
 
-
<SCRIPT LANGUAGE=vbscript>
 
-
 
-
Dim MatLab As Object
 
-
 
-
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>
 
-
</html>
 
-
 
-
 
-
 
-
 
-
 
-
 
-
 
-
 
-
 
-
 
-
 
-
 
-
 
<html>
<html>
   <div align=center>
   <div align=center>

Latest revision as of 16:45, 13 August 2009


UPV[1], VALENCIA TEAM 2009





Team Valencia Member Title Type
Mª.Angeles
[mail me]
File

File
Emilio
[mail me]
File
Joaquina
[mail me]
File
Sara
[mail me]
File
Juny
[mail me]
File
Manel
[mail me]
File
Link
Link
Link
Jerzy
[mail me]
File
File
File
File
Cristina
[email me]
File
Arnau
[mail me]
Guillem
[mail me]
File

Link
Carles
[mail me]
File
Laura
[mail me]
File