Simpel fejl i kode men hvor ???

Hvad er lbl? en label

Først og fremmest tager du ikke højde for at H= 60 eller H=108

procedure Txit.nedTimer(Sender: TObject);
var
  H : Integer;
begin
  if H < 60 then
  begin
    H := IntToStr(lbl.caption);
    H := H - 1;
    lbl.caption := StrToInt(H);
  end else
  begin
    ned.Enabled := false;
  end;
end;

procedure Txit.opTimer(Sender: TObject);
var
  H : Integer;
begin
  if H < 108 then
  begin
    H := IntToStr(lbl.caption);
    H := H + 1;
    lbl.caption := StrToInt(H);
  end else
  begin
    op.Enabled := false;
  end;
end.

Hvor initialisere du H??

Initialisere H ???

og ja lbl er en label, men det er jo sagen uvedkommende...

jeg tror du skal køre H som en delt værdi hvis du skal have det til at virke som jeg tror du vil:

var
  H : Integer;

//dine funcs her

Kan du ikke smide hele koden?

Hvis lbl er en label kan følgende ikke lade sig gøre
H := IntToStr(lbl.caption);, så jeg er nu ikke så sikker på du kan compilere din kode?

Jeg kan heller ikke se hvad det er du vil lave helt præcist da den kode hvor du enabler dine timere ikke er med,men skal den stå og tælle op og ned mellem 60 og 108 ?


Prøv evt. følgende:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Op: TTimer;
    Ned: TTimer;
    lbl: TLabel;
    procedure OpTimerTimer(Sender: TObject);
    procedure NedTimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Tid: Integer= 66;
implementation

{$R *.dfm}

procedure TForm1.OpTimerTimer(Sender: TObject);
begin
  if Tid < 108 then
  begin
    Tid := Tid + 1;
    lbl.caption := IntToStr(Tid);
  end;
  if Tid > 108 then
    Op.Enabled := false;
end;

procedure TForm1.NedTimerTimer(Sender: TObject);
begin
  if Tid > 60 then
  begin
    Tid := Tid - 1;
    lbl.caption := IntToStr(Tid);
  end;
  if Tid < 60 then
    Ned.Enabled := false;
end;

end.

Er det ikke ligemeget om jeg har defineret =60 & =108 ???
Jeg har jo defineret at hvis den kommer under 60 skal:

    H := IntToStr(lbl.caption);
    H := H - 1;
    lbl.caption := StrToInt(H);

ikke udføres mere...

Vi kalder knapperne Op & Ned for at gøre det nemmere

Hvis man trykker på Op tæller den op til 108 og stopper... Hvis man så trykker igen ster der ikke noget (DET ER SÅDAN DET SKAL VÆRE)

Hvis man trykker på Ned tæller den ned til 60 og stopper... Hvis man så trykker igen kører den "-" stykket (DET ER NOGET LORT)

Ja men det er måske fordi begge dine timere er enabled på en gang, så tæller den jo både op og ned for hver gang ;-)

Og ja det vil være en god ide at definere H som en global variabel, sådan som du har gjort er den H du har under op ikke den samme H som under ned

Hvis lbl er en label kan følgende ikke lade sig gøre
H := IntToStr(lbl.caption);, så jeg er nu ikke så sikker på du kan compilere din kode?

Hvorfor skulle det ikke virke ???

fordi at lbl.caption er en string og IntToStr laver en integer om til en string

følgende vil virke
lbl.caption:= IntToStr(H);

Men du har ikke defineret hvad der skal ske hvis H=60

Jeg brugte bare lbl for ikke at skabe for stor forvirring... Jeg skal jo bare bruge en "standard" løsning...

Her er kode som jeg har den i mit projekt...:

procedure Txit.opTimer(Sender: TObject);
var
  H : Integer;
begin
if H > 60 then
begin
H := Xit.Height;
H := H - 1;
Xit.Height := H;
end;
if H < 60 then
begin
op.Enabled := false;
end;
end;

procedure Txit.nedTimer(Sender: TObject);
var
  H : Integer;
begin
if H < 108 then
begin
H := Xit.Height;
H := H + 1;
Xit.Height := H;
end;
if H > 108 then
begin
ned.Enabled := false;
end;
end;

Her har du din løsning, opret et nyt projekt og sæt følgende på din form:

2 Button, den ene kalder du ButtonOp, den anden ButtonNed
1 Timer, den kalder du TimerOpNed
1 Label den kalder du lbl
Samt følgende globale variable:
  Max: Integer = 108;
  Min: Integer = 60;
  Tal: Integer;
  TaelOp, TaelNed: Boolean;

Indsæt så nedenstående kode på de tilhørende events, hvis du ligger din emailadr. så skal jeg sende dig projektet





unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TimerOpNed: TTimer;
    ButtonOp: TButton;
    ButtonNed: TButton;
    lbl: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ButtonOpClick(Sender: TObject);
    procedure ButtonNedClick(Sender: TObject);
    procedure TimerOpNedTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Max: Integer = 108;
  Min: Integer = 60;
  Tal: Integer;
  TaelOp, TaelNed: Boolean;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Tal:= Min;
end;

procedure TForm1.ButtonOpClick(Sender: TObject);
begin
  TaelOp:= True;
  TaelNed:= False;
end;

procedure TForm1.ButtonNedClick(Sender: TObject);
begin
  TaelOp:= False;
  TaelNed:= True;
end;

procedure TForm1.TimerOpNedTimer(Sender: TObject);
begin
  if TaelOp and (Tal < Max) then
    Inc(Tal);
  if TaelNed and (Tal > Min) then
    Dec(Tal);
  lbl.Caption:= IntToStr(Tal);
end;

end.

[Error] Unit1.pas(179): Incompatible types: 'Integer' and 'TEdit'

Ved:

Tal:= Min;

Har du allerede et Edit felt som hedder Tal?

Hvorfor ligger du ikke lige din mailadr, så skal jeg sende det tildig

Sende hvad ??? er det lovligt på E ???

Ja da....jeg har jo lagt løsningen som jeg sender til dig ;-)

Hvis det er den du har lagt... hvorfor så sende den ???

Du kan jo tilsyneladende ikke få det til at virke?

Sry... have en Min allerede...

Tænkte jeg nok

Oki ingen fejl i koden nu.... ikke efter delphi ihvertfald...

men ligemeget om jeg trykker på:

procedure TForm1.ButtonOpClick(Sender: TObject);
begin
  TaelOp:= True;
  TaelNed:= False;
end;
eller:

procedure TForm1.ButtonNedClick(Sender: TObject);
begin
  TaelOp:= False;
  TaelNed:= True;
end;

Så bliver Tal 60 med det samme...

Din start værdi sætter du op her
procedure TForm1.FormCreate(Sender: TObject);
begin
  Tal:= Min;
end;

og da min er 60 starter den ved 60, hvis du ønsker at starte ved 0 gør du sådan her

procedure TForm1.FormCreate(Sender: TObject);
begin
  Tal:= 0;
end;

Timer:

procedure Txit.TimeropnedTimer(Sender: TObject);
begin
  if TaelOp and (Tal < Max) then
    Inc(Tal);
  if TaelNed and (Tal > Mini) then
    Dec(Tal);
    Xit.Height := Tal;
end;

BTW: Hvor hurtigt tæller Inc & Dec op/ned.... skal jo ikke gå direkte fra 60 - 108.... intervallet for at stige/falde 1 skal være intervallet på Timeren...

Inc og Dec tæller op/ned med 1

Og den gør det med intervallet på timeren, hvis jeg skal sende det til dig skal du ligge din mail adr. nu da jeg lukker ned lige om lidt

Jeg fatter stadig ikke hvad du har tænkt dig at sende....

Glem det...........

Ser bare ud som om du har besvær med at få det til at virke, det var kun for at hjælpe dig

procedure Txit.nedTimer(Sender: TObject);
var
  H : Integer;
begin
  if H > 60 then <--- Hvad er H her? Den er ikke initialiseret
  begin
    H := IntToStr(lbl.caption); <--- Her...
    H := H - 1;
    lbl.caption := StrToInt(H); <---- og her bytter du om på IntToStr og StrToInt
  end;
  if H < 60 then
  begin
    ned.Enabled := false;
  end;
end;

Prøv sådan her...

procedure Txit.nedTimer(Sender: TObject);
var
  H : Integer;
begin
  H := StrToInt(lbl.caption);
  if H > 60 then
  begin
    H := H - 1;
    lbl.caption := IntToStr(H);
  end;
  if H < 60 then
  begin
    ned.Enabled := false;
  end;
end;

Dermed ikke sagt at jeg ville gøre det på den måde.... Det er jo heller ikke mit program så det er jo også sagen uvedkommende.

Var det ikke hvad du gjorde forkert du ville vide? og ikke hvordan man ellers kan lave det?

//Klaus

Den løsning i kom frem med ser bedre ud... dog som du siger er H ikke initialiseret... Hvad skal jeg ændre ???

Har du endnu ikke fået min løsning op og kører?

nej...

jamen så skriv da din mail adr. og jeg sender

dumazz@ofir.dk

Er sendt

Kan i ikke give et forslag der matcher det jeg kom med som udgangs punkt... Jeg har KOPIERET dele af dit projekt over i mit eget men virker ikke... Dit virker mit gør ikke.... Aner ikke hvad jeg har gjort galt... Den giver ingen fejl

Så må du give en præcis projektbeskrivelse, eller evt. sende det du har til mig.

jeg har KOPIERET dit så der er IKKE fejl.... kan jeg ikke få en anden løsning... Evt en modificeret forslag af den jeg kom med...

Kan ikke poste Projektet, der er TOP-SECRET