VB

原创 2012年03月26日 18:54:28

VB实验报告

 一:试验目的:

1 利用vb程序设计语言制作随机图形

2 利用vb程序设计语言制作动画

二:实验内容:

1先进行界面分布和相应的属性设置

2编写代码如下:

1Private Sub Command1_Click()

Timer1.Enabled = True

Timer1.Interval = 100

End Sub

Private Sub Command2_Click()

Form1.Cls

End Sub

Private Sub Command3_Click()

Timer1 = False

End Sub

Private Sub Timer1_Timer()

Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)

FillStyle = Int(Rnd * 7)

FillColor = QBColor(Int(Rnd * 15))

Line (Int(Rnd * 8000), Int(Rnd * 8000))-(Int(Rnd * 8000) + 1000, Int(Rnd * 8000))

End Sub

 

 

 

 

 

 

 

2Public TopBottom, LeftRight As String

Private Sub Form_Click()

     If Timer1.Enabled = False Then

        Timer1.Enabled = True

     Else

        Timer1.Enabled = False

     End If

 End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii

       Case 61

          Timer1.Interval = 10

       Case 45

          Timer1.Interval = 100

     End Select

  End Sub

Private Sub Form_Load()

    TopBottom = "0"

    LeftRight = "0"

End Sub

Private Sub Timer1_Timer()

    Select Case TopBottom & LeftRight

        Case "00"

             Form1.Image1.Top = Form1.Image1.Top - 10

             Form1.Image1.Left = Form1.Image1.Left - 10

             Form1.Image1.Move _

             Form1.Image1.Left - 10, Form1.Image1.Top - 10

             If Form1.Image1.Top <= 0 Then

                  TopBottom = "1"

             End If

             If Form1.Image1.Left <= 0 Then

             LeftRight = "1"

             End If

          Case "10"

              Form1.Image1.Top = Form1.Image1.Top + 10

              Form1.Image1.Left = Form1.Image1.Left - 10

              If Form1.Image1.Top >= _

              Form1.ScaleHeight - Form1.Image1.Height Then

                  TopBottom = "0"

              End If

              If Form1.Image1.Left <= 0 Then

                  LeftRight = "1"

              End If

          Case "01"

              Form1.Image1.Top = Form1.Image1.Top - 10

              Form1.Image1.Left = Form1.Image1.Left + 10

              If Form1.Image1.Top <= 0 Then

                  TopBottom = "1"

              End If

              If Form1.Image1.Left >= _

              Form1.ScaleWidth - Form1.Image1.Width Then

                  TopBottom = "0"

              End If

          Case "11"

              Form1.Image1.Top = Form1.Image1.Top + 10

              Form1.Image1.Left = Form1.Image1.Left + 10

              If Form1.Image1.Top >= _

              Form1.ScaleHeight - Form1.Image1.Height Then

                  TopBottom = "0"

              End If

              If Form1.Image1.Left >= _

              Form1.ScaleWidth - Form1.Image1.Width Then

                  LeftRight = "0"

              End If

      End Select

End Sub

3.调试并运行编写好的程序

三:解决问题

积累理解vb词汇,和一些基本的结构的运用,以及一些函数基本运用。

四:没有解决的问题

还有许多函数和基本结构以及循环需要去理解运用,以后应多看书,多练习,努力去解决学习中所遇到的困难。

 

相关文章推荐

vb.net 计算8位二进制数(包括符号位)的 原码反码补码

vb 控制台程序 通过输入带符号位的8位二进制数计算 原码 反码 补码 写的方法 可能有些麻烦 但是能得到 理论上的效果 ! 如果有高手知道什么好方法希望给我邮件共享一下 77194852...

VB Open 函数详解 打开、关闭、读、写文件

(一)打开和关闭文件      1、顺序文件      打开顺序文件,我们可以使用Open语句。它的格式如下: Open pathname For [Input |Output |App...
  • lbuskeep
  • lbuskeep
  • 2012年06月06日 14:35
  • 18164

在VB中调用C/C++语言编写的dll,数组参数的传递

动态链接库(dll)的好处就不多说了,这里就把如何在VB中调用VC写的dll函数的方法介绍一下,供有需要的朋友们参考,同时也免得自己以后忘了。 初次接触DLL的用户经常会遇到一个问题:在VC环境...

VB中spc(n)函数、space(n)函数和tab(n)函数区别

VB中spc()函数、space()函数和tab()函数区别:用最简单的话来描述是:tab(n)和spc(n)都是用来把光标向后移动n个字符的位置tab(n)是绝对偏移量,从该列的开头开始计算,移动n...

VB 时间处理 日期处理函数

VB中的时间处理问题  http://www.cnblogs.com/mitang/archive/2010/10/19/1855239.html 1-----------定义日期 di...

VB.NET多线程开发实例

VB.NET多线程开发实例 内容: VB.NET(Visual Basic.NET)是为适应Microsoft .NET框架的需要, 对Visual Basic进行了重大改造后的开发工具。它比...

vb.net中xml操作实例

记录一下开发过程中进行的一次XML操作实例,实现如下效果: 把winform中的一个DataGridView控件绑定的dataset对象转换成xml格式的字符串该winform中还包含了多个tex...
  • lpwmm
  • lpwmm
  • 2016年03月06日 00:13
  • 390

vb.net chart图表使用技巧之一

很多朋友再为使用什么样曲线来显示数据发愁,当然有MONEY的朋友除外。其实微软已经给我们提供一个很强大免费的控件,那就是chart ,当然这个控件只能再vs.2008以上的版本才能使用。不过很少有人介...

VB.NET中IIF和IF使用效率分析

一、问题描述 熟悉C/C++、C#或者Java的“*工”们,都知道存在那么个三目运算符“?:"。这个三目运算符在某种情况下可以视作精简版的"if ... else...". 例如: if...

VB6基本数据库应用(三):连接数据库与SQL语句的Select语句初步

同系列的第三篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9455721。连接数据库与SQL语句的Select语句初步。这一章将介绍...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB
举报原因:
原因补充:

(最多只允许输入30个字)