HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по средеКак создать программу Телетайп? ← Ctrl12345...8910111213141516Ctrl →
Этот топик читают: Гость
Ответов: 125
Рейтинг: 0
#166: 2008-08-15 21:11:07 ЛС | профиль | цитата
Tad писал(а):
Вызови на ПРАВКА и удали
Странно! А раньше кричало, что не имею права, хоть и залогинен был. Я вообще не имею прав цеплять файл - как он туда залез?
------------ Дoбавленo:

Кстати, я смотрю на ваших схемах добавлен поясняющий текст и линиями обрамлены структурные блоки. Как Вы это делаете?
карма: 1

0
Разработчик
Ответов: 26322
Рейтинг: 2147
#167: 2008-08-15 21:31:27 ЛС | профиль | цитата
bestsponsor писал(а):
Кстати, я смотрю на ваших схемах добавлен поясняющий текст и линиями обрамлены структурные блоки

Помошники -> InfoTip (Вывеска)
карма: 22

1
Голосовали:bestsponsor
Ответов: 125
Рейтинг: 0
#168: 2008-08-15 21:33:00 ЛС | профиль | цитата
Странно, а с сохранением позиции в ini файле все получается. 
Add(DataToFile,14607605,371,301)
{
 Type=6
 Point(doPosition)
 link(Stream,6733622:Stream,[])
}
Add(FileStream,6733622,371,245)
{
 FileName="777.txt"
 Mode=2
}
Add(Ini,451758,413,336)
{
 FileName="777.ini"
 Section="7"
 Key="7"
 link(onResult,14607605:doPosition,[(455,342)(455,382)(359,382)(359,321)])
 link(Value,6733622:Position,[(440,284)(391,284)])
}
Add(Memo,4643597,280,273)
{
 Left=5
 Top=25
 Width=315
 Height=190
}
Add(Button,11592189,119,357)
{
 Left=5
 Top=255
 Width=320
 link(onClick,10250256:doEvent1,[])
}
Add(Hub,10250256,196,357)
{
 OutCount=6
 link(onEvent1,6733622:doOpen,[(243,363)(243,251)])
 link(onEvent2,451758:doRead,[(340,370)(340,342)])
 link(onEvent3,13928289:doData,[(250,377)(250,335)])
 link(onEvent4,451758:doWrite,[(327,384)(327,349)])
 link(onEvent5,6733622:doClose,[(267,391)(267,258)])
}
Add(DoData,13928289,280,329)
{
 link(onEventData,14607605:doPut,[(326,335)(326,307)])
 link(Data,4643597:Text,[(286,320)(286,327)])
}

#sha

P.S.Почему-то при добавлении сообщений в форум (если он открыт с HiAsm) клавиша Ввод не переводит строку.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#169: 2008-08-16 00:24:51 ЛС | профиль | цитата
Из HiAsm перевод строки - Ctrl+M
------------ Дoбавленo:

вот, может кому-то пригодится.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1mtk2.rar [1.6KB] [260]
Голосовали:bestsponsor
Ответов: 125
Рейтинг: 0
#170: 2008-08-16 10:16:05 ЛС | профиль | цитата
Сделал блок печати. Не пробовал на рулонном принтере, а на обычном есть неприятность - каждая копия печатается на новом листе бумаги. 

