VB實驗報告----製作隨機圖形,製作動畫
一:試驗目的:
1利用vb程式設計語言製作隨機圖形
2利用vb程式設計語言製作動畫
二:實驗內容:
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
3.除錯並執行編寫好的程式
三:心得體會
1,感覺自己的vb掌握得還差得很遠,還需要好好的去學習,在接下來的時間裡要好好得去探索研究,對於一些基本知識還不甚瞭解。對一些基本的函式還不是十分的清楚,如:對一些簡單程式的編寫特熟練,對一些基本結構也不能把握很好,對此我應該自己認真聽老師的講解,課下多多練習,以鞏固課上所學到的知識。
2,編寫vb程式一定要仔細,在一個vb程式中,即使一個字母之差也會導致整個程式不能正確執行,所以在編和寫的過程式設計中都要認真仔細,不要出現一些不必要的錯誤。
四:解決問題
積累理解vb詞彙,和一些基本的結構的運用,以及一些函式基本運用。
五:沒有解決的問題
還有許多函式和基本結構以及迴圈需要去理解運用,以後應多看書,多練習,努力去解決學習中所遇到的問題。