问Pascal -在CMD中的两个“按钮”之间移动时“闪烁”
EN

Stack Overflow用户

提问于 2017-02-21 19:16:47

回答 1查看 39关注 0票数 0

今天我试着从我的学校作业开始，我从一些小图形开始，特别是菜单，其中有7个标题，你可以在其中2个之间移动，键向上键和键向下键。主要的问题是，当你快速移动时，你可以看到我称之为“闪烁”，因为它不够快，重画it.Here是this.How的主要思想，我能解决这个问题吗？我想要他们有的货。在免费的Pascal IDE..picture下载中

procedure nakresliHviezdy(str:string;surX,surY:byte;backgroundCol:byte);

var i,j:byte;
    sirkaRamcek,vyskaRamcek:byte;
    dlzkaSlova:byte;
begin
  TextBackground(backgroundCol);
  sirkaRamcek:=40;
  vyskaRamcek:=3;
  dlzkaSlova:=length(str);
  for i:=1 to sirkaRamcek do begin
    for j:=1 to vyskaRamcek do begin
      gotoxy(i+surX,j+surY);
      if ((i=sirkaRamcek) or (i=1) or (j=1) or (j=vyskaRamcek)) then write(' ');
      if ((j=2) and ((i<(sirkaRamcek-dlzkaSlova) DIV 2 +1)) or (i>(sirkaRamcek-dlzkaSlova) DIV 2  + dlzkaSlova)) then write(' ');
      if ((i=(sirkaRamcek-dlzkaSlova) DIV 2 +1) and (j=2)) then writeln(str) ;
    end;
  end;
end;

procedure menu;
var pocitadlo:integer;
    klavesa:char;
    farba1,farba2,farba3,farba4,farba5,farba6,farba7:byte;
    suradnicaX,suradnicaY:byte;
begin
  pocitadlo:=1;

  cursoroff;
  TextColor(yellow);
  suradnicaX:=40;
  suradnicaY:=1;
  nakresliHviezdy( '1.Vlozit vozidlo do evidencie STK',40,1,4);
  nakresliHviezdy( '2.Najst vozidlo v evidencii STK',40,5,1);
  nakresliHviezdy( '3.Opravit udaje o vozidle',40,9,1);
  nakresliHviezdy( '4.Vymazat vozidlo z evidencie',40,13,1);
  nakresliHviezdy( '5.Zoznam vsetkych vozidiel',40,17,1);
  nakresliHviezdy( '6.Zoznam nesposobilych vozidiel',40,21,1);
  nakresliHviezdy( '7.Koniec programu',40,25,1);
  while True do begin
  klavesa:=ReadKey;
  if klavesa=#72 then dec(pocitadlo);
  if klavesa=#80 then inc (pocitadlo);
  if (pocitadlo=0) then pocitadlo:=1;
  if (pocitadlo=8) then pocitadlo:=7;
  if ((klavesa=#13) and (pocitadlo=7)) then exit;


  case pocitadlo of
       1:begin nakresliHviezdy( '1.Vlozit vozidlo do evidencie STK',40,1,4);nakresliHviezdy( '2.Najst vozidlo v evidencii STK',40,5,1); end;
       2:begin nakresliHviezdy( '1.Vlozit vozidlo do evidencie STK',40,1,1);nakresliHviezdy( '2.Najst vozidlo v evidencii STK',40,5,4);  nakresliHviezdy( '3.Opravit udaje o vozidle',40,9,1); end;
       3:begin nakresliHviezdy( '2.Najst vozidlo v evidencii STK',40,5,1);nakresliHviezdy( '3.Opravit udaje o vozidle',40,9,4);nakresliHviezdy( '4.Vymazat vozidlo z evidencie',40,13,1); end;
       4:begin  nakresliHviezdy( '3.Opravit udaje o vozidle',40,9,1);nakresliHviezdy( '5.Zoznam vsetkych vozidiel',40,17,1); nakresliHviezdy( '4.Vymazat vozidlo z evidencie',40,13,4);  end;
       5:begin nakresliHviezdy( '4.Vymazat vozidlo z evidencie',40,13,1); nakresliHviezdy( '6.Zoznam nesposobilych vozidiel',40,21,1);nakresliHviezdy( '5.Zoznam vsetkych vozidiel',40,17,4);  end;
       6:begin  nakresliHviezdy( '5.Zoznam vsetkych vozidiel',40,17,1); nakresliHviezdy( '7.Koniec programu',40,25,1); nakresliHviezdy( '6.Zoznam nesposobilych vozidiel',40,21,4); end;
       7:begin nakresliHviezdy( '6.Zoznam nesposobilych vozidiel',40,21,1); nakresliHviezdy( '7.Koniec programu',40,25,4);    end;
  end;
  end;
end;`