国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

趣味撞球--VB5應用程序一例

2019-11-18 17:29:53
字體：大 中 小
來源：轉載
供稿：網友
VisualBasic5.0(VB5)是一個功能強大的工具，它有一大特點就是易學易用，下面我們就通過寫一個“趣味撞球”的程序來初步體會一下。
首先啟動VB5，新建一個標準的EXE工程。此時可以看到，工程包括一個Form1框體。在Form1邊框的右下角按住鼠標左鍵不放，拖動鼠標把Form1的面積改為適當大小，比如6930×4320。再在屬性框中把Form1的ScaleMode屬性改為3－Pixel，表明我們將以像素為我們的坐標計算單位，把Form1的StartUpPosition屬性設為2－CenterScreen，使運行時窗體出現在屏幕正中。
現在，在控件面板上選取CommandButton（命令按鈕）控件，為Form1添加Command1和Command2兩個按鈕控件，把它們的大小設為121×25，再在屬性框中把Command1的Caption填為“＆GO”，把Command2的Caption填為“＆QUIT”，并把Command1放到框體的右上角，把Command2放到框體的右下角。
然后，在控件面板上選取Timer（時鐘）控件，為Form1添加一個Timer1時鐘控件。再在屬性框中把它的Enabled屬性改為False，Interval屬性改為50，前一個值表示該時鐘控件是否激活，后一個值決定該時鐘控件產生Timer事件的間隔時間，我們將用它來控制小球的移動頻率。
到此為止，我們已經完成了全部的界面設計工作。
接下來要做的全部工作就是填入程序代碼了。
DimBallXAsInteger
DimBallYAsInteger
DimAddXAsInteger
DimAddYAsInteger
DimHitXAsInteger
DimWAsInteger
DimHAsInteger
PRivateSubCommand1_Click()
BallX=Int(Rnd(1)＊Form1ScaleWidth/10)＊5＋25
BallY=Int((Form1ScaleHeight)/10)＊5
AddX=－5
AddY=－5
Form_Paint
Timer1Enabled=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Enabled=TrueThen
Line(16,H－5)－(W－6,H),＆HC0C0C0,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=＆HC0C0C0
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Circle(BallX,BallY),4,＆HC0C0C0
BallX=BallX＋AddX
BallY=BallY＋AddY
Form1Circle(BallX,BallY),4,0
IfBallX<=20ThenAddX=－AddX
IfBallY<=20ThenAddY=－AddY
IfBallX>=W－10ThenAddX=－AddX
IfBallY>=H－10Then
IfBallX<HitXOrBallX>HitX＋100Then
Timer1Enabled=False
Form_Paint
EndIf
AddY=－AddY
EndIf
EndSub
一旦程序代碼輸入完畢，你就可以按F5開始執行它，或是在File菜單里選取Make來生成EXE執行文件了，瞧，小球已經在你的屏幕上蹦來蹦去了。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 磐石市| 清镇市| 阳泉市| 绥化市| 潍坊市| 务川| 凤阳县| 石景山区| 延边| 宝山区| 兰考县| 河源市| 澎湖县| 木兰县| 晋城| 蕉岭县| 临安市| 普兰店市| 常山县| 吴川市| 鲜城| 永城市| 门头沟区| 厦门市| 南木林县| 庆安县| 铁岭县| 韶关市| 富平县| 五家渠市| 稷山县| 林芝县| 新乡县| 双牌县| 安顺市| 浠水县| 南丹县| 勃利县| 浏阳市| 蓝田县| 汉川市|