excel中心扩散算法填充数据

By admin at 2021-07-08 • 0人收藏 • 280人看过

GIF.gif

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=599;bottom=334)
winform.add(
button={cls="button";text="开启";left=42;top=142;right=188;bottom=197;z=1};
button2={cls="button";text="停止";left=42;top=216;right=188;bottom=271;z=3};
edit={cls="edit";text="5";left=45;top=83;right=188;bottom=129;edge=1;multiline=1;z=2};
picturebox={cls="picturebox";left=214;top=11;right=579;bottom=326;image=$"\1625733038189746.jpg";z=4}
)
/*}}*/

/*
import console
console.open()
*/

winform.button.oncommand = function(id,event){
    thread.set("手动停止", false);
	win.invoke(
		function(axis1,axis2,count){
			import com.excel;
			var excel = com.excel( true )
			var book  = excel.WorkBooks.Add()
			var sheet = book.Worksheets(1)
			excel.Visible = true
			if(count<=0){
				count = 1;
			}	
			var 每行每列数据点数 = count*2+1;
			var 当前行 = count+1;
			var 当前列 = count+1;
			var 当前轴号 = axis2;
			var 当前轴总步数 = 0;
			var 当前轴剩余步数 = 0;
			var 当前方向 = 1;
			var index = 0;//模拟数据
			while(!thread.get("手动停止")){
	
				sleep(100);
				index++;//模拟数据
				sheet.Cells(当前行, 当前列).Value2 = index;
	
				if(当前行==每行每列数据点数 and 当前列==1 ){//结束运动
					break;
				}
				
				if(当前轴剩余步数<=0){
					if(当前轴号 == axis1){
						当前轴号 = axis2;
					}else {
						当前轴号 = axis1;
						当前方向 = (当前方向==1)?-1:1;
						当前轴总步数++;
					}
					当前轴剩余步数 = 当前轴总步数;
				}
				
				if(当前轴号 == axis1){
					当前列 = 当前列+当前方向;
				}else {
					当前行 = 当前行+当前方向;
				}
	
				当前轴剩余步数--;
				
			}//end while
			//保存文件为csv格式
			excel.SaveAs("/my.csv",6/*_xlCSV*/);	
		} ,"X","Y",(tonumber(winform.edit.text))
	)//end win.invoke
}

winform.button2.oncommand = function(id,event){
	thread.set("手动停止", true);
}

winform.show();
win.loopMessage();

20140620123100437.jpg

1 个回复 | 最后更新于 2021-07-10
2021-07-10   #1

登录后方可回帖

登 录
信息栏
本站永久域名:HtmLayout.Cn
纯私人站,当笔记本用的,学到哪写到哪,目前在学aardio+halcon机器视觉.
加入本站专享群:783804676
AARDIO语言QQ大群:70517368
Aardio 官方站:Aardio官方
Aardio最新功能:Aardio官方更新日志
C大Aardio论坛:Aar爱好者论坛
本 站 主 站:Stm32cube中文网
Sciter中文在线文档Sciter在线学习文档
赞助商:才仁机械




Loading...