[Pascal] Rabatt-Berechner

Dieses Thema im Forum "Projekte / Codes" wurde erstellt von Halloweenracer, 28. April 2006 .

Schlagworte:
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 28. April 2006
    Rabatt-Berechner

    hiho,

    nochmal was kleine für den Neuanfang...

    nen Listenpreis angeben und dann per Combobox die Rabattstufe angeben und dann berechnen lassen.

    Mfg Halloween

    [HIDE]
    Code:
    unit Unit1;
    
    interface
    
    uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls;
    
    type
     TForm1 = class(TForm)
     GroupBox1: TGroupBox;
     Edit1: TEdit;
     ComboBox1: TComboBox;
     Button1: TButton;
     Label4: TLabel;
     Label5: TLabel;
     GroupBox2: TGroupBox;
     Edit2: TEdit;
     Label1: TLabel;
     Label6: TLabel;
     Edit3: TEdit;
     Label2: TLabel;
     procedure Button1Click(Sender: TObject);
     private
     { Private-Deklarationen }
     public
     { Public-Deklarationen }
     end;
    
    var
     Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
     Rabatt,Kundenpreis,Listenpreis :real;
     s:string;
     code:integer;
    begin
    VAL (Form1.edit1.Text, Listenpreis, code);
    VAL (Form1.Edit2.Text, Rabatt, code);
    
    case Combobox1.ItemIndex Of
     0:Rabatt:=0;
     1:Rabatt:=10;
     2:Rabatt:=20;
     3:Rabatt:=30;
     4:Rabatt:=40;
     5:Rabatt:=50;
     end;
    
     Rabatt:=(Listenpreis*Rabatt)/100;
     str(Rabatt:5:2,s);
     form1.edit2.text:=s;
    
     Kundenpreis:=Listenpreis-Rabatt;
     str(Kundenpreis:5:2,s);
     form1.edit3.text:=s;
    
    end;
    
    end.
    [/HIDE]
     

  2. Anzeige
  3. #2 28. April 2006
    Nice Programm, aber ich finde so ein Ding braucht eigendlich keiner. Aber gut programmiert....:p Gefällt mir...;)


    Fanatic
     
  4. #3 28. April 2006
    huhu,

    aba wenn man (wie ich) inna schule das lernt und im inet nach tuts oder beispielen sucht, dann wird man feststellen: huch, soviel gibts da ja gar nich...

    und deswegen sowas einfaches, damit die neulinge was zum nachvollziehen haben ;)

    mfg halloween
     

  5. Videos zum Thema
Die Seite wird geladen...
Similar Threads - Pascal Rabatt Berechner
  1. Antworten:
    2
    Aufrufe:
    890
  2. Antworten:
    2
    Aufrufe:
    900
  3. Antworten:
    2
    Aufrufe:
    393
  4. Antworten:
    7
    Aufrufe:
    576
  5. Antworten:
    12
    Aufrufe:
    598