HiAsm
HiAsm
Вверх ↑
ФорумыСхемыДомашний калькулятор расходов ← Ctrl12345678Ctrl →
Этот топик читают: Гость
Ответов: 75
Рейтинг: 2
#16: 2017-04-19 18:07:47 ЛС | профиль | цитата
Эх, Tad... Проблемы сейчас с приходом. У меня кафе. Люди кушают плохо. Или хорошо, но дома) Поэтому остатки денег вижу natural, то бишь в кошельке и на карте. Ну зачем мне программы для этого?

--- Добавлено в 2017-04-19 18:11:22

sla8a, нельзя удалять эту связку. Она для отсечения.

Редактировалось 1 раз(а), последний 2017-04-19 18:11:22
карма: 2

0
Ответов: 2236
Рейтинг: 676
#17: 2017-04-19 18:16:05 ЛС | профиль | цитата
Tri-j писал(а):
нельзя удалять эту связку. Она для отсечения.

Tri-j, Tad, извиняйте, только сейчас заметил.
карма: 11

0
Ответов: 16884
Рейтинг: 1239
#18: 2017-04-19 18:17:16 ЛС | профиль | цитата
Ладно. Прощаем.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: 2
#19: 2017-04-19 18:53:55 ЛС | профиль | цитата
sla8a, пока ещё слабо разбираюсь в слоях. Будем работать над этим. Я когда решил заняться заново программированием, даже не подозревал, что сейчас это так просто. Мы ведь раньше как - каждая строчка кода - вручную. А сейчас - визуал. Жаль, времени маловато для обучения.

--- Добавлено в 2017-04-19 18:55:37

Да блиннн. Куда исчезают сообщения???

Редактировалось 1 раз(а), последний 2017-04-19 18:55:37
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#20: 2017-04-19 19:15:54 ЛС | профиль | цитата
-2


Add(ChildForm,6972833,651,322)
{
}
BEGIN_SDK
  Add(EditMulti,7329282,21,21)
  {
   EventCount=1
   WorkCount=1
   Width=237
   Height=256
   VOffset=49
   link(doWork1,9807588:doWork2,[(30,76)(30,146)])
  }
  Add(MainForm,8655938,189,105)
  {
   Left=450
   Top=200
   Width=274
   Height=212
   Visible=1
   Ctl3D=0
   WinStyle=1
   Point(onShow)
   Point(doVisible)
   Point(doSetFocus)
  }
  Add(Button,10996949,42,70)
  {
   Left=25
   Top=120
   Width=90
   Height=40
   Font=[MS Sans Serif,8,1,0,1]
   Ctl3D=0
   WinStyle=3
   Caption="ОК"
   DefaultBtn=0
   link(onClick,7059710:doEvent1,[])
  }
  Add(Button,6438485,42,105)
  {
   Left=135
   Top=120
   Width=90
   Height=40
   Font=[MS Sans Serif,8,1,0,1]
   Ctl3D=0
   WinStyle=3
   Caption="Отмена"
   link(onClick,4445131:doWork2,[])
  }
  Add(Label,16398093,42,28)
  {
   Left=35
   Top=40
   Width=196
   Height=50
   Font=[MS Sans Serif,10,1,0,1]
   Caption="Удалить пункт списка? "
   AutoSize=1
   Alignment=2
  }
  Add(Hub,7059710,91,70)
  {
   link(onEvent1,7329282:onEvent1,[])
   link(onEvent2,4445131:doWork1,[(112,83)])
  }
  Add(DoData,6210120,42,224)
  {
   @Color=255
   Data=Integer(0)
   link(onEventData,10988421:doEvent2,[(82,230)(82,216)])
  }
  Add(DoData,5998900,42,175)
  {
   @Color=255
   Data=Integer(1)
   link(onEventData,10988421:doEvent1,[(82,181)(82,209)])
  }
  Add(Hub,10988421,91,203)
  {
   @Color=255
   InCount=2
   OutCount=1
  }
  Add(ChanelToIndex,9807588,133,133)
  {
   link(onIndex,8655938:doVisible,[])
  }
  Add(HubEx,4445131,108,105)
  {
   link(onEvent,9807588:doWork1,[(120,111)(120,139)])
  }
