关闭

VB

标签: timervbcommandinteger语言图形
86人阅读 评论(0) 收藏 举报

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词汇,和一些基本的结构的运用,以及一些函数基本运用。

四:没有解决的问题

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

 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:2682次
    • 积分:99
    • 等级:
    • 排名:千里之外
    • 原创:6篇
    • 转载:0篇
    • 译文:0篇
    • 评论:1条
    文章存档
    最新评论
  • 两位数的乘法

    Bulesky993: 呵呵!今天老师给我们讲解了两位数乘法的编程程序,这是我上那么久的VB课以来第一次差不多听懂的。太高兴...