HiAsm
HiAsm
Вверх ↑
ФорумыКуплюПродамфайл txt с переменными ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 1
Рейтинг: 0
#1: 2011-06-05 18:27:59 ЛС | профиль | цитата
хелп!!!!!
нужно сделать прогу с двумя переммеными х и у.што бы на выходи получался файл в формате txt.все расчеты только вычитание.
вот што должно получится на выходе:
%1
(AXE XYZ)
T1 M6
S1000 M3
G1 Z7.
G1 X0. Y0.
G0 X263. Y77.
G1 Z0. F2500
Z-13.5
X77. F5000
Y639.
X263.
Y77.
G0 Z7.
Y639.
G1 Z0. F2500
Z-13.5
X278.91 Y654.91 Z-4 F5000
G0 Z7.
X77. Y639.
G1 Z0. F2500
Z-13.5
X61.09 Y654.91 Z-4 F5000
G0 Z7.
X263. Y77.
G1 Z0. F2500
Z-13.5
X278.91 Y61.09 Z-4 F5000
G0 Z7.
X77. Y77.
G1 Z0. F2500
Z-13.5
X61.09 Y61.09 Z-4 F5000
G0 Z7.
X282. Y58.
G1 Z0. F2500
Z-5
X58. F5000
Y658.
X282.
Y58.
G0 Z7.
G1 Z0. F2500
Z-5
X297.91 Y42.09 Z4.5 F5000
G0 Z7.
X58. Y58.
G1 Z0. F2500
Z-5
X42.09 Y42.09 Z4.5 F5000
G0 Z7.
X282. Y658.
G1 Z0. F2500
Z-5
X297.91 Y673.91 Z4.5 F5000
G0 Z7.
X58. Y658.
G1 Z0. F2500
Z-5
X42.09 Y673.91 Z4.5 F5000
G0 Z7.
X0. Y0.
M2
%
из х и у будут вычитаца три числа и результат вычитания будет записываца в определенную строчкау документа .
карма: 1

0
Разработчик
Ответов: 26161
Рейтинг: 2127
#2: 2011-06-05 18:37:56 ЛС | профиль | цитата
koks писал(а):
нужно сделать прогу с двумя переммеными

Однозначно, в купи/продай. Так просто никто ничего делать не будет. Не хочешь в купи/продай, отправлю в мусорку, по причине того, что никаких несчатных поползновений не проведено по освоению HiAsm-a
карма: 22

0
Ответов: 5227
Рейтинг: 587
#3: 2011-06-05 19:43:49 ЛС | профиль | цитата
nesco, это программа для станков с чпу.koks, если сможешь назвать цену и выдать т.з возможен диалог.
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2011-06-07 07:22:25 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-21 07:38:39
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2011-06-07 07:26:48 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-21 07:38:38
карма: 0

0
Ответов: 5227
Рейтинг: 587
#6: 2011-06-08 10:10:37 ЛС | профиль | цитата
koks, эта схема читает G-код, дальше сам code_24338.txt

------------ Дoбавленo в 10.10:
а эта схема даже рисует :)

