发表于 2009-1-5 19:48
| 
瓒ｅ懗鎾炵悆--VB5搴旂敤绋嬪簭涓渚
鍙戝竷: 2008-7-15 14:23 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 12娆
瓒ｅ懗鎾炵悆--VB5搴旂敤绋嬪簭涓渚
浣滆咃細妯婃檽寰
VisualBasic5.0(VB5)鏄竴涓姛鑳藉己澶х殑宸ュ叿锛屽畠鏈変竴澶х壒鐐瑰氨鏄槗瀛︽槗鐢紝涓嬮潰鎴戜滑灏遍氳繃鍐欎竴涓滆叮鍛虫挒鐞冣濈殑绋嬪簭鏉ュ垵姝ヤ綋浼氫竴涓嬨
棣栧厛鍚姩VB5锛屾柊寤轰竴涓爣鍑嗙殑EXE宸ョ▼銆傛鏃跺彲浠ョ湅鍒帮紝宸ョ▼鍖呮嫭涓涓狥orm1妗嗕綋銆傚湪Form1杈规鐨勫彸涓嬭鎸変綇榧犳爣宸﹂敭涓嶆斁锛屾嫋鍔ㄩ紶鏍囨妸Form1鐨勯潰绉敼涓洪傚綋澶у皬锛屾瘮濡6930脳4320銆傚啀鍦ㄥ睘鎬ф涓妸Form1鐨凷caleMode灞炴ф敼涓3锛峆ixel锛岃〃鏄庢垜浠皢浠ュ儚绱犱负鎴戜滑鐨勫潗鏍囪绠楀崟浣嶏紝鎶奆orm1鐨凷tartUpPosition灞炴ц涓2锛岰enterScreen锛屼娇杩愯鏃剁獥浣撳嚭鐜板湪灞忓箷姝ｄ腑銆
鐜板湪锛屽湪鎺т欢闈㈡澘涓婇夊彇CommandButton锛堝懡浠ゆ寜閽級鎺т欢锛屼负Form1娣诲姞Command1鍜孋ommand2涓や釜鎸夐挳鎺т欢锛屾妸瀹冧滑鐨勫ぇ灏忚涓121脳25锛屽啀鍦ㄥ睘鎬ф涓妸Command1鐨凜aption濉负鈥滐紗GO鈥濓紝鎶奀ommand2鐨凜aption濉负鈥滐紗QUIT鈥濓紝骞舵妸Command1鏀惧埌妗嗕綋鐨勫彸涓婅锛屾妸Command2鏀惧埌妗嗕綋鐨勫彸涓嬭銆
鐒跺悗锛屽湪鎺т欢闈㈡澘涓婇夊彇Timer锛堟椂閽燂級鎺т欢锛屼负Form1娣诲姞涓涓猅imer1鏃堕挓鎺т欢銆傚啀鍦ㄥ睘鎬ф涓妸瀹冪殑Enabled灞炴ф敼涓篎alse锛孖nterval灞炴ф敼涓50锛屽墠涓涓艰〃绀鸿鏃堕挓鎺т欢鏄惁婵娲伙紝鍚庝竴涓煎喅瀹氳鏃堕挓鎺т欢浜х敓Timer浜嬩欢鐨勯棿闅旀椂闂达紝鎴戜滑灏嗙敤瀹冩潵鎺у埗灏忕悆鐨勭Щ鍔ㄩ鐜囥
鍒版涓烘锛屾垜浠凡缁忓畬鎴愪簡鍏ㄩ儴鐨勭晫闈㈣璁″伐浣溿
鎺ヤ笅鏉ヨ鍋氱殑鍏ㄩ儴宸ヤ綔灏辨槸濉叆绋嬪簭浠ｇ爜浜嗐
DimBallXAsInteger
DimBallYAsInteger
DimAddXAsInteger
DimAddYAsInteger
DimHitXAsInteger
DimWAsInteger
DimHAsInteger
PrivateSubCommand1_Click()
BallX=Int(Rnd(1)锛奆orm1顎怱caleWidth/10)锛5锛25
BallY=Int((Form1顎怱caleHeight)/10)锛5
AddX=锛5
AddY=锛5
Form_Paint
Timer1顎怑nabled=True
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_MouseMove (ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
X=X锛50
IfX<15ThenX=15
IfX>W锛105ThenX=W锛105
HitX=X
IfTimer1顎怑nabled=TrueThen
Line(16,H锛5)锛(W锛6,H),锛咹C0C0C0,BF
Line(HitX,H)锛(HitX锛100,H锛5),0,BF
EndIf
EndSub
PrivateSubForm_Paint()
Cls
W=Int((ScaleWidth锛140)/5)锛5
H=Int((ScaleHeight锛10)/5)锛5
BackColor=锛咹C0C0C0
Line(10,10)锛(15,H),0,BF
Line(W锛5,10)锛(W,H),0,BF
Line(10,10)锛(W,15),0,BF
EndSub
PrivateSubTimer1_Timer()
Form1顎怌ircle(BallX,BallY),4,锛咹C0C0C0
BallX=BallX锛婣ddX
BallY=BallY锛婣ddY
Form1顎怌ircle(BallX,BallY),4,0
IfBallX<=20ThenAddX=锛岮ddX
IfBallY<=20ThenAddY=锛岮ddY
IfBallX>=W锛10ThenAddX=锛岮ddX
IfBallY>=H锛10Then
IfBallX<HitXOrBallX>HitX锛100Then
Timer1顎怑nabled=False
Form_Paint
EndIf
AddY=锛岮ddY
EndIf
EndSub
涓鏃︾▼搴忎唬鐮佽緭鍏ュ畬姣曪紝浣犲氨鍙互鎸塅5寮濮嬫墽琛屽畠锛屾垨鏄湪File鑿滃崟閲岄夊彇Make鏉ョ敓鎴怑XE鎵ц鏂囦欢浜嗭紝鐬э紝灏忕悆宸茬粡鍦ㄤ綘鐨勫睆骞曚笂韫︽潵韫﹀幓浜嗐
