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

Скачать

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 2: 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), түсі, т. б

Private Sub Command1_Click()

формаға (пішінге) шеңбер салу, ішіне штрихталған

көк түспен толтыру. Ескерту: picturebox -те салғаннан

алдекайда өлшемі үлкен (2500, 700), 800, т, б

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 2: Next i

Loop While X <= 25000

End Sub

• Іс жүргізу
• Автоматтандыру, Техника
• Алғашқы әскери дайындық
• Астрономия
• Ауыл шаруашылығы
• Банк ісі
• Бизнесті бағалау
• Биология
• Бухгалтерлік іс
• Валеология
• Ветеринария
• География
• Геология, Геофизика, Геодезия
• Дін
• Ет, сүт, шарап өнімдері
• Жалпы тарих
• Жер кадастрі, Жылжымайтын мүлік
• Журналистика
• Информатика
• Кеден ісі
• Маркетинг
• Математика, Геометрия
• Медицина
• Мемлекеттік басқару
• Менеджмент
• Мұнай, Газ
• Мұрағат ісі
• Мәдениеттану
• ОБЖ (Основы безопасности жизнедеятельности)
• Педагогика
• Полиграфия
• Психология
• Салық
• Саясаттану
• Сақтандыру
• Сертификаттау, стандарттау
• Социология, Демография
• Спорт
• Статистика
• Тілтану, Филология
• Тарихи тұлғалар
• Тау-кен ісі
• Транспорт
• Туризм
• Физика
• Философия
• Халықаралық қатынастар
• Химия
• Экология, Қоршаған ортаны қорғау
• Экономика
• Экономикалық география
• Электротехника
• Қазақстан тарихы
• Қаржы
• Құрылыс
• Құқық, Криминалистика
• Әдебиет
• Өнер, музыка
• Өнеркәсіп, Өндіріс