HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по средеКак создать программу Телетайп? ← Ctrl123456789...1213141516Ctrl →
Этот топик читают: Гость
Разработчик
Ответов: 26170
Рейтинг: 2127
#61: 2008-08-07 09:55:38 ЛС | профиль | цитата
bestsponsor писал(а):
почти половину программы сделали

Просто, было интересно. Изучай, как она работает, ну а украшательства сам поставишь
карма: 22

1
Голосовали:bestsponsor
Ответов: 16884
Рейтинг: 1239
#62: 2008-08-07 14:40:14 ЛС | профиль | цитата
nesco, Телетайп. Просьба с принимающей стороны "Повторите с такого-то слова"
Как с точки "Позиция курсора" считать позицию.
code_9654.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1code_9654.txt [287B] [283]
Голосовали:bestsponsor
Разработчик
Ответов: 26170
Рейтинг: 2127
#63: 2008-08-07 15:09:27 ЛС | профиль | цитата 

procedure THIWin._var_Position;
begin
   dtInteger(Data, Control.SelStart);
end;

И пес его знает, чего оно в Rich не работает, я не разбирался. Может Galkov знает
------------ Дoбавленo:

Самое интересное, что в Memo работает
карма: 22

1
Голосовали:bestsponsor
Ответов: 16884
Рейтинг: 1239
#64: 2008-08-07 15:55:21 ЛС | профиль | цитата
nesco, самое грустное и совсем не интересное то, что за какой компонент ни зацепись - объязательно что-то не так.
------------ Дoбавленo:

nesco писал(а):
Самое интересное, что в Memo работает
Memo делалось задолго до Rich, когда деревья были большими (с) и был только один пакет.
------------ Дoбавленo:

Ладно применим Memo.
nesco, а подсказать можешь, как в темпе поставить курсор на последнюю позицию, считать индекс последнего знака и вернуть курсор на начальную позицию (не объязательно в 0) ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:bestsponsor
Разработчик
Ответов: 26170
Рейтинг: 2127
#65: 2008-08-07 16:09:38 ЛС | профиль | цитата
Tad, наверное так

-- см. схему Galkov'a ниже по топику --
карма: 22

1
Голосовали:bestsponsor
Ответов: 16884
Рейтинг: 1239
#66: 2008-08-07 16:20:34 ЛС | профиль | цитата
nesco, и как начать считывание текста с этой позиции ? Вопрос не последний !
------------ Дoбавленo:

компонентом Copy ???
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:bestsponsor
Разработчик
Ответов: 26170
Рейтинг: 2127
#67: 2008-08-07 16:37:16 ЛС | профиль | цитата
Ну что ты до меня докопался Опять тебе чего-то не хватает. Я бы так сделал

-- см. схему Galkov'a ниже по топику --
карма: 22

1
Голосовали:bestsponsor
Гость
Ответов: 17029
Рейтинг: 0
#68: 2008-08-08 14:29:00 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2025-01-09 12:57:48
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#69: 2008-08-08 14:38:01 ЛС | профиль | цитата
Tad, предложенная мной схема с копированием селекта гораздо быстрее работает
карма: 22

0
Ответов: 9906
Рейтинг: 351
#70: 2008-08-08 14:51:48 ЛС | профиль | цитата
nesco, я вот смотрю на твои схемы, и фигею потихоньку
Неужели твоя схема делает нечто большее, чем вот это: 
Add(Memo,530753,133,91)
{
 Left=20
 Top=15
 Width=175
 Height=210
 ScrollBars=3
 Point(SelText)
 Point(doSetSelLength)
}
Add(Memo,5239444,210,147)
{
 Left=205
 Top=15
 Width=175
 Height=210
 ScrollBars=3
}
Add(Button,12864230,21,161)
{
 Left=20
 Top=235
 Data=Integer(1000000000)
 link(onClick,12876548:doEvent1,[])
}
Add(DoData,15662728,154,168)
{
 link(onEventData,5239444:doText,[])
 link(Data,530753:SelText,[])
}
Add(Hub,12876548,70,161)
{
 link(onEvent1,530753:doSetSelLength,[(118,167)(118,139)])
 link(onEvent2,15662728:doData,[])
}
карма: 9

1
Голосовали:nesco
Разработчик
Ответов: 26170
Рейтинг: 2127
#71: 2008-08-08 14:57:57 ЛС | профиль | цитата
Galkov, да нет, то же самое. Там другая задача стояла -- есть начальная позиция, определить конечную позицию, выбрать, скопировать, но курсор вернуть на место. В твоей схеме надо ручками устанавливать количество переданных символов

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


