490857_es-ES

liliconcom

Ventana que se desplaza por las imágenes de una carpeta

 

Necesito ayuda con la sintaxis de secuencias de comandos. Estoy usando JMP 16.

 

Tengo el script para leer todos los archivos en una subcarpeta e identificar los archivos que tienen la extensión jpg.

 

Lo que me gustaría hacer es mostrar una ventana, con un botón de avance y retroceso, que permita al usuario mostrar las imágenes. ¿Cómo haría para crear eso?

 

Cualquier ayuda sería apreciada.

 

folder = char(Get Default Directory()) || "images/"; //subfolder is "images"
names = Files In Directory( folder );

dtpicnames = New Table( "Filenames of Images",
 New Column( "filename", character ),
 New Column( "inspection result", character ),
 New Column( "path", character )
);
dtpicnames << move window(800, 0);

for( ii = 1, ii <= N Items(names), ii++,
 if( Ends With( names[ii], ".jpg"),
  dtpicnames << Add Rows(1);
  dtpicnames:filename = names[ii];
  dtpicnames:path = folder || names[ii];
 );
);

img = new image(dtpicnames:path[1]);
 img << scale(0.5);

w = New Window( "Image", pb = Picture Box( img ) );
w << move window(0, 0);

 

 

secuencias de comandos