excel中心扩散算法填充数据
By
admin
at 2021-07-08 • 0人收藏 • 827人看过
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();
1 个回复 | 最后更新于 2021-07-10
the100s
2021-07-10
#1
登录后方可回帖