Enostavno seštevanje pomoč, laik

Vse drugo, kar ne spada v nobeno zgornjo kategorijo.
Odgovori
Felix123
Prispevkov: 5
Pridružen: 08.01.2013 09:24:30

Enostavno seštevanje pomoč, laik

Odgovor Napisal/-a Felix123 » 08.01.2013 09:46:07

Bi mi lahko kdo malo pomagal tole spraviti v pogon vsaj za en primer
zgleda nekako takole:

Slika

odisej
Prispevkov: 1363
Pridružen: 09.05.2003 12:58:10

Re: Enostavno seštevanje pomoč, laik

Odgovor Napisal/-a odisej » 11.01.2013 08:15:29

Pomoje nisi prav napisal enačbe

Koda: Izberi vse

var
  kolicina, cena, zaPlacilo, zaVracilo, placano: Double;
begin
  //nekako postavi kolicino, pa ceno in placano
  zaPlacilo := kolicina * cena;
  zaVracilo := placano - zaPlacilo
end;

Felix123
Prispevkov: 5
Pridružen: 08.01.2013 09:24:30

Re: Enostavno seštevanje pomoč, laik

Odgovor Napisal/-a Felix123 » 12.01.2013 14:16:18

Hvala za odgovor in se opravičujem za nejasnot.
Ubistvu sm si jst tole nekak takole zamislu da bi bili gumbi aktivni in bi imeli
vrednost naprimer 2€ in bi se ob kliku na gumbm seštevalo ali pa da se izbere naprimer
gumb malibu v količino vnese št. 3 (kom.) za kar bi bilo gumb*količina(3)
kjer ti izpiše v label (za plačilo) kolikšna je cena in tukaj bi bil kao intigreran mini
računalo da bi ob vnosu v Label(Dani denar) vnesel znesek 20(€) in ti v Label(vračilo) izpiše
koliko se vrne

Če mi lahko kdo napiše kakšna je koda za en primer. Hvala.

odisej
Prispevkov: 1363
Pridružen: 09.05.2003 12:58:10

Re: Enostavno seštevanje pomoč, laik

Odgovor Napisal/-a odisej » 14.01.2013 08:24:53

Ni popolnoma jasno, kaj ti želiš. Kaj če miksaš pivo in malibu, kaj daš v količino?

Koda: Izberi vse

  TForm1 = class(TForm)
...
  private
    zaPlacilo: Double;
  end;
...
procedure TForm1.ButtonPivoClick(Sender: TObject)
begin
  zaPlacilo := zaPlacilo + 2;
  LabelZaPlacilo.Caption := FloatToStr(zaPlacilo);
end;

procedure TForm1.ButtonMalibuClick(Sender: TObject)
begin
  zaPlacilo := zaPlacilo + 3;
  LabelZaPlacilo.Caption := FloatToStr(zaPlacilo);
end;

//potem pa recimo, da imaš gor eno polje za vnos denarja, ki ga je dal in gumb, da preračuna, koliko mu vrni
procedure TForm1.ButtonMalibuClick(Sender: TObject)
var
  placano, zaVracilo: Double;
begin
  placano := StrToFloat(EditPlacano.Text);
  zaVracilo := placano - zaPlacilo
  LabelZaVracilo.Caption := FloatToStr(zaVracilo);
end;

Felix123
Prispevkov: 5
Pridružen: 08.01.2013 09:24:30

Re: Enostavno seštevanje pomoč, laik

Odgovor Napisal/-a Felix123 » 14.01.2013 22:28:50

Za pivo malibu oz. karkoli, da bi se kao dalo 3 kar so kom. in bi ob kliku na gumb zmožilo 3xmalibu in isto za pivo.
oz. me bol zanima kako se naredi da se ob kliku na gumb sešteva vsota naprimer če 5x pritisnem na gumb da mi samo sešteva vrednost če je cena npr. 2€ bi mi tako podalo vrednost 10€

Koda: Izberi vse

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=edit1.text+'2'; //2 je cena kaj še manka da se ob kliku nagumb vse sešteva v edit1

odisej
Prispevkov: 1363
Pridružen: 09.05.2003 12:58:10

Re: Enostavno seštevanje pomoč, laik

Odgovor Napisal/-a odisej » 15.01.2013 08:23:53

Odgovor imaš na dlani v mojem prejšnjem postu. Še 1x da bo za ziher in še malo ozadja. V Delphiju imaš tipe. Ti so različni, string, integer, double,... In ne moreš jih mešat med sabo, kot v nekaterih drugih programskih jezikih. Če hočeš torej seštevat zneske iz edit polja, kjer so stringi, bo šlo potem nekako takole:

Koda: Izberi vse

procedure TForm1.Button1Click(Sender: TObject);
var
  prejsnjaVrednost, novaVrednost: Double;
begin
  prejsnjaVrednost := StrToFloat(edit1.text);
  novaVrednost := prejsnjaVrednost + 2;
  edit1.text := FloatToStr(novaVrednost);
Če pa je to mišljeno kot količine, ki so cela števila, torej integer, pa bi lahko naredil tudi takole

Koda: Izberi vse

procedure TForm1.Button1Click(Sender: TObject);
var
  prejsnjaVrednost, novaVrednost: Integer;
begin
  prejsnjaVrednost := StrToInt(edit1.text);
  novaVrednost := prejsnjaVrednost + 2;
  edit1.text := IntToStr(novaVrednost);
Priporočam kakšno knjigo za začetek, da se malo spoznaš z osnovami, ker takole na prvo žogo gre včasih težko.

Felix123
Prispevkov: 5
Pridružen: 08.01.2013 09:24:30

Re: Enostavno seštevanje pomoč, laik

Odgovor Napisal/-a Felix123 » 24.01.2013 11:38:55

Sm se neki lotu sam sm se hmal zgubu, pol sm se pa mal gledav pa sm čist spremenu pa sam dopisav kere funkcije bi rad imel če se da tole v pogon spravt

Koda: Izberi vse

unit Poskus1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label2: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    Button34: TButton;
    Button35: TButton;
    Button36: TButton;
    Button37: TButton;
    Button38: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure Button35Click(Sender: TObject);
    procedure Button36Click(Sender: TObject);
    procedure Button37Click(Sender: TObject);
    procedure Button38Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label9Click(Sender: TObject);
    procedure Label16Click(Sender: TObject);
    procedure Label13Click(Sender: TObject);
    procedure Label14Click(Sender: TObject);
    procedure Label15Click(Sender: TObject);
    procedure Label17Click(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure Label11Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure StaticText2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//cena pijače je 1,5 €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost 1,5€
  //če je prazno prištej vredost 1,5€


  //za ostalo se pa koda ponavlja?

end;

procedure TForm1.Button21Click(Sender: TObject);
begin
      //ob kliku na gumb
      //iz "Na ime npr. Jure" premakne v prosti lebel na desni strani
      //še zanka if ime že obstaja se samo dopiše v isti label
      // in ispiše vso naročeno pijačo in spodaj ceno

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
        //vnos imena
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
     //izpis cene pijače
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
        //ob kliku na gumb počisti trenutni vnos v label "cena"

end;

procedure TForm1.Button23Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Label2Click(Sender: TObject);
begin

      //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto


end;

procedure TForm1.Button24Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button29Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button31Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button32Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button33Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button34Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button35Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button36Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button37Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

procedure TForm1.Button38Click(Sender: TObject);
begin
        //ob kliku na gumb pošiti vnos iz zgornje //label oz. imena
end;

enprocedure TForm1.Button2Click(Sender: TObject);
begin

procedure TForm1.Button3Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
//cena pijače je xx €
  //ob kliku na gumb preveri okno Cena label1 za vrednost
  //če je število prišteje vrednost xx€
  //če je prazno prištej vredost x€
end;

procedure TForm1.Label8Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label6Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label7Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label3Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label4Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label5Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label9Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label16Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label13Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label14Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label15Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label17Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label12Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label11Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.Label10Click(Sender: TObject);
begin
 //izpis naročene pijače in spodaj skupne cene
      //če je label primerna za to vrsto

end;

procedure TForm1.StaticText2Click(Sender: TObject);
begin

end;

end;

d.
Slika

Odgovori