Вверх ↑
Этот топик читают: Гость
Ответов: 75
Рейтинг: 2
#1: 2017-11-26 19:14:00 ЛС | профиль | цитата
Спасибо создателям HIASMа ! Смастерил очередное киберчудо) Чисто в практических целях, ещё не пробовал на практике, но по задумке - меню для посетителей, выводящееся на второй экран. Вот куплю монитор приличный, опробую в деле. Пока - теория. Если кому несложно - подскажите один момент в программе. Там смена фона идёт, по программе - каждые 3 секунды (это для наглядности, в реале один раз в пять минут нужно). Так вот. Когда картинки кончаются и прога должна перейти к первой картинке, таймер снова срабатывает. Т.е., последняя картинка висит в два раза дольше остальных. Почему? Не понимаю. И да, раскритикуйте, пожалуйста, схему. Критика очень помогает лучше соображать

карма: 2

0
файлы: 1Menu.rar [2.1MB] [601]
Ответов: 1376
Рейтинг: 197
#2: 2017-11-26 20:44:13 ЛС | профиль | цитата
Tri-j писал(а):
последняя картинка висит в два раза дольше остальных. Почему? Не понимаю.

Tri-j, у StrList есть нижняя точка EndIdx, используй её вместо Count

Редактировалось 1 раз(а), последний 2017-11-26 20:46:35
карма: 1

0
Ответов: 8926
Рейтинг: 823
#3: 2017-11-26 21:15:47 ЛС | профиль | цитата
Tri-j, у вас в списке картинок ШЕСТЬ строк, включая папку, где картинки
ШестьСтрок.jpg
Чуть изменить


Add(Img_Loader,7106908,224,665)
{
link(onLoad,8621719:doResize,[])
}
Add(Resize,8621719,287,665)
{
Width=900
Height=1600
Point(Result)
link(onResult,4752741:doEvent1,[])
}
Add(Timer,2603105,105,525)
{
Interval=3000
Enable=1
Point(doAutoStop)
link(onTimer,11517104:doWork2,[])
}
Add(StrList,1978951,161,567)
{
}
Add(ArrayRW,11082523,175,665)
{
link(onRead,7106908:doLoad,[])
link(Array,1978951:Array,[])
link(Index,5357826:Count,[(188,642)(223,642)])
}
Add(Hub,4752741,329,665)
{
}
Add(FileSearch,15219650,105,483)
{
Ext="*.jpg"
SubDir=1
Include=2
link(onSearch,1978951:doAdd,[(144,489)(144,573)])
link(Dir,8893115:FString,[])
}
Add(HubEx,11517104,147,525)
{
link(onEvent,5357826:doNext,[])
}
Add(Counter,5357826,217,525)
{
Default=-1
Point(doMax)
link(onNext,11082523:doRead,[(263,531)(263,650)(165,650)(165,671)])
}
Add(Hub,12141842,63,504)
{
OutCount=4
link(onEvent1,15219650:doSearch,[(88,510)(88,489)])
link(onEvent2,6753559:doOperation,[(88,517)(88,636)])
link(onEvent3,11517104:doWork1,[(151,524)])
link(onEvent4,2603105:doTimer,[])
}
Add(Math,6753559,105,630)
{
OpType=1
Op2=1
ResultType=0
link(onResult,5357826:doMax,[(200,636)(200,552)])
link(Op1,1978951:Count,[(111,621)(174,621)])
}
Add(FormatStr,8893115,112,441)
{
DataCount=1
Mask="%1screen\"
Point(FString)
link(onFString,12141842:doEvent1,[(151,447)(151,454)(53,454)(53,510)])
}

карма: 19

0
Ответов: 75
Рейтинг: 2
#4: 2017-11-27 09:45:55 ЛС | профиль | цитата
Леонид, у меня, как обычно, всё не как у людей))) У меня ПЯТЬ строк

foksov писал(а):
Tri-j писал(а):
последняя картинка висит в два раза дольше остальных. Почему? Не понимаю.

Tri-j, у StrList есть нижняя точка EndIdx, используй её вместо Count


foksov, а это помогло, спасибо !
Леонид, у Вас, видимо, элемент FileSearch работает корректно. У меня - нет. У Вас папку показывает потому, что Include = All, а у меня что All, что Files - результат один. Глючный элемент, я с ним экспериментировал много, он вообще перестаёт файлы искать, если настройки много менять, а потом возвращать обратно. Приходилось удалять и ставить по-новой.

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