Add(MainForm,2953706,350,224)
{
 Width=797
 Height=550
 Caption="Read & paint iso G-code"
 WindowsState=2
}
Add(PointXY,3590164,294,161)
{
 link(X,14763113:Var,[])
 link(Y,3190125:Var,[])
}
Add(ChildPanel,8490387,238,224)
{
 link(onEvent1,14545582:doDraw,[])
 link(onEvent2,10333492:doEvent1,[(279,237)(279,281)(204,281)(204,90)])
}
BEGIN_SDK
  Add(EditMulti,16296961,21,21)
  {
   EventCount=2
   Width=664
   Height=326
  }
  Add(Panel,4337694,35,217)
  {
   Width=267
   Height=516
   Align=1
   BevelInner=0
  }
  Add(ArrayRW,10353061,196,140)
  {
   link(onRead,11697309:doModify,[])
   link(Array,5833642:Array,[])
  }
  Add(Button,161832,35,91)
  {
   Left=10
   Top=30
   Width=50
   Caption="step"
   link(onClick,15137998:doNext,[])
  }
  Add(Counter,15137998,98,91)
  {
   Point(doValue)
   link(onNext,5050306:doEvent1,[])
  }
  Add(Edit,10224349,483,189)
  {
   Left=10
   Top=90
   Text="X"
   link(onChange,6821777:doConvert,[(522,195)(522,232)(471,232)(471,244)])
  }
  Add(Edit,4875393,539,189)
  {
   Left=10
   Top=115
   Text="Y"
   link(onChange,12452330:doConvert,[(578,195)(578,230)(527,230)(527,244)])
  }
  Add(Edit,11828730,595,189)
  {
   Left=10
   Top=140
   Text="Z"
   link(onChange,10896166:doConvert,[(641,195)(641,231)(584,231)(584,244)])
  }
  Add(ListBox,5833642,182,49)
  {
   Left=80
   Top=2
   Width=185
   Height=490
   Align=3
   Strings=#2:%1|9:(AXE XYZ)|5:T1 M6|8:S1000 M3|6:G1 Z7.|8:G1 X0 Y0|13:G0 X263. Y77.|12:G1 Z0. F2500|6:Z-13.5|10:X77. F5000|5:Y639.|5:X263.|4:Y77.|6:G0 Z7.|5:Y639.|12:G1 Z0. F2500|6:Z-13.5|25:X278.91 Y654.91 Z-4 F5000|6:G0 Z7.|10:X77. Y639.|12:G1 Z0. F2500|6:Z-13.5|24:X61.09 Y654.91 Z-4 F5000|6:G0 Z7.|10:X263. Y77.|12:G1 Z0. F2500|6:Z-13.5|24:X278.91 Y61.09 Z-4 F5000|6:G0 Z7.|9:X77. Y77.|12:G1 Z0. F2500|6:Z-13.5|23:X61.09 Y61.09 Z-4 F5000|6:G0 Z7.|10:X282. Y58.|12:G1 Z0. F2500|3:Z-5|10:X58. F5000|5:Y658.|5:X282.|4:Y58.|6:G0 Z7.|12:G1 Z0. F2500|3:Z-5|25:X297.91 Y42.09 Z4.5 F5000|6:G0 Z7.|9:X58. Y58.|12:G1 Z0. F2500|3:Z-5|24:X42.09 Y42.09 Z4.5 F5000|6:G0 Z7.|11:X282. Y658.|12:G1 Z0. F2500|3:Z-5|26:X297.91 Y673.91 Z4.5 F5000|6:G0 Z7.|10:X58. Y658.|12:G1 Z0. F2500|3:Z-5|25:X42.09 Y673.91 Z4.5 F5000|6:G0 Z7.|7:X0. Y0.|2:M2|1:%|0:|
   Point(doEnsureVisible)
   Point(doSelect)
  }
  Add(Hub,5050306,147,91)
  {
   InCount=2
   OutCount=3
   link(onEvent1,5833642:doEnsureVisible,[])
   link(onEvent2,5833642:doSelect,[])
   link(onEvent3,10353061:doRead,[(173,111)(173,146)])
  }
  Add(StrMask,16730039,427,140)
  {
   Mask="X*"
   link(onFalse,2777936:doCompare,[])
   link(onTrue,10224349:doText,[(471,153)(471,195)])
  }
  Add(RegExpr,6695857,378,140)
  {
   Expression="[A-Z][0123456789,.-]+"
   link(onMatch,16730039:doCompare,[])
   link(onNotFound,7857595:doEvent1,[(422,153)(422,295)(107,295)(107,181)])
  }
  Add(Hub,13922669,294,140)
  {
   link(onEvent1,6695857:doExec,[])
   link(onEvent2,4910787:doFor,[])
  }
  Add(For,4910787,329,147)
  {
   End=9
   link(onEvent,6695857:doExecNext,[])
  }
  Add(StrMask,2777936,483,140)
  {
   Mask="Y*"
   link(onFalse,1353880:doCompare,[])
   link(onTrue,4875393:doText,[(527,153)(527,195)])
  }
  Add(StrMask,1353880,539,140)
  {
   Mask="Z*"
   link(onFalse,11287467:doCompare,[(593,146)(593,127)(301,127)(301,48)])
   link(onTrue,11828730:doText,[(583,153)(583,195)])
  }
  Add(StrCase,11697309,245,140)
  {
   Type=1
   link(onModify,13922669:doEvent1,[])
  }
  Add(Edit,7846916,427,84)
  {
   Left=10
   Top=205
   Text="G"
  }
  Add(Edit,11265912,371,84)
  {
   Left=10
   Top=230
   Text="T"
  }
  Add(Edit,12273341,483,84)
  {
   Left=10
   Top=255
   Text="F"
  }
  Add(Edit,7786793,539,84)
  {
   Left=10
   Top=280
   Text="M"
  }
  Add(StrMask,11287467,315,42)
  {
   Mask="T*"
   link(onFalse,10317867:doCompare,[])
   link(onTrue,11265912:doText,[(359,55)(359,90)])
  }
  Add(StrMask,10317867,371,42)
  {
   Mask="G*"
   link(onFalse,15459950:doCompare,[])
   link(onTrue,7846916:doText,[(415,55)(415,90)])
  }
  Add(StrMask,15459950,427,42)
  {
   Mask="F*"
   link(onFalse,3110034:doCompare,[])
   link(onTrue,12273341:doText,[(471,55)(471,90)])
  }
  Add(StrMask,3110034,483,42)
  {
   Mask="M*"
   link(onFalse,4975642:doCompare,[])
   link(onTrue,7786793:doText,[(527,55)(527,90)])
  }
  Add(StrMask,4975642,539,42)
  {
   Mask="S*"
   link(onTrue,3940062:doText,[(583,55)(583,90)])
  }
  Add(Edit,3940062,595,84)
  {
   Left=10
   Top=305
   Text="S"
  }
  Add(Button,6913529,35,49)
  {
   Left=10
   Top=5
   Width=50
   Caption="open"
   link(onClick,2284746:doExecute,[])
  }
  Add(ODialog,2284746,84,49)
  {
   link(onExecute,10033941:doEvent1,[])
  }
  Add(Hub,10033941,126,49)
  {
   link(onEvent1,5833642:doLoad,[(162,55)(162,83)])
   link(onEvent2,14201912:doWork1,[(149,62)(149,87)(81,87)])
  }
  Add(Convertor,6821777,483,238)
  {
   Mode=10
   link(onResult,11184781:doValue,[(521,244)(521,280)(471,280)(471,293)])
  }
  Add(Convertor,12452330,539,238)
  {
   Mode=10
   link(onResult,12965903:doValue,[(579,244)(579,281)(527,281)(527,293)])
  }
  Add(Convertor,10896166,595,238)
  {
   Mode=10
   link(onResult,3871052:doValue,[(635,244)(635,281)(585,281)(585,293)])
  }
  Add(GlobalVar,11184781,483,287)
  {
   Name="X"
  }
  Add(GlobalVar,12965903,539,287)
  {
   Name="Y"
  }
  Add(GlobalVar,3871052,595,287)
  {
   Name="Z"
  }
  Add(GlobalVar,7389255,182,196)
  {
   Name="X"
  }
  Add(GlobalVar,14250057,315,210)
  {
   Name="Y"
  }
  Add(GlobalVar,14763113,231,224)
  {
   Name="Xd"
  }
  Add(GlobalVar,3190125,364,238)
  {
   Name="Yd"
  }
  Add(GlobalVar,15376501,35,189)
  {
   Name="Zd"
  }
  Add(DoData,10399069,182,224)
  {
   link(onEventData,14763113:doValue,[])
   link(Data,7389255:Var,[])
  }
  Add(DoData,12026556,315,238)
  {
   link(onEventData,3190125:doValue,[])
   link(Data,14250057:Var,[])
  }
  Add(Hub,7857595,119,175)
  {
   OutCount=4
   link(onEvent1,4910787:doStop,[(317,181)(317,160)])
   link(onEvent2,16296961:onEvent1,[(142,188)(142,319)(664,319)(664,27)])
   link(onEvent3,10399069:doData,[(157,195)(157,230)])
   link(onEvent4,12026556:doData,[(149,202)(149,244)])
  }
  Add(Button,1605135,35,140)
  {
   Left=10
   Top=55
   Width=50
   Caption="reset"
   Data=Integer(0)
   link(onClick,15741453:doEvent1,[])
  }
  Add(Hub,15741453,98,140)
  {
   OutCount=3
   link(onEvent1,14201912:doWork3,[(124,146)(124,134)(81,134)])
   link(onEvent2,5050306:doEvent2,[(137,153)(137,104)])
   link(onEvent3,16296961:onEvent2,[(128,160)(128,171)(95,171)(95,329)(672,329)(672,34)])
  }
  Add(HubEx,14201912,77,112)
  {
   link(onEvent,15137998:doValue,[])
  }
