Ngày tải lên :
05/07/2014, 07:32
... Circle (1 400 , 300 0), 800 , vbMagenta, , , 2
Circle (1 400 , 300 0), 800 , vbBlue, , , 0. 5
End Sub
Bước 23: Lưu dự án và chạy chương trình.
Trang 36
TT. Visual Basic
11) Thiết kế chương trình ... vẽ một cung tròn màu đỏ bán kính 800 , tâm ( 400 0,
200 0), từ 45 độ đến 2 30 độ:
Private Sub mnuCung_Click()
Circle ( 400 0, 200 0), 800 , vbRed, Rads(45), Rads(2 30)
End Sub
Bước 21: Ta có thể ... CurrentX = 2 800 : CurrentY = 4 400
Print "87.5%"
FillColor = vbBlue
' Vẽ một Pie Slice từ 45 độ đến 90
độ màu xanh
Circle ( 305 0, 3 900 ), 800 , , -Rads(45), -Rads( 90)
'...