请问一个小问题,如何实现,在一分钟之内平均响一定的“嘀”声?比如说,我设定为90下,就是一分钟平均响90下,如果我设为50下,就是一分 应该控制TIMER的INTEVAL吧,读设定,设定是90就是 INTEVAL 60000/90,是50 就是 60000/50。把代码写在TIMER里面,控制“滴”声就好拉。8过,“滴”的声音应该不能太长吧,否则就蛮困难了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Command1_Click() Dim AA As Integer MsgBox "KK:" AA = CInt(Text1.Text) Timer1.Interval = 60000 / AA Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() BeepEnd Sub AA = Text1.Text Timer1.Interval = 10000 / AA 想做一个功能,类似QQ的登录那样。没思路啊 autocad vba 选择集过滤器问题 vb6.0如何打开access2003的数据库? 急!!请高手指点!!(Thank You!!)(有分) 为什么我这样总是陷入死循环呢?我想判断在插入记录之前是否有重复的工作人员ID号? 选择文件夹的控间是什么?请指点 如何用VBScript 来做一个显示进程上传和下载速度的工具? 哪里有api的详细教程? 如何在MDI主窗体中调用子窗体的响应事件 请教!!!!! VB与SQL !!!800分!!! 一个和asp程序交互的问题!分4批给800分
Private Sub Command1_Click()
Dim AA As Integer
MsgBox "KK:"
AA = CInt(Text1.Text)
Timer1.Interval = 60000 / AA
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Beep
End Sub
Timer1.Interval = 10000 / AA