END_SDK
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: 2
#21: 2017-04-19 19:27:29 ЛС | профиль | цитата
Tad, Да. Именно так. Пришлось делать рукотворный контрол. Почему-то использование стандартного Message типа Yes/No приводило в некорректному удалению. Двойное появление контролла. Попробуйте вставить его в схему. Хотя, вполне возможно, глючу я, а не прога)

--- Добавлено в 2017-04-19 19:40:11

Tad, интересное решение ликвидации лишних элементов. Возьму на заметку

--- Добавлено в 2017-04-19 19:42:12

Жаль, плюсы не могу ставить, пока не наберу количество сообщений. Админы, что за дискриминация ? Поставьте плюс Таду за меня)

Редактировалось 2 раз(а), последний 2017-04-19 19:42:12
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#22: 2017-04-19 20:27:05 ЛС | профиль | цитата
Tri-j писал(а):
решение ликвидации лишних элементов. Возьму на заметку

Ещё дарю.
Add(MultiElement,10089169,602,133)
{
}
BEGIN_SDK
  Add(EditMulti,871763,21,21)
  {
   EventCount=1
   WorkCount=1
   Width=503
   Height=781
   link(doWork1,2184506:doEnum,[(112,27)(112,97)])
  }
  Add(DSC_Query,1899911,336,77)
  {
   DSManager="parent.parent.db1"
   link(onQuery,8589522:doValue,[])
  }
  Add(Hub,14328593,49,119)
  {
   @Color=255
   OutCount=11
   link(onEvent1,4122569:doString,[(182,125)(182,230)])
   link(onEvent2,216918:doString,[(163,132)(163,188)])
   link(onEvent3,2169388:doString,[(155,139)(155,251)])
   link(onEvent4,14962382:doString,[(148,146)(148,314)])
   link(onEvent5,7298620:doString,[(139,153)(139,377)])
   link(onEvent6,5469362:doString,[(132,160)(132,440)])
   link(onEvent7,1247618:doString,[(123,167)(123,503)])
   link(onEvent8,2031868:doString,[(113,174)(113,566)])
   link(onEvent9,15296548:doString,[(103,181)(103,629)])
   link(onEvent10,14134550:doString,[(94,188)(94,692)])
   link(onEvent11,14438171:doString,[(83,195)(83,755)])
  }
  Add(DSC_Query,11705719,231,182)
  {
   @Color=255
   DSManager="parent.parent.db1"
   link(onQuery,9233927:doText,[])
  }
  Add(DSC_Query,595543,231,245)
  {
   @Color=255
   DSManager="parent.parent.db1"
   link(onQuery,2107179:doText,[])
  }
  Add(DSC_Query,1564591,231,308)
  {
   @Color=255
   SQL=" "
   DSManager="parent.parent.db1"
   link(onQuery,16730499:doText,[])
  }
  Add(DSC_Query,5740353,231,371)
  {
   @Color=255
   DSManager="parent.parent.db1"
   link(onQuery,3789936:doText,[])
  }
  Add(FormatStr,4122569,301,224)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=1 AND mont=%1"
   Point(FString)
   link(Str1,9265394:Var,[])
  }
  Add(GlobalVar,9265394,301,196)
  {
   @Color=255
   Name="mont"
  }
  Add(FormatStr,216918,175,182)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=2 AND mont=%1"
   Point(FString)
   link(onFString,11705719:doQuery,[])
   link(Str1,3204276:Var,[])
  }
  Add(FormatStr,2169388,175,245)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=4 AND mont=%1"
   Point(FString)
   link(onFString,595543:doQuery,[])
   link(Str1,5960627:Var,[])
  }
  Add(FormatStr,14962382,175,308)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=5 AND mont=%1"
   Point(FString)
   link(onFString,1564591:doQuery,[])
   link(Str1,4585440:Var,[])
  }
  Add(FormatStr,7298620,175,371)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=6 AND mont=%1"
   Point(FString)
   link(onFString,5740353:doQuery,[])
   link(Str1,7830215:Var,[])
  }
  Add(GlobalVar,3204276,175,154)
  {
   @Color=255
   Name="mont"
  }
  Add(GlobalVar,5960627,175,217)
  {
   @Color=255
   Name="mont"
  }
  Add(GlobalVar,4585440,175,280)
  {
   @Color=255
   Name="mont"
  }
  Add(GlobalVar,7830215,175,343)
  {
   @Color=255
   Name="mont"
  }
  Add(DSC_Query,5062494,231,434)
  {
   @Color=255
   DSManager="parent.parent.db1"
   link(onQuery,7321364:doText,[])
  }
  Add(FormatStr,5469362,175,434)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=8 AND mont=%1"
   Point(FString)
   link(onFString,5062494:doQuery,[])
   link(Str1,12188689:Var,[])
  }
  Add(GlobalVar,12188689,175,406)
  {
   @Color=255
   Name="mont"
  }
  Add(PC_TableSetCell,7449278,455,77)
  {
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   link(Text,8589522:Value1,[(461,60)(396,60)(396,124)(412,124)])
   link(Row,8589522:Value2,[(475,58)(496,58)(496,122)(419,122)])
  }
  Add(DSC_Query,10831317,231,497)
  {
   @Color=255
   DSManager="parent.parent.db1"
   link(onQuery,10817630:doText,[])
  }
  Add(FormatStr,1247618,175,497)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=9 AND mont=%1"
   Point(FString)
   link(onFString,10831317:doQuery,[])
   link(Str1,11752607:Var,[])
  }
  Add(GlobalVar,11752607,175,469)
  {
   @Color=255
   Name="mont"
  }
  Add(DSC_Query,6717845,231,560)
  {
   @Color=255
   SQL=" "
   DSManager="parent.parent.db1"
   link(onQuery,13744948:doText,[])
  }
  Add(DSC_Query,10316126,231,623)
  {
   @Color=255
   DSManager="parent.parent.db1"
   link(onQuery,6176597:doText,[])
  }
  Add(FormatStr,2031868,175,560)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=9 AND mont=%1"
   Point(FString)
   link(onFString,6717845:doQuery,[])
   link(Str1,2248515:Var,[])
  }
  Add(FormatStr,15296548,175,623)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=10 AND mont=%1"
   Point(FString)
   link(onFString,10316126:doQuery,[])
   link(Str1,1569105:Var,[])
  }
  Add(GlobalVar,1569105,175,595)
  {
   @Color=255
   Name="mont"
  }
  Add(DSC_Query,838182,231,686)
  {
   @Color=255
   DSManager="parent.parent.db1"
   link(onQuery,13666752:doText,[])
  }
  Add(FormatStr,14134550,175,686)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=12 AND mont=%1"
   Point(FString)
   link(onFString,838182:doQuery,[])
   link(Str1,4266317:Var,[])
  }
  Add(GlobalVar,4266317,175,658)
  {
   @Color=255
   Name="mont"
  }
  Add(DSC_Query,3903876,231,749)
  {
   @Color=255
   DSManager="parent.parent.db1"
   link(onQuery,6789801:doText,[])
  }
  Add(FormatStr,14438171,175,749)
  {
   @Color=255
   DataCount=1
   Mask="SELECT SUM (price) FROM domcalc WHERE article=13 AND mont=%1"
   Point(FString)
   link(onFString,3903876:doQuery,[])
   link(Str1,11345706:Var,[])
  }
  Add(GlobalVar,11345706,175,721)
  {
   @Color=255
   Name="mont"
  }
  Add(GlobalVar,2248515,175,532)
  {
   @Color=255
   Name="mont"
  }
  Add(PC_TableSetCell,9233927,462,182)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=1
  }
  Add(PC_TableSetCell,2107179,462,245)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=2
  }
  Add(PC_TableSetCell,16730499,462,308)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=3
  }
  Add(PC_TableSetCell,3789936,462,371)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=4
  }
  Add(PC_TableSetCell,7321364,462,434)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=5
  }
  Add(PC_TableSetCell,10817630,462,497)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=6
  }
  Add(PC_TableSetCell,13744948,462,560)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=7
  }
  Add(PC_TableSetCell,6176597,462,623)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=8
  }
  Add(PC_TableSetCell,13666752,462,686)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=9
  }
  Add(PC_TableSetCell,6789801,462,749)
  {
   @Color=255
   ItemName="table"
   Document="parent.MainPage"
   Col=1
   Row=10
  }
  Add(StrList,5594787,189,28)
  {
   Strings=#1:1|1:2|1:4|1:5|1:6|1:8|1:9|2:10|2:12|2:13|2:14|2:15|2:17|2:18|2:19|2:20|2:21|2:22|0:|
  }
  Add(ArrayEnum,2184506,203,91)
  {
   link(onItem,4411089:doString,[(251,97)(251,83)])
   link(onEndEnum,871763:onEvent1,[(258,104)(258,27)])
   link(Array,5594787:Array,[])
  }
  Add(FormatStr,4411089,266,77)
  {
   DataCount=3
   Mask="SELECT SUM (price), %1 FROM domcalc WHERE article=%2 AND mont=%3"
   Point(FString)
   link(onFString,1899911:doQuery,[])
   link(Str1,2184506:Index,[(272,65)(244,65)(244,135)(216,135)])
   link(Str3,12618233:Var,[])
  }
  Add(GlobalVar,12618233,280,49)
  {
   Name="mont"
  }
  Add(MT_MultiMem,8589522,406,77)
  {
   link(onData,7449278:doText,[])
  }