0
Ответов: 1535
Рейтинг: 176
#5: 2017-11-29 17:02:19 ЛС | профиль | цитата
Tri-j,

плавный переход гораздо приятнее, чем скачущая картинка


Add(MainForm,2122012,287,315)
{
Caption="Пример использования Img_Tween"
link(onCreate,13840656:doLoad,[(340,335)(340,349)])
}
Add(Image,5582365,427,343)
{
Left=95
Top=55
Width=180
Height=140
}
Add(Img_Tween,13840656,357,343)
{
link(onTween,5582365:doLoad,[])
link(BitmapA,6378963:ImageBitmap,[(363,327)(342,327)])
link(BitmapB,15757945:ImageBitmap,[(370,327)(384,327)])
}
Add(Image,6378963,336,280)
{
Left=100
Top=15
Picture=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF19A61932E0C420794218973A72F4CBC9C991AD1FA41786A9693FB630A3B6FF29097F72ECA4A67E6AA49FE3C78F636072F483E28F5CFDC8E9879AF6239B8B9CBEA8E97F72C31F003E185201]
}
Add(Image,15757945,378,280)
{
Left=220
Top=15
Picture=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF47311AA6245C2809576201257AF1B98D52FD94FA9F1AE13F8A49C300CEEE8FFA]
}
Add(ScrollBar,8163229,287,350)
{
Left=40
Top=215
Width=305
Max=255
link(onPosition,13840656:doTween,[])
}

карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#6: 2017-11-29 18:41:41 ЛС | профиль | цитата
Tri-j писал(а):
раскритикуйте, пожалуйста, схему
Только без обид.
1. А где компот? Кофе? Чай? Соки? Воды? и т.д.
Если захочешь их добавить, то что? Изменять схему, компилировать по-новой или как?
Нужна таблица видов товаров.
2. Я бы делал две отдельные программы.
Одну для повара.
Вторую для зала.
3. Затея с меню с меняющимся фоном (по-моему) - плохая идея.
Поговори с психологами.
Вид Меню на фоне грязной, а твои картинки производят именно такое впечатление, еды не способствуют ни аппетиту, ни увеличению продаж.
4. Про схему говорить не буду. Нет слов... Боюсь забанят.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: 2
#7: 2017-11-29 19:55:40 ЛС | профиль | цитата
Tad,
1. Это меню кухни. Меню бара (компот и т.д.) стабильно и не меняется, поэтому просто стоит на табличке в неизменном распечатанном виде. Я ведь под себя, точнее, под нужды своего заведения программу делал, нужен был бы компот - он бы был.
2. Повару не нужны программы и мониторы. Ему нужны руки, растущие, желательно, от плеч, а не из какого-то другого места.
3. По поводу картинок - считаю нужной смену фона. Однообразие надоедает. Грязные? Можно подобрать другие, по своему вкусу. Вот про плавный переход картинок - это да, класс! Спасибо за подсказку ser_davkin
4. Знаю. Не идеальная. Много "лишнего", которое, на самом деле, обычная защита от дурака. Возможно, это должно выглядеть проще. Но я старался... И она - работает)))

Редактировалось 2 раз(а), последний 2017-11-29 20:14:44
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#8: 2017-11-30 11:27:27 ЛС | профиль | цитата
Просто так.
Tri-j писал(а):
Повару не нужны программы и мониторы.
Но про "Суп готов" сообщает повар.

Редактировалось 3 раз(а), последний 2017-11-30 13:23:49
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1myver.rar [1.3MB] [503]
Ответов: 1535
Рейтинг: 176
#9: 2017-11-30 17:23:47 ЛС | профиль | цитата
Tri-j, применяй размытие. Это подчеркнёт внимание на списке меню. А паузу между сменой картинки примерно 20 секунд.

