文件名称:
vb 贪吃蛇 源码 --from:胡宸源
开发工具:
文件大小: 36kb
下载次数: 0
上传时间: 2006-02-23
详细说明： 一个贪吃蛇游戏 只有 36k建18个image控件组 名为 sn(0) ;sn(1) ...sn (17)一个timer1 一个label2 用来记分三个image名为 pg;she和st 分别放苹果;蛇身和蛇头的图片所有image的长 宽 都为255一个shape 名为 sh 长宽为4590源码如下;(本人要读书,不太完善)Dim n As ByteDim cz As IntegerPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 37 Or KeyCode = 38 Or KeyCode = 39 Or KeyCode = 40 ThenIf cz - KeyCode <> 2 Then If cz - KeyCode <> -2 Then cz = KeyCodeElseEnd IfEnd SubPrivate Sub Form_Load()cz = 38: n = 2Label2.Caption = 0Timer1.Enabled = TrueTimer1.Interval=526sn(0).Picture = st.Pi ctureFor i = 1 To nsn(i).Picture = she.PictureNext isn(0).Top = sh.Top + 7 * 255sn(0).Left = sh.Left + 8 * 255For i = 1 To 17sn(i).Top = sn(i - 1).Top + 255sn(i).Left = sn(i - 1).LeftNext icspgEnd SubPrivate Sub Timer1_Timer()For i = 17 To 1 Step -1sn(i).Top = sn(i - 1).Topsn(i).Left = sn(i - 1).LeftNext iSelect Case czCase 37sn(0).Left = sn(0).Left - 255Case 38sn(0).Top = sn(0).Top - 255Case 39sn(0).Left = sn(0).Left + 255Case 40sn(0).Top = sn(0).Top + 255End SelectFor i = 1 To nIf sn(0).Left = sn(i).Left Then _If sn(0).Top = sn(i).Top Then slNext iIf sn(0).Top < sh.Top Or sn(0).Top > sh.Top + 4355 Then slIf sn(0).Left < sh.Left Or sn(0).Left > sh.Left + 4355 Then slIf sn(0).Left = pg.Left Then If sn(0).Top = pg.Top Then n = n + 1 Label2.Caption = Label2.Caption + 100 If n = 18 Then Timer1.Enabled = False MsgBox "过关" End End If Timer1.Interval = Timer1.Interval - 35 sn(n).Picture = she.Picture cspg End IfEnd IfEnd SubSub sl()Timer1.Enabled = FalseMsgBox "你死了", vbOKOnly, ""EndEnd SubSub cspg()Randomize Timerx = Int(Rnd * 18)y = Int(Rnd * 18)pg.Left = sh.Left + x * 255pg.Top = sh.Top + y * 255For i = 0 To nIf pg.Left = sn(i).Left ThenIf pg.Top = sn(i).Top Then cspgEnd IfNext iEnd Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
