Author |
Message |
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
Нужно обмениваться текстом между компьютером и телеграфным аппаратом. Нужно установить скорость 50 или 100 бод, 5 бит, 1,5 интервал и русский шрифт. Больше наворотов нет смысла. И хотелось бы что бы половина экрана на прием и половина на передачу. А то к примеру в Terminal 1.9 на передачу выделена одна строка. В общем я слаб в программных продуктах и прошу совета что бы такое найти.
Last edited by Savoj on 09 Aug 2021 22:52, edited 1 time in total.
|
18 Feb 2020 00:54 |
|
|
fifan
Devil
Joined: 06 Oct 2006 03:17 Posts: 859 Location: г.Лянтор,Сургутского р-на,ХМАО
|
А что значит "телеграфный аппарат"?
|
18 Feb 2020 06:17 |
|
|
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
Телеграфный аппарат РТА-80.
|
18 Feb 2020 08:53 |
|
|
Lavr
Supreme God
Joined: 21 Oct 2009 08:08 Posts: 7777 Location: Россия
|
Свой Терминал, если без шахмат и библиотекарьш, пишется на ЯВУ весьма просто: TERMINAL.BAS | | | | Code: DEFINT A-Z
DECLARE SUB Filter (InString$)
COLOR 7, 1 ' Set screen color. CLS
Quit$ = CHR$(0) + CHR$(16) ' Value returned by INKEY$ ' when ALT+q is pressed.
' Set up prompt on bottom line of screen and turn cursor on: LOCATE 24, 1, 1 PRINT STRING$(80, "_"); LOCATE 25, 1 PRINT TAB(30); "Press ALT+q to quit";
VIEW PRINT 1 TO 23 ' Print between lines 1 & 23.
' Open communications (1200 baud, no parity, 8-bit data, ' 1 stop bit, 256-byte input buffer): OPEN "COM1:1200,N,8,1" FOR RANDOM AS #1 LEN = 256
DO ' Main communications loop.
KeyInput$ = INKEY$ ' Check the keyboard.
IF KeyInput$ = Quit$ THEN ' Exit the loop if the user EXIT DO ' pressed ALT+q.
ELSEIF KeyInput$ <> "" THEN ' Otherwise, if the user has PRINT #1, KeyInput$; ' pressed a key, send the END IF ' character typed to the modem.
' Check the modem. If characters are waiting (EOF(1) is ' true), get them and print them to the screen: IF NOT EOF(1) THEN
' LOC(1) gives the number of characters waiting: ModemInput$ = INPUT$(LOC(1), #1)
Filter ModemInput$ ' Filter out line feeds and PRINT ModemInput$; ' backspaces, then print. END IF LOOP
CLOSE ' End communications. CLS END
' ' ========================= FILTER ========================== ' Filters characters in an input string. ' ============================================================ ' SUB Filter (InString$) STATIC
' Look for backspace characters and recode them to ' CHR$(29) (the LEFT cursor key): DO BackSpace = INSTR(InString$, CHR$(8)) IF BackSpace THEN MID$(InString$, BackSpace) = CHR$(29) END IF LOOP WHILE BackSpace
' Look for line-feed characters and remove any found: DO LineFeed = INSTR(InString$, CHR$(10)) IF LineFeed THEN InString$ = LEFT$(InString$, LineFeed - 1) + MID$(InString$, LineFeed + 1) END IF LOOP WHILE LineFeed
END SUB
| | | | |
_________________ iLavr
|
04 Jan 2021 18:42 |
|
|
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
Мне нужно типа того..... http://www.albinarrate.com/index.php?op ... heavymetalЯ практически не понимаю в программировании......хочу для начала получить и послать почту электронную на телеграфный аппарат. Связь по RS232 есть между компом и РТА-80 туда-обратно. А вот в инет не могу зайти и почту тоже. Не хватает знаний.
|
04 Jan 2021 22:01 |
|
|
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
| | | | Lavr wrote: Свой Терминал, если без шахмат и библиотекарьш, пишется на ЯВУ весьма просто: TERMINAL.BAS | | | | Code: DEFINT A-Z
DECLARE SUB Filter (InString$)
COLOR 7, 1 ' Set screen color. CLS
Quit$ = CHR$(0) + CHR$(16) ' Value returned by INKEY$ ' when ALT+q is pressed.
' Set up prompt on bottom line of screen and turn cursor on: LOCATE 24, 1, 1 PRINT STRING$(80, "_"); LOCATE 25, 1 PRINT TAB(30); "Press ALT+q to quit";
VIEW PRINT 1 TO 23 ' Print between lines 1 & 23.
' Open communications (1200 baud, no parity, 8-bit data, ' 1 stop bit, 256-byte input buffer): OPEN "COM1:1200,N,8,1" FOR RANDOM AS #1 LEN = 256
DO ' Main communications loop.
KeyInput$ = INKEY$ ' Check the keyboard.
IF KeyInput$ = Quit$ THEN ' Exit the loop if the user EXIT DO ' pressed ALT+q.
ELSEIF KeyInput$ <> "" THEN ' Otherwise, if the user has PRINT #1, KeyInput$; ' pressed a key, send the END IF ' character typed to the modem.
' Check the modem. If characters are waiting (EOF(1) is ' true), get them and print them to the screen: IF NOT EOF(1) THEN
' LOC(1) gives the number of characters waiting: ModemInput$ = INPUT$(LOC(1), #1)
Filter ModemInput$ ' Filter out line feeds and PRINT ModemInput$; ' backspaces, then print. END IF LOOP
CLOSE ' End communications. CLS END
' ' ========================= FILTER ========================== ' Filters characters in an input string. ' ============================================================ ' SUB Filter (InString$) STATIC
' Look for backspace characters and recode them to ' CHR$(29) (the LEFT cursor key): DO BackSpace = INSTR(InString$, CHR$(8)) IF BackSpace THEN MID$(InString$, BackSpace) = CHR$(29) END IF LOOP WHILE BackSpace
' Look for line-feed characters and remove any found: DO LineFeed = INSTR(InString$, CHR$(10)) IF LineFeed THEN InString$ = LEFT$(InString$, LineFeed - 1) + MID$(InString$, LineFeed + 1) END IF LOOP WHILE LineFeed
END SUB
| | | | |
| | | | |
Спасибо. Как это загрузить и пользоваться.
|
04 Jan 2021 22:05 |
|
|
Lavr
Supreme God
Joined: 21 Oct 2009 08:08 Posts: 7777 Location: Россия
|
Ну извиняйте, не провидец я, не знал, что вам еще что-то нужно... Положил то, что соответствует сабжу: Программа Terminal в совсем простом исполнении.Проще придумать трудно... Скопировать с экрана в файл и скомпилировать. Либо - запустить в режиме интерпретации. Я выложил этот вариант, потому как там видна настройка под любые ваши "хотелки". Но коли вы не программист, то остаётся вам только одно: набрать в поиске " простая программа-терминал", скачивать всё, что найдётся, и пробовать самому. А лучший совет дать вам трудно, потому как неизвестно даже под какую ОС нужна вам программа-терминал.
_________________ iLavr
|
05 Jan 2021 10:57 |
|
|
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
Прошел год....мне здесь как-то никто и не советовал ничего. А теперь начинают, после года, что-то говорить и упрекать. У меня дома обыкновенный комп с виндовс 7. Я в течении года установил связь между РТА-80 и компом через адаптер. Но в терминальных программах не установлен код телеграфный МТК, поэтому обмен информацией идет через символы. Когда Вы пишите.....Скопировать с экрана в файл и скомпилировать. Либо - запустить в режиме интерпретации.....я это не знаю как делать. Я неоднократно пояснил почему. Поэтому сделайте лицо попроще.
|
05 Jan 2021 22:05 |
|
|
Shaos
Admin
Joined: 08 Jan 2003 23:22 Posts: 22586 Location: Silicon Valley
|
Поправил первые посты темы, чтобы драмы было поменьше > Я в течении года установил связь между РТА-80 и компом через адаптер. Значит как подключен аппарат сейчас? Через COM-порт?
|
05 Jan 2021 22:22 |
|
|
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
Связь установлена по RS232.
|
05 Jan 2021 22:46 |
|
|
Shaos
Admin
Joined: 08 Jan 2003 23:22 Posts: 22586 Location: Silicon Valley
|
Какие настройки порта на стороне винды?
|
05 Jan 2021 22:58 |
|
|
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
Вот здесь http://www.buzbee.net/heavymetal/ при обмене данными нет русского алфавита, по английски нормальный обмен. В программе Terminal 1.9 при обмене инфо только символы. Как я понимаю там не прописан код МТК-2. Но мне бы хотелось электронную почту и интернет через это http://www.albinarrate.com/index.php?op ... heavymetal так как лучше не нашел что понимаю.
|
05 Jan 2021 23:02 |
|
|
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
Скорость 50 бод, пятиэлементный код, 1,5 размер....кажется все. Это так в программу terminal 1.9 устанавливаю. к примеру.
|
05 Jan 2021 23:05 |
|
|
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
Понимаете Terminal 1.9 когда ее загружаешь, там очень много всего, чего мне не нужно и много лишнего не экране. Мне бы хотелось просто что бы было на экране монитора разделенные две половины, прием и передача. Но нужно естественно код МТК-2 в этой программе установить. Все телетайпы одинаковы, там скорость 50 бод и пятиэлементный код. Вот хотелось бы поставить телетайп в гараже, у меня там клевый подвал, и с него послать товарищу данные спутника о ядерном нападении.....а потом коньяк пить с ним в гараже.
|
05 Jan 2021 23:27 |
|
|
Savoj
Senior
Joined: 22 Oct 2010 11:36 Posts: 101 Location: 178.122.227.140
|
|
05 Jan 2021 23:31 |
|
|