Add(MainForm,2953706,203,70)
{
Width=269
Height=286
link(onCreate,8012839:doFor,[])
}
Add(Img_Tween,13642537,476,154)
{
BackColor=16711935
link(onTween,10860671:doBlur,[])
link(BitmapA,7311992:Value,[])
link(BitmapB,3734189:Value,[])
link(DiffB2A,3566618:Count,[(496,142)(515,142)(515,256)(83,256)])
}
Add(ArrayRW,2126799,378,84)
{
link(onRead,12691009:doEvent,[])
link(Array,1363345:Array,[])
}
Add(Image,16708199,574,154)
{
Left=20
Top=15
Width=220
Height=220
Color=16777215
}
Add(Timer,9120886,392,203)
{
@Color=65450
Interval=20
Enable=1
link(onTimer,3566618:doNext,[(436,209)(436,245)(56,245)(56,188)])
}
Add(Memory,3734189,483,91)
{
@Color=65535
link(onData,16015567:doWork3,[(529,97)])
}
Add(Memory,7311992,476,84)
{
@Color=65535
link(onData,16015567:doWork2,[])
}
Add(IndexToChanel,12691009,427,84)
{
@Color=65535
Point(Index)
link(onEvent1,7311992:doValue,[])
link(onEvent2,3734189:doValue,[])
link(Index,2025809:Count,[(433,73)(539,73)(539,128)(552,128)])
}
Add(CounterEx,2025809,546,84)
{
@Color=65535
Max=1
link(onNext,13642537:doLoad,[(590,90)(590,132)(464,132)(464,160)])
}
Add(HubEx,16015567,525,84)
{
link(onEvent,2025809:doNext,[])
}
Add(CounterEx,8851724,329,84)
{
Max=3
Default=1
link(onNext,2126799:doRead,[])
}
Add(Timer,6933229,329,203)
{
@Color=65450
Interval=5000
AutoStop=1
link(onTimer,9120886:doTimer,[])
AddHint(1,-23,39,13,Interval)
}
Add(Hub,6972264,294,189)
{
@Color=65450
OutCount=4
link(onEvent1,4030534:doWork3,[(319,195)])
link(onEvent2,9120886:doStop,[(377,202)(377,216)])
link(onEvent3,6933229:doTimer,[])
link(onEvent4,3566618:doDirect,[(318,216)(318,234)(65,234)(65,195)])
}
Add(For,8012839,252,84)
{
End=1
link(onEvent,4030534:doWork2,[])
link(onStop,4076593:doWork1,[(308,97)])
}
Add(HubEx,4030534,315,84)
{
link(onEvent,8851724:doNext,[])
}
Add(PBlur,10860671,525,154)
{
Step=1
link(onBlur,16708199:doLoad,[])
}
Add(BitmapArray,1363345,378,35)
{
Bitmaps=['Bitmap'=[ZIP3609000078DACD955D6C0C511886DF920891B495880EF5332458176551ED52ADA5960D21DBA0B6EA625C88D534CD123F15554282884425345322FE4A5A82BDA86684B0A162554423A9B411F402D93B7BE1627B35CEF7CD9EE934B57EEAC6266FF6CC9999E73DEFF9CE39B3625DC118F0AF40C825A4A49401D5BA91BAEFFC99A6F9DFE9F1E77BD8D6518655EDEBE1BBBF19BEF620D63DDC88AA57E5887E69FB27F6A5B767B168BF8A85FB27A2F0D4642C3E3F9D55786222F20F8C47E999D9B8D6D3382C76A4FB266604B230D3371E7BCEEDB4FB9FBF7FC47E732BA7F23DF2A767FF96BFA4CE859CBC1128AB5A6EF7555FDECAFDAB4E97B067DBE33BFC4CF90DAFFD4C385C8B5028CCD2B4905000C1A08640C0CBF2FB3DF07BDD50D76422377F147A3F75F37B8547E760C9051F8BF8925751E5C7829AE956E62B01E80D24BF90175EAF0B0D275DD06B15165D6BC16C56DE9A5C4C2B1ACBEF757E788AA2AB2B516454A3E8C1AE2159779FDBCEFF46C43FC88338C4971E4EBE735E4889FE6F165F68E9DD62F6A4FED96B7330479BC0ED981142B425842BBAC61E5A50E11CD283F8E4437CAA5BF9E1817958D6AAA224B29A55D15ECC7D1DEF1E206FD324AC3CE1B6F8D1306291B0EDA1696A2A8BD7E6CB2C1B9AE76161F5485C7852872DADB3B0E2FA68686D3EB4740FAC47EFA14CCCDF91C9FD74ED1C2BB16D05AD31135FCAF8781BA54D59F01C038A1B3398FF261E65CEF7FE04CA2E4E41C14120D03AD3DE673D5D3ABAA227D165D4720E6253165913F270B92CA9AA8A66B1BFCA22F3984F2AD147B2D8EFFC38541AC5B8D5DB64E7617EEC88ED4139E47C9107E52036CD8FCC49753CDE598F032FF660EFD31AEC7B16E6F6A997F5E8FEFA7AD01AE8EBD1D943FAD0FB320B79501EE2537F44F7C34C46459D68EEC4D9A928DCCECECE4EBFE7C5186DE9FE9FD6C32DF8B48E4D33C672F2A5D2F113F118E27D869D833C3C1E95E5762BB6243B99E8613E89B8D2E7977C8707E520B61CBB95C5AA2DB14D33CE223EF511DFA5A6FF8ED03B89449F9DC3C927B6691ACC70AE23B99648D227FDB918670FF6111E4E3EB1A99E4EBED51E90F4F9E5B99EAAAFAC2DB1C94BCEB9C552B8CE924BDE346FE4FB3BBE256390E4DC4831DFADD86C279F72FDC9F7A3A5C1C319A486AC535E47C6B0F996680D360885C4D96AF193495D5C1F11F734CE918C2BE25CF488FDA80D836FF21E18BAD7DC768E40EA7B26CF3DF248C7FA01B0C6463D],'Bitmap'=[ZIP3609000078DAB596DB6BD3501CC7BF22087BB043101441D910411F7CDD1FE063C17FC217A90F197B5024C2D0A1160A56D7C9DCDC1C73132FD8152FA57841C656AC54ED0AD3323B5B5857D74DA55DD74B96EC76EC3969B6A64D9AD66AE0C309279CCFF99E5F92939C3ADDD60476B415385EE060915D68912F14AF971E8490BFC6643255D0884FCBBFBBCB0B9CE9C51EABBF61BF565EEAA5FEBD37BEFE137F79DE265B10E05F635F4FC4D0FFF2824585EB52079E5E6CDF462B2F6DA97B7F6FCCF01EDCE72C48F8DCBA68E5A5ED81FE051CBAF79B61E48F4567407E05407EF841A26F41BEBF0209BBB7B369E5A5DE232359B48C0A55FDCF3B3BB0189F03796F07F1DD52B5745C73F7AC665EEA3EFA788351CDFFC67A1E4B8938487A5ECD4FB9D634B3E22ECD7BCC9DC78977124EFAAAFB276FF2482693EAFC45943A28EED2BCB5BE5F1FEF7422B59C0659CFC8E4E2328535D0B18747936875662AF2721C07B3D96CE80F0E5C467A25AB597F650DE5783C1E381C0E3687D11ABE0C7721935B05D9DC00119232990599F8073696E779555EEAA7D07EA3FCDF1E5C435658D37D7EF4F2D65AFFC8132B72AB929C9FA264A724A634F34ED8F99AF797B9311BF2D27A5DF5AFC7BFE8B14310849DBEADCDC2732482ACE541C4959D7BF26902C4E502191AAADB2F8AA26E7E5AA78173160C5ACE32E839A51EBF2456CF4FF7D1ADCFFD483DE3101CBC82F16E9BCA51ED9BB8347E179224A9FB9539488ECD41FDA999318446AE56B88DFC24E46435C8C4A24847A719CBE100C2D3538C79BF97F9671F5D876FD851E155DC7ADFF6ACB7B0EEC9DB88BCE843C8D987C0C31EE62945F1EB656CF49FC188FFED2FE70F9ECF1865],'Bitmap'=[ZIP3609000078DAAD956B4853611CC69FBED58720E843A10952142105F541930CCD48CAD03E8C44255A628A8AD7A9792F6FD399DBCCBBA243A74EDB4C3153D14CCB9452C32E5E314D03CB9929DE51E7D475CEEB259D32CFAA030FBCBCE79CE7D9EFFDEFE15CB1363A007219513A4DE9E8BAF6417FEDC6FAFDAD974AA5DA5391AEB7C075B703CFEB36B5B6218A70B181AF9D057C6CAFC28365867B96869B62E2B92111D71F2B932318EA6E43EFDB1768792EC16B6926EA0BD3509B9F8C6A71022A447CE43E0A46BCAF039C6E5CD02A43CC0B804AA980726A148AB12128C6290DF761FEEB07CC76D463FA7D397E353EC1546D064AD37984471B0EE2AFBEBFB28CE5C539282646313F328805793FA6BA1A095398130BEE2C53C619B4BF44100689F0010AF8A110C70521871788EC683F644571901EEE0D5E7408F8A15E480A714362900B02D95670BD69C298212EBB00750B2AC8269620FAA904EF9B123E1D0B70689D05AB611226CFE4D04D6D868D1B0789312110F83B82439D93B3F54546FE825C291AE655A89C58849452BA5C89E801257C7B1460B7CCE17AED384E887B60E51305E3F81224857923C6C39E6430F14FC87F8AFDF70F6E53FED80A92E5ABE00EAE82D3A9846DF312EE46A44027E51DE188F1732619DAF81F2E3E8E43457A642D1417839725416C6601622845155621B87D06BA599F0987517C29627D1C18F567C35FA7FC2CC9A0D7B2EE0194CD280987F0FB2A22075611FA658570DC0915128ECB6C4F8DFD513F9393F5A63856797EC7FE26475611B8455508FA340D3D513BACBC2334F6877EF75297230C3FDAE35C2B0B679A2C71EA9539C9A1598E9419906736381287D7E6F1B0EF0F87A6FED0EF9AF7791219B7B3490E9D61F0E61AC9D0AF3122CFF073A4DBE791910F6E7A1E0278C91AFBA37E0E66BDAE84477D9F9E8F90D2BFF487F6B118E01016E2595082C79252E2FD3FFA437B5ACBC389E8B5B6FD69A47E7FFDF4125ECE2C6DCE6B6B7FD4CF44DBFE08F38A2110CBC0A75876CC6B8FFE30F1AF944FA0666A1169437348A0CE95697F987E47E80C5AA965351037B54140AD05B9B2ED1CBBF4479B6F21ED5F4171544F2E22E3C71C92A4E59075F66BEC8F36FE5B39322AEA08C7AEF3D8D21F6DFD4906F5DFAE1899241C641E7BF4E76F3398F647937E033BCFEE7C],'Bitmap'=[ZIP3609000078DA73F235E36400033320D600620928666450804840E591C1FFFFFF473191B8A5A985815A0097F930F6B1C3C7C8660FA4F9207594624ADD0FD40DC6B40A1F4ACCA767F8107227A5E1430BF3691E3E7057938F89359FA4F2800CF3A9E97E6A966DB8CC27A7CC050162E29712F361FA61E90FAFF9A4843592F930402BF7A3E64BECE6938349A9BF862206006F3DF547]]
}
Add(HubEx,4076593,304,161)
{
link(onEvent,13642537:doTween,[])
}
Add(CounterEx,3566618,77,182)
{
@Color=65450
Max=300
Step=5
Point(doDirect)
link(onNext,8907652:doEvent1,[])
}
Add(ChanelToIndex,8407477,252,189)
{
@Color=65450
link(onIndex,6972264:doEvent1,[])
}
Add(If_else,9906945,154,189)
{
@Color=65450
Op2=Integer(0)
link(onTrue,8407477:doWork1,[])
link(onFalse,3957713:doCompare,[])
}
Add(If_else,3957713,203,196)
{
@Color=65450
Op2=Integer(300)
link(onTrue,8407477:doWork2,[])
}
Add(Hub,8907652,126,182)
{
@Color=65450
link(onEvent1,4076593:doWork3,[(308,188)])
link(onEvent2,9906945:doCompare,[])
}


Редактировалось 3 раз(а), последний 2017-11-30 21:17:08
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 75
Рейтинг: 2
#10: 2017-11-30 19:34:43 ЛС | профиль | цитата
Tad писал(а):

Но про "Суп готов" сообщает повар.

Это да) "Катя, солянку поставь!!!" Даже я в кабинете через закрытую дверь слышу

--- Добавлено в 2017-11-30 19:43:30

ser_davkin, пока ковыряюсь ещё с Img_Tween. Получается, но не очень. Времени маловато углубиться в тему. Но ничего, спешка ни к чему. И PBlur приделаю. Это то, что надо. Вот умеешь ты давать конкретные советы и по теме. Спасибо! А некоторые тут только и умеют покричать - "А компот???"

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

0
Ответов: 16884
Рейтинг: 1239
#11: 2017-12-01 11:29:53 ЛС | профиль | цитата
Пример (совет) от некоторых.

Add(MainForm,2953706,105,119)
{
Point(onClose)
link(onCreate,1846982:doOpen,[])
link(onClose,1846982:doClose,[])
}
Add(DS_SQLite,1846982,175,133)
{
Name="db1"
FileName="kafe3j.db"
Point(onError)
link(onOpen,5929102:doWork1,[])
}
Add(ChildForm,5929102,245,133)
{
}
BEGIN_SDK
Add(EditMulti,12178062,0,0)
{
WorkCount=1
Width=636
Height=333
VOffset=112
link(doWork1,14727689:doShowModal,[])
}
Add(MainForm,14727689,77,84)
{
Left=100
Top=70
Width=980
Height=760
Visible=1
Ctl3D=0
WinStyle=1
Point(doShowModal)
Point(onShow)
}
Add(Message,8412109,455,168)
{
Message="Такое блюдо уже есть в меню!"
Caption="Корректировка меню"
Icon=1
}
Add(ListBox,11009138,280,266)
{
Left=592
Top=35
Width=340
Height=665
Font=[Times New Roman,14,1,0,204]
Name="Меню дня"
DataType=1
Sort=0
ItemHeight=30
BoxDrawManager="men1"
link(onClick,4210432:doString,[])
}
Add(ListBox,10409034,280,154)
{
Left=250
Top=35
Width=340
Height=665
Font=[Times New Roman,14,1,0,204]
Name="База блюд"
DataType=1
Sort=0
ItemHeight=30
BoxDrawManager="men1"
Point(String)
link(onClick,15895693:doString,[])
}
Add(BoxDrawManager,6132037,77,42)
{
Name="men1"
Gutter=1
StyleBack=1
BumpText=0
TextAlign=2
InversClrTxt=0
DepthBack=50
}
Add(Button,13713962,14,147)
{
Left=35
Top=35
Width=140
Height=40
Font=[Times New Roman,12,1,0,204]
Name="Отдел 0"
Caption="Салаты"
Data=Integer(0)
link(onClick,10106947:doWork1,[])
}
Add(Button,13506105,14,182)
{
Left=35
Top=90
Width=140
Height=40
Font=[Times New Roman,12,1,0,204]
Name="Отдел 1"
Caption="Супы"
Data=Integer(1)
link(onClick,10106947:doWork2,[(58,188)(58,160)])
}
Add(Button,11866264,14,217)
{
Left=35
Top=145
Width=140
Height=40
Font=[Times New Roman,12,1,0,204]
Name="Отдел 2"
Caption="Вторые"
Data=Integer(2)
link(onClick,10106947:doWork3,[(58,223)(58,167)])
}
Add(Button,2136408,14,252)
{
Left=35
Top=200
Width=140
Height=40
Font=[Times New Roman,12,1,0,204]
Name="Отдел 3"
Caption="Гарниры"
Data=Integer(3)
link(onClick,10106947:doWork4,[(58,258)(58,174)])
}
Add(Button,1079686,21,77)
{
Left=30
Top=625
Width=200
Height=40
Font=[Times New Roman,12,1,0,204]
Caption="Закрыть"
link(onClick,14727689:doClose,[(67,83)(67,111)])
}
Add(Label,14714966,280,112)
{
Left=370
Top=5
Width=105
Height=23
Font=[Times New Roman,10,1,16711680,204]
Caption="БАЗА БЛЮД"
}
Add(Label,8243455,280,224)
{
Left=710
Top=5
Width=104
Height=23
Font=[Times New Roman,10,1,16711680,204]
Caption="МЕНЮ ДНЯ"
}
Add(DSC_Query,9026971,224,154)
{
DSManager="parent.db1"
link(onQuery,10409034:doAdd,[])
}
Add(FormatStr,721192,182,154)
{
DataCount=1
Mask="SELECT name FROM dishes WHERE depart=%1 "
Point(FString)
link(onFString,9026971:doQuery,[])
link(Str1,1082089:Var3,[(188,134)])
}
Add(DSC_Query,14098414,224,266)
{
DSManager="parent.db1"
link(onQuery,11009138:doAdd,[])
}
Add(FormatStr,445150,168,266)
{
DataCount=1
Mask="SELECT name FROM menutoday WHERE depart=%1 "
Point(FString)
link(onFString,14098414:doQuery,[])
link(Str1,1082089:Var2,[])
}
Add(FormatStr,1213593,511,161)
{
DataCount=1
Mask="INSERT INTO menutoday SELECT depart,name,price,size from dishes WHERE name='%1';"
Point(FString)
link(onFString,3641727:doWork1,[(557,167)])
link(Str1,10409034:String,[(517,149)(498,149)(498,207)(307,207)])
}
Add(DSC_Query,3057567,371,161)
{
DSManager="parent.db1"
link(onQuery,2175421:doCompare,[])
}
Add(FormatStr,15895693,329,161)
{
DataCount=1
Mask="SELECT count() FROM menutoday WHERE name='%1';"
link(onFString,3057567:doQuery,[])
}
Add(If_else,2175421,413,161)
{
link(onTrue,1213593:doString,[])
link(onFalse,8412109:doMessage,[])
}
Add(ChanelToIndex,10106947,70,147)
{
Count=4
Point(Data)
link(onIndex,12173182:doEvent1,[])
}
Add(Hub,12173182,119,147)
{
OutCount=3
link(onEvent1,10409034:doClear,[(269,153)(269,167)])
link(onEvent2,721192:doString,[])
link(onEvent3,9944845:doEvent1,[(137,167)(137,265)])
}
Add(GetDataEx,1082089,168,129)
{
Angle=3
link(Data,10106947:Data,[(113,134)(113,192)(76,192)])
}
Add(Hub,9944845,140,259)
{
InCount=2
link(onEvent1,11009138:doClear,[(266,265)(266,279)])
link(onEvent2,445150:doString,[])
}
Add(DSC_Exec,6997576,567,273)
{
DSManager="parent.db1"
link(onExec,9944845:doEvent2,[(606,279)(606,314)(128,314)(128,272)])
}
Add(FormatStr,4210432,329,273)
{
DataCount=1
Mask="DELETE FROM menutoday WHERE name='%1'; "
Point(FString)
link(onFString,3641727:doWork2,[])
}
Add(HubEx,3641727,553,273)
{
link(onEvent,6997576:doExec,[])
}
END_SDK
Add(PointHint,10261334,196,112)
{
Info=#8:Меню дня|
Height=18
}