Да, вот изначальная задача, кстати
Tad писал(а):
nesco, а подсказать можешь, как в темпе поставить курсор на последнюю позицию, считать индекс последнего знака и вернуть курсор на начальную позицию (не объязательно в 0) ?

А вот дальше
Tad писал(а):
nesco, и как начать считывание текста с этой позиции


Ну неужели бы я стал муть эту бадягу, если бы задача была скопировать просто N символов
карма: 22

0
Ответов: 9906
Рейтинг: 351
#72: 2008-08-08 15:00:54 ЛС | профиль | цитата
Нет там другой задачи (я забыл данные в кнопку влепить - проверь снова), и ручками ничего устанавливать не надо
Другое - у тебя в голове, а не в задаче

Черт те чему учите новичков
карма: 9

1
Голосовали:nesco
Разработчик
Ответов: 26170
Рейтинг: 2127
#73: 2008-08-08 15:08:58 ЛС | профиль | цитата
Galkov писал(а):
Черт те чему учите новичков

Каких новичков -- Tad'a, что ли. Нашел новичка.
------------ Дoбавленo:

Galkov, ну можно и так, гораздо проще, надо запомнить. Иногда мы тоже должны учиться у более опытных коллег
------------ Дoбавленo:

Galkov писал(а):
Другое - у тебя в голове

Ну иногда мыши не туда бегут, куда хотелось бы
------------ Дoбавленo:

Galkov, ты бы лучше кодер MTK-2 глянул, может там чего проще подскажешь
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#74: 2008-08-08 17:44:46 ЛС | профиль | цитата
nesco писал(а):
Tad, предложенная мной схема с копированием селекта гораздо быстрее работает

Я не спрашивал чья быстрее работает.
Гость писал(а):
Схема компилируется и работает,но невозможно перейти в редактор форм.
Попробуй пару раз перейти из Редактора схем в Редактор форм.

Galkov, (думаю, что повторяю хорошо известное Вам)
1. В сети не только "компьютерные" телетайпы, но и "железные"
2. Передаем длинный текст
3. На приемной стороне забарабанили по пробелу - требуют остановить передачу.
4. Передача останавливается автоматически.
5. Оператор на передающей жмет "?"
6. Оператор на приемной: "Минутку. Закончился рулон"
7. Оператор на приемной: "Готов. Передавай со слова ХХХХХХХ"
8. Оператор передающей находит слово ХХХХХХХХ и включает передачу с этого места.

Задача в следующем:
1. У передающего оператора должен по передаваемому тексту двигаться указатель положения каретки (курсор).
2. Передаваемый в данный момент текст всегда должен находиться в "зоне видимости" (окне), т.е. текст в окне должен сдвигаться

nesco, повторюсь : В сети не только "компьютерные" телетайпы, но и "железные" (300 бод) .
Еслли разработчик в модеме на МК применит достаточно емкое ОЗУ ( что врядли - ему ОЗУ нужно для дежурного приема) и при передаче будет возвращать в програму, созданную в HiAsm, номер последней переданой ячейки, то тогда текст для передачи можно закачивать в ОЗУ модема со скоростью COM порта.



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

Молодцы китайцы - классное открытие олимпиады придумали
------------ Дoбавленo:

Да, еще одно : У "железных" 80 знаков в строке поэтому в передаваемый текст через 80 знаков нужно вставлять "
". Разбивка на страницы помоему делается на приемной стороне. Забыл уже.
------------ Дoбавленo:

или "
" - не помню как на перфоленте, но кажется, что сначала возврат каретки, а потом перевод строки. Какие-то там проблемы с электромагнитами могут быть у каких-то моделей.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26170
Рейтинг: 2127
#75: 2008-08-08 18:55:00 ЛС | профиль | цитата
Tad писал(а):
Попробуй пару раз перейти из Редактора схем в Редактор форм

А я почем знаю, чего не работает -- среду не я разрабатывю.

По теме -- я обещался сделать кодер/декодер, худо-бедно я его сделал. Больше я ни под что не подписывался.

Tad писал(а):
Молодцы китайцы - классное открытие олимпиады придумали

В России не до Олимпиады, даже по TV вскользь показали

карма: 22

0
ФорумыПомощь по средеКак создать программу Телетайп? ← Ctrl123456789...1213141516Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика