实验报告2

原创 2012年03月27日 21:35:33

实验报告

系别:电子信息科学与技术  班级:电子2班  姓名:张猛   日期:3月18号

一:试验目的

1.图片设计

2.随机图形

二:实验内容

   1先界面设置和属性设置

   2编写代码

    图片设计

    public 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

2随机图形代码

Private 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 Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

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

'FillStyle = Int(Rnd * 7)

'FillColor = QBColor(Int(Rnd * 15))

'Timer1.Interval = 10

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

三:心得体会

   1随机图形要用到Rnd(x)的函数

   2在设计图形时应该灵活运用各种函数,发挥想象,使自己的程序活起来。

   3shape是图形函数

   4Topbottom,Leftright函数分别表示上下左右,区分运动方向。

四:解决问题

在编完代码后无法执行程序,逐项检测各个阶段编码,找到问题的所在。以后还得多多练习。

五:没有解决的问题

    不知道函数的正确使用方法,只知道安课本的步骤作,以后要灵活应用,举一反三,多多看课本或者视频来学习vb编程。

ucore操作系统lab2实验报告

练习1:实现 first-fit 连续物理内存分配算法 在实现first fit 内存分配算法的回收函数时,要考虑地址连续的空闲块之间的合并操作。提示:在建立空闲页块链表时,需要按照空闲页块起始地址来...

第十周实验报告2(派生类)

程序头部注释开始 * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算机学院学生 * All rights reserved. * 文件名称:       ...
  • YTDXWZK
  • YTDXWZK
  • 2012年04月23日 14:58
  • 357

C++程序设计实验报告(五十八)---第九周任务2

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2012, 烟台大学计算机学院学生 * All rights reserved. * 文件名称:流运...

实验报告 10 - 2

2012-04-21 13:35 111人阅读 评论(3)收藏举报 /* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算...

《第五周实验报告2-1》---设计一个简单的分数类,完成对分数的几个运算

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算机学院学生 * All rights reserved. * 文件名称: CFr...

《第八周实验报告任务2》

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算机学院学生 * All rights reserved. * 文件名称:  ...

《第十周实验报告任务2》

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算机学院学生 * All rights reserved. * 文件名称:  ...

第五周实验报告(1-2)

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c)  * All rights reserved. * 文件名称:  Triangle1-1.cpp       ...

操作系统实验报告:ucore_lab2~5

这次的实验,基本上对应着ucore的lab2~lab5。 问题1: (1) 当前系统探测物理内存布局的过程是在实模式下完成的。 使用的方式是基于INT 15h中断的e820h。   内存探测的过...

I2C总线及AT24C02读写实验报告

实验名称:I2C总线实验一 实验目的:利用定时器产生0~99秒表在数码管前两位显示 每过一秒写入到AT24C02里面,关闭实验板后 重新打开实验板,秒表从AT24C02读入数据继 续上一次的计时...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:实验报告2
举报原因:
原因补充:

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