0
오늘 저는 학교 일을 시작하려고 노력했습니다. 메뉴가있는 약간의 그래픽으로 시작했는데, 여기에는 7 개의 제목이 있습니다. 키 - 업과 키 - 다운으로 2 명 사이를 이동하십시오. 주요 이슈는 당신이 빠르게 움직이고있을 때입니다. "깜박 거리는 소리"를 그리기에 충분히 빠르기 때문에 나는 그것을 "깜박 거리다"고 부를 것입니다. 여기에 대한 주된 생각이 있습니다. 어떻게 해결할 수 있습니까? 그들이 가지고있는대로 가지고 싶습니다. 무료 파스칼 IDE..picture는 파스칼 - CMD에서 2 개의 "버튼"사이를 움직일 때 "깜박임"
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;`
Here you can see how my program looks like
Free Pascal IDE 어떤 조언을 주셔서 감사
을 down`.