打印

VB简单多次延时控制（菜鸟级别）

本主题由王懿于 2008-5-23 22:53 加入精华

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 386
精华: 6
积分: 2756
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 80 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

1^# 大中小发表于 2008-5-5 19:40 只看该作者

VB简单多次延时控制（菜鸟级别）

由于我毕业设计要实现步进电机的延时控制。所以我用Timer控件实现多次延时控制功能。
下面把我实验的小例子提供给大家。有时候会用得上。

附件: 您所在的用户组无法下载或查看附件

本帖最近评分记录

替身学分 +20 2008-5-6 00:02
替身威望 +5 2008-5-6 00:02

TOP

替身

Super Moderator

Rank: 15

止于至善

UID: 23
帖子: 340
精华: 1
积分: 2303
所在学校
所属专业
阅读权限: 150
在线时间: 72 小时
注册时间: 2008-3-14

超级版主荣誉勋章论坛建设者荣誉勋章

2^# 大中小发表于 2008-5-5 23:55 只看该作者

这个绝对原创呵呵
调试时我就在旁边哦
不错的思想很有启示

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 386
精华: 6
积分: 2756
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 80 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

3^# 大中小发表于 2008-5-6 13:51 只看该作者

呵呵。见证我历史的人出现了;009

TOP

替身

Super Moderator

Rank: 15

止于至善

UID: 23
帖子: 340
精华: 1
积分: 2303
所在学校
所属专业
阅读权限: 150
在线时间: 72 小时
注册时间: 2008-3-14

超级版主荣誉勋章论坛建设者荣誉勋章

4^# 大中小发表于 2008-5-6 23:01 只看该作者

嘿嘿~ 那可不是

耐得寂寞~

TOP

load_me

Moderator

Rank: 12

UID: 999
帖子: 25
精华: 2
积分: 660
所在学校
所属专业
阅读权限: 100
在线时间: 46 小时
注册时间: 2008-3-9

5^# 大中小发表于 2008-5-7 14:37 只看该作者

顶

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 386
精华: 6
积分: 2756
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 80 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

6^# 大中小发表于 2008-5-9 21:13 只看该作者

谢谢大家支持。希望网站越来越红火。

TOP

Webmaster

Administrator

Rank: 18

UID: 4
帖子: 160
精华: 0
积分: 1129
所在学校
所属专业
阅读权限: 200
性别: 男
在线时间: 68 小时
注册时间: 2008-3-9

7^# 大中小发表于 2008-5-9 21:16 只看该作者

呵呵，这还要靠大家多多参与啊

TOP

替身

Super Moderator

Rank: 15

止于至善

UID: 23
帖子: 340
精华: 1
积分: 2303
所在学校
所属专业
阅读权限: 150
在线时间: 72 小时
注册时间: 2008-3-14

超级版主荣誉勋章论坛建设者荣誉勋章

8^# 大中小发表于 2008-5-9 23:30 只看该作者

现在还是起步阶段
慢慢来很有前途的

耐得寂寞~

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 386
精华: 6
积分: 2756
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 80 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

9^# 大中小发表于 2008-5-11 18:35 只看该作者

嗯。起步困难点。不过不怕。:012

TOP

cwctt

Lord

Rank: 4

UID: 10963
帖子: 90
精华: 1
积分: 598
所在学校
所属专业
阅读权限: 50
在线时间: 19 小时
注册时间: 2008-5-15

10^# 大中小发表于 2008-5-24 14:12 只看该作者

Dim i As Integer
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End Sub

Private Sub Timer1_Timer()
i = i + 1
Select Case i
   Case 1: Form1.Print "一"
   Case 2: Form1.Print "二"
   Case 3: Form1.Print "三"
   Case 4: Form1.Print "四"
   Case 5: Form1.Print "五"
   Case Else
   i = 0: Form1.Cls
End Select
End Sub

附件: 您所在的用户组无法下载或查看附件

TOP