nedoPC.org

Electronics hobbyists community established in 2002
Atom Feed | View unanswered posts | View active topics It is currently 28 Mar 2024 06:11



Reply to topic  [ 60 posts ]  Go to page 1, 2, 3, 4  Next
Подключение телеграфного аппарата РТА-80. 
Author Message
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
Нужно обмениваться текстом между компьютером и телеграфным аппаратом. Нужно установить скорость 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
Profile
Devil

Joined: 06 Oct 2006 03:17
Posts: 856
Location: г.Лянтор,Сургутского р-на,ХМАО
Reply with quote
А что значит "телеграфный аппарат"?


18 Feb 2020 06:17
Profile
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
Телеграфный аппарат РТА-80.


18 Feb 2020 08:53
Profile
Supreme God
User avatar

Joined: 21 Oct 2009 08:08
Posts: 7777
Location: Россия
Reply with quote
Icer wrote:
...вполне можно написать свой терминал с Джонни Деппом и Обогрей Сашу.

Свой Терминал, если без шахмат и библиотекарьш, пишется на ЯВУ весьма просто: :wink:

 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
Profile
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
Мне нужно типа того.....
http://www.albinarrate.com/index.php?op ... heavymetal
Я практически не понимаю в программировании......хочу для начала получить и послать почту электронную на телеграфный аппарат. Связь по RS232 есть между компом и РТА-80 туда-обратно. А вот в инет не могу зайти и почту тоже. Не хватает знаний.


04 Jan 2021 22:01
Profile
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
Lavr wrote:
Icer wrote:
...вполне можно написать свой терминал с Джонни Деппом и Обогрей Сашу.

Свой Терминал, если без шахмат и библиотекарьш, пишется на ЯВУ весьма просто: :wink:

 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
Profile
Supreme God
User avatar

Joined: 21 Oct 2009 08:08
Posts: 7777
Location: Россия
Reply with quote
Ну извиняйте, не провидец я, не знал, что вам еще что-то нужно...
Положил то, что соответствует сабжу: Программа Terminal в совсем простом исполнении.
Проще придумать трудно... :-?

Savoj wrote:
Спасибо. Как это загрузить и пользоваться.
Скопировать с экрана в файл и скомпилировать. Либо - запустить в режиме интерпретации.
Я выложил этот вариант, потому как там видна настройка под любые ваши "хотелки".

Но коли вы не программист, то остаётся вам только одно: набрать в поиске "простая программа-терминал",
скачивать всё, что найдётся, и пробовать самому.
А лучший совет дать вам трудно, потому как неизвестно даже под какую ОС нужна вам программа-терминал.

_________________
iLavr


05 Jan 2021 10:57
Profile
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
Прошел год....мне здесь как-то никто и не советовал ничего. А теперь начинают, после года, что-то говорить и упрекать.
У меня дома обыкновенный комп с виндовс 7. Я в течении года установил связь между РТА-80 и компом через адаптер. Но в терминальных программах не установлен код телеграфный МТК, поэтому обмен информацией идет через символы.
Когда Вы пишите.....Скопировать с экрана в файл и скомпилировать. Либо - запустить в режиме интерпретации.....я это не знаю как делать. Я неоднократно пояснил почему. Поэтому сделайте лицо попроще.


Attachments:
Код МТК-2.docx [14.33 KiB]
Downloaded 303 times
05 Jan 2021 22:05
Profile
Admin
User avatar

Joined: 08 Jan 2003 23:22
Posts: 22409
Location: Silicon Valley
Reply with quote
Поправил первые посты темы, чтобы драмы было поменьше ;)

> Я в течении года установил связь между РТА-80 и компом через адаптер.

Значит как подключен аппарат сейчас? Через COM-порт?

_________________
:dj: https://mastodon.social/@Shaos


05 Jan 2021 22:22
Profile WWW
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
Связь установлена по RS232.


Attachments:
adapter (сделан).gif
adapter (сделан).gif [ 34.98 KiB | Viewed 7900 times ]
05 Jan 2021 22:46
Profile
Admin
User avatar

Joined: 08 Jan 2003 23:22
Posts: 22409
Location: Silicon Valley
Reply with quote
Какие настройки порта на стороне винды?

_________________
:dj: https://mastodon.social/@Shaos


05 Jan 2021 22:58
Profile WWW
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
Вот здесь http://www.buzbee.net/heavymetal/ при обмене данными нет русского алфавита, по английски нормальный обмен. В программе Terminal 1.9 при обмене инфо только символы. Как я понимаю там не прописан код МТК-2.
Но мне бы хотелось электронную почту и интернет через это http://www.albinarrate.com/index.php?op ... heavymetal так как лучше не нашел что понимаю.


05 Jan 2021 23:02
Profile
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
Shaos wrote:
Какие настройки порта на стороне винды?

Скорость 50 бод, пятиэлементный код, 1,5 размер....кажется все. Это так в программу terminal 1.9 устанавливаю. к примеру.


05 Jan 2021 23:05
Profile
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
Понимаете Terminal 1.9 когда ее загружаешь, там очень много всего, чего мне не нужно и много лишнего не экране.
Мне бы хотелось просто что бы было на экране монитора разделенные две половины, прием и передача. Но нужно естественно код МТК-2 в этой программе установить. Все телетайпы одинаковы, там скорость 50 бод и пятиэлементный код. Вот хотелось бы поставить телетайп в гараже, у меня там клевый подвал, и с него послать товарищу данные спутника о ядерном нападении.....а потом коньяк пить с ним в гараже.


05 Jan 2021 23:27
Profile
Senior

Joined: 22 Oct 2010 11:36
Posts: 101
Location: 178.122.227.140
Reply with quote
https://youtu.be/o7R9RN30Njs
Это мой РТА-80 на приеме.


05 Jan 2021 23:31
Profile
Display posts from previous:  Sort by  
Reply to topic   [ 60 posts ]  Go to page 1, 2, 3, 4  Next

Who is online

Users browsing this forum: No registered users and 20 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group
Designed by ST Software.