rafael
Administrator
Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
Skąd: Pszczyna
|
| Temat postu: Edytor HTML 1.0 |
|
|
EDYTOR TWORZĄCY PROSTĄ STRONĘ WWW, SWOJE SUGESTIE NA TEMAT PROGRAMU PISZCIE NA ADRES: rafael92@vp.pl
| Kod: | program edytor;
{$APPTYPE CONSOLE}
uses
crt;
var
plik: text;
katalog: string;
procedure intro;
begin
textcolor(white);
gotoxy(30,1);
writeln ('***********************');
gotoxy(30,2);
writeln ('** EDYTOR HTML V 1.0 **');
gotoxy(30,3);
writeln ('** COPYRIGHT BY **');
gotoxy(30,4);
writeln ('** RAFAEL **');
gotoxy(30,5);
writeln ('***********************');
writeln;
end;
procedure stworz_plik;
begin
write ('W jakim katologu ma zostac stworzony plik: ');
textcolor(yellow);
readln(katalog);
katalog := katalog + 'index.html';
assign (plik,katalog);
rewrite (plik);
end;
procedure tworzenie;
var
dane: string;
begin
textcolor(white);
write ('Tytul witryny: ');
textcolor(yellow);
readln (dane);
writeln (plik,'<html>');
writeln (plik,'<head>');
writeln (plik,'<title>',dane,'</title>');
writeln (plik,'</head>');
textcolor(white);
write ('Kolor tla (angielskia nazwa): ');
textcolor(yellow);
readln (dane);
writeln (plik,'<body bgcolor="',dane,'">');
textcolor(white);
write ('Wielkosc naglowka (1-7): ');
textcolor(yellow);
readln (dane);
writeln (plik,'<center>');
write (plik,'<font size="',dane,'"><strong>');
textcolor(white);
write ('Kolor naglowka (angielska nazwa): ');
textcolor(yellow);
readln(dane);
write (plik,'<font color="',dane,'">');
textcolor(white);
write ('Tekst naglowka: ');
textcolor(yellow);
readln (dane);
writeln (plik,dane,'</font></strong></font><br><br>');
writeln (plik,'</center>');
textcolor(white);
write ('Kolor tekstu, ktory bedzie sie przesuwal (angielska nazwa): ');
textcolor(yellow);
readln(dane);
write(plik,'<marquee><b><font color="',dane,'">');
textcolor(white);
write ('Tekst, ktory bedzie sie przesuwal: ');
textcolor(yellow);
readln(dane);
writeln (plik,dane,'</marquee></font></b><br>');
writeln (plik,'<hr><br><br>');
writeln (plik,'<center>');
textcolor(white);
write ('Grubosc ramki (zalecane 1): ');
textcolor(yellow);
readln(dane);
writeln(plik,'<table border="',dane,'">');
writeln(plik,'<tr>');
textcolor(white);
write ('Szerokosc ramki (zalecane ok.700): ');
textcolor(yellow);
readln(dane);
write(plik,'<td width="',dane,'" ');
textcolor(white);
write ('Kolor naglowka ramki (angielska nazwa): ');
textcolor(yellow);
readln (dane);
write(plik,'bgcolor="',dane,'"><b><center>');
textcolor(white);
write ('Kolor tekstu naglowka ramki (angielska nazwa): ');
textcolor(yellow);
readln (dane);
write (plik,'<font color="',dane,'">');
textcolor(white);
write ('Tekst w naglowku ramki: ');
textcolor(yellow);
readln(dane);
writeln(plik,dane,'</b></font></td>');
writeln (plik,'</tr>');
writeln (plik,'<tr>');
textcolor(white);
write ('Dlugosc ramki (zalecane ok.300): ');
textcolor(yellow);
readln (dane);
write (plik,'<td height="',dane,'" ');
textcolor(white);
write ('Kolor tla dolnej ramki (angielska nazwa): ');
textcolor(yellow);
readln(dane);
write (plik,' bgcolor="',dane,'">');
textcolor(white);
write ('Kolor tekstu w dolnej ramce (angielska nazwa): ');
textcolor(yellow);
readln (dane);
write (plik,'<font color="',dane,'">');
textcolor(white);
write ('Tekst w dolnej ramce: ');
textcolor(yellow);
readln(dane);
writeln (plik,dane,'</td></font>');
writeln (plik,'</tr>');
writeln (plik,'</table>');
writeln(plik,'</body>');
writeln(plik,'</html>');
end;
procedure wczytaj_kod (var katalog: string);
var
co: string;
begin
close(plik);
assign(plik,katalog);
clrscr;
textcolor(yellow);
writeln ('Wygenerowany kod: ');
textcolor(white);
writeln;
reset(plik);
while not seekeof(plik) do
begin
read(plik,co);
writeln(co);
end;
end;
begin
intro;
stworz_plik;
tworzenie;
wczytaj_kod(katalog);
readln;
end. |
:arrow: Plik *.exe [link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
Kody źródłowe 
Autor
