- This topic has 351 hozzászólás, 49 résztvevő, and was last updated 15 years, 6 months telt el by
.
-
Bejegyzés
-
kelemengabor wrote:FLINX wrote:Törölve.
ilyesmit azért nem kéne…
Csak megpróbálta ugyanazt beírni még egyszer.
Ugyanolyan eredménye lett, ezért törölte.
Olvasd el a felette levõt.Sziasztok! Az lenne a kérdésem hogy lehet megcsinálni a félkövér betüvel írottatkat úgy megcsinálni, hogy a fa villogjon? Sehogysem akar sikerülni…. :blink: Tudnátok segíteni?
program rajz;
uses crt;
procedure kornyezet;
begin
textmode(co80);
textcolor(blue);
textbackground(green);
end;
procedure keretsarok;
begin
gotoxy(1,1);
write(chr(201));
gotoxy(79,1);
write(chr(187));
gotoxy(79,1);
write(chr(187));
gotoxy(79,25);
write(chr(188));
gotoxy(1,25);
write(chr(200));
end;
procedure keretoldal;
var i:byte;
begin
for i:=2 to 78 do
begin
gotoxy(i,1);
write(chr(205));
end;
for i:=2 to 24 do
begin
gotoxy(79,i);
write(chr(186));
end;
for i:=2 to 78 do
begin
gotoxy(i,25);
write(chr(205));
end;
for i:= 2 to 24 do
begin
gotoxy(1,i);
write(chr(186));
end;
end;
procedure keretkozep;
begin
gotoxy(40,1);
write(chr(203));
gotoxy(79,12);
write(chr(185));
gotoxy(40,25);
write(chr(202));
gotoxy(1,12);
write(chr(204));
gotoxy(40,12);
write(chr(206));
end;
procedure vonalak;
var i:byte;
begin
for i:=2 to 39do
begin
gotoxy(i,12);
write(chr(205));
end;
for i:=41 to 78 do
begin
gotoxy(i,12);
write(chr(205));
end;
for i:=13 to 24 do
begin
gotoxy(40,i);
write(chr(186));
end;
for i:=2 to 11 do
begin
gotoxy(40,i);
write(chr(186));
end;
end;procedure nevek;
var nev:string;
begin
gotoxy(5,5);
write(‘Krem a nevet: ‘);
readln(nev);
gotoxy(50,5);
write(nev);
gotoxy(10,10);
write(nev);
end;procedure szamol;
var a,b,osszeg:integer;
begin
gotoxy(5,20);
write(‘Krem a sz mot: ‘);
readln(a);
gotoxy(5,21);
write(‘Krem b sz mot: ‘);
readln(b);
gotoxy(5,23);
osszeg:=a+b;
write(‘Osszeg: ‘,osszeg);
end;
procedure fa;
begin
gotoxy(60,15);
textbackground(black);
textcolor(green);
write(‘*’);
gotoxy(59,16);
write(‘***’);
gotoxy(58,17);
write(‘*****’);
gotoxy(57,18);
write(‘*******’);
gotoxy(60,19);
textcolor(brown);
write(chr(186));
end;
begin
clrscr;
kornyezet;
keretsarok;
keretoldal;
keretkozep;
vonalak;
nevek;
szamol;
fa;
readln;
end.Ez nem C programozásról szóló téma volt eddig? Nekem a beküldött cucc pascal-nak tûnik…
Amúgy a villogást pascalban (ha jól rémlik) a kiírás text színénél lehetett megadni. Talán 128-at kell hozzáadni? Próbáld ki!Pl:
Code:textColor(LightRed+128);Sziasztok!
Csatlakozom a topichoz, egy kérdéssel: hogyan kell C-ben/C++-ban (akár Win akár Linux alatt) a konzol betûinek színét átállítani? A jó öreg DOS-os void textcolor() parancs megfelelõjére vadászok tulajdonképpen, egyelõre sikertelenül. Egyáltalán létezik még?„A jó öreg DOS-os void textcolor() parancs megfelelõjére vadászok”
Az a jó (vagy nem) öreg borland megoldás inkább…Ahelyett használhatsz linuxos megoldásokat, vagy szabványos (mindenhol használható) ansi escape szekvenciákat… – jaj, de ismerõs ez nekem…
http://www.linuxforum.hu/index.php?option=com_smf&Itemid=&topic=13783.msg155563#msg155563
Neked nem ismerõs ez a topic…, ha a kérdés/válasz nem is…Köszi, ez tetszett.
Csak én nem találom, vagy tényleg nincs ez semmi referenciában benne? Vagy csak szájról szájra terjednek az ilyenek? 🙂„Csak én nem találom”
csak te nem….„tényleg nincs ez semmi referenciában benne?”
Pl. mondjuk a 10 évvel ezelõtti jó öreg dosos könyvek is közlik mér az ansi escape szekvenciákat (ansi.sys… ha még létezik)… a net meg tele van vele… (lehet, hogy magyarul nem :))retaliator44 wrote:csak szájról szájra terjednekOFF!
/Lányom most tanulja a Rege a csodaszarvasról verset.
Szóval Arany János után szabadon (ld. GPL):/Száll az info szájtról szájtra…
vizsla wrote:„Csak én nem találom”
csak te nem….„tényleg nincs ez semmi referenciában benne?”
Pl. mondjuk a 10 évvel ezelõtti jó öreg dosos könyvek is közlik mér az ansi escape szekvenciákat (ansi.sys… ha még létezik)… a net meg tele van vele… (lehet, hogy magyarul nem :))Lyolvan, lyólvan meg sem lepõdöm hogy csak én vagyok ilyen szelektív látású. Vagy csak lusta? (önkritika mindenekfelett…)
- Be kell jelentkezni a hozzászóláshoz.
legutóbbi hsz