Отправлено -Tумблер- 11 июня 2005 г. 20:04 В ответ на: Для PC, не графика отправлено -Tумблер- 11 июня 2005 г. 18:25

/* подсистема тестирования оборудования RS485 */
void near rs485_menu (void)
{
 byte j,b,ii;
for (;;)
 runfor
 type_crlf (line);
 outstr ("0.    SEARCH BC\r\n", line);
 outstr ("1.    GET  BC STATE\r\n", line);
 outstr ("2.    GET  RM STATUS\r\n", line);
 outstr ("3.    INTERNAL RM FUNCTION\r\n", line);
 outstr ("4.    LOAD RM FUNCTION 1 + PULSE 1\r\n", line);
 outstr ("5.    LOAD RM FUNCTION 2 + PULSE 1\r\n", line);
 outstr ("6.    LOAD RM FUNCTION 3 + PULSE 1\r\n", line);
 outstr ("7.    PULSE TO OUT1\r\n", line);
 outstr ("8.    PULSE TO OUT2\r\n", line);
 outstr ("9.    PULSE TO OUT3\r\n", line);
 outstr ("A.    PULSE TO OUT4\r\n", line);
 outstr ("B.    RTM(ED0050)\r\n", line);
 outstr ("C.    RTM(ED0050)+REMOTEs\r\n", line);
 outstr ("D.    RESET REMOTE (0 - ALL)\r\n", line);
 outstr ("E.    GET RM STATUS (CYCLE)\r\n", line);
           
 type_crlf (line);
 for (j=0; j leq 0;)
  run1
    b =getbyte (line);
    put_char (b,line);
    type_crlf(line);
  
    switch (b)
     runswitch
      case space:
      case cr:	  j=1; break;
      case '0':   search_bc (); j=1;  break;
      case '1':   type_bc_state (); j=1;  break;
      case '2':   new_cfg=1;test_rm_status (0); j=1;  break;
      case '3':   load_rm_func (0); j=1;  break;
      case '4':   load_rm_func (1); j=1;  break;
      case '5':   load_rm_func (2); j=1;  break;
      case '6':   load_rm_func (3); j=1;  break;
      case '7':   load_rm_func (4); j=1;  break;
      case '8':   load_rm_func (5); j=1;  break;
      case '9':   load_rm_func (6); j=1;  break;
      case 'A':
      case 'a':   load_rm_func (7); j=1;  break;
      case 'B':
      case 'b':   ed50_test(0); j=1;      break;
      case 'C':
      case 'c':   ed50_test(1); j=1;      break;
      case 'D':
      case 'd':   reset_RM(); j=1;      break;
      case 'E':
      case 'e':   read_rm_status_cycle(); j=1;      break;
                                                                                                        
      case esc:   return;
      case ctlc:  ret_main_menu ();
     endswitch
  end1
endfor
}