END_SDK

Всё красное и следующий мультик - долой.

Эта вся задача требует максимум компонент 100-150, но никак не 400

Редактировалось 2 раз(а), последний 2017-04-19 20:30:30
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:Tri-j
Ответов: 75
Рейтинг: 2
#23: 2017-04-19 21:15:41 ЛС | профиль | цитата
Tad, я подозревал, что это можно было решить проще. Как и сделано у тебя. Но механическое мышление привело к такому решению. Ещё раз спасибо)
карма: 2

0
Ответов: 9906
Рейтинг: 351
#24: 2017-04-19 23:31:00 ЛС | профиль | цитата
Tad писал(а):
Приведи правильное решение.


Якiй ти в чорта лыцарь, коли голою сракою ежака не вбъешь? 
Add(TreeView,10641460,196,112)
{
 Left=24
 Top=4
 Width=325
 Height=532
 Font=[MS Sans Serif,10,0,0,1]
 Name="tree1"
 Strings=#7:Питание|1:(|8:Продукты|14:Кафе, ресторан|1:)|9:Транспорт|1:(|7:Топливо|10:Ремонт а/м|22:Общественный транспорт|1:)|16:Платежи и налоги|1:(|20:Коммунальные платежи|24:Налоги, сборы, страховки|13:Пожертвования|1:)|4:Дети|1:(|18:Кружки, муз. школа|8:Гимназия|16:Школьное питание|17:Карманные расходы|1:)|15:Бытовые расходы|1:(|13:Одежда, обувь|9:Лекарства|25:Мебель, инструменты и др.|7:Питомцы|7:Подарки|22:Прочие бытовые расходы|1:)|
 FileName="C:\Kuhnya2\Spisok1.txt"
 Icons=[]
 Point(Index)
 link(onClick,5115865:doSet,[])
}
Add(MultiSetParam,5115865,266,119)
{
 Parameters=#2: ;|2:1;|2:1;|2: ;|2:1;|2:1;|2:1;|2: ;|2:1;|2:1;|2:1;|2: ;|2:1;|2:1;|2:1;|2:1;|2: ;|2:1;|2:1;|2:1;|2:1;|2:1;|3:1; |
 Count=1
 Point(Index)
 link(onSet1,3385217:doBeep,[])
 link(Index,10641460:Index,[(279,110)(258,110)(258,152)(216,152)])
}
Add(Beep,3385217,329,119)
{
 Duration=200
}

