27
- : Visual Basic. .
- . , : , , , , , , . . :
, ;
;
, .
. Twip. , ScaleMode. . .
[.] Scale (x1,y1) (x2,y2)
, :
16 QBcolor(n), n - :
, , :
o RGB(n1,n2,n3). n1, n2 n3 0 255, . : RGB(0, 255, 0) - ().
o : &H8000000F&, &H000000FF& ..
.
.
[.] Pset (x,y) [,]
- (x,y) -
(), .
[.] Line [(x1,y1)] - (x2,y2) [,] [, B [ F ]]
- (x1,y1) - . , . (x2,y2) .
. , ForeColor. QBColor(n) RGB(n1,n2,n3).
B (Box-), ; . (. ), FillColor, FillStyle . F, , . F B.
, , , .
Circle (x,y), R [,][[-]n1,[-]n2 [,n3]]
- (x,y) - (, , )
. , ForeColor. QBColor(n) RGB(n1,n2,n3).
|
|
n1 n2 . , .
n3 . 1 , 1 - .
- , , - (). .
FillStyle = n
- n - 0 7, , . .
Picture1.FillColor = QBColor(8)
Picture1.FillStyle = 0
Picture1.Circle (150, 150), 60, RGB(0, 0, 225)
| |
Ƹ | |
- | |
- | |
- | |
- | |
- |
3. : . , .
3.1. :
. , . , , . .
3.2. :
Private Sub Command1_Click()
Cls
Form1.BackColor = blak
DrawWidth = 2
Scale (0, 10)-(15, 0)
Randomize Timer
For i = 1 To 1000
x = Rnd() * 15
y = Rnd() * 15
PSet (x, y), QBColor(15)
For j = 1 To 100000: Next j
Next i
End Sub
.
:
3. 1. .
3. 2. ( , ).
3. 3. .
3. 4. .
3. 5. .
3. 6. .
3. 7. .
3. 8.
.
3. 9. ( , ).
|
|
3. 10. .
3. 11. .
3. 12. .
3. 13. .
3. 14. .
3. 15. , .
3. 16. , .( , )
4. :
4.1. .
4.2. .
4.3 . .
4.4 .
5. :
5.1. ?
5.2. ?
5.3. Visual Basic ?
5.4. PictureBox ?
5.5. ?
6. :
6.1. | : . 3- . . / . . ... .: , 2002. 768. |
6.2. | .. . .: . , 1999. 336. |
6.3. | .. : . .: ; , 2002. 480 . |