unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons, Menus;
type
TForm1 =
class(TForm)
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape6: TShape;
Shape7: TShape;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
MainMenu1: TMainMenu;
Datei1: TMenuItem;
Schlieen1: TMenuItem;
Info1: TMenuItem;
PrintDialog1: TPrintDialog;
Copyright1: TMenuItem;
Gebrauchsinfo1: TMenuItem;
Bearbeiten1: TMenuItem;
Reset1: TMenuItem;
Drucken1: TMenuItem;
Label18: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure Schlieen1Click(Sender: TObject);
procedure PrintDialog1Close(Sender: TObject);
procedure Drucken1Click(Sender: TObject);
procedure Copyright1Click(Sender: TObject);
procedure Gebrauchsinfo1Click(Sender: TObject);
procedure Label17Click(Sender: TObject);
procedure Reset1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{TOBIAS GROß 29.01.2007}
{$R *.DFM}
var a,b,c,d,e,f,gesamt,durchschnitt : integer;
var a1,a2,a3,a4,a5,a6 : extended;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
shape1.height :=shape1.height +7;
shape1.top := shape1.top -7;
a :=(a+1);
label2.Caption := IntToStr(a);
gesamt := (a+b+c+d+e+f);
label14.caption :=IntToStr(Gesamt);
Label8.Caption :=FloatToStrF(a/gesamt*100,ffnumber,5,2);
Label9.Caption :=FloatToStrF(b/gesamt*100,ffnumber,5,2);
Label10.Caption :=FloatToStrF(c/gesamt*100,ffnumber,5,2);
Label11.Caption :=FloatToStrF(d/gesamt*100,ffnumber,5,2);
Label12.Caption :=FloatToStrF(e/gesamt*100,ffnumber,5,2);
Label13.Caption :=FloatToStrF(f/gesamt*100,ffnumber,5,2);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
shape2.height :=shape2.height +7;
shape2.top := shape2.top-7;
b :=(b+1);
label3.Caption := IntToStr(b);
gesamt := (a+b+c+d+e+f);
label14.caption :=IntToStr(Gesamt);
Label8.Caption :=FloatToStrF(a/gesamt*100,ffnumber,5,2);
Label9.Caption :=FloatToStrF(b/gesamt*100,ffnumber,5,2);
Label10.Caption :=FloatToStrF(c/gesamt*100,ffnumber,5,2);
Label11.Caption :=FloatToStrF(d/gesamt*100,ffnumber,5,2);
Label12.Caption :=FloatToStrF(e/gesamt*100,ffnumber,5,2);
Label13.Caption :=FloatToStrF(f/gesamt*100,ffnumber,5,2);
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
shape3.height :=shape3.height +7;
shape3.top := shape3.top -7;
c :=(c+1);
label4.Caption := IntToStr(c);
gesamt := (a+b+c+d+e+f);
label14.caption :=IntToStr(Gesamt);
Label8.Caption :=FloatToStrF(a/gesamt*100,ffnumber,5,2);
Label9.Caption :=FloatToStrF(b/gesamt*100,ffnumber,5,2);
Label10.Caption :=FloatToStrF(c/gesamt*100,ffnumber,5,2);
Label11.Caption :=FloatToStrF(d/gesamt*100,ffnumber,5,2);
Label12.Caption :=FloatToStrF(e/gesamt*100,ffnumber,5,2);
Label13.Caption :=FloatToStrF(f/gesamt*100,ffnumber,5,2);
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
shape4.height :=shape4.height +7;
shape4.top := shape4.top -7;
d :=(d+1);
label5.Caption := IntToStr(d);
gesamt := (a+b+c+d+e+f);
label14.caption :=IntToStr(Gesamt);
Label8.Caption :=FloatToStrF(a/gesamt*100,ffnumber,5,2);
Label9.Caption :=FloatToStrF(b/gesamt*100,ffnumber,5,2);
Label10.Caption :=FloatToStrF(c/gesamt*100,ffnumber,5,2);
Label11.Caption :=FloatToStrF(d/gesamt*100,ffnumber,5,2);
Label12.Caption :=FloatToStrF(e/gesamt*100,ffnumber,5,2);
Label13.Caption :=FloatToStrF(f/gesamt*100,ffnumber,5,2);
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
shape7.height :=shape7.height +7;
shape7.top := shape7.top -7;
e :=(e+1);
label6.Caption := IntToStr(e);
gesamt := (a+b+c+d+e+f);
label14.caption :=IntToStr(Gesamt);
Label8.Caption :=FloatToStrF(a/gesamt*100,ffnumber,5,2);
Label9.Caption :=FloatToStrF(b/gesamt*100,ffnumber,5,2);
Label10.Caption :=FloatToStrF(c/gesamt*100,ffnumber,5,2);
Label11.Caption :=FloatToStrF(d/gesamt*100,ffnumber,5,2);
Label12.Caption :=FloatToStrF(e/gesamt*100,ffnumber,5,2);
Label13.Caption :=FloatToStrF(f/gesamt*100,ffnumber,5,2);
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
shape6.height :=shape6.height +7;
shape6.top := shape6.top -7;
f :=(f+1);
label7.Caption := IntToStr(f);
gesamt := (a+b+c+d+e+f);
label14.caption :=IntToStr(Gesamt);
Label8.Caption :=FloatToStrF(a/gesamt*100,ffnumber,5,2);
Label9.Caption :=FloatToStrF(b/gesamt*100,ffnumber,5,2);
Label10.Caption :=FloatToStrF(c/gesamt*100,ffnumber,5,2);
Label11.Caption :=FloatToStrF(d/gesamt*100,ffnumber,5,2);
Label12.Caption :=FloatToStrF(e/gesamt*100,ffnumber,5,2);
Label13.Caption :=FloatToStrF(f/gesamt*100,ffnumber,5,2);
end;
procedure TForm1.Schlieen1Click(Sender: TObject);
begin
halt;
end;
procedure TForm1.PrintDialog1Close(Sender: TObject);
begin
Form1.print;
end;
procedure TForm1.Drucken1Click(Sender: TObject);
begin
form1.print;
end;
procedure TForm1.Copyright1Click(Sender: TObject);
begin
Showmessage('
Dieses Programm wurde erstellt von Tobias Groß Version: v1.2 WICHTIG! Leider muss in dieser Programmversion der Notendurchschnitt manuell berechnet werden! SORRY! Außerdem: Sollten andere Farbkombis gewünscht sein, einfach ne Mail an: [email]tobias.gross@web.de[/email]');
end;
procedure TForm1.Gebrauchsinfo1Click(Sender: TObject);
begin
Showmessage('
Um die Notenwerte zu erhöhen einfach auf den jeweiligen Button drücken. Danach, falls gewünscht, im Menü (oben) auf "Drucken" klicken und fertig! ');
end;
procedure TForm1.Label17Click(Sender: TObject);
begin
Label17.Caption :=FloatToStrF(durchschnitt,ffgeneral,5,2);
end;
procedure TForm1.Reset1Click(Sender: TObject);
begin
halt;
;
end;
end.