圖形操作ppt課件-資料下載頁
2025-01-14 12:36本頁面
【正文】 m = 0 FillColor = QBColor(Int(Rnd * 16)) Circle (x, x), r, , a1, a2 CurrentX = x + r * Cos((a2 + a1) / 2) CurrentY = x + r * Sin((a2 + a1) / 2) Print Format(b(i) / Sum * 100, )。 % a1 = a2 Next i End Sub 繪制折線圖 Private Sub menu2_Click() zbx w = max / 2 / n CurrentX = max / 2 / n: CurrentY = b(1) For i = 1 To n x = w * i y = b(i) Line (x, y) DrawWidth = 10 PSet (x, y) DrawWidth = 1 Next i End Sub 繪制散點圖 Private Sub menu3_Click() zbx w = max / 2 / n DrawWidth = 10 For i = 1 To n x = i * w y = b(i) PSet (x, y) Next i End Sub 繪制立體直方圖 Private Sub menu5_Click() zbx w = max / 2 / n X1 = w For i = 1 To n X2 = X1 + w Y2 = b(i) Line (X1, 0)(X2, Y2), QBColor(9), BF Line (X1, Y2)(X2 w / 2, Y2 + w / 2) Line (X2 + w / 2, Y2 + w / 2) Line (X2, Y2) Line (X2 + w / 2, Y2 + w / 2)(X2 + w / 2, w / 2) Line (X2, 0) X1 = X1 + 2 * w Next i End Sub 例 設計程序模擬行星運動 設計思路：在時鐘的 Timer1_Time事件內有規(guī)律地改變對象的形狀、尺寸或位置，就可形成動畫效果。 太陽和行星運動用 Circle語句完成。行星在軌道上的方程 : x= rx*cos(alfa)， y= ry*sin(alfa) 窗體的 DrawMode屬性設置為 Xor或 Invert ，在相同位置上重復繪置相同圖形，可起到擦除的作用。 Private Sub Form_Click() Scale (2022, 1000)(2022, 1000) FillStyle = 0 FillColor = vbRed Circle (0, 0), 200, vbRed = 1 Circle (0, 0), 1600, vbBlue, , , DrawMode = 6 = True = 0 End Sub Private Sub Timer1_Timer() Static alfa, flag As Boolean flag = Not flag If flag Then alfa = alfa + If alfa Then alfa = 0 x = 1600 * Cos(alfa) y = 800 * Sin(alfa) Circle (x, y), 150 End Sub
教學課件相關推薦
鄂ICP備17016276號-1