Method PSet
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (83.99 KB, 2 trang )
Method PSet
Ta dùng method PSet (đến từ chữ Point Set) để vẽ một pixel lên form. Ta cần cho biết PSet ở
đâu và với màu gì, tức là ta cho nó tọa độ X,Y của pixel và một màu tính từ function RGB.
Dưới đây là code để vẽ pixels đủ màu lên form một cách bất chừng (randomly) về vị trí và màu
sắc khi user clicks lên form chính:
Private Sub Form_Click()
Dim i As Integer
' Variables for pixel coordinates
Dim iXCoord As Integer
Dim iYCoord As Integer
' Variable for primary colours
Dim iRed As Integer
Dim iGreen As Integer
Dim iBlue As Integer
' Start the Random number generation
Randomize
' Plot 2000 dots randomly
For i = 1 To 2000
' get a random XCoord.
' Note that Rnd(1) returns a real number between 0 and 1, eg: 0.384
iXCoord = Int(Rnd(1) * ScaleWidth)
' get a random YCoord.
iYCoord = Int(Rnd(1) * ScaleHeight)
' Get a random number between 0 and 254 for each primary colour
iRed = Int(Rnd(1) * 255)
iGreen = Int(Rnd(1) * 255)
iBlue = Int(Rnd(1) * 255)
' Plot the pixel at iXCoord,iYCoord
PSet (iXCoord, iYCoord), RGB(iRed, iGreen, iBlue)
Next
MsgBox ("All done!")
End Sub
Trong thí dụ trên ta dùng method Randomize để generate sẵn trong bộ nhớ các con số real bất
chừng từ 0 đến 0.999. Sau đó mỗi lần ta gọi Function Rnd(1) là nó sẽ trả về một con số real
lấy bất chừng từ bộ số do method Randomize generated. Do đó, Rnd(1) * ScaleWidth sẽ cho
ta một con số real có trị số từ 0 đến ScaleWidth. Muốn đổi con số real đó ra Integer, ta dùng
Function Int.
Khi khởi động chương trình và Click lên form ta sẽ có hình giống như dưới đây:
Mách nước: Để xóa một đóm bạn Pset lại tại chỗ ấy một đóm mới có cùng màu với
BackColor của form.