Редактировалось 1 раз(а), последний 2017-04-20 00:09:44
карма: 9

1
Голосовали:sla8a
Ответов: 75
Рейтинг: 2
#25: 2017-04-20 09:41:31 ЛС | профиль | цитата
Galkov, знание - сила, что не требует доказательств) А мне пришлось методом тыка обучаться. Поэтому и получается кривовато. Да и не на каждый компонент в вики есть пример. На MultiSetParam, кстати, и нету.
карма: 2

0
Ответов: 2236
Рейтинг: 676
#26: 2017-04-20 11:10:49 ЛС | профиль | цитата
Galkov, так наверное проще:
Удалил символ разделитель


Add(MainForm,2953706,287,126)
{
 Width=506
 Height=591
}
Add(TreeView,10641460,350,126)
{
 Left=24
 Top=4
 Width=325
 Height=532
 Font=[MS Sans Serif,10,0,0,1]
 Name="tree1"
 Strings=#7:Питание|1:(|8:Продукты|14:Кафе, ресторан|1:)|9:Транспорт|1:(|7:Топливо|10:Ремонт а/м|22:Общественный транспорт|1:)|16:Платежи и налоги|1:(|20:Коммунальные платежи|24:Налоги, сборы, страховки|13:Пожертвования|1:)|4:Дети|1:(|18:Кружки, муз. школа|8:Гимназия|16:Школьное питание|17:Карманные расходы|1:)|15:Бытовые расходы|1:(|13:Одежда, обувь|9:Лекарства|25:Мебель, инструменты и др.|7:Питомцы|7:Подарки|22:Прочие бытовые расходы|1:)|
 FileName="C:\Kuhnya2\Spisok1.txt"
 Icons=[]
 Point(Index)
 link(onClick,5115865:doSet,[])
}
Add(MultiSetParam,5115865,420,133)
{
 Parameters=#1: |1:1|1:1|1: |1:1|1:1|1:1|1: |1:1|1:1|1:1|1: |1:1|1:1|1:1|1:1|1: |1:1|1:1|1:1|1:1|1:1|2:1 |
 Char=""
 Count=1
 Point(Index)
 link(onSet1,3385217:doBeep,[])
 link(Index,10641460:Index,[(433,121)(401,121)(401,176)(370,176)])
}
Add(Beep,3385217,483,133)
{
 Duration=200
}
карма: 11