END_SDK
Add(PaintBox,8576339,238,161)
{
 Width=2000
 Height=2000
 Align=5
}
Add(Img_Line,14545582,287,224)
{
 Size=2
 Point(Point1)
 Point(Point2)
 link(onDraw,8576339:doRefresh,[(331,230)(331,265)(219,265)(219,167)])
 link(Bitmap,8576339:Bitmap,[(293,212)(244,212)])
 link(Point1,3590164:Point,[])
 link(Point2,12587284:Point,[(307,212)(356,212)])
}
Add(PointXY,12587284,350,161)
{
 link(X,1347403:Var,[])
 link(Y,10583399:Var,[])
}
Add(GlobalVar,3190125,301,84)
{
 Name="Yd"
 Data=Integer(0)
}
Add(GlobalVar,14763113,294,133)
{
 Name="Xd"
 Data=Integer(0)
}
Add(GlobalVar,10583399,357,91)
{
 Name="Y"
}
Add(GlobalVar,1347403,350,133)
{
 Name="X"
}
Add(Hub,10333492,238,84)
{
 OutCount=5
 link(onEvent1,3190125:doValue,[])
 link(onEvent2,10583399:doValue,[])
 link(onEvent3,14763113:doValue,[(277,104)(277,139)])
 link(onEvent4,1347403:doValue,[(339,111)(339,139)])
 link(onEvent5,8576339:doClear,[(266,118)(266,138)(229,138)(229,174)])
}
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_24338.txt [3.8KB] [448]
Разработчик
Ответов: 26161
Рейтинг: 2127
#7: 2011-06-08 10:13:41 ЛС | профиль | цитата
Заменил бы ты RegExpr
карма: 22

