生成随机图形

来源：互联网发布：qt5 linux windows 编辑：程序博客网时间：2024/05/16 15:16

一：试验目的

1 制作随机图形

2 制作动画

二：实验内容

1先界面设置和属性设置

2编写代码

1，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 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

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

三：心得体会

1，熟才能生巧

2，多背，多记

四：解决问题

逐渐的理解了一些vb词汇

五：没有解决的问题

还有许多函数需要去记，以后应多看书，多练习