unit1.~pas

DELPHI 串口程序 小程序 我个人做的想程序给大家看看

unit Unit1;

interface

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

type
  TGuessForm = class(TForm)
    BtnStart: TBitBtn;
    LNum: TLabel;
    SBUserGuess: TScrollBar;
    btnGuess: TButton;
    BitBtn1: TBitBtn;
    procedure BtnStartClick(Sender: TObject);
    procedure SBUserGuessChange(Sender: TObject);
    procedure btnGuessClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GuessForm: TGuessForm;

implementation
 uses Unit2;
{$R *.dfm}
var
  TargetNum:Integer;


procedure TGuessForm.BtnStartClick(Sender: TObject);
begin
    Randomize;
    SBUserGuess.Enabled:=True;
    BtnGuess.Enabled:=True;
    LNum.Caption:='0';
    TargetNum:=Random(101);
    Btnstart.Enabled:=False;//????
    Btnstart.caption:='重新开始';//???
end;

procedure TGuessForm.SBUserGuessChange(Sender: TObject);
begin
    LNum.Caption:=IntToStr(SBUserGuess.Position);
end;


procedure TGuessForm.btnGuessClick(Sender: TObject);
 var MyNum:integer;
begin
   MyNum:=SBUserGuess.Position; //滚动位置
   if MyNum > TargetNum then    //{比较随机数}
   begin
       showMessage('你猜的数字太大了，请重猜');
   end
   else if MyNum < TargetNum then  //{比较随机数}
        begin
            showMessage('你猜的数字太小了，请重猜');
        end
        else if MyNum = TargetNum then
             begin
                 showMessage('恭喜你,猜对了,就是'+IntToStr(TargetNum)+'.再玩一次吧.');
                 BtnStart.Enabled:=True;
                 SBUserGuess.Enabled:=False;
                 BtnGuess.Enabled:=False;
                 LNum.Caption:=' ';
             end;

end;
procedure TGuessForm.BitBtn1Click(Sender: TObject);
begin
   LogForm.close;
end;

end.