ALGORITMO DE ENLACE VISUAL BASIC 6.0 CON MATLAB
Ingeniero Electrónico: Electrónico: Monteza Zevallos Zevallos Fidel Tomas Tomas
Las siguientes líneas corresponden a la programación en VISUAL BASIC 6.0 de una interface que se comunica directamente con A!LAB. "eali#a la apertura de A!LAB $ luego controla en forma AU!%A!ICA o en forma A&UAL el mane'o de una superficie tri dimensional( tan solo de)e copiar $ pegar todas las líneas de programación en el respecti*o formulario de Visual( adem+s de)e tener cuidado en dar los *alores correspondientes de cada ,erramienta en la Ventana de -ropiedades. -or e'emple de)er+ cam)iar los nom)res de cada Command de acuerdo las líneas programadas( el inter*alo del !imer ser+ /0 $ el inter*alo del !imer ser+ /0. -ara esto se ane1an las respecti*as figuras demostrando su aplicación paso a paso. Como mencione antes( la potencialidad de esta aplicación est+ en el proceso digital de im+genes( )astaría con instalar sensores en cada articulación de un usuario lle*arlas a Visual $ luego estas ser lle*adas a A!LAB para que por medio de la Cinem+tica In*ersa poder graficarlos. 2l tiempo que se pueda dedicar a este pro$ecto es mu$ importante( tengo la idea de cómo ,acerlo $ espero que sir*a para a$udar a otros in*estigadores. -osteriormente estar3 pu)licando líneas de programación en A!LAB de di*ersas aplicaciones como Sistema 4ra*itacional( Interacción de partículas( Cinem+tica 5irecta $ Cinem+tica In*ersa para ro)ótica( Comunicación "S con microcontroladores( etc. 2n la siguiente pu)licación estar3 comentando acerca de la comunicación "S en Visual Basic 6.0 con un microcontrolador para controlar un sistema de conteo en displa$ siete segmentos de cuatro dígitos( estar atentos.
7-"%4"AA 52 I&!2"8AC2 2&!"2 VISUAL BASIC 9 A!LAB -A"A 2L C%&!"%L 52 U&A SU-2"8ICI2 2& 5 52&%I&A5A :V%LCA&: 7%ption 21plicit 7S2 52S;ABILI!A 2S!A LI&2A -A"A %BS2"VA" 2L 2&SA<2 2& LA 2S=UI&A I>=UI2"5A 52L 8%"ULA"I% 5im ml As %)'ect 5im f As Integer 5im " As Integer 5im 11 As Boolean 75im c As Integer -ri*ate Su) 8orm?Load@ 8orm.indoState D 0 8orm.Caption D : 2&LAC2 52 A!LAB C%& VISUAL BASIC E 4"A8IC% 52L V%LCA& : Set ml D Create%)'ect@:matla).application: Create% )'ect@:matla).application: ml.e1ecute :F1($GDmes,grid@EH0./H: 11 D !rue 711 empie#a en la condicion )oolena de !rue 2nd Su) -ri*ate Su) Cmdautomatico?ClicJ@ f D ,s)8.Value ml.e1ecute :F1($GDmes,grid@EH0./H: ml.e1ecute :
[email protected]$.Keps: ml.e1ecute :#Dsin@MpiM: N f N :MrM0.0.O@MpiM: N f N :MrM0.0:
ml.e1ecute :surf@1($(#: ml.e1ecute :a1is on: !imer.2na)led D !rue ,s)8.2na)led D 8alse Cmddetener.2na)led D !rue 2nd Su)
7-resentar los e'es en cada plano
-ri*ate Su) Cmdmanual?ClicJ@ !imer.2na)led D 8alse ,s)8.2na)led D !rue Cmddetener.2na)led D 8alse 2nd Su) -ri*ate Su) Cmddetener?ClicJ@ !imer.2na)led D 8alse ,s)8.2na)led D 8alse 2nd Su)
-ri*ate Su) ,s)8?C,ange@ f D ,s)8.Value !e1t.!e1t D f ml.e1ecute :F1($GDmes,grid@EH0./H: ml.e1ecute :
[email protected]$.Keps: ml.e1ecute :#Dsin@MpiM: N f N :MrM0.0.O@MpiM: N f N :MrM0.0: ml.e1ecute :surf@1($(#: 2nd Su) -ri*ate Su) ,s)8?Scroll@ ,s)8?C,ange 2nd Su) -ri*ate Su) !imer?!imer@ c D Left@8orm.Caption( 8orm.Caption D id@8orm.Caption( N c 2nd Su) -ri*ate Su) !imer?!imer@ If 11 D !rue !,en 7 Como 11 empe#o en !rue en la linea del 8orm?Load se considera la e'ecucion de las siguientes lineas fDf 7 f inicia un conteo en pasos de uno !e1t.!e1t D f
ml.e1ecute :F1($GDmes,grid@EH0./H: ml.e1ecute :
[email protected]$.Keps: ml.e1ecute :#Dsin@MpiM: N f N :MrM0.0.O@MpiM: :MrM0.0.O@MpiM: N f N :MrM0.0: 7 f es *aria)le en la ecuacion del grafico ml.e1ecute :surf@1($(#: If f D 00 !,en 11 D 8alse 2lse fDfE !e1t.!e1t D f If f D !,en 11 D !rue ml.e1ecute :F1($GDmes,grid@EH0./H: ml.e1ecute :
[email protected]$.Keps: ml.e1ecute :#Dsin@MpiM: N f N :MrM0.0.O@MpiM: N f N :MrM0.0: ml.e1ecute :surf@1($(#: 2nd If 2nd Su) -ri*ate Su) Cmdsalir?ClicJ@ " D sgBo1@:P5esea salir del -rogramaQ:( -rogramaQ:( R ( : V.<..<. : If " D 6 !,en 2nd 2nd Su)
En las siguientes figuras se observara paso a paso el desarrollo del proceso de simulación del enlace en tiempo real
Se puede apreciar en el fondo la *entana de -ro$ecto 8orm@Codigo $ en primer plano la *entana -ro$ecto 8orm@8orm( estos ser+n todas las ,erramientas a ser utili#adas
Se aprecia el momento en que comien#a la simulacion del proceso( aparece un pequeo mensa'e en la parte superior de la *entana de interface
Aquí se muestra que A!LAB ,a sido aperturado para comen#ar el c ontrol AU!%A!IC% o A&UAL
Se inicia el control AU!%A!IC% la superficie en tres dimensiones.
Continuacion del proceso de control AU!%A!IC%
Continuacion del proceso de control AU!%A!IC%. %)ser*e los difere ntes *alores decimales que toma la *entana ad'unta
Continuacion in*ersa del proceso de control AU!%A!IC% 2spero que esta aplicación sea de muc,a utilidad $ de seguro de)era tener me'oras( las que posteriormente estare pu)licando. 4racias Ingeniero 2lectronico onte#a >e*allos 8idel !omas V.<..<.
