Verfügbare Informationen zu "Ein gewagtes Projekt"
Qualität des Beitrags: Beteiligte Poster: Dragorad - matze(2) - vpascal - Moritz Forum: Tutorials.at Forenbeschreibung: Programmierforum aus dem Unterforum: Off-Topic Antworten: 20 Forum gestartet am: Mittwoch 19.04.2006 Sprache: deutsch Link zum Originaltopic: Ein gewagtes Projekt Letzte Antwort: vor 16 Jahren, 5 Monaten, 16 Tagen, 22 Stunden, 29 Minuten
Alle Beiträge und Antworten zu "Ein gewagtes Projekt"
Re: Ein gewagtes Projekt
Dragorad - 26.10.2006, 19:19Ein gewagtes Projekt
Hi,
hat wer Lust ein TP-Programm zu erstellen?
Und so geht's:
1. ich beginne ein funktionsfähiges Prog
2. jeder schreibt ein bisschen was mit, mal 'ne Procedure, da 'ne Benutzeroberfläche
3. das ergebniss ist zufall ...
hier der Start:
Code:
program projekt;
uses crt;
const esc=#27;
begin repeat
clrscr;
until readkey=esc;
end.
Re: Ein gewagtes Projekt
matze(2) - 26.10.2006, 21:47
find ich ne tolle idee :wink:
Code: program projekt;
uses crt;
var i: integer;
const esc=#27;
begin repeat
clrscr;
writeln('Das gibt mal ein Projekt');
writeln('Zum Beispiel kann das Programm zählen:');
for i := 1 to 10 do writeln(i);
until readkey=esc;
end.
Re: Ein gewagtes Projekt
Dragorad - 26.10.2006, 23:06
Code:
program projekt;
uses crt;
var i: integer;
const esc=#27;
begin repeat
clrscr;
textcolor(white);
writeln('Das gibt mal ein Projekt');
writeln('Zum Beispiel kann das Programm zählen:');
for i := 1 to 10 do writeln(i);
writeln('Noch einmal? (zumm Beenden ESC drücken)');
until readkey=esc;
end.
[quote][/quote]
Re: Ein gewagtes Projekt
Dragorad - 27.10.2006, 23:21
Werd' ich auch gleich noch 'ne Prozedur anhängen, die das Textausgeben vereinfachen soll:
Code:
program projekt;
uses crt;
var i: integer;
const esc=#27;
procedure writexy(x,y:byte;text:string);
begin
gotoxy(x,y);
write(text);
end;
begin repeat
clrscr;
textcolor(white);
writexy(1,1,'Das gibt mal ein Projekt');
writexy(1,3,'Zum Beispiel kann das Programm zählen:');
for i := 1 to 10 do writeln(i);
writeln('Noch einmal? (zumm Beenden ESC drücken)');
until readkey=esc;
end.
Re: Ein gewagtes Projekt
Dragorad - 30.10.2006, 00:32
Gleich noch 'ne Procedur, damit Farbe ins Leben kommt :D
Code:
program projekt;
uses crt;
var i: integer;
const esc=#27;
{-------------------------------------------------------------------------------}
procedure writexy(x,y:byte;text:string);
begin
gotoxy(x,y);
write(text);
end;
procedure coloron(vg,hg:integer);
begin
textcolor(vg);
textbackground(hg);
end;
procedure coloroff;
begin
textcolor(white);
textbackground(black);
end;
{-----------------------------------------------------------------------------}
begin repeat
coloron(15,0);
clrscr;
textcolor(white);
writexy(1,1,'Das gibt mal ein Projekt');
writexy(1,3,'Zum Beispiel kann das Programm zählen:');
for i := 1 to 10 do writeln(i);
write('Textfarbe verändern?');readln(vg);
write('Hintergrundfarbe verändern?');readln(hg);
coloron(vg,hg);
clrscr;
writeln('Noch einmal? (zum Beenden ESC drücken)');
until readkey=esc;
coloroff;
end.
Re: Ein gewagtes Projekt
Dragorad - 01.11.2006, 15:54
Eine Datumsanzeige:
Code:
program projekt;
uses crt,dos;
var i:integer;
const esc=#27;
{-------------------------------------------------------------------------------}
procedure writexy(x,y:byte;text:string);
begin
gotoxy(x,y);
write(text);
end;
procedure coloron(vg,hg:integer);
begin
textcolor(vg);
textbackground(hg);
end;
procedure coloroff;
begin
textcolor(white);
textbackground(black);
end;
procedure uhrzeit;
const tage:array[0..6]of string[10]=('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
var j,m,t,wt,h,g,s,ms:word;
begin
clrscr;
while true do
begin
getdate(j,m,t,wt);
gettime(h,g,s,ms);
writeln('Heute ist ', tage[wt], ', der ', t:0, '. ', m:0, '. ', j:0);
writeln;
writeln(' ... und es ist ',h,' : ',g,' : ',s);
delay(25);
clrscr;
end;
end;
{-----------------------------------------------------------------------------}
begin repeat
coloron(15,0);
clrscr;
textcolor(white);
writexy(1,1,'Das gibt mal ein Projekt');
writexy(1,3,'Zum Beispiel kann das Programm zählen:');
for i := 1 to 10 do writeln(i);
write('Textfarbe verändern?');readln(vg);
write('Hintergrundfarbe verändern?');readln(hg);
coloron(vg,hg);
clrscr;
uhrzeit;
writeln('Noch einmal? (zum Beenden ESC drücken)');
until readkey=esc;
coloroff;
end.
Re: Ein gewagtes Projekt
matze(2) - 02.11.2006, 20:44
bist du dir sicher, dass du in der prozedur uhrzeit "while true do" nehmen willst?
Re: Ein gewagtes Projekt
Dragorad - 03.11.2006, 23:17
öh ... ja, wiso?
Re: Ein gewagtes Projekt
matze(2) - 04.11.2006, 00:07
weil das dann doch ne art andlosschleife ergibt, oder?
Re: Ein gewagtes Projekt
Dragorad - 06.11.2006, 10:18
Daduerch wird aber erreicht, dass die Uhrzeit (endlos) aktualisiert wird.
Re: Ein gewagtes Projekt
Dragorad - 18.11.2006, 23:02
Eine kleine Modifizierung:
Code: program projekt;
uses crt,dos;
var i:integer;
const esc=#27;
{-------------------------------------------------------------------------------}
procedure writexy(x,y:byte;text:string);
begin
gotoxy(x,y);
write(text);
end;
procedure coloron(vg,hg:integer);
begin
textcolor(vg);
textbackground(hg);
end;
procedure coloroff;
begin
textcolor(white);
textbackground(black);
end;
procedure uhrzeit;
const tage:array[0..6]of string[10]=('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
var j,m,t,wt,h,g,s,ms:word;
begin
clrscr;
while true do
begin
getdate(j,m,t,wt);
gettime(h,g,s,ms);
writeln('Heute ist ', tage[wt], ', der ', t:0, '. ', m:0, '. ', j:0);
writeln;
writeln(' ... und es ist ',h,' : ',g,' : ',s);
delay(25);
clrscr;
end;
end;
{-----------------------------------------------------------------------------}
begin repeat
coloron(15,0);
clrscr;
textcolor(white);
writexy(1,1,'Das gibt mal ein Projekt');
writexy(1,3,'Zum Beispiel kann das Programm zählen:');
for i := 1 to 10 do writeln(i);
write('Textfarbe verändern?');readln(vg);
write('Hintergrundfarbe verändern?');readln(hg);
coloron(vg,hg);
clrscr;
{uhrzeit;}
writeln('Noch einmal? (zum Beenden ESC drücken)');
until readkey=esc;
coloroff;
end.
Re: Ein gewagtes Projekt
vpascal - 15.05.2007, 09:22
bei mir klappts nicht! bei :
Code: readln (vg);
ist bei mir schluss und der sagt: Unknown Identifier!
Ich denk mal das es daran liegt, das diese variable nur in einer prozedure auftaucht und dort nur deklariert wurde, und das die dann nur in der Prozedure gilt, oder liege ich da völlig daneben??
Re: Ein gewagtes Projekt
Dragorad - 15.05.2007, 14:17
Liegst nicht daneben. Nun die Änderung:
Code: program projekt;
uses crt,dos;
var i,vg,hg:integer;
const esc=#27;
{-------------------------------------------------------------------------------}
procedure writexy(x,y:byte;text:string);
begin
gotoxy(x,y);
write(text);
end;
procedure coloron(vg,hg:integer);
begin
textcolor(vg);
textbackground(hg);
end;
procedure coloroff;
begin
textcolor(white);
textbackground(black);
end;
procedure uhrzeit;
const tage:array[0..6]of string[10]=('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
var j,m,t,wt,h,g,s,ms:word;
begin
clrscr;
while true do
begin
getdate(j,m,t,wt);
gettime(h,g,s,ms);
writeln('Heute ist ', tage[wt], ', der ', t:0, '. ', m:0, '. ', j:0);
writeln;
writeln(' ... und es ist ',h,' : ',g,' : ',s);
delay(25);
clrscr;
end;
end;
{-----------------------------------------------------------------------------}
begin repeat
coloron(15,0);
clrscr;
textcolor(white);
writexy(1,1,'Das gibt mal ein Projekt');
writexy(1,3,'Zum Beispiel kann das Programm zählen:');
for i := 1 to 10 do writeln(i);
write('Textfarbe verändern?');readln(vg);
write('Hintergrundfarbe verändern?');readln(hg);
coloron(vg,hg);
clrscr;
{uhrzeit;}
writeln('Noch einmal? (zum Beenden ESC drücken)');
until readkey=esc;
coloroff;
end.
Re: Ein gewagtes Projekt
vpascal - 20.05.2007, 10:11
Bei mir funktioniert das nicht wenn ich ESC drücke!!!
Re: Ein gewagtes Projekt
Dragorad - 20.05.2007, 10:42
ESC kann man nur dann erfolgreich drücken,wenn auch steht, dass man ESC drücken soll ... also wenn da steht: Zum Beenden ESC drücken, dann drückst du ESC und das Programm sollte beendet werden.
Hier nochmal 'ne überarbeitete Version (Uhrzeit ist rausgeflogen):
Code: program projekt;
uses crt;
var i,vg,hg:integer;
const esc=#27;
{-------------------------------------------------------------------------------}
procedure writexy(x,y:byte;text:string);
begin
gotoxy(x,y);
write(text);
end;
procedure coloron(vg,hg:integer);
begin
textcolor(vg);
textbackground(hg);
end;
procedure coloroff;
begin
textcolor(white);
textbackground(black);
end;
{-----------------------------------------------------------------------------}
begin vg:=15;hg:=0;
repeat
coloron(vg,hg);
clrscr;
writexy(1,1,'Das gibt mal ein Projekt');
writexy(1,3,'Zum Beispiel kann das Programm zaehlen:');
for i := 1 to 10 do writeln(i);
write('Textfarbe veraendern?');readln(vg);
write('Hintergrundfarbe veraendern?');readln(hg);
coloron(vg,hg);
gotoxy(1,25);clreol;
write('Noch einmal? (zum Beenden ESC druecken)');
until readkey=esc;
coloroff;
end.
Re: Ein gewagtes Projekt
Moritz - 08.11.2007, 16:07
Code: program projekt;
uses crt;
var i,ii,startwert,vg,hg:integer;
const esc=#27;
{-------------------------------------------------------------------------------}
procedure writexy(x,y:byte;text:string);
begin
gotoxy(x,y);
write(text);
end;
procedure coloron(vg,hg:integer);
begin
textcolor(vg);
textbackground(hg);
end;
procedure coloroff;
begin
textcolor(white);
textbackground(black);
end;
{-----------------------------------------------------------------------------}
begin vg:=15;hg:=0;
repeat
coloron(vg,hg);
clrscr;
writexy(1,1,'Das gibt mal ein Projekt');
writexy(1,3,'Zum Beispiel kann das Programm zaehlen:');
for i := 1 to 10 do writeln(i);
repeat
writexy (1, 5,'oder als countdown dienen: Startwert eingeben (max 50); readln (startwert)
until (startwert<50)
for ii:=1 to startwert do
delay (1000);
writeln (i);
end;
write('Textfarbe veraendern?');readln(vg);
write('Hintergrundfarbe veraendern?');readln(hg);
coloron(vg,hg);
gotoxy(1,25);clreol;
write('Noch einmal? (zum Beenden ESC druecken)');
until readkey=esc;
coloroff;
end.
Re: Ein gewagtes Projekt
Dragorad - 08.11.2007, 22:56
Cool, dass das Thema nochmal aus der Versenkung kommt!
Re: Ein gewagtes Projekt
Moritz - 09.11.2007, 15:18
ich finde das projekt ja toll...
Re: Ein gewagtes Projekt
Dragorad - 09.11.2007, 21:40
Ich werd' zur Zeit allerdings wenig beitragen können, da ich zur Zeit voll in BlitzBasic bin, da fällt das Umdenken auf TP etwas schwer :)
Re: Ein gewagtes Projekt
Moritz - 09.11.2007, 23:40
Code: program projekt;
uses crt;
var i,ii,startwert,vg,hg:integer;
const esc=#27;
{-------------------------------------------------------------------------------}
procedure writexy(x,y:byte;text:string);
begin
gotoxy(x,y);
write(text);
end;
procedure coloron(vg,hg:integer);
begin
textcolor(vg);
textbackground(hg);
end;
procedure coloroff;
begin
textcolor(white);
textbackground(black);
end;
procedure
{-----------------------------------------------------------------------------}
begin vg:=15;hg:=0;
repeat
coloron(vg,hg);
clrscr;
writexy(1,1,'Das gibt mal ein Projekt');
writexy(1,3,'Zum Beispiel kann das Programm zaehlen:');
for i := 1 to 10 do writeln(i);
repeat
writexy (1, 5,'oder als countdown dienen: Startwert eingeben (max 50); readln (startwert)
until (startwert<50)
for ii:=1 to startwert do
delay (1000);
writeln (i);
end;
writexy (1, 5, 'das Gleiche mit ms:');
for ii:=1 to (startwert*1000) do
begin;
clrscr;
delay (1);
write (ii);
end;
write('Textfarbe veraendern?');readln(vg);
write('Hintergrundfarbe veraendern?');readln(hg);
coloron(vg,hg);
gotoxy(1,25);clreol;
write('Noch einmal? (zum Beenden ESC druecken)');
until readkey=esc;
coloroff;
end.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Tutorials.at
Anstatt goto labelA; !? - gepostet von Mr_A_ am Mittwoch 18.04.2007
Schriftfarbe in C - gepostet von mitti am Sonntag 29.04.2007
Turbo C - gepostet von Mei$ter A^ am Montag 24.04.2006
Syntax error ????????? - gepostet von Akira am Sonntag 28.10.2007
problem mit tutorial - gepostet von Slayer!!!! am Sonntag 20.08.2006
C-Programm aus C-Programm starten ??? - gepostet von Stevox am Mittwoch 13.12.2006
Speichern in Dateien - gepostet von Martix391 am Freitag 26.05.2006
Brauche Hilfe - gepostet von Belphegor am Montag 05.03.2007
Ähnliche Beiträge wie "Ein gewagtes Projekt"
NAP`s für das Projekt Uni2 - Anonymous (Samstag 09.06.2007)
Projekt: Streckenbau - Jinzoo (Montag 13.08.2007)
Projekt Gutenberg - Jadzia (Montag 31.10.2005)
Fehler im Projekt - andreasw (Mittwoch 30.11.2005)
Diverse Proleme beim Projekt - Bravad (Freitag 06.04.2007)
Wer ist der Versuchung erlegen (E10) - rollerbär (Montag 10.10.2011)
Projekt X - Bassi (Montag 20.02.2006)
Das Projekt. - shadowsmals (Sonntag 06.08.2006)
Staudamm-Projekt muss verhindert werden! (Österreich) - GreenMike (Sonntag 04.02.2007)
Import - Export zwischen Open Source Tools und MS Projekt - carsten (Mittwoch 25.04.2007)