打地鼠中,如何控制地鼠出现并在下一次消失,求VB...

来源:百度知道    2019/5/19 19:21:00
责任编辑:李平
字体:

好心游戏问答中心有网友提出了一个比较有代表性的问题【打地鼠中,如何控制地鼠出现并在下一次消失,求VB...】,小编觉得可能对其他网友也有帮助,所以将此问答整理出来了,希望对您有帮助。

小编为您搜罗的答案1

'窗口中就一个LABEL,名称:lblInfo
'这个带有动画
Option Explicit
Dim lZQ As Long
Dim lCW As Long
Dim dStart As Double '开始时间
Dim dStop As Double '停止时间
Dim iNum As Integer '字数
Dim lTime As Long '
Dim iTime As Integer
Dim iCode As Integer
Dim iScorce As Integer '分数
Dim bOK As Boolean

Private Sub Form_DblClick()
'开始
Me.Timer1.Enabled = True
dStart = Time
End Sub
Private Sub Form_Resize()
Me.lblInfo.Top = Me.Height - 1000
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If dStart <> 0 Then
If KeyCode = iCode Or KeyCode = iCode - 32 Then
' If iCode <= 90 And Shift <> 2 Then '大写
' Beep
' lCW = lCW + 1
' Else
lZQ = lZQ + 1
iScorce = iScorce + 1
' End If
Else
Beep
lCW = lCW + 1
iScorce = iScorce - 1
End If
End If
bOK = True
lTime = 0
iTime = 0

If iScorce < 0 Then iScorce = 0
Me.lblInfo.Caption = "总字数:" & iNum & ";正确数量:" & lZQ & ";错误数量:" & lCW & ";正确率:" & Round(lZQ / iNum * 100, 2) & "%;得分:" & iScorce '" ' , "统计"
Call Timer1_Timer
End Sub

Private Sub Form_Load()
Me.Timer1.Interval = 50
Me.Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static i As Integer
Static j As Integer
Static k As Integer
Static l As Integer
Me.AutoRedraw = True
Me.KeyPreview = True
If lTime * Me.Timer1.Interval / 1000 >= 500 Then '规定500秒任务
GoTo OVER
End If

If ((iTime * Me.Timer1.Interval) Mod 5000 = 0) Or bOK = True Then '每个字规定最多显示5秒钟
If iTime <> 0 Then
lCW = lCW + 1
iScorce = iScorce - 1
If iScorce < 0 Then iScorce = 0
Me.lblInfo.Caption = "总字数:" & iNum & ";正确数量:" & lZQ & ";错误数量:" & lCW & ";正确率:" & Round(lZQ / iNum * 100, 2) & "%;得分:" & iScorce '" ' , "统计"
End If
iTime = 0
bOK = False
Me.Cls
Randomize
i = Int(Rnd() * Me.ScaleWidth - 500)
j = Int(Rnd() * Me.ScaleHeight - 500)
k = Int(Rnd() * 90) + 10 '字号
l = Int(Rnd() * 26) '产生52个字母的其中一个
'l = Int(Rnd() * 53) '产生52个字母的其中一个
If l <= 25 Then '大写
l = 65 + l
Else
l = 97 + l - 26
End If
iCode = l '记录
Me.CurrentX = i
Me.CurrentY = j
Me.FontSize = k
Me.Print Chr(l)
iNum = iNum + 1
l = 0
Else
Me.Cls
l = l + 1
If i - 100 * l < 100 Then
l = 0
Me.CurrentX = Me.Width - 500
i = Me.Width - 500
Else
Me.CurrentX = i - l * 100
End If
Me.CurrentY = j
Me.FontSize = k
Me.Print Chr(iCode)
End If
If iNum >= 101 Then
iNum=100
GoTo OVER
End If iTime = iTime + 1
lTime = lTime + 1
Exit Sub
OVER:
Me.Timer1.Enabled = False
dStop = Time
If iScorce < 0 Then iScorce = 0
Me.lblInfo.Caption = "总耗时:" & Round((dStop - dStart) * 24 * 3600, 2) & "秒," & vbCrLf & "总字数:" & iNum & ";正确数量:" & lZQ & ";错误数量:" & lCW & ";正确率:" & Round(lZQ / iNum * 100, 2) & "%;得分:" & iScorce
lTime = 0
iTime = 0
iNum = 0
End Sub
这是我给别人写的一个打字程序,类似打地鼠的,希望对你有所帮助。

小编为您搜罗的答案2

用时间控件的间隔时间 更多追问追答 追问

??给个仔细点的答案好吗?
追答
比如说
让地鼠持续时间为1秒的话
timer1.interval =1000
让地鼠持续时间为随着难度增加而变短
timer1.interval =(1000*n)/50
n为难度哦
追问
但是九个格子要每次只出一只地鼠怎么办?

小编为您搜罗的答案3

打地鼠是什么? 请注意:本文为编辑制作专题提供的资讯,页面显示的时间仅为生成静态页面时间而非具体内容事件发生的时间,由此给您带来的不便敬请谅解!

相关攻略及问答:

vb打地鼠游戏中,怎样才能让地鼠在地洞中随机出现呀?

答:随机函数RND 假如当前共有N个地洞 那随机出的数=INT((N-1)* RND) +1 然后再判断当前随机出的数是否有显示就可以了

如何用VB程序设计打地鼠游戏

答:下面是源代码: Form1: Private Sub Form_Load() Dim temp As Integer Randomize temp = Int(Rnd * 3) + 1 Form1.Picture = LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture" & temp & ".jpg") WindowsMediaPlayer1.URL = "C:\User...

求做一个简单vb的打地鼠游戏。 明天要交好久没搞好

问:求做一个简单vb的打地鼠游戏。 明天要交好久没搞好

答:昨天也有个人问 你们不会是同学吧

vb 做一个打地鼠,但怎么把鼠标变成锤子啊??

问:MouseMove,Mouseup,Mousedown用了之后,发现click事件不能用了,打地...

答:在mouseup中写入地鼠的动作

求大神指导用vb怎么做打地鼠游戏

答:1、控件: Picture1(0~8) 排三列三排 Timer1 Interval设为1000 Text1 Text 设为0 Command1 caption 设为“开始” 2、代码: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim m, i, n As Integer Private Sub Form...

打地鼠vb编程,越简单越好

答:Private Const totaltime = 30 Private sum As Long, nt As Long Private Sub Command1_Click() '结束按钮 End End Sub Private Sub timer1_timer() If Timer - nt > totaltime Then Timer1.Enabled = False MsgBox "时间到!!!" Text1.Text =...

www.haoxyx.com true http://getqq.haoxyx.com/g/790/7903420.html report 6159 好心游戏问答中心有网友提出了一个比较有代表性的问题【打地鼠中,如何控制地鼠出现并在下一次消失,求VB...】,小编觉得可能对其他网友也有帮助,所以将此问答整理出来了,希望对您有帮助。小编为您搜罗的答案1'窗口中就一个LABEL,名称:lblInfo'这个带有动画OptionExplicitDimlZQAsLongDimlCWAsLongDimdStartAsDouble'开始时间DimdStopAsDouble'停止时间DimiN
最近关注
首页推荐
热门图片
最新添加资讯
24小时热门资讯
精彩资讯
精彩推荐
热点推荐
真视界
精彩图片
社区精粹
关于本站 | 广告服务 | 手机版 | 商务合作 | 免责申明 | 招聘信息 | 联系我们
Copyright © 2004-2017 haoxyx.com All Rights Reserved. 好心游戏网 版权所有
京ICP备10044368号-1 京公网安备11010802011102号