Формаға іші штрихталған және түспен толтырылған тік төрбұрыш сал

Private Sub Command1_Click()
Picture1.Scale (-12.1, 12.1)-(12.1, -12.1)
For i% = -12 To 12
Picture1.Line (i, 12.1)-(i, -12.1), vbYellow
Next i
For k! = -1 To 1 Step 0.1
Picture1.Line (-12, k)-(12, k), vbYellow
Next k
Picture1.Line (-12, 0)-(12, 0), vbGreen
Picture1.Line (0, -12)-(0, 12), vbGreen
d! = 0.001
For y! = -12 To -d Step d
Picture1.PSet (y, 10 / (y))
Next y
For y! = d To 12 Step d
Picture1.PSet (y, 10 / (y))
Next y
End Sub
Тапсырма:
келесі суреттегі программаға
Алмастыру (бағдарламаны өзгерту)

Тапсырма: команда атын <<кішкентай қонжық>> деп өзгерт, бағдарламасын жаз?

Тапсырма :
1жақтау (frame1) , Жазу1 (text1),
2каманда (command1,2) ,timer1.
батырмаларын алып бағдарламасын
жазып шығару.

Private Sub Command1_Click()
Picture1.Scale (-12.5, 1.1)-(12.5, -1.1)
For i% = -12 To 12
Picture1.Line (i, 1)-(i, 1), vbYellow
Next i
For k! = -1 To 1 Step 0.1
Picture1.Line (-12, k)-(12, k), vbYellow
Next k
Picture1.Line (-12, 0)-(12, 0), vbGreen
Picture1.Line (0, -1)-(0, 1), vbGreen
d! = 0.001
For x! = -12 To 12 Step d
Picture1.PSet (x, Sin(x))
Next x
End Sub
Private Sub Command1_Click()
Cls
drawwhite = 2
Scale (0, 0)-(15, 15)
Randomize Timer
For i = 1 To 500
x = Rnd() * 15
y = Rnd() * 10
Line (2, 5)-(x, y), QBColor(Int(Rnd() * 12))
For J = 1 To 100 000: Next J
Next i
End Sub

Тапсырма: формаға команда алып бағдарламасын
Жазып жауабын алу.

Тапсырма: формаға команда алып атын <<пуск>> деп өзгертіп бағдарламаны орында.
Private Sub Command1_Click()
Form1.DrawWidth = 2
X = 1500: y = 2500: r = 800
Form1.FillStyle = 2
Form1.FillColor = vbBlue
Do
Cls
X = X + 1000
Form1.Circle (X, y), r, vbRed
For i = 1 To 20000000: Next i
Loop While X <= 25000
End Sub

Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Option1_Click()
Shape1.Shape = 0
End Sub
Private Sub Option2_Click()
Shape1.Shape = 1
End Sub
Private Sub Option3_Click()
Shape1.Shape = 2
End Sub
Private Sub Option4_Click()
Shape1.Shape = 3
End Sub

Формаға іші штрихталған және түспен толтырылған
тік төрбұрыш сал. Ескерту формаға салғанда өлшем
үлкендеу алған дұрыс
мысалы: сызық (0,0)-(500,500),түсі,т.б



формаға (пішінге) шеңбер салу, ішіне штрихталған
көк түспен толтыру. Ескерту: picturebox - те салғаннан
алдекайда өлшемі үлкен (2500, 700), 800,т,б

Private Sub Command1_Click() Form1.DrawWidth = 2
X = 1500: y = 2500: r = 800
Form1.FillStyle = 2
Form1.FillColor = vbBlue
Do
Cls
X = X + 1000
Form1.Circle (X, y), r, vbRed
For i = 1 To 20000000: Next i
Loop While X <= 25000
End Sub