Ngày tải lên :
16/08/2012, 09:17
... tâm 200 0,1 500 bán kính 800
Circle ( 200 0, 1 500 ), 800
' Vẽ đường thẳng ngang từ tâm
Line ( 200 0, 1 500 )-Step (0, 800 )
' Vẽ đường thẳng đứng từ tâm
Line ( 200 0, 1 500 )-Step( 800 , 0) ... mnuBauduc_Click()
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
Trong đó: ... co the co tham so nay hay khong co deu duoc
TT. Visual Basic
Trang 35
' Khởi tạo tọa độ đầu
X1 = 4 200 : Y1 = 100 0
X2 = 62 00 : Y2 = 200 0
' Vẽ hcn
HcnTron X1, Y1, X2, Y2
'...