极速pk10

[推薦] 沈重悼念王集鹄(zswang) [問題點數:400分,結帖人ojlovecd]

我姓區不姓區
Bbs10
本版專家分:107035
Blank
微軟MVP 2012年4月 荣获微軟MVP称号
2011年4月 荣获微軟MVP称号
2010年4月 荣获微軟MVP称号
Blank
紅花 2008年8月 .NET技術大版内专家分月排行榜第一
Blank
黃花 2008年6月 .NET技術大版内专家分月排行榜第二
Blank
藍花 2011年5月 .NET技術大版内专家分月排行榜第三
结帖率 100%
貴陽挖掘機馬善福,自備車輛...
Bbs12
本版專家分:410348
版主
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
狀元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Blank
進士 2012年 总版技术专家分年内排行榜第四
正怒月神
Bbs9
本版專家分:55788
版主
Blank
黃花 2017年11月 .NET技術大版内专家分月排行榜第二
2017年10月 .NET技術大版内专家分月排行榜第二
Blank
藍花 2019年6月 .NET技術大版内专家分月排行榜第三
2018年8月 .NET技術大版内专家分月排行榜第三
2018年6月 .NET技術大版内专家分月排行榜第三
2018年3月 .NET技術大版内专家分月排行榜第三
2017年12月 .NET技術大版内专家分月排行榜第三
2017年9月 .NET技術大版内专家分月排行榜第三
胖叔叔寫代碼
Bbs7
本版專家分:17724
Blank
黃花 2018年12月 .NET技術大版内专家分月排行榜第二
Blank
藍花 2018年7月 .NET技術大版内专家分月排行榜第三
sichuanwww
Bbs1
本版專家分:91
安優小青和他的程序生活
Bbs1
本版專家分:38
娃都會打醬油了
Bbs10
本版專家分:185003
版主
Blank
GitHub 綁定GitHub第三方賬戶獲取
Blank
金牌 2015年9月 总版技术专家分月排行榜第一
2015年8月 总版技术专家分月排行榜第一
2015年7月 总版技术专家分月排行榜第一
2015年6月 总版技术专家分月排行榜第一
2015年5月 总版技术专家分月排行榜第一
2015年4月 总版技术专家分月排行榜第一
Blank
銀牌 2016年1月 总版技术专家分月排行榜第二
2015年11月 总版技术专家分月排行榜第二
2015年10月 总版技术专家分月排行榜第二
Blank
優秀版主 優秀小版主
末先
Bbs1
本版專家分:6
LCL_data
Bbs8
本版專家分:34063
Blank
紅花 2019年6月 Java大版内专家分月排行榜第一
2019年5月 Java大版内专家分月排行榜第一
2019年4月 Java大版内专家分月排行榜第一
2019年1月 Java大版内专家分月排行榜第一
Blank
黃花 2019年2月 Java大版内专家分月排行榜第二
2018年12月 Java大版内专家分月排行榜第二
龍卷風吹毀停車場
Bbs6
本版專家分:8869
Blank
脈脈勳章 綁定脈脈第三方賬戶獲取
果然C
Bbs1
本版專家分:14
Blank
黃花 2019年5月 扩充话题大版内专家分月排行榜第二
Blank
藍花 2019年6月 扩充话题大版内专家分月排行榜第三
mirror030
Bbs5
本版專家分:2115
人中之渣
Bbs3
本版專家分:650
小灰狼
Bbs2
本版專家分:445
OrdinaryCoder
Bbs5
本版專家分:3081
Blank
藍花 2019年5月 .NET技術大版内专家分月排行榜第三
長山孫紅驢
Bbs1
本版專家分:0
xiguayihao
Bbs1
本版專家分:0
wangsufu77
Bbs1
本版專家分:12
puxinping
Bbs1
本版專家分:1
天亮後說晚安
Bbs1
本版專家分:22
Blank
藍花 2019年5月 扩充话题大版内专家分月排行榜第三
門心叼龍
Bbs1
本版專家分:0
Blank
GitHub 綁定GitHub第三方賬戶獲取
春花你大爺
Bbs1
本版專家分:0
北京的霧霾天
Bbs10
本版專家分:107123
Blank
進士 2007年 总版技术专家分年内排行榜第五
Blank
紅花 2007年12月 .NET技術大版内专家分月排行榜第一
Blank
黃花 2007年10月 .NET技術大版内专家分月排行榜第二
Blank
藍花 2008年3月 .NET技術大版内专家分月排行榜第三
2008年1月 .NET技術大版内专家分月排行榜第三
2007年3月 .NET技術大版内专家分月排行榜第三
2007年1月 .NET技術大版内专家分月排行榜第三
在下花十一
Bbs1
本版專家分:0
甯可十年不將軍,不可一日不拱卒
Bbs1
本版專家分:48
Amen5211
Bbs1
本版專家分:0
XBodhi.
Bbs7
本版專家分:11600
版主
Blank
GitHub 綁定GitHub第三方賬戶獲取
Blank
領英 绑定領英第三方账户获取
Blank
黃花 2019年7月 .NET技術大版内专家分月排行榜第二
weixin_43191384
Bbs1
本版專家分:0
?Crystal ?Light
Bbs1
本版專家分:0
qq_43332536
Bbs1
本版專家分:0
cat.up
Bbs1
本版專家分:2
ccrun.com
Bbs2
本版專家分:102
版主
Blank
優秀版主 2015年9月優秀大版主
2015年5月優秀大版主
2015年4月優秀版主
2014年11月论坛優秀版主
Blank
銅牌 2005年12月 总版技术专家分月排行榜第三
Blank
紅花 2017年3月 C++ Builder大版内专家分月排行榜第一
2015年5月 C++ Builder大版内专家分月排行榜第一
2015年4月 C++ Builder大版内专家分月排行榜第一
2015年3月 C++ Builder大版内专家分月排行榜第一
2015年1月 C++ Builder大版内专家分月排行榜第一
2014年12月 C++ Builder大版内专家分月排行榜第一
2014年11月 C++ Builder大版内专家分月排行榜第一
2014年10月 C++ Builder大版内专家分月排行榜第一
2014年9月 C++ Builder大版内专家分月排行榜第一
2014年8月 C++ Builder大版内专家分月排行榜第一
2014年7月 C++ Builder大版内专家分月排行榜第一
2014年6月 C++ Builder大版内专家分月排行榜第一
2014年5月 C++ Builder大版内专家分月排行榜第一
2014年4月 C++ Builder大版内专家分月排行榜第一
2014年3月 C++ Builder大版内专家分月排行榜第一
2014年2月 C++ Builder大版内专家分月排行榜第一
2014年1月 C++ Builder大版内专家分月排行榜第一
2013年12月 C++ Builder大版内专家分月排行榜第一
2013年10月 C++ Builder大版内专家分月排行榜第一
2013年9月 C++ Builder大版内专家分月排行榜第一
2013年8月 C++ Builder大版内专家分月排行榜第一
2013年7月 C++ Builder大版内专家分月排行榜第一
2013年6月 C++ Builder大版内专家分月排行榜第一
2013年5月 C++ Builder大版内专家分月排行榜第一
2013年4月 C++ Builder大版内专家分月排行榜第一
2013年3月 C++ Builder大版内专家分月排行榜第一
2013年2月 C++ Builder大版内专家分月排行榜第一
2013年1月 C++ Builder大版内专家分月排行榜第一
2012年12月 C++ Builder大版内专家分月排行榜第一
2012年11月 C++ Builder大版内专家分月排行榜第一
2012年10月 C++ Builder大版内专家分月排行榜第一
2012年9月 C++ Builder大版内专家分月排行榜第一
2012年8月 C++ Builder大版内专家分月排行榜第一
2012年7月 C++ Builder大版内专家分月排行榜第一
2012年6月 C++ Builder大版内专家分月排行榜第一
2012年5月 C++ Builder大版内专家分月排行榜第一
2012年4月 C++ Builder大版内专家分月排行榜第一
2012年3月 C++ Builder大版内专家分月排行榜第一
2012年2月 C++ Builder大版内专家分月排行榜第一
2011年11月 C++ Builder大版内专家分月排行榜第一
2011年10月 C++ Builder大版内专家分月排行榜第一
2011年9月 C++ Builder大版内专家分月排行榜第一
2011年7月 C++ Builder大版内专家分月排行榜第一
2011年6月 C++ Builder大版内专家分月排行榜第一
2011年5月 C++ Builder大版内专家分月排行榜第一
2011年4月 C++ Builder大版内专家分月排行榜第一
2011年3月 C++ Builder大版内专家分月排行榜第一
2011年2月 C++ Builder大版内专家分月排行榜第一
2011年1月 C++ Builder大版内专家分月排行榜第一
2010年12月 C++ Builder大版内专家分月排行榜第一
2010年11月 C++ Builder大版内专家分月排行榜第一
2010年9月 C++ Builder大版内专家分月排行榜第一
2010年8月 C++ Builder大版内专家分月排行榜第一
2010年7月 C++ Builder大版内专家分月排行榜第一
2010年6月 C++ Builder大版内专家分月排行榜第一
2010年2月 C++ Builder大版内专家分月排行榜第一
2009年12月 C++ Builder大版内专家分月排行榜第一
2009年11月 C++ Builder大版内专家分月排行榜第一
2009年10月 C++ Builder大版内专家分月排行榜第一
2009年9月 C++ Builder大版内专家分月排行榜第一
2009年8月 C++ Builder大版内专家分月排行榜第一
2009年7月 C++ Builder大版内专家分月排行榜第一
2009年6月 C++ Builder大版内专家分月排行榜第一
2009年5月 C++ Builder大版内专家分月排行榜第一
2009年4月 C++ Builder大版内专家分月排行榜第一
2009年3月 C++ Builder大版内专家分月排行榜第一
2008年7月 C++ Builder大版内专家分月排行榜第一
2007年4月 C++ Builder大版内专家分月排行榜第一
2007年3月 C++ Builder大版内专家分月排行榜第一
2006年11月 C++ Builder大版内专家分月排行榜第一
2006年1月 C++ Builder大版内专家分月排行榜第一
2005年12月 C++ Builder大版内专家分月排行榜第一
2005年11月 C++ Builder大版内专家分月排行榜第一
2005年10月 C++ Builder大版内专家分月排行榜第一
2005年9月 C++ Builder大版内专家分月排行榜第一
2004年3月 C++ Builder大版内专家分月排行榜第一
2003年12月 C++ Builder大版内专家分月排行榜第一
2003年9月 C++ Builder大版内专家分月排行榜第一
Blank
黃花 2015年9月 C++ Builder大版内专家分月排行榜第二
2013年11月 C++ Builder大版内专家分月排行榜第二
2012年1月 C++ Builder大版内专家分月排行榜第二
2011年12月 C++ Builder大版内专家分月排行榜第二
2011年8月 C++ Builder大版内专家分月排行榜第二
2010年10月 C++ Builder大版内专家分月排行榜第二
2010年5月 C++ Builder大版内专家分月排行榜第二
2010年1月 C++ Builder大版内专家分月排行榜第二
2008年6月 C++ Builder大版内专家分月排行榜第二
2007年11月 C++ Builder大版内专家分月排行榜第二
2007年2月 C++ Builder大版内专家分月排行榜第二
2006年8月 C++ Builder大版内专家分月排行榜第二
2006年3月 C++ Builder大版内专家分月排行榜第二
2006年2月 C++ Builder大版内专家分月排行榜第二
2005年8月 C++ Builder大版内专家分月排行榜第二
weixin_43578933
Bbs1
本版專家分:0
xwj
Bbs1
本版專家分:6
zhangpj2
Bbs1
本版專家分:0
小白白想學技術
Bbs1
本版專家分:0
みしつかん
Bbs1
本版專家分:0
兔子黨-督察
Bbs10
本版專家分:172930
版主
Blank
微軟MVP 2016年4月荣获微軟MVP称号
2015年4月荣获微軟MVP称号
2014年4月 荣获微軟MVP称号
2013年4月 荣获微軟MVP称号
2012年4月 荣获微軟MVP称号
2011年4月 荣获微軟MVP称号
Blank
紅花 2010年9月 挨踢职涯大版内专家分月排行榜第一
Blank
黃花 2010年12月 .NET技術大版内专家分月排行榜第二
2010年10月 挨踢职涯大版内专家分月排行榜第二
2010年8月 挨踢职涯大版内专家分月排行榜第二
Blank
藍花 2011年7月 .NET技術大版内专家分月排行榜第三
2010年11月 .NET技術大版内专家分月排行榜第三
蕭蕭蕭丶
Bbs1
本版專家分:0
myxk_
Bbs1
本版專家分:0
馬少華
Bbs4
本版專家分:1637
五子棋(人工智能)//zswang
//GobangUnit.pasrn//mailto:wjhu111@21cn.comrn//for Delphi6rnunit GobangUnit;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,rn Dialogs, FuncUnit, ExtCtrls, StdCtrls, Buttons, ComCtrls;rnrnconstrn cSignInt: array[Boolean] of Integer = (-1, +1);rnrnconstrn cMapImageCount = 22;rn cMapImageList: array[0 .. Pred(cMapImageCount)] of string =rn(rn00'●', 01'○', 02'┌', 03'┬', 04'┐',rn05'├', 06'┼', 07'┤', 08'└', 09'┴',rn10'┘', 11'★', 12'☆', 13'┏', 14'┳',rn15'┓', 16'┣', 17'╋', 18'┫', 19'┗',rn20'┻', 21'┛'rn);rnrn cMapCol = 17;rn cMapRow = 17;rnrnconstrn cMoveTide: array[1 .. 4] of TPoint =rn(rn1(X: 00; Y: +1), //'|'rn2(X: +1; Y: +1), //'/'rn3(X: +1; Y: 00), //'-'rn4(X: +1; Y: -1) //'\'rn);rnrntypern TFormGobang = class(TForm)rn ImageGobang: TImage;rn BitBtnPlay: TBitBtn;rn CheckBoxComputer: TCheckBox;rn StatusBarGobang: TStatusBar;rn procedure FormCreate(Sender: TObject);rn procedure ImageGobangMouseDown(Sender: TObject; Button: TMouseButton;rn Shift: TShiftState; X, Y: Integer);rn procedure ImageGobangMouseMove(Sender: TObject; Shift: TShiftState; X,rn Y: Integer);rn procedure BitBtnPlayClick(Sender: TObject);rn privatern Private declarations rn FCurrCol, FCurrRow: Integer; //当前下子坐标rn FMouseCol, FMouseRow: Integer; //当前鼠标坐标rn FPointList: array[1 .. cMapCol, 1 .. cMapRow] of Integer; //棋盘参数rn FCalcParas: array[Boolean, 1 .. 4, 1 .. cMapCol, 1 .. cMapRow] of Integer; //攻防指数rn FChessman: Boolean; //下棋方rn FMaxParas: Integer; //最佳综合数rn FMaxCount: Integer; //最佳综合值rn FStepIndex: Integer; //当前步数rn FTextHeight: Integer; //字体高度rn FTextWidth: Integer; //字体宽度rn FAttackMaxCount: array[Boolean] of Integer; //最佳进攻数rn FAttackMaxParas: array[Boolean] of Integer; //最佳进攻值rn FSumParas: array[1 .. cMapCol, 1 .. cMapRow] of Integer; //综合指数rn publicrn Public declarations rn procedure DrawMap; //画棋盘棋子rn procedure InitMap; //初始化棋盘棋子rn procedure Chessed(X, Y: Integer); //下子rn procedure CalcParas; //计算指数rn procedure Decide; //电脑下棋rn end;rnrnvarrn FormGobang: TFormGobang;rnrnimplementationrnrn$R *.dfmrnrn TFormGobang rnrnprocedure TFormGobang.CalcParas;rnvarrn I, J, K, T: Integer;rn X, Y: Integer;rn B, L, W, P: Boolean;rn vValue: Integer;rn A: array[Boolean] of Integer;rnbeginrn FMaxParas := 0;rn FMaxCount := 0;rnrn FAttackMaxCount[False] := 0;rn FAttackMaxCount[True] := 0;rn FAttackMaxParas[False] := 0;rn FAttackMaxParas[True] := 0;rnrn for I := 1 to cMapCol dorn for J := 1 to cMapRow do beginrn FSumParas[I, J] := 0;rnrn for B := False to True dorn for K := 1 to 4 do beginrn vValue := 0;rn if FPointList[I, J] = -cSignInt[B] then beginrn FCalcParas[B, K, I, J] := -1;rn Continue;rn end else if FPointList[I, J] = cSignInt[B] then beginrn FCalcParas[B, K, I, J] := -2;rn Continue;rn end;rnrn for L := False to True do beginrn X := I;rn Y := J;rn T := 0;rn A[L] := 0;rn W := True;rn P := True;rn while T < 4 do beginrn Inc(X, cMoveTide[K].x * cSignInt[L]);rn Inc(Y, cMoveTide[K].y * cSignInt[L]);rn if (X < 1) or (X > cMapCol) then Break;rn if (Y < 1) or (Y > cMapRow) then Break;rn if FPointList[X, Y] = -cSignInt[B] then Break;rn if W and (FPointList[X, Y] = cSignInt[B]) thenrn Inc(vValue, 100)rn else W := False;rn if not W and P and (FPointList[X, Y] = 0) thenrn Inc(A[L], 10)rn else P := False;rn Inc(vValue);rn Inc(T);rn end;rn end;rn if not(0 in [A[False], A[True]]) thenrn vValue := vValue + A[False] + A[True];rn if vValue > 500 then vValue := 0;rn if (vValue mod 10) < 4 then vValue := 0;rn FCalcParas[B, K, I, J] := vValue;rnrn FSumParas[I, J] := FSumParas[I, J] + vValue;rn if FAttackMaxParas[B] < FCalcParas[B, K, I, J] then beginrn FAttackMaxParas[B] := FCalcParas[B, K, I, J];rn FAttackMaxCount[B] := 1;rn end else if FAttackMaxParas[B] = FCalcParas[B, K, I, J] thenrn Inc(FAttackMaxCount[B]);rn end;rnrn if FMaxParas < FSumParas[I, J] then beginrn FMaxParas := FSumParas[I, J];rn FMaxCount := 1;rn end else if FMaxParas = FSumParas[I, J] thenrn Inc(FMaxCount);rn end;rnend;rnrnprocedure TFormGobang.Chessed(X, Y: Integer);rnvarrn K, T, I, J, vValue: Integer;rn L: Boolean;rnbeginrn FCurrCol := X;rn FCurrRow := Y;rn FPointList[FCurrCol, FCurrRow] := cSignInt[FChessman];rn Inc(FStepIndex);rn for K := 1 to 4 dorn if FCalcParas[FChessman, K, X, Y] >= 400 then beginrn vValue := 1;rn for L := False to True do beginrn T := 0;rn I := X;rn J := Y;rn while T < 4 do beginrn Inc(I, cMoveTide[K].x * cSignInt[L]);rn Inc(J, cMoveTide[K].y * cSignInt[L]);rn if (I < 1) or (I > cMapCol) then Break;rn if (J < 1) or (J > cMapRow) then Break;rn if FPointList[I, J] <> cSignInt[FChessman] then Break;rn Inc(vValue);rn Inc(T);rn end;rn end;rn if vValue = 5 then beginrn FChessman := not FChessman;rn DrawMap;rn MessageDlg(Format('%s胜利', [cMapImageList[rn Integer(Iif(FChessman, 1, 0))]]), mtInformation, [mbOk], 0);rn ImageGobang.Enabled := False;rn Exit;rn end;rn end;rn FChessman := not FChessman;rn DrawMap;rn CalcParas;rn if CheckBoxComputer.Checked and FChessman then Decide;rnend;rnrnprocedure TFormGobang.DrawMap;rnvarrn I, J, vImageIndex: Integer;rn vMapText: string;rnbeginrn vMapText := '';rn for J := 1 to cMapRow do beginrn for I := 1 to cMapCol do beginrn if FPointList[I, J] <> 0 thenrn if (I = FCurrCol) and (J = FCurrRow )thenrn vImageIndex := Iif(FChessman, 12, 11)rn else if FPointList[I, J] = 1 thenrn vImageIndex := 0rn else vImageIndex := 1rn else if I = 1 thenrn if J = 1 thenrn vImageIndex := 2rn else if J = cMapRow thenrn vImageIndex := 8rn else vImageIndex := 5rn else if I = cMapCol thenrn if J = 1 thenrn vImageIndex := 4rn else if J = cMapRow thenrn vImageIndex := 10rn else vImageIndex := 7rn else if J = 1 thenrn vImageIndex := 3rn else if J = cMapRow thenrn vImageIndex := 9rn else vImageIndex := 6;rn if (I = FMouseCol) and (J = FMouseRow) and (vImageIndex in [2..10]) thenrn Inc(vImageIndex, 11);rn vMapText := vMapText + cMapImageList[vImageIndex];rn end;rn vMapText := vMapText + #13#10;rn end;rn TextToCanvas(vMapText, ImageGobang.Canvas, Point(0, 0));rnend;rnrnprocedure TFormGobang.InitMap;rnbeginrn FStepIndex := 0;rn FillChar(FPointList, SizeOf(FPointList), 0);rn CalcParas;rnend;rnrnprocedure TFormGobang.FormCreate(Sender: TObject);rnbeginrn ImageGobang.Canvas.Font.Name := '宋体';rn ImageGobang.Canvas.Font.Size := 19;rn FTextHeight := ImageGobang.Canvas.TextHeight('你');rn FTextWidth := ImageGobang.Canvas.TextWidth('好');rn DoubleBuffered := True;rn FChessman := False;rn ImageGobang.Width := cMapCol * FTextWidth;rn ImageGobang.Height := cMapRow * FTextHeight;rnrn InitMap;rn DrawMap;rnend;rnrnprocedure TFormGobang.ImageGobangMouseDown(Sender: TObject;rn Button: TMouseButton; Shift: TShiftState; X, Y: Integer);rnvarrn vCol, vRow: Integer;rnbeginrn if Button = mbRight then Exit;rn vCol := X div FTextWidth + 1;rn vRow := Y div FTextHeight + 1;rn if (vCol < 1) or (vCol > cMapCol) then Exit;rn if (vRow < 1) or (vRow > cMapRow) then Exit;rn if FPointList[vCol, vRow] <> 0 then beginrn Beep;rn Exit;rn end;rn Chessed(vCol, vRow);rnend;rnrnprocedure TFormGobang.ImageGobangMouseMove(Sender: TObject;rn Shift: TShiftState; X, Y: Integer);rnvarrn vCol, vRow: Integer;rnbeginrn vCol := X div FTextWidth + 1;rn vRow := Y div FTextHeight + 1;rn if (vCol < 1) or (vCol > cMapCol) then Exit;rn if (vRow < 1) or (vRow > cMapRow) then Exit;rn if (vRow = FMouseRow) and (vRow = FMouseCol) then Exit;rn FMouseRow := vRow;rn FMouseCol := vCol;rn DrawMap;rn StatusBarGobang.SimpleText :=rn Format('X:%.2d, Y:%.2d, S:%.2d', [vCol, vRow, FStepIndex]);rnend;rnrnprocedure TFormGobang.Decide;rnvarrn I, J, K, T, M: Integer;rnbeginrn if (FAttackMaxParas[not FChessman] >= FAttackMaxParas[FChessman]) andrn (FAttackMaxParas[FChessman] < 400) then beginrn ///////Begin 考虑防御指数rn M := 0;rn T := Random(FAttackMaxCount[not FChessman]);rn for J := 1 to cMapRow dorn for I := 1 to cMapCol dorn for K := 1 to 4 dorn if FAttackMaxParas[not FChessman] = T thenrn beginrn Chessed(I, J);rn Exit;rn end else Inc(M);rn ///////End 考虑防御指数rn end else if (FAttackMaxParas[FChessman] > 310)rn or (FAttackMaxParas[FChessman] >= FAttackMaxParas[not FChessman])rn or (FAttackMaxParas[not FChessman] < 210) then beginrn ///////Begin 考虑进攻指数rn M := 0;rn T := Random(FAttackMaxCount[FChessman]);rn for J := 1 to cMapRow dorn for I := 1 to cMapCol dorn for K := 1 to 4 dorn if FAttackMaxParas[FChessman] = T thenrn beginrn Chessed(I, J);rn Exit;rn end else Inc(M);rn ///////End 考虑进攻指数rn end else beginrn ///////Begin 考虑综合指数rn M := 0;rn T := Random(FMaxCount);rn for J := 1 to cMapRow dorn for I := 1 to cMapCol dorn if FMaxParas = FSumParas[I, J] thenrn if M >= T thenrn beginrn Chessed(I, J);rn Exit;rn end else Inc(M);rn ///////End 考虑综合指数rn end;rnend;rnrnprocedure TFormGobang.BitBtnPlayClick(Sender: TObject);rnbeginrn ImageGobang.Enabled := True;rn InitMap;rn DrawMap;rn if CheckBoxComputer.Checked and FChessman then Decide;rnend;rnrnend.rnrn//GobangUnit.dfmrnobject FormGobang: TFormGobangrn Left = 178rn Top = 27rn Width = 451rn Height = 504rn Caption = 'FormGobang'rn Color = clBtnFacern Font.Charset = DEFAULT_CHARSETrn Font.Color = clWindowTextrn Font.Height = -11rn Font.Name = 'MS Sans Serif'rn Font.Style = []rn OldCreateOrder = Falsern OnCreate = FormCreatern PixelsPerInch = 96rn TextHeight = 13rn object ImageGobang: TImagern Left = 8rn Top = 24rn Width = 425rn Height = 426rn OnMouseDown = ImageGobangMouseDownrn OnMouseMove = ImageGobangMouseMovern endrn object BitBtnPlay: TBitBtnrn Left = 115rn Top = 2rn Width = 75rn Height = 20rn Caption = 'Play'rn TabOrder = 0rn OnClick = BitBtnPlayClickrn endrn object CheckBoxComputer: TCheckBoxrn Left = 8rn Top = 0rn Width = 97rn Height = 17rn Caption = 'Computer'rn Checked = Truern State = cbCheckedrn TabOrder = 1rn endrn object StatusBarGobang: TStatusBarrn Left = 0rn Top = 458rn Width = 443rn Height = 19rn Panels = <>rn SimplePanel = Truern endrnendrnrn//FuncUnit.pasrnunit FuncUnit;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs;rnrnfunction Iif(mBool: Boolean; mDataA: Variant; mDataB: Variant): Variant;rnrnprocedure TextToCanvas(mText: string; mCanvas: TCanvas; mMove: TPoint);rnrnimplementationrnrnfunction Iif(mBool: Boolean; mDataA: Variant; mDataB: Variant): Variant;rnbeginrn if mBool thenrn Result := mDataArn else Result := mDataB;rnend; Iif rnrnprocedure TextToCanvas(mText: string; mCanvas: TCanvas; mMove: TPoint);rnvarrn I: Integer;rn vTextHeight: Integer;rnbeginrn with TStringList.Create do tryrn Text := mText;rn vTextHeight := mCanvas.TextHeight('|');rn for I := 0 to Pred(Count) dorn mCanvas.TextOut(mMove.X, mMove.Y + vTextHeight * I, Strings[I]);rn finallyrn Free;rn end;rnend; TextToCanvas rnrnend.rnrn//GobangApp.dprrnprogram GobangApp;rnrnusesrn Forms,rn GobangUnit in 'GobangUnit.pas' FormGobang,rn FuncUnit in 'FuncUnit.pas';rnrn$R *.resrnrnbeginrn Application.Initialize;rn Application.CreateForm(TFormGobang, FormGobang);rn Application.Run;rnend.rnrn
沈重教訓">軟件bug的沈重教訓
几年前在某个网络设备项目中,我负责的PCI总线数据传送程序出现一个bug,但该bug极少出现,故在调试期间筋疲力竭的情况下被忽略了。其后我离开了这个项目组,大半年之后,我再次去该项目组时才定位到该问题的真正原因。 但此刻这个bug已经导致了巨大的损害,即耗费了我的一位好同事的巨大精力。他本来负责上层软件,并不熟悉该底层驱动模块,却不得不付出巨大努力来解决这个底层bug,可想而知是多大痛苦,多大负
沈重!">畢業了,心情有點沈重
沒有預想的興奮與期待。。。。
沈重">心情很沈重
清明三天就这样过去了,可这三天,对我,对家里的小宝宝也许是个难忘记的日子,因为这三天给他断了奶! 以前小家伙一直是他妈妈带,一些生活细节我就不太了解了!但这三天里我感受了很多,看到小家伙一个个无助的举动,心里真很难受!虽然他已经一岁了,但我觉得还应该在吃长一点点时间,但他妈妈拿出一大把理由和资料来说服我,那好,就断吧!三天里我时时刻刻的陪着他,尤其是晚上,习惯了东西是那么...
ZSwang請進來,有事請教
ZSwang,你好,昨天下载了你的一个程序《跨进程访问VCL》,仔细研究了一下,获益匪浅,在此谢谢了。rnrn另外请教你一下,如果我需要hook外部程序中的一个第三方的控件,这个控件不是象label之类delphi自带的,那应该怎么改写程序?比如说这句:SameText(vWinControl.Components[I].ClassName, 'TLabel'),因为这个Component的ClassName是 'TLabel',所以程序能通过,如果我想hook的是一个第三方的控件,比如说dxtreelist,而这个dxtreelist并没有安装在我的delphi中,所以编译时肯定通不过的。您有办法解决这个问题嘛?还请多多指教!rnrn我只有这最后的10分了,以后等分数凑多了再赠送!
zswang 哪兒去了??????
拌水被誰趕下台了???
問:zswang(伴水)?
爲何'回車'後,效果等于兩個TAB?
沈重的電子商務雜談">有點沈重的電子商務雜談
?模式和概念的东西不想说太多,更不想因此而较真。本人只是想通过这篇文章,说明我对未来电子商务特别是中国电子商务发展趋势的观察、探讨和推测。???????? 刚刚接触电子商务大家都喜欢说分为B2B、B2C、C2C的模式,还有些朋友说自己发明创造了一些模式。这个我不想多作评价。个人觉得电子商务发展到今天,很多东西已经从模式概念化落地,对于有些虚空的东西已经没有兴趣再去争论。电子商务发展到今天,已经
沈重">最近心情,沈重
面临毕业and失业,专升本又困难重重,招的人特别少,更令我寒心的是,大学2年多的同学说不要和我抢(上师大),都各奔前程去了,唉我寄希望与找工作,工作啊工作,你咋不给我个机会呢,起码先让我面试啊..投的简历石沉大海....some body help me
解鈴還需系鈴人,zswang請進!!!
帖子http://topic.csdn.net/u/20080831/17/95c9c646-d193-4e22-867b-d86f599eee62.htmlrnrn经过调试发现一个Bug,不知道怎么解决了。rnrn[code=C#]rnstring s1 = "聞き逃す";rnstring s2 = "ききのがす";rnrnstring pattern = Regex.Replace(s1, @"[\u4e00-\u9fa5]+", "(.*?)");rnrnint i = 0;rnstring replacement = Regex.Replace(s1, @"([\u4e00-\u9fa5]+)",rn delegate(Match match)rn rn return match.Value + string.Format("($0)", ++i);rn );rnrnConsole.WriteLine(Regex.Replace(s2, pattern, replacement));rnrn[/code]rnrnrn输出的结果是:rnrn聞()き逃(きのが)すrnrn这个问题怎么解决?rn
考考大家<>//zswang
<>不简单哦rnNo.1 编译指令不能除(如:$I+)rnNo.2 字符表达式中不能除(如:' 我不是注释,我是字符串 ')rnNo.3 其他情况 rn如: rnbeginrn //要小心哦rn Inc(I);//rnend;
zswang請來拿分
由于 http://www.csdn.net/expert/topic/103/103526.shtm ,所以给分。rnrn谢谢!
zswang(伴水)(被黑中),zswang(伴水)(被黑中)
剛剛你解決了其他程序窗口位置的問題,現在怎麽樣使我的窗口隨那個窗口的移動而移動呢,我不能用時間啊,因爲用時間,如果你點著那個窗口的時間超出你定的時間時,窗口就跑回原處了。
CSS教程--碧鹄ing愛好制作
CSS快速入门--CSS是Cascading Style Sheets(层叠样式表单)的简称。更多的人把它称作样式表。顾名思义,它是一种设计网页样式的工具。借助CSS的强大功能,网页将在您丰富的想象力下千变万化。
悼念者過千">王江民追悼会今晨举行 现场悼念者過千
?????? 4月8日,江民公司为因病去世的创始人王江民举办追悼会,前往追悼会<em>悼念</em>的各界人士近千人。?????? 4月8日上午王江民的追悼会在北京八宝山殡仪馆举行,灵堂设于殡仪馆东侧的礼堂。礼堂门前高挂挽联:“神魂离去芳名百世著清风,音容宛在勤奋一生传佳话”,挽帐:“沉痛<em>悼念</em>王江民先生”。社会各界赠送的上百花圈,从灵堂摆放至露天广场连绵不绝。?????? 在4月8日之前,有关王江民追悼会的消息已经...
zswang您好請教個問題
Memo.Text中输入:rn1.李从容 MCXQJ rn 2. MU5738 V TU11MAR CANKMG RR1 1900 2110 E rn 3.CAN/T SZX/T 020-38771771/SZX LAISIDA AVIATION SERVICE LTD. IN CAN/HONG rn XIANG NI ABCDEFG rn 4.02085644466 rn 5.TL/1900/06MAR/CAN695 rn 6.FC/A/CAN MU KMG 630.00Y50 CNY630.00END rn 7.SSR FOID MU HK1 NI530011219730205161X/P1 rn 8.SSR OTHS 1E PNR RR AND PRINTED rn 9.SSR OTHS 1E CHINA EASTERN AIR ET PNR rn10.OSI 1E MUET TN/7812310106816 rn11.RMK CA/HYVRS rn12.RMK AUTOMATIC FARE QUOTE rn13.FN/A/FCNY630.00/SCNY630.00/C3.00/XCNY150.00/TCNY50.00CN/TCNY100.00YQ/ rn ACNY780.00 rn14.FP/CASH,CNY rn15.CAN695rnrn提交后想得到StringGrid1.Cells[1, I ]:=李从容 rnStringGrid1.Cells[2, I ]:=530011219730205161XrnEdit1.Text:=MCXQJ Edit2.Text:=MU5738 Edit3.Text:=V Edit4.Text:=11MAR Edit5.Text:=CAN Edit6.Text:=KMG 1900 2110 rn630.0 50.00 100.00 780.00 rn人名字和SSR FOID /P1是按RR1或HK1中的数字而定的..rnHK后面是2时 就是下面这样rnHK或RR后面可由1至9变化rn1.李从容 2.李斌 MCXQJ rn 3. MU5738 V TU11MAR CANKMG RR1 1900 2110 E rn 4.CAN/T SZX/T 020-38771771/SZX LAISIDA AVIATION SERVICE LTD. IN CAN/HONG rn XIANG NI ABCDEFG rn 5.02085644466 rn 6.TL/1900/06MAR/CAN695 rn 7.FC/A/CAN MU KMG 630.00Y50 CNY630.00END rn 8.SSR FOID MU HK1 NI530011219730205161X/P1rn 9.SSR FOID MU HK1 NI5300112197302051623/P2 rn10.SSR OTHS 1E PNR RR AND PRINTED rn11.SSR OTHS 1E CHINA EASTERN AIR ET PNR rn12.OSI 1E MUET TN/7812310106816 rn13.RMK CA/HYVRS rn14.RMK AUTOMATIC FARE QUOTE rn15.FN/A/FCNY630.00/SCNY630.00/C3.00/XCNY150.00/TCNY50.00CN/TCNY100.00YQ/ rn ACNY780.00 rn16.FP/CASH,CNY rn17.CAN695rn得到的是一样的rnrn提交后想得到StringGrid1.Cells[1, I ]:=李从容rnStringGrid1.Cells[1, I ]:=李斌rnStringGrid1.Cells[2, I ]:=5300112197302051623rnStringGrid1.Cells[2, I ]:=530011219730205161XrnEdit1.Text:=MCXQJ Edit2.Text:=MU5738 Edit3.Text:=V Edit4.Text:=11MAR Edit5.Text:=CAN Edit6.Text:=KMG 1900 2110 rn630.0 50.00 100.00 780.00 rnrn格式是固定的.只是位置会变化...rn如果方便请您给个完整的代码.谢谢!!!
急尋zswang(伴水)
-
悼念老虎">悼念老虎
?老虎,被毒藥毒死了,是氰化鉀。媽媽很難過,小明上學不在家,老虎成了媽媽說話的對象,老虎很聽話,喜歡媽媽誇她漂亮;爸爸很難過,早上散步沒有了老虎的陪伴;小明很難過,沒有老虎的看家護院,小明在外面上學不放心;陳叔知道老虎死了,吃不下飯;海叔因爲老虎喝醉酒。老虎是我們大家的老虎,關心老虎的人很多,可老虎就這樣意外地走了,老虎,但願你能在另一個世界過得開心,保佑我們的安全。對凶手,我不想說太過的咒罵的話
悼念喬布斯">悼念喬布斯
2011年10月6号早晨,刚起床就听到这个令人震惊的消息,心情久久不能平静;无疑 IT 界失去了一位伟大的领导者,回忆起这位业界巨匠传奇的经历,脑中的情绪一阵翻滚,于是马上打开屏幕重温一下他在斯坦福大学2005年毕业典礼上的那段经典的讲演《Stay Hungry Stay Foo
悼念Jobs">悼念Jobs
默哀~~神一样的Jobs 在原来的公司,有一个法国人叫Pierre,跟Jobs很像,严谨,渊博,富有创造力。 感慨国内的教育,很难培养出这样的人才啊!
悼念錢學森">悼念錢學森
昨天收到短信,錢學森走了,心里很难过,不知如何表达,我对他的人格、学识和爱国情怀充满崇敬。 ? 呜呼,悼钱老,一路走好! ? ? 2009年11月2日...
悼念">沈痛悼念
20100918,我的奶奶離開了這個世界,享年90。沈痛<em>悼念</em>。
悼念">5.12 悼念
<em>悼念</em>在地震中失去生命的人, 祝生者以后更加美好, 感谢幫助过灾区的人们。
悼念袁可嘉">悼念袁可嘉
剛才才知道的,袁可嘉先生已于本月8日在紐約去世。袁先生是上世紀40年代以西南聯大學生爲主體的九葉詩派的成員之一,成員還有陳敬容、鄭敏、穆旦等等響當當的人物。也是剛才才知道的,九葉這個名字是80年代幾個人劫後重逢(許多人之間以前並不熟悉)結集時才取的,並非一開始就有。當然,對我和許多年紀相仿的同學來說,知道並且記住袁先生還是因爲他和董衡巽、鄭克魯共同主編的《外國現代派作品選》。我們僅有的一點外國現代
悼念下5.12
...
沈重">仲大軍:中國的經濟非常沈重
仲大军我国的发展,对于大多数工人农民来说,经济发展的成果象是一个黑洞。为什么改革近30年了,大多数的普通百姓的生活状况没有多大变化,许多的人甚至生活在贫困线上。这么高的经济增长,所创造出的国民财富到底都到哪里去了?经济高增长与财富大漏斗 ——当前我国经济的几个明显特点作者:仲大军 北京大军经济观察研究中心目前我国经济发展的状况是令人既喜且忧,喜的是有一个热衷GDP的政府和国民,使整
沈重的翅膀??軟件開發,業務?技術?">沈重的翅膀??軟件開發,業務?技術?
他像一头耸起翅膀准备腾然飞起的苍鹰,即使年迈力衰越不过高山大海也在所不惜。???????????????????????????????????????????????????????????????????????????????????????《<em>沈重</em>的翅膀》???????原本实在是不想写什么有关软件之类的感想了,这几年写了很多,发现无用的太多,更况目前网络上铺天盖地的都是。写这样的文字,大有“
沈重的货物 (最小生成树)">bnuoj 20950 沈重的货物 (最小生成树)
<em>沈重</em>的货物 ? ? ? ? ? ? ? Time Limit:?1000ms ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??Memory Limit:?65536KB ?64-bit integer IO format:?%lld????? Java class name:?Main ? CUITCPC是一个专门生产大型货运火车
沈重">思考人生-似乎有點沈重
唉,心情有點低落,來得有點突然,事情還是發生了。有時候都懷疑自己的感覺,爲什麽經常都是不好的事情來得更快一些。想做的事情不少,這段時間來卻什麽都沒有做到,是不是該重新思考人生了,事情一件件的做。過段時間吧,把手頭的事情做完,就到下一件事情了,一件想了很多年都沒有做到的事情。另外如果你會看到這裏的話,我還是想說真的是sorry,事情也許不是你想的那樣,還是那句話,放棄的同時也許就意味著收獲另外的東西
沈重。">我不必活得如斯沈重
亞洲杯半決賽:中國和伊朗一戰奧運會:杜麗、王義夫、賈占波的奪金之路奧運會:男藍與塞黑之戰奧運會:男子雙人3米板希臘選手的勝出奧運會:網球女雙的奪冠之路奧運會:唐功紅的沖冠一舉奧運會:悲情中國男劍客,我靠*************************************************************************************
沈重的使命!">堅持就是勝利.....久違的執著,沈重的使命!
? ? 在那些曾经不可一世的诺言面前,我仍在卖命的坚持着,或许是我们将现实想的太过艰难,但只要还在奋斗,一切就还有意义!?????????????????????? 总之,不是要考上,是一定要考上,我也必须要考上................这就是我的忍道了
悼念Opera">悼念Opera
说起来这个标题挺奇怪的,因为Opera并没有消失在这个世界上。 然而,他也确实消失了。当Opera公司决定放弃Presto,并且转向Webkit的时候。这远非单纯技术上的转移。 很累,一种让人觉得很累很无奈的感觉。Google的霸权,令人无言以对。 原本想多写点,结果正好发现一篇来自知乎的回答很有共鸣。所以,以下全文引用: http://www.zhihu.com/question/2...
悼念糊塗">悼念糊塗
一塌糊塗终于还是关了一塌糊塗BBS创建于1999年9月17日。一塌糊塗BBS最初是由北京大学物理系研究生lepton架设,主要面向于北京大学学生的小型BBS,IP 162.105.31.222,域名ytht.net,可以使用telnet,http,ssh等方式连接。机器设备完全由网友自发捐款购买。现在拥有700多个讨论区,总用户数近30万,最大同时在线人数20930。用户群主要为全国高校在校学生、
沈重的貨物(最小生成樹的Prim算法)">BNUOJ-20950-沈重的貨物(最小生成樹的Prim算法)
E. <em>沈重</em>的货物 Time Limit: 1000msMemory Limit: 65536KB 64-bit integer IO format: %lld Java class name: Main Submit Status PID: 20950CUITCPC是一个专门生产大型货运火车的工厂。他们的新型货运火车XX V1.0,是如此之大,以至于可以运输的货物的重量并不取决于那个火
悼念林妹妹">悼念林妹妹
?好幾天前就想記錄一下這種情緒,就是在80年代紅樓夢中林黛玉的扮演者陳曉旭病逝之際,對林妹妹的莫名的哀思。從網絡上的描述,知道陳曉旭和林黛玉神似,而她也幾乎就演了這一場戲。她留給世人的是無法超越的藝術享受,和對劇中人的完美诠釋。劇中人呢?想眼中,能有多少淚珠兒,怎禁得,秋流到冬,春流到夏……
悼念MP3">悼念MP3
??? <em>悼念</em>MP3你来的时候满是欣喜,你走的时候满是遗憾;看着你那熟悉的面容,听着你那柔美的声音;打发掉了无聊的时间,欣赏道了流行的艺术;伴我度过几多不眠夜,涉猎泛读了传奇逸事;记忆过数万兆的数据,留下过未读尽的精彩;如今你突然离开而去,未满周岁就这样夭折;早知你如此纤细孱弱,就对你倍加呵护关怀;无奈无助的把你送走,满怀希望的迎你归来;不过上你周岁的生日,散发出你余下的光芒!
悼念王選">悼念王選
王選发明汉字激光排版那会偶才8,90年代初,我才十几岁,上中学吧。对其没太深的印象,只是知道这么回事而已。后来,王選虽然仍是学术界的泰斗,但基本上已经不在混乱的江湖上混了,因此听到的更少。今天得知王選逝世的消息,看到大家对他的评价,才知道公道自在人心!虽然王選自评:“我是一个过时的科学家”,然而在大家的心目中,他却是我国汉字激光照排之父,是当代的毕昇,是近二十多年来我国科技工作的先驱!人虽逝去,但
悼念巴金">悼念巴金
不爲別的,只因爲一句話:中國的良心,值得敬佩的一個老人!
悼念]涼皮">[悼念]涼皮
天气渐渐暖和了后,打消了喝羊肉汤的念头,开始寻找凉皮吃。找来找去,发现小区里有三家卖凉皮的,各在三家超市的旁边。吃来吃去,发现L旁边一位大姐卖的凉皮最好吃,因为只有她家放花生酱,香香的。:)便都去那儿买了吃。 过几天,发现似乎离不开凉皮了一般,每天买菜路过凉皮小摊的时候必买,若某天下班晚了没吃上,便一晚上念念不忘,第二天一定补回来。 后来,跟朋友提起这件事,朋友大呼:他们往凉皮里头...
沈重">深圳購房——激起中年沈重
???最近頻頻有種中年工作危機的感覺開始在困惑開始在擔心問自己,如果離開這裏,我可以做什麽?離開這個行業,我會什麽?能欣賞你的人,給你無限的機會,讓你總有用不完的力氣換了不懂你的,就如虎落平陽,完全沒有一點動彈的希望?到底,我該怎麽辦?還是抱著興趣往前去尋覓嗎?還是踏踏實實的把工作當作收入來源的唯一??其實知道無法說服自己放下兒時的夢想但是需
沈重的货物 (最小生成树)">bnuoj 20950 沈重的货物 (最小生成树)
<em>沈重</em>的货物 ? ? ? ? ? ? ? Time Limit:?1000ms ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??Memory Limit:?65536KB ?64-bit integer IO format:?%lld????? Java class name:?Main ? CUITCPC是一个专门生产大型货运火车的工厂。他们的新
悼念Kervin">悼念Kervin
为我们失去这么优秀的程序员<em>悼念</em>~~~默哀 ? 希望他在天堂生活的快乐
悼念松茸">悼念松茸
“替叔叔阿姨发的一篇告示——左邻右舍们,让我们团结友爱,让整个社区和谐起来吧!” 松茸是我的一名爱犬的名字,是雌性泰迪,她瘦小的身躯已经陪伴我们老两口整整10年啦。 她给我们这些年带来无尽的快乐,我们已经把松茸当成我们家庭成员之一了。本来松茸还可以健康快乐的再陪伴我们生活6年或者再长一些,那时我们绝对是步履蹒跚的老人了,可...
養成良好的程序設計風格//zswang
//form 国防科技出版社<>姚庭宝 编著rn//<em>zswang</em>强烈推荐大家仔细看看rnrn程序设计风格rn一开始就强调程序设计风格很有必要rn计算机程序设计是一项人类的活动rn编写的程序是为人们阅读、理解、使用甚至修改的rnPascal设计者N.Writh教授十分重视程序设计风格的养成rn他坚信rn“教给学生们以表达他们思维的语言rn会深深地影响他们思维和创造发明的习惯rn而正是这些语言本身的混乱直接影响着学生们的程序设计的风格”rn他这里所指的“这些语言”rn是当时那些主要用于程序设计教学的计算机语言rn因此他所设计的Pascalrn是一种优良的程序设计教学语言rn可以用来培养学生严谨、清晰的程序设计风格和良好的习惯rn并促使他们从中领会和理解精细的程序设计技巧rnrn良好的程序设计风格是程序员成功的保障,也促进了技术的交流rn有助于提高程序的可靠性、可理解性、可测试性、可维护性和可重用性rn改善软件的质量rnrn我们这里所说的程序设计风格,实际上是指的是编写程序的风格rn确定一些关于编程风格的原则rn有利于获得有效的、适宜的、清晰自明和易于理解的程序rn这样的原则可以归结许多条rn但就目前而言rn作者建议读者在编写Pascal程序时宜遵循以下几条rnrn(1)选用合适的常量标识符rn对程序中多次使用的常数rn可使用常数定义rn引入一个常量标识rn作为该常数的同义词rn这样做的好处一是选用易于理解的名字可增强可读性rn二是它们集中于说明部分rn利于查找rn三是一旦需要对该常数值作修改比如改变取值小数等时rn仅需修改一处而无需到处搜寻rnrn(2)选择有实际含义的标识符作为变量名rnPascal强调程序的可读性rn因而选取变量并非越短越好rn另外rn推荐使用英文大小写字母混合形式标识符rn它能表达更为丰富的信息rn当然rn亦可以使用下划线分英语词汇rnrn(3)坚持按一顶的缩进规则书写和键入程序rn即使是最短的程序rn也应体现这一良好的风格rn随着程序结构的渐趋复杂化和语句数目大幅度地增加rn按缩进格式书写并键入程序所带来的好处会越来越明显rn必须时刻想到rn程序仅写一次rn但却可以被使用多次rn另外rn空白的使用也有讲究rn包含若干空白行和一行中由若干空格符组成的空白区rn前者可用以划分一个程序中的若干段落rn是段落分明rn后者则可使文字、数据、符号之间不至于挤在一起而难以辨认rnrn(4)适当使用注释rn注释是一种阅读和理解程序的内部数据rn它为程序员本人及其他人提供了附加的信息rn注释也可以幫助调试程序rn我们一方面喜欢所有的程序不加以注释就容易理解rn另一方面也提倡在必要的地方加上注释rn当然rn在一看就明白的地方加注释rn也无多大必要rnrn(5)使程序具有一定的交互性rn在需要等待输入的地方要给出输入的提示rn在耗时操作完毕给出结束的提示rn没有提示的等待rn则即使编程者本人也可能一时记不清如何程序继续运行rn屏幕上又无任何显示rn他也许认为程序正在计算着什么rn而程序实际上正等待你的操作rn对于其他人rn遇到此种情况可能会不知所措rnrn(6)贴切的安排输出格式rn应尽量使输出的结果包括数据和文字信息等明确直观rn自成文档rn这一方面便于查阅与存档rn另一方面也有助于验证程序的正确性rnrn(7)适当地设计测试用例,并带有预期结果rn初学者在上机时往往由于不断地修改和调试程序被弄得焦虑不安rn一旦程序编译通过而且输入数据时有结果输出rn就认为万事大吉rn殊不知rn细心人一看运行结果就能判定这是不正确的rn这里很大的可能性是公式用错rn或者变量“张冠李戴”rn验证程序的正确性是很重要的一个环节rn若能事先适当地设计若干测试用例rn并带有预期的测试结果rn就有可能当实际运行与预期的结果不相符时rn及时地引起警觉rn去寻找并发现隐藏的错误
to zswang(伴水)(被黑中) 
你在“关于移动问题”中有一句rnTWinControl(Sender).Perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);rn我的问题是SC_Move代表什么,rn你的答案我在幫助中也看到了,但上面只有SC_Move的解释,并没有SC_Move+1rn我试过把SC_Move+1改为SC_Move,结果是不行的,rn我想问SC_Move+1代表什么rn —————
沈重的話題">哈哈人生好沈重的話題
昨天的故事!小朔我今年才研究生畢業,好朋友/曾經同窗的同學們大多以嫁爲人婦,有的也已榮升母親了!而我好不容易找到一份專業還算對口的職業,可惜,我學的專業,我本來就是不喜歡的,無奈工作難找啊,我一直想去做業務!就在昨天和我同住一個集團的可以稱之爲朋友的小頭目一再的的建議我辭職,和他們一起去做業務,做的事雜志廣告業務!給我的底薪地我的現在的工資高1000塊,業務提成也很高!說是話,我還真想去,我可
沈重的翅膀——軟件開發,業務?技術?">沈重的翅膀——軟件開發,業務?技術?
?????? 他像一头耸起翅膀准备腾然飞起的苍鹰,即使年迈力衰越不过高山大海也在所不惜。???????????????????? ???????????????????? ???????????????????? ????????????? ?????? —— 《<em>沈重</em>的翅膀》??????? 原本实在是不想写什么有关软件之类的感想了,这几年写了很多,发现无用的太多,更况目前网络上铺天盖地的都是。写这...
沈重的歎息">《天浴》:東方一聲沈重的歎息
《天浴》:东方一声<em>沈重</em>的歎息 2002年09月29日   关于天浴: □ 影片名称:天浴 □ 表演人物:李小璐 洛桑群培 下载:《天浴》Xiu Xiu海报 《天浴》由著名作家严歌苓编剧、著名影星陈冲执导,曾荣获1999年第35届香港电影金马奖五项大奖,主演李小璐为最年轻的金马影后,片中与哀凄的故事形成某种奇特对照的正是红原—若尔盖草原美丽的外景。 宽阔的草场一片新绿,而《
沈重">生命怎能承受如此沈重
?1.马加爵获得“全国奥林匹克物理竞赛的二等奖”。 2.马加爵宿舍的同学曾在马加爵的被子上撒尿。 3.在冬天温度比较低的时候,马加爵宿舍的同学曾经 给马加爵一二块钱,让他替自己洗衣服,马没钱就洗了。 4.马加爵在监狱中穿上了他这一生中穿过的最好的衣服 -----囚服。“这是我穿过的最好的衣服” 加爵今天 说的这句话让在场看押他警察都落泪。 5.马加爵因为没有鞋子穿,在
to zswang(伴水)(傷心中) 
關于http://www.csdn.net/expert/Topic/412/412374.shtm,rn我用了你的方法,爲什麽老出現‘缺少更新或刷新的鍵列信息’rn爲什麽啊?
沈重的負擔-Hibernate的反模式">沈重的負擔-Hibernate的反模式
前言 虽然Hibernate作为最早流行的轻量级ORM,java社区的头号杀手应用,给数据库软件开发带来极大的便利和影响,但是在长期的实践中,仍觉得有些场景比较笨重,使用起来不甚顺手,遂发发牢骚。 虽然本人有能力解决这些问题,也提到了以前开源的扩展模块,但并非刻意宣传,因为对第3个模式的不满致使我决定放缓对hibernate的修改,除非有外力支持,比如所在公司支持或者网友支持。 题外话,我正在...
計算器java源代碼下載
计算器java源代码,具体的代码很详细,可以让你掌握基本的计算器的监听事件的建立。 相关下载链接:[url=//download.csdn.net/download/ly09108086/2639879?utm_source=bbsseo]//download.csdn.net/download/ly09108086/2639879?utm_source=bbsseo[/url]
機械配件制造銷售公司修正版源碼下載
程序试用后台:http://你的域名/admin/login.asp 后台登陆帐号:admin 密码:admin888 说明: 这个是基于asp+access的企业网站源码,数据库已设有有防下载,网站更安全 要修改网站,自定义你自己要的页面,和美化页面都是你自己完成,网站源码程序完整,后台功能强大。网站源码是网络产品,一旦发货,概不退货的。 调试运行环境:要安装IIS服务器(IIS的安装和配置,安装好后,在地址栏输入:http://127.0.0.1 即可访问网站)。 相关下载链接:[url=//download.csdn.net/download/lvyouzhekou/3827759?utm_source=bbsseo]//download.csdn.net/download/lvyouzhekou/3827759?utm_source=bbsseo[/url]
JavaRMI的原理和實現方法下載
JavaRMI的原理和实现方法 分布式对象计算 来源于青岛大学学报 相关下载链接:[url=//download.csdn.net/download/lingkongdangyang/4136965?utm_source=bbsseo]//download.csdn.net/download/lingkongdangyang/4136965?utm_source=bbsseo[/url]
相關熱詞 c# gdi 占用内存 c#中遍曆字典 c#控制台模擬dos c# 斜率 最小二乘法 c#進程延遲 c# mysql完整项目 c# grid 总行数 c# web浏览器插件 c# xml 生成xsd c# 操作sql视图
我們是很有底線的