精华内容
下载资源
问答
  • VB.NET Step By Step 系列课程(4):VB.NET中面向对象设计(教程).zip
  • VB.NET Step By Step 系列课程(3):语言_语法改进(教程).zip
  • 微软VB.NET Step By Step系列课程,非常适合初学VB.NET人,在微软网站下非常麻烦,找了一个方便视频下载地方:http://so.so138.com/so/f138.aspx?kind=2&rkind=6&page=24 

    微软VB.NET Step By Step系列课程,非常适合初学VB.NET的人,在微软的网站下非常麻烦,找了一个方便的视频下载地方:

    http://so.so138.com/so/f138.aspx?kind=2&rkind=6&page=24 

    展开全文
  • 内含ppt,视频,文档,示例!!!!!!!
  • 内含ppt,视频,文档,示例!!!!!!!
  • 讲 师:蒋林峰 课程简介:面向对象是一种先进编程技术,有利于大型项目开发和管理。...课程从实例出发,详细演示设计过程和实际操作,适合于OO编程初学者,也适合计划从VB6编程转向VB.NET编程用户。
  • VB.NET Step By Step 系列课程(2):开发环境(IDE)特性(视频).zip
  • VB中关于STEP的使用

    千次阅读 2019-01-22 09:50:56
    解析:此循环计算公式推导为a(4) * 1+a(3) * 10+a(2) * 100 +a(1) * ...STEP函数在VB中是循环步进意思 step-1表示每次步进数值都减1 也可以理解在STEP中将数组循环赋值,例如: step 2表示每次循环步进增2...

    在这里插入图片描述
    解析:此循环的计算公式推导为a(4) * 1+a(3) * 10+a(2) * 100 +a(1) * 1000=1234
    第一次循环因初始J=1,第二次循环j=1 *10 第三次j=10 * 10 第四次循环j=100 *10故最终得出结果
    STEP函数在VB中是循环步进的意思 step-1表示每次步进数值都减1
    也可以理解在STEP中将数组循环赋值,例如:
    在这里插入图片描述
    step 2表示每次循环步进增2,那么,1,3,5,7,9这几个数组被赋值为你好,而2,4,6,8仍然为空。

    展开全文
  • 内含ppt,视频,文档,示例!!!!!!!
  • 的VB.NET2005增加了大量特性和改进,使利用VB进行Windows程序开发进入了一个新时代。本课程利用VB.NET2005工具,介绍基于.NET进行Windows应用开发基本概念和实用技术,大量运用操作演示教会您如何使用窗体...
  • 内含ppt,视频,文档,示例!!!!!!!
  • 内含ppt,视频,文档,示例!!!!!!!
  • 本课程利用VB.NET2005工具,介绍基于.NET进行Web应用开发基本概念和实用技术,包括WebForm,Code Behind,DataGrid等。最后会介绍在Web开发中越来越重要Web服务(WebService)技术,并演练web服务开发过程和...
  • 在广受欢迎ADO技术基础上,.NET平台带来了革命性ADO.NET技术,它通过相同模型,提供对 Microsoft SQL Server 等数据库以及通过 OLE DB 和 XML 公开数据源一致访问,连接到这些数据源,并检索、操作和更新...
  • VB.net 2010 step by setp

    2018-04-12 16:29:36
    全E文VB.net 一步一步跟着学,E文浅显易懂,耐心很重要,关键是原滋原味。看完E文水平会有质飞跃。又长技术又长语言能力,好好好!!!
  • 讲 师:蒋林峰 北京中达金桥技术服务有限公司 高级讲师 课程简介:该课程讲述了面向对象 一些基本 概念,包括用例图、类和...在此基础上,讲述了在VB.NET中如何来定义类,声明对象,以及关于面向对象 一些综合应用。
  • 讲 师:蒋林峰 北京中达金桥技术服务有限公司 高级讲师 课程简介:本课程着重讲述了VB.NET中一些新 语法特性,涉及到数据类型、变量 使用、函数、过程、异常处理几个方面 内容。同时指出了这些新 特性相比于VB...
  • 使用vb6.0编写随机生成双色球中奖预测号码(STEP-BY-STEP版本) 2019/10/2 11:13 最近研究双色球,在网络上搜索到这里: http://blog.sina.com.cn/s/blog_4cd4ffc401018xbx.html vb编写双色球号码生成小程序...

    使用vb6.0编写的随机生成双色球中奖预测号码(STEP-BY-STEP版本)
    2019/10/2 11:13

     

    最近研究双色球,在网络上搜索到这里:

    http://blog.sina.com.cn/s/blog_4cd4ffc401018xbx.html
    vb编写双色球号码生成小程序源码


    需要3个label,用来显示相应信息;两个文本框,一个显示生成的号码,一个用来设置号码数量;两个按钮,一个用来开始生成,一个用来复制生成的号码。完整代码如下:

     

    源码:

    VERSION 5.00

    Begin VB.Form Form1 

       Caption         =   "Form1"

       ClientHeight    =   10350

       ClientLeft      =   120

       ClientTop       =   450

       ClientWidth     =   12510

       LinkTopic       =   "Form1"

       ScaleHeight     =   10350

       ScaleWidth      =   12510

       StartUpPosition =   3  '窗口缺省

       Begin VB.CommandButton Command2 

          Caption         =   "生成双色球"

          BeginProperty Font 

             Name            =   "宋体"

             Size            =   14.25

             Charset         =   134

             Weight          =   400

             Underline       =   0   'False

             Italic          =   0   'False

             Strikethrough   =   0   'False

          EndProperty

          Height          =   1695

          Left            =   8760

          TabIndex        =   6

          Top             =   8400

          Width           =   2055

       End

       Begin VB.CommandButton Command1 

          Caption         =   "复制到剪贴板"

          BeginProperty Font 

             Name            =   "宋体"

             Size            =   14.25

             Charset         =   134

             Weight          =   400

             Underline       =   0   'False

             Italic          =   0   'False

             Strikethrough   =   0   'False

          EndProperty

          Height          =   1575

          Left            =   4320

          TabIndex        =   5

          Top             =   8520

          Width           =   2535

       End

       Begin VB.TextBox Text2 

          BeginProperty Font 

             Name            =   "宋体"

             Size            =   14.25

             Charset         =   134

             Weight          =   400

             Underline       =   0   'False

             Italic          =   0   'False

             Strikethrough   =   0   'False

          EndProperty

          Height          =   6255

          Left            =   4080

          MultiLine       =   -1  'True

          ScrollBars      =   3  'Both

          TabIndex        =   4

          Text            =   "000shuangseqiu5random.frx":0000

          Top             =   1920

          Width           =   7935

       End

       Begin VB.TextBox Text1 

          BeginProperty Font 

             Name            =   "宋体"

             Size            =   14.25

             Charset         =   134

             Weight          =   400

             Underline       =   0   'False

             Italic          =   0   'False

             Strikethrough   =   0   'False

          EndProperty

          Height          =   975

          Left            =   4080

          TabIndex        =   3

          Text            =   "Text1"

          Top             =   720

          Width           =   1455

       End

       Begin VB.Label Label3 

          Caption         =   "所花时间"

          BeginProperty Font 

             Name            =   "宋体"

             Size            =   14.25

             Charset         =   134

             Weight          =   400

             Underline       =   0   'False

             Italic          =   0   'False

             Strikethrough   =   0   'False

          EndProperty

          Height          =   1215

          Left            =   600

          TabIndex        =   2

          Top             =   8760

          Width           =   2415

       End

       Begin VB.Label Label2 

          Caption         =   "号码"

          BeginProperty Font 

             Name            =   "宋体"

             Size            =   14.25

             Charset         =   134

             Weight          =   400

             Underline       =   0   'False

             Italic          =   0   'False

             Strikethrough   =   0   'False

          EndProperty

          Height          =   975

          Left            =   840

          TabIndex        =   1

          Top             =   2520

          Width           =   2055

       End

       Begin VB.Label Label1 

          Caption         =   "注数"

          BeginProperty Font 

             Name            =   "宋体"

             Size            =   14.25

             Charset         =   134

             Weight          =   400

             Underline       =   0   'False

             Italic          =   0   'False

             Strikethrough   =   0   'False

          EndProperty

          Height          =   735

          Left            =   960

          TabIndex        =   0

          Top             =   840

          Width           =   1935

       End

    End

    Attribute VB_Name = "Form1"

    Attribute VB_GlobalNameSpace = False

    Attribute VB_Creatable = False

    Attribute VB_PredeclaredId = True

    Attribute VB_Exposed = False

    Option Explicit

    '首先声明一个生成号码的函数用于调用

    'Sub 生成()   'vb的函数名称可以用汉字的,呵呵

    Sub Generate5Random()   'vb的函数名称可以用汉字的,呵呵

            Dim n(1 To 33), i, j, q, p  '定义变量

            

            For i = 1 To 33

                    n(i) = 0

            Next

            

            j = 0

            

            Randomize Timer     '防止随机数重复

            While j < 6         '生成6个红球号码

                    q = Int(Rnd(1) * 33 + 1)   '红球号码为01到33

            

                    If q < 10 Then             '判断是否是小于10

                            q = 0 & q                  '小于10则在前面加0

                    End If

            

                    '如果生成的是重复的号码就重新生成一个!

                    If n(q) = 0 Then

                            Text2.Text = Text2.Text & q & " " '生成后写入文本框,各球中间用1个空格隔开

                            n(q) = 1

                            j = j + 1

                    End If

            

            Wend

            

            

            '红球已经生成完毕了,下面是蓝球,同红球

            Randomize Timer

            p = Int(Rnd(1) * 16 + 1)

            If p < 10 Then            '判断是否是小于10

                    p = 0 & p                  '小于10则在前面加0

            End If

            

            Text2.Text = Text2.Text & "  " & p & vbCrLf '红球和蓝球联合起来,用两个空格隔开,末尾加上换行符,以便于生成多个号码

    End Sub

    Private Sub Command1_Click()

            '使用Clipboard来实现复制到剪贴板功能

            Clipboard.Clear

            Clipboard.SetText Text2.Text

    End Sub

    Private Sub Command2_Click()

            '我们在界面加上一个显示生成时间的小东西

            Dim s, t, k

            

            s = Timer '开始生成

            Text2.Text = "" '先清空文本框

            k = 0

            

            While k < Val(Text1.Text) '按照需要来生成所需数量的号码

                    'Call 生成

                    Call Generate5Random

                    k = k + 1

            Wend

            

            t = Timer '生成结束

            

            '默认显示耗时会出现.555秒的情况。加0之后会出现00秒的情况

            'Label3.Caption = "用时" & t - s & "秒" '显示生成时间

            Label3.Caption = "用时0" & t - s & "秒" '显示生成时间

    End Sub

    '如果没有预设,TEXT2里面就不会有内容!!!!

    Private Sub Form_Load()

            '在load里面设置一下文本框内容

            Text2.Text = ""

            Text1.Text = 5

    End Sub

     步骤:

    增加代码,并修改label标签、TEXT文本框、Command命令按钮的名称为(有意义的)中文名。

     

     

     

     

     

     

     


    修改窗体文字的字体:宋体、四号

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

    修正TEXT2文本框的显示模式:可以换行

     

    测试生成50注双色球:(下面的看不见了!)

     

     

     

     

     

    保存窗体和工程并编译生成生成EXE文件:

     

     

     

     

     

     

     

     

     

    源码:
    https://download.csdn.net/download/wb4916/11831436
    000shuangseqiu5random随机生成5注双色球20191002_1052.7z

     

    展开全文
  • step7、WinCC、三维力控、WinCC Flexible、VB通信
  • 讲 师:侯钟雷 北京...本课程以VB.NET语言为例子,重点介绍.NET平台组成,特点,运行时环境。并进一步介绍.NET Framework基础知识,力争使初学者对.NET平台有一个全景式了解,便于今后深入学习和使用。
  • 大学4年收集了不少好电子书,这些都是经典中经典,没什么好说,快下载吧。 我资源,你们可以转载。对于书籍,其版权归原书作者。 源代码,你们可以修改完善,二次开发。 提升你职业技术水平...
  • 1 模块介绍1.1 模块概述ET200S 1STEP步进模块输出脉冲控制步进电机驱动器,输出脉冲数决定步进电机移动距离,输出脉冲频率决定步进电机速度。模块订货号:6ES7138-4DC00-0AB01.2 模块特性图1 1STEP 步进模块l 1...

    1 模块介绍

    1.1 模块概述

    ET200S 1STEP步进模块输出脉冲控制步进电机驱动器,输出脉冲数决定步进电机移动的距离,输出脉冲频率决定步进电机的速度。

    模块订货号:6ES7138-4DC00-0AB0

    1.2 模块特性

    04167ce907c82cc8749c347b954ccfd4.png

    图1 1STEP 步进模块

    l 1个通道,可以用于控制1个步进电机

    l 参考点开关数字量输入

    l 外部停止或外部脉冲使能数字量输入

    l 脉冲和方向信号采用符合RS422电平差分输出

    l 输出最大频率204 kHZ

    l 输出最大脉冲数 1048575

    l 4个LED状态指示

    l 2种操作模式:寻找参考点模式、增量模式

    2 模块接线

    128d774b35341456081f618a93d50266.png

    图2 1STEP 端子接线图

    l 端子1、5:脉冲信号差分输出

    l 端子4、8:方向信号差分输出

    l 端子2、3:外部停止或外部脉冲使能数字量输入DI(功能选择见4.2节)

    端子6、7:参考点开关数字量输入

    3 硬件配置

    1STEP 步进模块可以安装在ET200S接口模块或ET200S CPU模块后使用。

    本文中以IM151–7 CPU模块为例。

    179a50293d4d5262c83a45b12986b2de.png

    表1 软硬件配置

    258f51c1e0ac0a35fb611fc74da9e1a6.png

    图3 ET200S 站配置图

    4 硬件组态及参数配置

    4.1 硬件组态

    1) 按照图2、图3完成ET200S站安装和接线。

    2) 打开STEP7,在管理器中新建一个项目,然后插入一个S7-300站。

    3) 进入硬件组态界面进行配置。选中IM151-7 CPU直接拖拽到站配置窗口中。

    df04e3de8bf1d42390f0c26c70ff2bdd.png

    图4 插入IM151-7 CPU

    4) 在4号槽和5号槽中分别插入PM-E DC24电源模块和1STEP步进模块。

    7c1f824c19ac05916f13eb947a41adcf.png

    图5 硬件组态

    4.2 模块参数配置

    5eabd3e3e73b9823bccaba6189820a8c.png

    图6 1STEP 模块参数界面

    4.2.1 模块参数配置说明

    1) Group Diagnostic:组诊断。

    2) Base Frequency:基本频率,单位Hz,记作Fb。

    3) Multiplier n:倍增系数 n,取值范围1-255。此倍增系数决定启动停止频率 Fss,计算公式Fss=Fb×n。

    4) Time i:时间系数i,取值范围1-255。此时间系数决定加速度和减速度a,单位为Hz/ms,计算公式为a = Fb×R / (i×0.128 ms)。

    5) Function DI:数字量DI输入功能选择,可以配置为外部脉冲使能输入或外部停火输入。缺省为外部脉冲使能输入。

    6) External Stop,Limit Stop:外部停止,限位停止信号类型,break contact为常闭信号,make contact为常看信号。缺省为常闭信号接入。

    4.2.2 本文例子采用参数

    本文例子参数配置即为图6中显示参数配置

    1) 不激活组诊断。

    2) 基本频率4Hz。

    3) 倍增系数1,启动停止频率 4Hz。

    4) 时间系数1,加速度减速度 31.25 Hz/ms。

    5) 外部脉冲使能输入。

    6) 外部停止输入、限位输入信号类型为常闭信号输入。

    5 程序编制

    5.1 模块输入输出地址分配

    1STEP 步进模块跟其它ET200S 功能模块类似,都是通过直接读写I/O地址对模块进行控制访问。

    反馈信号(输入),占用8个字节,输入地址分配见表2。

    控制信号(输出),占用8个字节,输出地址分配见表3。

    711e1d7c43ac303a6cf05d78e9853b71.png

    表2 输入地址分配

    5fd2c425a6ac62d3121849cb17f11290.png

    表3 输出地址分配

    5.2 项目示例程序

    为了便于对该模块地址中的位、字节、字等地址的读写,通过在梯形图编程环境中使用MOVE指令,将输入地址区 PIB272-PIB279传送到MB10-MB17,将MB20-MB27传送到PQB272-PQB279。对1STEP模块的读写访问通过MB地址区完成。

    1STEP 模块IO地址分配见图5。

    a5090737fe7d4efcd747ac1671606a8a.png

    图7 项目示例程序

    6 模式说明及示例

    6.1 寻找参考点模式

    通过执行寻找参考点模式,对轴进行同步,即建立机械零点与电气零点对应关系。

    6.1.1 寻找参考点模式说明

    Mode=1

    参考点开关为常开信号接入

    寻找参考点输出频率 Fss、Fa

    Fss 启动停止频率,描述参见 4.2.1节

    Fa 输出频率 Fa = Fb ×G × R

    Fb:基本频率。1STEP 模块参数中配置,描述参见 4.2.1节。

    Multiplier G:倍增系数 G。取值范围1-255,模块输出地址字节0,参见表3。

    Reduction Factor R:减小系数R。模块输出地址字节4第7位,参加表3。模块输出地址4.7=0,R=1;模块输出地址4.7=1,R=0.1。

    6020d2667c8f8243afc3db5c2a1a40c3.png

    图8 寻找参考点

    6.1.2 寻找参考点模式示例

    本文示例按照图8模式进行,即正方向寻找参考。

    1. 通过变量表写输出控制变量:

    3ec00109247ba78d92c6939ea1e4e99c.png

    图9 参考点模式控制变量

    1) M24.0=1 寻找参考点模式Mode=1

    2) M25.0=1、M25.1=1 由于之前模块参数配置限位开关信号为常闭输入,所以当没有软限位开关激活时,应该有信号输入。参见4.2.2节。

    3) M25.2=0 不激活软件脉冲使能信号。由于之前模块参数配置已经使能DI为外部脉冲使能信号输入,此时就不再使用内部软件脉冲使能信号。参见4.2.2节。

    4) 置位M24.4,然后复位M24.4(下降沿信号有效),启动寻找参考点模式。脉冲输出频率为Fa。

    5) MB20=1、M24.7=0 倍增系数G=1、减小系数R=1,Fa频率值为

    Fa = Fb ×G × R=4Hz×1×1=4Hz。

    2.通过变量表读输入状态变量:

    1f77791815c8079cd8af358a35908959.png

    图10 参考点模式状态变量

    1) M15.2=1外部脉冲使能信号激活。

    2) M15.0=1 驱动使能。

    3) 寻找参考点启动后,M14.0=1 位置任务激活,M15.7=1 位置操作执行中。等待参考点开关信号M15.1。

    4) M15.1=1 参考点信号达到,寻找参考点完成。M14.4=1,同步操作完成,M14.2=1 位置到达,M15.3=1 寻找参考点停止。

    6.2 增量模式

    增量模式是1STEP 主要工作模式。通过该工作模式可以控制步进电机按照给定的速度移动给定的距离。

    6.2.1 增量模式说明

    Mode=0

    输出脉冲数决定步进电机移动的距离,最大脉冲数1048575

    输出脉冲频率决定步进电机的速度

    增量模式输出频率 Fss、Fa

    方向信号作为启动信号

    注意:脉冲数对应的实际位移量和脉冲频率对应的实际速率由步进电机驱动器确定,不再1STEP模块中进行设置。

    6.2.2 增量模式示例

    1. 通过变量表写输出控制变量:

    6feafcb1f8628dc675d3a3ceb3f773c5.png

    图11 增量模式控制变量

    1) M24.0=0 增量模式Mode=0

    2) M25.0=1、M25.1=1 由于之前模块参数配置限位开关信号为常闭输入,所以当没有软限位开关激活时,应该有信号输入。参见4.2.2节。

    3) MB20=1、M24.7=0 倍增系数G=1、减小系数R=1,输出频率 Fa为

    Fa = Fb ×G × R=4Hz×1×1=4Hz。

    4) 输出脉冲数,通过MB21-23组成20位地址长度用于存放脉冲数,最大值即为 0xFFFFF=1048575

    MB21 输出脉冲数(位16-位19)

    MB22 输出脉冲数(位8-位15)

    MB23 输出脉冲数(位0-位7)

    MB21 位20-位23没有使用

    本示例中赋值为0x100,即256个脉冲。

    5) 置位M24.4,然后复位M24.4(下降沿信号有效),启动增量模式,正方向移动。

    2.通过变量表读输入状态变量:

    d1f0c79e088a3c8cea6de36902a671a1.png

    图12 增量模式状态变量

    1)增量模式启动后,M14.0=1 位置任务激活,M15.7=1 位置操作执行中。

    2)MD10 显示剩余脉冲数,图12显示还有220个脉冲没有发送。

    3)MD10=0 脉冲发送完成,M14.0、M15.7清零,M14.2=1 位置到达。增量模式输出完成。

    展开全文
  • vb中line用法

    2016-11-14 17:47:23
    vb中line用法 绘制方框 可使用 Line 方法绘制并填充方框。下列示例画出一个方框,其左上角为 (500, 500),每边长为 1,000 : Line (500, 500)–Step(1000, 0) Line -Step(0, 1000) Line -...
  • VB的基本语法之循环结构 VB班含有两种循环结构,一种是计数循环,一种是条件循环。其中,条件循环包括有:直到型循环和当型循环。 (一)计数循环 For-Next循环是计数循环,常用于循环次数已知的情况。 'For-Next...
  • Microsoft Visual Basic 2013 Step by Step.pdf

    热门讨论 2013-12-12 09:36:04
    Microsoft Visual Basic 2013 Step by Step by Michael Halvorson 英文的VB教材

空空如也

空空如也

1 2 3 4 5 ... 12
收藏数 222
精华内容 88
关键字:

vb的step