Редактировалось 1 раз(а), последний 2017-12-01 11:30:58
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: 2
#12: 2017-12-02 19:44:52 ЛС | профиль | цитата
Tad, Спасибо большое) Это серьёзно всё упрощает. Век живи - век учись - дураком помрёшь - это один из моих жизненных принципов. Продолжаем учиться
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#13: 2017-12-02 20:46:13 ЛС | профиль | цитата
Tri-j, когда работаешь с БД, то просто не надо об этом забывать.
А можно и так: блюдо готово - ставим ворону, закончилось - ворону долой

Редактировалось 3 раз(а), последний 2017-12-02 21:38:35
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: 2
#14: 2017-12-03 18:17:21 ЛС | профиль | цитата
Tad, нет предела совершенству. Только приходится смотреть на задачу не с точки зрения программера, а со стороны пользователя. Практически - монитор бармена маленький, на 13 дюймов, тачскрин. А пальцы толстые, вечно тыкают по экрану на полэкрана). Поэтому комбобокс никак. Мимо торкают. У меня в основной программе был в нескольких местах, на практике пришлось заменить на Memo с шрифтом 26. Ворону им вообще нереально поставить. Наторкают пальцами так, что потом не разберёшься) Лучше всего - это запустить прогу в дело и слушать отзывы пользователя. Так все косяки и недочёты выплывают. Я когда прогу на автоматизацию кафе поставил, мне казалось - всё предусмотрено. Да хрен там - почти месяц её правил день через день. Зато теперь всё ок.

--- Добавлено в 2017-12-03 18:21:40

Совершенствование программы - это как ремонт. Нельзя закончить, можно только прекратить

Редактировалось 1 раз(а), последний 2017-12-03 18:21:40
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#15: 2017-12-03 18:51:22 ЛС | профиль | цитата
Tri-j писал(а):
монитор бармена маленький, на 13 дюймов, тачскрин
Про это надо было написать вначале.
Для тачскрин как-то так: http://forum.hiasm.com/getfile/38256
Ладно, прекращаем.
Успехов!

Редактировалось 1 раз(а), последний 2017-12-04 11:50:04
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)