#sha
Add(Memo,12980789,245,112)
{
 Left=3
 Top=50
 Width=715
 Height=500
 ParentFont=0
 Point(SelText)
 link(FileName,4942225:Value,[])
}
Add(Button,5171328,203,336)
{
 Left=6
 Top=25
 Width=225
 Font=[Courier New,10,0,0,204]
 Caption="ПЕЧАТЬ ВЫДЕЛЕННОГО ТЕКСТА"
 link(onClick,13452048:doFor,[])
}
Add(Hub,642401,175,49)
{
 OutCount=5
 link(onEvent2,4942225:doValue,[])
 link(onEvent3,12980789:doLoad,[(228,69)(228,146)])
}
Add(Memory,4942225,252,56)
{
}
Add(Printer,2239600,266,189)
{
 link(Text,12980789:SelText,[(272,180)(272,180)])
}
Add(UpDown,1719156,266,238)
{
 Left=535
 Top=20
 Height=25
 Min=1
 Position=1
 link(onPosition,9900896:doText,[(311,244)(311,280)(254,280)(254,293)])
}
Add(Label,16720928,168,168)
{
 Left=335
 Top=25
 Width=121
 Height=17
 Caption="КОЛИЧЕСТВО КОПИЙ"
}
Add(Edit,9900896,266,287)
{
 Left=475
 Top=25
 Text="1"
 DataType=2
 link(Str,1719156:Position,[])
}
Add(For,13452048,259,336)
{
 Start=1
 link(onEvent,2239600:doPrint,[(320,342)(320,268)(254,268)(254,195)])
 link(End,9900896:Text,[])
}
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#171: 2008-08-16 10:56:47 ЛС | профиль | цитата
Все правильно - колличество КОПИЙ, а не "печатать на один лист"
A на один лист так 
Add(Memo,12980789,217,91)
{
 Left=3
 Top=50
 Width=715
 Height=500
 Point(SelText)
 link(FileName,4942225:Value,[])
}
Add(Button,5171328,56,238)
{
 Left=6
 Top=25
 Width=225
 Font=[Courier New,10,0,0,204]
 Caption="ПЕЧАТЬ ВЫДЕЛЕННОГО ТЕКСТА"
 link(onClick,1142086:doEvent1,[])
}
Add(Hub,642401,147,28)
{
 OutCount=5
 link(onEvent2,4942225:doValue,[])
 link(onEvent3,12980789:doLoad,[(200,48)(200,125)])
}
Add(Memory,4942225,224,35)
{
}
Add(Printer,2239600,308,231)
{
 link(Text,11838602:Text,[(314,222)(328,222)])
}
Add(UpDown,1719156,105,119)
{
 Left=535
 Top=20
 Height=25
 Min=1
 Position=1
 link(onPosition,9900896:doText,[])
}
Add(Label,16720928,63,189)
{
 Left=335
 Top=25
 Width=121
 Height=17
 Caption="КОЛИЧЕСТВО КОПИЙ"
}
Add(Edit,9900896,161,119)
{
 Left=475
 Top=25
 Text="1"
 DataType=2
 link(Str,1719156:Position,[(167,107)(151,107)(151,164)(111,164)])
}
Add(For,13452048,154,168)
{
 Start=1
 link(onEvent,11838602:doAdd,[])
 link(End,9900896:Text,[])
}
Add(Hub,1142086,112,238)
{
 OutCount=3
 link(onEvent1,11838602:doClear,[(233,244)(233,181)])
 link(onEvent2,13452048:doFor,[(149,251)(149,174)])
 link(onEvent3,2239600:doPrint,[(221,258)(290,258)(290,237)])
}
Add(StrList,11838602,322,168)
{
 link(Str,12980789:SelText,[(328,145)(244,145)])
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:bestsponsor
Ответов: 125
Рейтинг: 0
#172: 2008-08-16 11:27:27 ЛС | профиль | цитата
Tad писал(а):
A на один лист так

Не работает, даже если Memory прицеплен (Вы забыли прицепить). Печатает одну копию.
карма: 1

0
Разработчик
Ответов: 26322
Рейтинг: 2147
#173: 2008-08-16 11:36:08 ЛС | профиль | цитата
Tad, ты чего, прикалываешься

Куда у тебя For идет, в воздух, что ли (еще и выход замаскировал )

------------ Дoбавленo:


А чего вот так не сделать 



Add(MainForm,13208829,301,294)
{
 Width=574
}
Add(Memo,12980789,441,357)
{
 Left=3
 Top=50
 Width=715
 Height=500
 Point(SelText)
 link(FileName,4942225:Value,[])
}
Add(Button,5171328,322,483)
{
 Left=6
 Top=25
 Width=225
 Font=[Courier New,10,0,0,204]
 Caption="ПЕЧАТЬ ВЫДЕЛЕННОГО ТЕКСТА"
 link(onClick,13452048:doFor,[])
}
Add(Hub,642401,371,294)
{
 OutCount=5
 link(onEvent2,4942225:doValue,[])
 link(onEvent3,12980789:doLoad,[(424,314)(424,391)])
}
Add(Memory,4942225,448,301)
{
}
Add(Printer,2239600,462,483)
{
 link(Text,12980789:SelText,[])
}
Add(UpDown,1719156,322,420)
{
 Left=535
 Top=20
 Height=25
 Min=1
 Position=1
 link(onPosition,9900896:doText,[])
}
Add(Label,16720928,301,252)
{
 Left=335
 Top=25
 Width=121
 Height=17
 Caption="КОЛИЧЕСТВО КОПИЙ"
}
Add(Edit,9900896,385,420)
{
 Left=475
 Top=25
 Text="1"
 DataType=2
}
Add(For,13452048,378,483)
{
 Start=1
 link(onEvent,2239600:doPrint,[])
 link(End,9900896:Text,[])
}
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#174: 2008-08-16 11:37:34 ЛС | профиль | цитата
Исправил выше копируй еще раз
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26322
Рейтинг: 2147
#175: 2008-08-16 11:39:30 ЛС | профиль | цитата
Tad, вот ответь мне на кой черт вот такая связь 


Add(UpDown,1719156,329,287)
{
 Left=535
 Top=20
 Height=25
 Min=1
 Position=1
 link(onPosition,9900896:doText,[(374,293)(374,329)(317,329)(317,342)])
}
Add(Edit,9900896,329,336)
{
 Left=475
 Top=25
 Text="1"
 DataType=2
 link(Str,1719156:Position,[])
}


а вот так, что нельзя 


Add(UpDown,1719156,273,336)
{
 Left=535
 Top=20
 Height=25
 Min=1
 Position=1
 link(onPosition,9900896:doText,[])
}
Add(Edit,9900896,329,336)
{
 Left=475
 Top=25
 Text="1"
 DataType=2
}
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#176: 2008-08-16 11:45:41 ЛС | профиль | цитата
Сколько раз doPrint - столько ЛИСТОВ и отпечатает
Нужно в StrList сформировать документ, и только потом отправить на печать (один раз = один лист)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 125
Рейтинг: 0
#177: 2008-08-16 11:50:42 ЛС | профиль | цитата
Ваш код печатает каждую копию на отдельном листе.
А вот мой вариант печатает несколько копий подряд на одном листе 

#sha
Add(Memo,12980789,343,147)
{
 Left=3
 Top=50
 Width=715
 Height=500
 Point(SelText)
 link(FileName,4942225:Value,[])
}
Add(Button,5171328,182,294)
{
 Left=6
 Top=25
 Width=225
 Font=[Courier New,10,0,0,204]
 Caption="ПЕЧАТЬ ВЫДЕЛЕННОГО ТЕКСТА"
 link(onClick,1142086:doEvent1,[])
}
Add(Hub,642401,273,84)
{
 link(onEvent1,4942225:doValue,[(337,90)(337,97)])
 link(onEvent2,12980789:doLoad,[(329,97)(329,181)])
}
Add(Memory,4942225,350,91)
{
}
Add(Printer,2239600,364,280)
{
 link(Text,7156847:Text,[])
}
Add(UpDown,1719156,231,175)
{
 Left=535
 Top=20
 Height=25
 Min=1
 Position=1
 link(onPosition,9900896:doText,[])
}
Add(Label,16720928,189,245)
{
 Left=335
 Top=25
 Width=121
 Height=17
 Caption="КОЛИЧЕСТВО КОПИЙ"
}
Add(Edit,9900896,287,175)
{
 Left=475
 Top=25
 Text="1"
 DataType=2
 link(Str,1719156:Position,[(293,163)(277,163)(277,220)(237,220)])
}
Add(For,13452048,280,224)
{
 Start=1
 link(onEvent,7156847:doAdd,[(338,230)(338,216)])
 link(End,9900896:Text,[])
}
Add(Hub,1142086,238,294)
{
 link(onEvent1,13452048:doFor,[(275,300)(275,230)])
 link(onEvent2,2239600:doPrint,[(317,307)(317,286)])
}
Add(ODialog,13412753,231,84)
{
 link(onExecute,642401:doEvent1,[])
}
Add(Button,14389001,189,84)
{
 Left=255
 Top=25
 Width=60
 Caption="Открыть"
 link(onClick,13412753:doExecute,[(226,90)(191,90)])
}
Add(Memo,7156847,364,210)
{
 Left=30
 Top=340
 Width=525
 Visible=1
 Point(SelText)
 link(Str,12980789:SelText,[])
}

------------ Дoбавленo:

А теперь давайте придумаем как печатать входящее сообщение сразу на принтер в процессе его получения, т.е получили символ - напечатали, или получили строку - напечатали. Естественно на одной странице
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#178: 2008-08-16 11:56:03 ЛС | профиль | цитата
nesco писал(а):
а вот так, что нельзя
juk писал(а):
В HiAsm-е можно всё


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 125
Рейтинг: 0
#179: 2008-08-16 11:59:05 ЛС | профиль | цитата
nesco писал(а):
а вот так, что нельзя

Эта неоднознвчность в HiAsm очень путает. Было бы лучше, если бы данные четко шли только сверху вниз , а события только слева направо.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#180: 2008-08-16 12:00:36 ЛС | профиль | цитата
bestsponsor, вот вопрос.
Что делается:
АРМ оператора телетайпа
или
иммитатор работы телетайпа ???

Определись.
------------ Дoбавленo:

bestsponsor писал(а):
Было бы лучше, если бы данные четко шли только сверху вниз , а события только слева направо.
Повторюсь: Кому лучше ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
ФорумыПомощь по средеКак создать программу Телетайп? ← Ctrl12345...8910111213141516Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика