RS232

[SubData]

Geht sowas nich mit dem SpeedButton? Ich glaub der hat da gleich was für drin :>

[TeronG]

Laut OH hatter "nur" DAS:
OnClick
OnDblClick
OnMouseDown
OnMouseMove
OnMouseUp

Ohhh cool OnDblClick .. wusst ich garnet

[Ultimator]

@TeronG:
Dafür wäre ne Endlosschleife geeignet, aber man sollte bedenken, dass man auch Pausen einsetzen sollte, damit die Spannung nicht zu schnell nach oben geht

[TeronG]

Zitat von Ultimator:

@TeronG:
Dafür wäre ne Endlosschleife geeignet, aber man sollte bedenken, dass man auch Pausen einsetzen sollte, damit die Spannung nicht zu schnell nach oben geht

Klar ... Punkt für dich
ich mach das gerne mit "meiner" Wait-Procedure

Delphi-Quellcode:

procedure Wait(milliseconds: Cardinal);
var
  Start : Integer;
begin
  Start := GetTickCount;
  while GetTickCount-Start <= milliseconds do
    application.ProcessMessages;
end;

[Studtowicz]

wie bau ich denn die schleife ein?
bei mir sieht es jetzt so aus


unit Unit1;

interface

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

type
TForm1 = class(TForm)
ApdComPort1: TApdComPort;
Button1: TButton;
Button2: TButton;
SpeedButton1: TSpeedButton;

procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ApdComPort1.Open := true;
ApdComPort1.Output := '+'
end;



procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ApdComPort1.Open := true;
ApdComPort1.Output := '-'
end;



end.




Kann ich dafür WHILE und DO nehmen?
und welcher Befehl kommt hinter DO????

Sorry ich bin ein nOOOOb

[Ultimator]

Müsste gehen, wenn du nen ApdComPort1 und 2 Buttons auf der Form hast

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    ButtonPressed: boolean;
    procedure SendSign(Zeichen: char);
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure Wait(milliseconds: Cardinal); 
var 
  Start : Integer; 
begin 
  Start := GetTickCount; 
  while GetTickCount-Start <= milliseconds do
    Application.ProcessMessages;
end;

procedure TForm1.SendSign(Zeichen: char);
begin
 while ButtonPressed do
  begin
   ApdComPort1.Output := Zeichen;
   Wait(200);
  end;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ButtonPressed := true;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ButtonPressed := false;
end;

begin

procedure TForm1.Button2Click(Sender: TObject);
begin
 SendSign('+');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SendSign('+');
end;

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ButtonPressed := true;
end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ButtonPressed := false;
end;

end.

[TeronG]

moin moin

Zitat von Studtowicz:

Kann ich dafür WHILE und DO nehmen?
und welcher Befehl kommt hinter DO????

Klar kannste WHILE benutzen .. nach DO kommt das was du machen willst ... entweder eine einzelne Aweisung oder mit Begin und End ein ganzer Haufen von anweisungen. ^^

Zitat von Studtowicz:

wie bau ich denn die schleife ein?

Du könntest zum beispiel eine WHILE DO schleife bei OnMouseDown starten. Und bei OnMouseUp setzt du einen Boolean der die Schleife beendet auf High.
btw.: vergiss nicht den Boolean irgendwo wieder auf False zu Setzen sonnst läuft das ding nicht mehr an ^^

Delphi-Quellcode:

While not Global_bool_fuer_OnMouseUp DO
begin
  // Sannung hoch setzen
  // bissl warten
end;

Zitat von Studtowicz:

bei mir sieht es jetzt so aus

Mach doch bitte die code-tag's (nennt man das so ) um deinen Code .. ist leserlicher dann