0
Ответов: 5227
Рейтинг: 587
#8: 2011-06-08 10:21:53 ЛС | профиль | цитата
nesco, зачем усложнять . (у меня раньше всё это в скрипте было, могу vbs вариант воткнуть).

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 26161
Рейтинг: 2127
#9: 2011-06-08 10:26:25 ЛС | профиль | цитата
Так а что он должен делать, этот компонент, это не регулярные выражения, случаем, но у нас уже такой и штатный есть
карма: 22

0
Ответов: 5227
Рейтинг: 587
#10: 2011-06-08 12:06:23 ЛС | профиль | цитата
nesco писал(а):
это не регулярные выражения, случаем
они самые,
nesco писал(а):
но у нас уже такой и штатный есть
а у меня какой тогда получается , чёрт побери что у Вас так всё быстро меняется-то
------------ Дoбавленo в 12.06:
дайте кто-нибудь ссылку на штатный (или его имя)
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 4698
Рейтинг: 426
#11: 2011-06-08 12:30:45 ЛС | профиль | цитата
[svn]RE_Search.pas[/svn] [ RE_Search.ico ] [ RegExpr.pas ]
карма: 10
Мой сайт, Мои рассказы
0
Разработчик
Ответов: 26161
Рейтинг: 2127
#12: 2011-06-08 12:34:46 ЛС | профиль | цитата
Assasin, а на доп модуль где ссылка
карма: 22

0
Разработчик
Ответов: 4698
Рейтинг: 426
#13: 2011-06-08 12:43:43 ЛС | профиль | цитата
nesco писал(а):
Assasin, а на доп модуль где ссылка

Добавил
карма: 10
Мой сайт, Мои рассказы
0
Ответов: 5227
Рейтинг: 587
#14: 2011-06-08 13:19:18 ЛС | профиль | цитата
да, он самый только название старое видать осталось
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 4698
Рейтинг: 426
#15: 2011-06-08 14:05:49 ЛС | профиль | цитата
andrestudio писал(а):
да, он самый только название старое видать осталось

Не совсем, я там немного изменил оригинал, в частности, заменил старые методы на новые (а то там, например, вместо dtInteger применялся индусский код ) и еще парочка изменений
карма: 10
Мой сайт, Мои рассказы
0
ФорумыКуплюПродамфайл txt с переменными ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика