Verfügbare Informationen zu "Infothread"
Qualität des Beitrags: Beteiligte Poster: Joshy - lordkanti - Zwerg - kunzi - Äppel - [ZoF] Vadi - Kate - banjee Forum: www.Lord-Kanti.de.vu :: RELOADED Forenbeschreibung: Reden ist Schweigen, Silber ist Gold. aus dem Unterforum: altes Zeuch Antworten: 68 Forum gestartet am: Sonntag 07.11.2004 Sprache: deutsch Link zum Originaltopic: Infothread Letzte Antwort: vor 17 Jahren, 5 Monaten, 7 Tagen, 4 Stunden, 3 Minuten
Alle Beiträge und Antworten zu "Infothread"
Re: Infothread
Joshy - 16.01.2006, 15:22Infothread
Hier können wir ja wie wir das in letzter zeit schon öfters gemacht haben unsere Quelltexte reinkopieren... erspart ne menge arbeit und ist echt nützlich! ;)
(wenn dem admin nicht passt kann er ihn ja wieder löschen)
Re: Infothread
lordkanti - 16.01.2006, 18:01Re: Infothread
Joshy hat folgendes geschrieben:
(wenn dem admin nicht passt kann er ihn ja wieder löschen)
das kannste dir sparen!
als ob ich hier alle nase lang was löschen würde!
HAB NATÜRLICH NICHTS DAGEGEN!
außerdem ist das hier doch für uns alle gleichermaßen vorteilhaft!
Re: Infothread
Zwerg - 17.01.2006, 19:41
Super! Dann haben wir nur noch halb soviel arbeit!!! APPLAUS!!! ;D
Re: Infothread
lordkanti - 17.01.2006, 20:21
klasse sache!
Re: Infothread
kunzi - 22.01.2006, 11:57
ich hab mein zeugs von don quichotte aus wikipedia .. zwar nicht so toll und hätte keine ahnung wie ich das übersetzen soll, aber für fr. z. reichts sicher
wenn ihr was besseres habt .. zeigen
Re: Infothread
Joshy - 22.01.2006, 23:37
Tom hat irgendwas für uns kopiert hoffe er denkt morgen dran
Re: Infothread
Äppel - 23.01.2006, 11:25
INFO-AUSFALL !!! muaahahaaaa
Re: Infothread
Joshy - 27.01.2006, 10:27
Aufgabe 12 im Buch
with Image1.Canvas do
begin
Font.Color:=clLime;
Font.Size:=36;
Font.Style:=[fsItalic,fsUnderline];
Font.Name:='Punkt-Times';
TextOut(20,200,'Ausgabe');
end;
Re: Infothread
Joshy - 27.01.2006, 10:28
MARCI
stell mal bitte den Quelltext von dem Haus rein
Aufgabe 11 im BUch
var i: integer;
begin
with Image1.Canvas do
begin
for i:=1 to 10 do
begin
Ellipse(100+i*5,100+i*5,250-i*5,250-i*5);
end;
end;
end;
end.
Re: Infothread
[ZoF] Vadi - 30.01.2006, 11:07
pen.color:=clgray;
pen.width:=2;
rectangle(100,130,350,250);
moveto(100,130);
lineto(170,50);
moveto(350,130);
lineto(285,50);
moveto(170,50);
lineto(285,50);
rectangle(130,160,180,210);
rectangle(230,250,280,170);
das haus
Re: Infothread
[ZoF] Vadi - 30.01.2006, 12:12
pen.Width:=5;
moveto(10,200); //dreieck beginn
lineto(60,150);
moveto(60,150);
lineto(110,200);
moveto(60,150);
lineto(60,200); //dreieck ende
moveto(60,150); //strich nach oben
lineto(60,20);
moveto(60,20); //strich nach rechts
lineto(120,20);
pen.width:=3;
moveto(60,50); //schraegstrich
lineto(80,20);
pen.width:=5;
moveto(120,20); //strich nach unten
lineto(120,60);
ellipse(105,60,135,90); //schlinge
moveto(120,90);//koerper
lineto(120,110);
pen.width:=3;//arme
moveto(120,110);
lineto(90,90);
moveto(120,110);
lineto(150,90); //arme ende
pen.width:=5; //koerper weiter
moveto(120,110);
lineto(120,140); //koerper ende
pen.width:=3;
moveto(120,140);//beine anfang
lineto(150,160);
moveto(120,140);
lineto(90,160);//beine ende
galgenmännchen
Re: Infothread
lordkanti - 30.01.2006, 20:54
hehe, danke marcel, das werd auch ich sicher gebrauchen können!
Re: Infothread
lordkanti - 20.02.2006, 12:18
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var x:integer;
begin
with Image1.Canvas do
begin
MoveTo(0,250);
Font.Color:=clblack;
Font.Size:=23;
Font.Name:='Arial';
Font.Style:=[fsBold,fsUnderline];
TextOut(35,1,'Grafik von Name x & Name y');
MoveTo(250,150);
LineTo(280,120);
LineTo(400,120);
Brush.Color:=clred;
Rectangle(250,150,430,270);
LineTo(430,150);
Brush.Color:=clred;
Rectangle(380,105,390,135);
Brush.Color:=clblack;
Ellipse(380,90,440,100);
Brush.Color:=clblue;
Rectangle(270,170,300,200);
Rectangle(370,170,400,200);
Rectangle(310,215,360,270);
Ellipse(60,60,220,130);
Pen.Width:=6;
Pen.Color:=clblue;
MoveTo(70,130);
LineTo(70,135);
MoveTo(75,140);
LineTo(75,145);
MoveTo(90,150);
LineTo(90,155);
MoveTo(150,140);
LineTo(150,145);
MoveTo(200,170);
LineTo(200,175);
MoveTo(125,160);
LineTo(125,165);
MoveTo(150,180);
LineTo(150,185);
MoveTo(110,190);
LineTo(110,195);
Pen.Width:=1;
Pen.Color:=clblack;
MoveTo(360,270);
LineTo(310,440);
MoveTo(310,270);
LineTo(200,440);
Brush.Color:=clgreen;
Pen.Width:=3;
Rectangle(250,340,280,370);
MoveTo(262,340);
LineTO(262,330);
MoveTO(268,340);
LineTo(268,330);
Ellipse(255,310,275,330);
MoveTo(250,340);
LineTo(220,360);
MoveTo(280,340);
LineTo(310,360);
MoveTo(280,370);
LineTo(290,400);
LineTo(300,400);
MoveTo(250,370);
LineTo(240,400);
LineTo(230,400);
end;
end;
end.
Re: Infothread
Zwerg - 24.02.2006, 09:35
nochmal ein haus:
pen.color:=clpurple;
pen.width:=4;
rectangle(50,80,200,180);
moveto(50,80);
lineto(80,50);
moveto(200,80);
lineto(170,50);
moveto(80,50);
lineto(170,50);
rectangle(80,100,110,120);
rectangle(120,100,160,180);
Font.color:=clnavy;
font.size:=20;
Font.name:='Comic Sans';
font.style:=[fsUnderline];
Textout(180,20,'Das Haus!');
end;
end;
Re: Infothread
Zwerg - 24.02.2006, 09:53
ganz viele rechtecke ;D
with image1.canvas do
begin
pen.width:=3;
brush.color:=clred;
brush.style:=bssolid;
rectangle(10,20,60,70);
brush.color:=clFuchsia;
brush.style:=bsclear;
rectangle(70,20,120,70);
brush.color:=clFuchsia;
brush.style:=bshorizontal;
rectangle(130,20,180,70);
brush.color:=clnavy;
brush.style:=bsVertical;
rectangle(190,20,240,70);
brush.color:=clyellow;
brush.Style:=bsvertical;
rectangle(250,20,300,70);
brush.color:=clgreen;
brush.style:=bsFDiagonal;
rectangle(310,20,360,70);
brush.color:=clAqua;
brush.style:=bsBDiagonal;
rectangle(10,80,60,130);
brush.color:=clpurple;
brush.style:=bsdiagcross;
rectangle(70,80,120,130);
brush.color:=cllime;
brush.style:=bscross;
rectangle(130,80,180,130);
end;
end;
Re: Infothread
lordkanti - 24.02.2006, 18:04
kam das bei euch im test dran???
Re: Infothread
Joshy - 24.02.2006, 22:58
Haben doch heute keinen Test geschrieben... sollten aber ein bisschen üben und irgendwas kritzeln und ich hatte aber keine lust und dann hat anne es ins forum gestellt!
Übrigens Marci dein Haus klappt bei mir nicht ganz.. da sind die linien irgendwie von dach verkehrt...
Re: Infothread
Zwerg - 03.03.2006, 10:24
Das ist unser test gewesen.Fast das gleiche Bild wir ihr hattet, nur mit Hund anstatt Mensch.
procedure TForm1.FormCreate(Sender: TObject);
begin
with Image1.Canvas do
begin
Font.Color:=clred;
Font.Size:=10;
Font.Name:='Arial';
Font.Style:=[fsbold,fsunderline];
TextOut(20,10, 'Bild von: Anne Gnensch');
Pen.Color:=clblack;
brush.Color:=clmaroon;
rectangle(20,80,40,170);
rectangle(60,100,80,170);
brush.Color:=clgreen;
ellipse(10,35,50,80);
ellipse(50,45,90,100);
pen.Color:=clgray;
pen.width:=3;
moveto(10,175);
lineto(370,175);
pen.width:=1;
pen.color:=clblack;
brush.color:=clyellow;
brush.style:=bsvertical;
rectangle(200,80,350,170);
brush.style:=bssolid;
rectangle(250,120,310,170);
pen.color:=clred;
pen.width:=2;
moveto(200,80);
lineto(275,50);
moveto(350,80);
lineto(275,50);
moveto(200,80);
lineto(350,80);
pen.color:=clblue;
pen.width:=2;
brush.color:=clblue;
ellipse(135,40,200,65);
pen.width:=2;
moveto(135,60);
lineto(130,65);
moveto(130,70);
lineto(125,75);
moveto(125,80);
lineto(120,85);
moveto(150,65);
lineto(148,70);
moveto(148,75);
lineto(146,80);
moveto(146,85);
lineto(144,90);
moveto(170,65);
lineto(172,70);
moveto(172,75);
lineto(174,80);
moveto(174,85);
lineto(176,90);
moveto(190,65);
lineto(192,70);
moveto(192,75);
lineto(194,80);
pen.color:=clblack;
brush.color:=clgray;
ellipse(115,140,180,160);
ellipse(100,130,120,150);
ellipse(115,155,125,175);
ellipse(170,155,178,175);
moveto(180,149);
lineto(182,130);
end;
end;
Re: Infothread
lordkanti - 03.03.2006, 14:36
hui, dann war ja frau brunn mal richtig kreativ!
Re: Infothread
Joshy - 17.03.2006, 09:07
Strings:
var s,s1,s2: string;
i,Anzahl:Integer;
begin
s:='laufen';
s[1]:='k';
Edit1.Text:=s;
s:='Computer';
Edit2.Text:=s[2];
Anzahl:=0;
s:='Mississippi';
for i:=1 to 11 do
if s[i]='s' then Inc(Anzahl);
Edit3.Text:=IntToStr(Anzahl);
s1:='Hallo';
s2:='Du';
s:=Concat(s1,s2);
Edit4.Text:=s;
s1:='Hallo';
s2:='Du';
s:=concat(s1,',',s2);
Edit5.Text:=s;
Funktion Pos
var s:string;
p1,p2:Integer;
begin
s:='Festplatte';
p1:=Pos('platt',s);
p2:=Pos('fest',s);
Edit1.Text:=IntToStr(p1);
s:='Mississippi';
p1:=Pos('i',s);
p2:=Pos('i',s);
Edit2.Text:=IntToStr(p2);
Re: Infothread
Zwerg - 17.03.2006, 09:32
Hier die Funktionen Delete und Copy:
var s,s1,s2,s3,s4,s5,s6,s7,s8,s9,Name,Vorname:string;
p,n : Integer;
begin
s1:='Personalcomputer';
delete(s1,1,8);
s2:='Personalcomputer';
delete(s2,5,10);
Edit1.Text:=(s1);
Edit2.Text:=(s2);
s3:='Bildschirm';
delete(s3,5,15);
s4:='Tastatur';
delete(s4,15,3);
Edit3.Text:=s3;
Edit4.text:=s4;
s:='Personalcomputer';
s5:=Copy(s,1,6);
s6:=Copy(s,12,4);
s7:=Copy(s,20,3);
s8:=Copy(s,15,5);
Edit5.Text:=s;
Edit6.Text:=s5;
Edit7.Text:=s6;
Edit8.Text:=s8;
s9:='Meier, Rudi';
p:=Pos(',',s9);
n:=Length(s9);
Name:=Copy(s9,1,p-1);
Vorname:=Copy(s9,p+2,n-p-1);
Edit9.Text:=Name;
Edit10.Text:=Vorname;
end;
Re: Infothread
Zwerg - 24.03.2006, 09:17
Internetseite Galgenraten:
http://old.quellcodes.de/delphi_spiele.php
(kann nicht in der schule geöffnet werden)
Re: Infothread
Kate - 04.04.2006, 17:05
na ach du scheiße.... und da blickt ihr durch?
RESPECT! :cool:
Re: Infothread
banjee - 05.04.2006, 12:22
aus diesem grund hab ich das fach abgewählt
Re: Infothread
Kate - 06.04.2006, 07:07
ich auch!! :rolleyes:
Re: Infothread
lordkanti - 06.04.2006, 18:10
ich nich!
Re: Infothread
Kate - 06.04.2006, 19:45
wissen wir doch! ^^
Re: Infothread
Zwerg - 07.04.2006, 09:08
Hier der Quelltext für das Galgenraten:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons;
type
TGalgenraten = class(TForm)
Image1: TImage;
Panel1: TPanel;
Edit1: TEdit;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;
var
Galgenraten: TGalgenraten;
begriff,wort1,wort2:string[20];
anzahl_richtig,anzahl_falsch:integer;
implementation
{$R *.DFM}
procedure TGalgenraten.FormCreate(Sender: TObject);
var i : integer;
bild:TBitmap;
begin
randomize;
anzahl_richtig:=0;
anzahl_falsch:=0;
Edit1.Enabled:=true;
bild:=TBitmap.Create;
bild.height:=Image1.height;
bild.width:=Image1.height;
Image1.Canvas.Draw(0,0,bild);
case random(5) of
0:begriff:='Festplatte';
1:begriff:='Monitor';
2:begriff:='Maus';
3:begriff:='PC';
4:begriff:='Infomatik';
end;
Panel1.Caption:='';
for i:=1 to length(begriff) do
begin
wort1[i]:=begriff[i];
wort2[i]:='+';
Panel1.Caption:=Panel1.Caption+wort2[i];
end;
end;
procedure TGalgenraten.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TGalgenraten.Edit1KeyPress(Sender: TObject; var Key: Char);
var i : integer;
richtiger_buchstabe, geraten: boolean;
begin
if key=chr(13) then
begin
richtiger_buchstabe:=false;
geraten:=true;
Panel1.Caption:='';
for i:= 1 to length(begriff) do
if uppercase(Edit1.Text)=uppercase(wort1[i]) then
begin
wort2[i]:=begriff[i];
richtiger_buchstabe:=true;
end;
if richtiger_buchstabe=true then
anzahl_richtig:=anzahl_richtig+1;
for i := 1 to length(begriff) do
Panel1.Caption:=Panel1.Caption+wort2[i];
if richtiger_buchstabe=false then anzahl_falsch:=anzahl_falsch+1;
case anzahl_falsch of
1:Image1.Canvas.Rectangle(20,200,220,205);
2:Image1.Canvas.Rectangle(100,70,105,200);
3:Image1.Canvas.Rectangle(100,70,190,75);
4: begin
Image1.canvas.moveto(188,75);
Image1.canvas.lineto(188,90);
end;
5:Image1.canvas.Ellipse(180,90,200,110);
6:begin
Image1.canvas.moveto(188,110);
image1.canvas.lineto(188,170);
end;
7:begin
image1.canvas.moveto(188,125);
image1.canvas.lineto(165,142);
end;
8:begin
image1.canvas.moveto(188,170);
image1.canvas.lineto(175,190);
end;
9:begin
image1.canvas.moveto(188,170);
image1.canvas.lineto(175,190);
end;
10:begin
image1.canvas.moveto(188,170);
image1.canvas.lineto(205,190);
showmessage('Game over!');
Edit1.Enabled:=false;
end;
end;
for i:= 1 to length(begriff) do
if wort2[i]='+' then geraten:=false;
if geraten=true then
begin
ShowMessage('Gratulation!Sie haben mit '+IntToStr(anzahl_richtig+anzahl_falsch)
+' Versuch/en gewonnen!');
Edit1.Enabled:=false;
end;
Edit1.Clear;
end;
end;
end.
Re: Infothread
lordkanti - 07.04.2006, 12:23
hey anne, selber geschrieben?
woher haste den quelltext?
Re: Infothread
Kate - 07.04.2006, 16:03
ohhh gott.... :tot:
Re: Infothread
Joshy - 07.04.2006, 19:05
Haben den Quelltext von Reichi bekommen... funktioniert perfekt... aber allein wäre ich / wir da nie draufgekommen-.
Re: Infothread
banjee - 12.04.2006, 16:32
jawoll
Re: Infothread
Kate - 12.04.2006, 21:37
jajaaaaa :D
Re: Infothread
banjee - 18.04.2006, 17:09
yeahhhhhhhhh
Re: Infothread
[ZoF] Vadi - 18.04.2006, 20:19
klasse ding!
Re: Infothread
Kate - 19.04.2006, 08:07
top! ;)
Re: Infothread
banjee - 19.04.2006, 16:00
super
Re: Infothread
Kate - 19.04.2006, 20:34
fett ^^
Re: Infothread
Joshy - 19.04.2006, 20:36
Man merkt das Kathi gefehlt hat... jetzt wird nämlich wiederm brav gespammt.... ;)
Re: Infothread
Kate - 20.04.2006, 20:20
wie wahr!! :lach:
Re: Infothread
Zwerg - 21.04.2006, 08:21
Will ja kein Spielverderber sein, aber bitte net hier spammen, weil wir für den unterricht die dinge sehr schnell finden müssen...Info ist sehr wichtig :lach:
Re: Infothread
Joshy - 21.04.2006, 08:23
Ja sehe ich auch so... also reisst euch wenigstens hier zusammen... wenn ihr es sonst schon nicht schafft einigermaßen sinnvolle beiträge zu schreiben...
Re: Infothread
Kate - 23.04.2006, 14:21
joshy, anne: geht klar!!
Re: Infothread
lordkanti - 23.04.2006, 15:21
da stimme ich anna auch zu.
aber trotzdem in den anderen Threads schön weiter spammen!
Re: Infothread
banjee - 23.04.2006, 16:19
:keks:
Re: Infothread
lordkanti - 23.04.2006, 16:46
ne, lass mal stecken!
Re: Infothread
Kate - 23.04.2006, 21:42
benny... wir solln hier nich spammen!!!
Re: Infothread
banjee - 24.04.2006, 14:47
halts maul
Re: Infothread
Kate - 24.04.2006, 14:57
ey!!!!!!!!!!!!!!!!! :<
Re: Infothread
banjee - 24.04.2006, 15:21
oh was hab ich denn da geschrieben ich entschuldige mich war wohl mein anderes ich
Re: Infothread
Kate - 24.04.2006, 16:57
schön! :)
Re: Infothread
banjee - 24.04.2006, 17:00
na dann ist noch mal alles gut gegangen
Re: Infothread
Kate - 24.04.2006, 17:02
aber grade so!! ^^...
aba jetz müssen wir aufhören hier alles voll zumüllen... dieser Thread gehört schließlich den info-leutchen ^^
:D
Re: Infothread
Zwerg - 19.05.2006, 09:12
Liebe Info-Leute!
Es wäre sehr lieb, wenn ihr wieder mehr Quelltexte ins Forum stellen würdet.
Zum Beispiel die beiden von der S.182/3 und S.183/6...
Es wäre sehr lieb. Mein Programm läuft, doch ich hab es mit einer Prozedur und nicht mit einer Funktion gemacht.
S.182/3
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=Sqrt(a*a+b*b);
Edit3.Text:=FloatToStrF(c,ffFixed, 10, 2);
end;
Re: Infothread
Joshy - 19.05.2006, 09:25
ja meines ist so ähnlich:
procedure TForm1.BitBtn1Click(Sender: TObject);
var a, b, c:Real;
begin
a:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
c:=sqrt(a*a+b*b); //Hypotenuse
Edit3.text:=FloatToStr(c);
end;
Re: Infothread
Joshy - 09.06.2006, 09:00
Seite 187 / aufgabe 11
procedure QuadratischeGleichung(p,q:Real;var Anzahl,x1,x2:Real);
begin
x1:=(p/2)+(sqrt((p/2)*(p/2)-q));
x2:=(p/2)-(sqrt((p/2)*(p/2)-q));
if x1=x2
then Anzahl:=1
else Anzahl:=2;
end;
procedure TForm1.Button2Click(Sender: TObject);
var x1,x2,p,q,Anzahl:Real;
begin
q:=StrToFloat(Edit1.Text);
p:=StrToFloat(Edit2.Text);
QuadratischeGleichung(p,q,x1,x2,Anzahl);
Edit3.Text:=FloatToStr(x1);
Edit4.Text:=FloatToStr(x2);
Edit5.Text:=FloatToStr(Anzahl);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end.
Re: Infothread
Zwerg - 09.06.2006, 09:07
Aufgabe S.183/5
procedure Dreieck (a,b,c:Real; var Umfang, Flaeche:Real);
var s : real;
begin
Umfang:=a+b+c;
s:=Umfang/2;
Flaeche:=Sqrt(s*(s-a)*(s-b)*(s-c));
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var a,b,c,s, Umfang, Flaeche:Real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
Dreieck(a,b,c, Umfang, Flaeche);
Edit4.Text:=FloatToStrF(Umfang, ffFixed,10,2);
Edit5.Text:=FloatToStrF(Flaeche, ffFixed,10,2);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
Re: Infothread
Zwerg - 16.06.2006, 08:40
Nochmal was zu den Quadratischen Gleichungen
procedure QuadratischeGleichung(p,q:real; var Anzahl,Loesung1,Loesung2,wurzel:real);
begin
wurzel:=((p*p/4)-q);
if wurzel<0
then
showmessage('Unter der Wurzel dürfen keine negativen Zahlen stehen!')
else
begin
Loesung1:=-(p/2)+(Sqrt(Wurzel));
Loesung2:=-(p/2)-(Sqrt(Wurzel));
end;
if Loesung1=Loesung2
then Anzahl:=1
else Anzahl:=2;
end;
Re: Infothread
lordkanti - 16.06.2006, 12:58
schön gemacht... hat das so auch alles geklappt?
Re: Infothread
Zwerg - 16.06.2006, 18:22
Also bei mir hat alles funktioniert. Auf meinen Galgenratentest hab ich 12Punkte bekommen. :juggle:
Re: Infothread
lordkanti - 18.06.2006, 21:13
glückwunsch... hat sie unseren schon auch schon fertig?
Re: Infothread
Zwerg - 25.06.2006, 15:01
Keine Ahnung, werdet ihr ja morgen sehen.
Re: Infothread
lordkanti - 25.06.2006, 20:31
möglicherweise!
Re: Infothread
Zwerg - 22.09.2006, 08:07
Bremsweg
procedure TForm1.SchliessenButtonClick(Sender: TObject);
begin
close;
end;
procedure TForm1.RechnenButtonClick(Sender: TObject);
var v,b,s1,s2,s,smax,vmax :Real;
var sger,vger,smaxger,vmaxger :Integer;
begin
v:=StrToFloat(VEdit.Text);
b:=StrToFloat(BEdit.Text);
s1:=v*1;
s2:=(v*v)/(2*b);
s:=s1+s2;
smax:=v/2;
smaxger:=round(smax);
vmaxger:=round(vmax);
vger:=round(v);
sger:=round(s);
if smax>=s
then begin Ja_neinLabel.Caption:= 'Die Faustregel reicht aus';
WHILE smax>=s
DO v:=v+1 end
else begin Ja_neinLabel.Caption:= 'Die Faustregel reicht nicht aus';
WHILE smax<s
DO v:=v-1; end;
v:=vmax;
VmaxEdit.Text:=FloatToStr(vmax);
end;
end.
Re: Infothread
Joshy - 22.09.2006, 08:15
mein quelltext:
procedure TForm1.Button1Click(Sender: TObject);
var vkmh,vms,b,t,s,v : real;
begin
vkmh:=StrToFLoat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
t:=StrToFloat(Edit3.Text);
vms:=vkmh/(36/10);
s:=((vms*vms)/(2*b))+(t*vms);
Edit4.Text:=FloatToStr(s);
begin
if s>(vms/2)
then
begin
v:=0;
repeat
v:=v+1;
until
v=(2*((v*v)/(2*b))+(v*t))
end;
begin
Edit5.Text:=FloatToStr(v);
end;
end;
end;
end.
Re: Infothread
Zwerg - 29.09.2006, 09:01
Preis mit Rabatt
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(sender:TObject);
var n : integer;
p,x,y : real;
begin
p:=StrToFloat(Edit1.Text);
n:=StrToInt(Edit2.Text);
case n of
1: begin
x:=p;
Label4.caption:=FloatToStrF(x,FFfixed,10,2);
Label6.caption:='0';
end;
2,3,4,5: begin
x:=(p*5)/100;
y:=p-x;
Label4.caption:=FloatToStrF(y,FFfixed,10,2);
Label6.caption:='5';
end;
6,7,8,9,10: begin
x:=(p*10)/100;
y:=p-x;
Label4.caption:=FloatToStrF(y,FFfixed,10,2);
Label6.caption:='10';
end;
end;
if (10<n) then
begin
x:=(p*15)/100;
y:=p-x;
Label4.caption:=FloatToStrF(y,FFfixed,10,2);
Label6.caption:='15';
end;
end;
end.
Re: Infothread
Zwerg - 17.11.2006, 09:06
Projekt Kreis
procedure TFormKreis.ButtonRechneClick(Sender: TObject);
var Radius:real;
begin
Radius:=StrToFloat(EditRadius.Text);
LabelErgUmfang.Caption:=FloatToStrF(2*Radius*Pi,ffGeneral,6,0);
LabelErgFlaeche.Caption:=FloatToStrF(Radius*Radius*Pi,ffGeneral,6,0);
EditRadius.SetFocus;
try
Radius:= StrToFloat(EditRadius.Text);
Except
Radius :=0;
EditRadius.text:='0';
Showmessage('Achtung Eingabefehler!');
end;
end;
procedure TFormKreis.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
Re: Infothread
Zwerg - 17.11.2006, 10:16
Projekt Quiz
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Edit1.Text:='Falsche Antwort!';
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Edit1.text:='Richtige Antwort!'
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
Edit1.Text:='Falsche Antwort!';
end;
end.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum www.Lord-Kanti.de.vu :: RELOADED
Das habe ich heute gemacht: - gepostet von Janne am Dienstag 08.05.2007
OberstufenLAN - Ein neuer Versuch - gepostet von Schifty Darkrain am Sonntag 15.10.2006
Ähnliche Beiträge wie "Infothread"
Straßengesetz-Infothread - P.Care (Samstag 27.10.2007)
THE CASTOR Website - Infothread - webmaster (Mittwoch 12.09.2007)
Infothread zum Side Deck! - Vegeto/GT (Donnerstag 08.09.2005)
Enemy of Justice - Infothread - DarkLord (Samstag 14.01.2006)
Der Häuptling - Infothread! - T.K.O. (Montag 29.10.2007)