excel中心扩散算法填充数据

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

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

登录后方可回帖

登 录
信息栏
 私人小站

本站域名

ChengXu.XYZ

投诉联系:  popdes@126.com



快速上位机开发学习,本站主要记录了学习过程中遇到的问题和解决办法及上位机代码分享

这里主要专注于学习交流和经验分享.
纯私人站,当笔记本用的,学到哪写到哪.
如果侵权,联系 Popdes@126.com

友情链接
Aardio官方
Aardio资源网


才仁机械


网站地图SiteMap

Loading...