0
Ответов: 9906
Рейтинг: 351
#27: 2017-04-20 11:33:35 ЛС | профиль | цитата
Можно, еще и пробелы поубирать

А если серьезно - замороченный элемент. Методом тыка разобраться - трудновато будет, мягко говоря.
Тут, глядя в коды -- только под "красное винцо" разобраться и получается.

Идея элемента правильная, а вот исполнение -- диковатое

Редактировалось 1 раз(а), последний 2017-04-20 11:53:57
карма: 9

0
Ответов: 1535
Рейтинг: 176
#28: 2017-04-20 12:00:29 ЛС | профиль | цитата
Как вариант:

Add(MainForm,2953706,133,56)
{
 Height=593
}
Add(TreeView,10641460,196,70)
{
 Left=24
 Top=4
 Width=325
 Height=532
 Font=[MS Sans Serif,10,0,0,1]
 Name="tree1"
 Strings=#7:Питание|1:(|8:Продукты|14:Кафе, ресторан|1:)|9:Транспорт|1:(|7:Топливо|10:Ремонт а/м|22:Общественный транспорт|1:)|16:Платежи и налоги|1:(|20:Коммунальные платежи|24:Налоги, сборы, страховки|13:Пожертвования|1:)|4:Дети|1:(|18:Кружки, муз. школа|8:Гимназия|16:Школьное питание|17:Карманные расходы|1:)|15:Бытовые расходы|1:(|13:Одежда, обувь|9:Лекарства|25:Мебель, инструменты и др.|7:Питомцы|7:Подарки|22:Прочие бытовые расходы|1:)|
 FileName="C:\Kuhnya2\Spisok1.txt"
 Icons=[]
 Point(Index)
 link(onClick,12713444:doExec,[])
}
Add(RE_Search,12713444,259,77)
{
 Expression="^(0|3|7|11|16)"
 link(onNotFound,14850461:doEvent,[])
 link(SourceStr,10641460:Index,[(265,65)(241,65)(241,120)(216,120)])
}
Add(Debug,14850461,315,84)
{
}

Редактировалось 2 раз(а), последний 2017-04-20 12:04:16
карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
Голосовали:sla8a
Разработчик
Ответов: 26113
Рейтинг: 2126
#29: 2017-04-20 12:25:04 ЛС | профиль | цитата
Galkov писал(а):
Тут, глядя в коды -- только под "красное винцо" разобраться и получается.

Да там кода -- кот наплакал, че там можно было еще проще сделать?

ser_davkin писал(а):
Как вариант

Ну, тут только один недостаток -- непомерный вес компонентов RE_XXXX
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#30: 2017-04-20 16:45:31 ЛС | профиль | цитата
Tri-j, Вот немного почистил.
Может быть где-то и лишнее удалил.
Почему datr chr, а не REAL ? Непонятно...
Зачем хранить datr, datint и mont
datint = CAST(datr AS INTEGER)
mont = strftime('%m', datr)

Редактировалось 1 раз(а), последний 2017-04-20 16:52:58
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
ФорумыСхемыДомашний калькулятор расходов ← Ctrl12345678Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика