For j = 1 То 1000000: Next
Пока компьютер досчитает до миллиона, пройдет некая значительная доля секунды.
Задание 85: "Летающие тарелки в космосе". Они получатся, если по нажатии одной кнопки вы будете добавлять на форму очередную порцию звезд, а по нажатии другой — очередную летающую тарелку из задачи 68, но случайного размера и в случайном месте, что нелегко. Подсказка без пояснений: При рисовании тарелки не используйте Rnd внутри цикла, все случайные значения присвойте переменным выше цикла.
До сих пор мы с вами имели дело только с процедурами, задающими реакцию компьютера на те или иные события. Это процедуры типа "Что делать, если…". Настала пора познакомить вас с другими процедурами — процедурами типа "Как". Будем называть их процедурами пользователя. В этой главе я на одном примере проведу вас от процедур пользователя к процедурам с параметрами.
Зачем нужны процедуры пользователя
Задача: Вы записали на диск десяток фотографий, снятых во время каникул, и решили сделать фотоальбом. Поместили на форму десяток кнопок с названиями фотографий и один PictureBox. При нажатии на кнопку нужное фото для всеобщего обозрения загружается в PictureBox, а также печатается дата снимка.
Задача легкая, мы ее уже решали в 0. Вот программа для 4 фотографий:
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("с: \temp\Rockies.bmp")
Picture1.Print, "21.07.2001"
End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture("c: \temp\Porthole.bmp")
Picture1.Print, "28.07.2001"
End Sub
Private Sub Command3_Click()
Picture1.Picture = LoadPicture("c: \temp\Balloons.bmp")
Picture1.Print, "12.08.2001"
End Sub
Private Sub Command4_Click()
Picture1.Picture = LoadPicture("c: \temp\Guitar.bmp")
Picture1.Print, "20.07.2001"
End Sub
Хочу предупредить, что эта программа, постепенно усложняясь, пройдет через всю главу, поэтому разберитесь в ней как следует, иначе важный материал главы будет вам непонятен.
Усложним задачу: Некоторые из фотографий сняли вы, некоторые — ваш друг. Вы хотите, чтобы в знак этого на ваших фото в левом верхнем углу появлялся один значок, а на фото вашего друга другой. Ваш любимый значок такой — > 
а у вашего друга такой — > 
Пусть они и появляются.
Давайте значки будем рисовать при помощи методов. Ваша программа станет такой:
Private Sub Cornmandl_Click ()
Picture1.Picture = LoadPicture("c: \temp\Rockies.bmp")
'Это ваше фото, рисуем значок:
Picture1.Line (100, 100)-(300, 300), vbBlue, В
Picture1.Line (100, 100)-(300, 300), vbBlue
Picture1.Line (100, 300)-(300, 100), vbBlue
Picture1.Print, "21.07.2001"
End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture("c: \temp\Porthole.bmp")
'Это ваше фото, рисуем значок:
Picture1.Line (100, 100)-(300, 300), vbBlue, В
Picture1.Line (100, 100)-(300, 300), vbBlue
Picture1.Line (100, 300)-(300, 100), vbBlue
Picture1.Print, "28.07.2001"
End Sub
Private Sub Command3_Click()
Picture1.Picture = LoadPicture("c: \temp\Balloons.bmp")
'Это фото вашего друга, рисуем значок:
Picture1.Circle (200, 200), 20
Picture1.Circle (200, 200), 70
Picture1.Circle (200, 200), 120
Picture1.Circle (200, 200), 170
Picture1.Print, "12.08.2001"
End Sub
Private Sub Command4_Click()
Picture1.Picture = LoadPicture("c: \temp\Guitar.bmp")
'Это фото вашего друга, рисуем значок:
Picture1.Circle (200, 200), 20
Picture1.Circle (200, 200), 70
Picture1.Circle (200, 200), 120
Picture1.Circle (200, 200), 170
Picture1.Print, "20.07.2001"
End Sub
Программа работает нормально, но невооруженным глазом виден ее существенный недостаток — резко возросший объем. Недостаток этот особенно будет заметен, когда число фото вырастет до десятка. Это тем более обидно, что в программе есть два повторяющихся фрагмента. Это фрагмент
'Это ваше фото, рисуем значок:
Picture1.Line (100, 100)-(300, 300), vbBlue, В
Picture1.Line (100, 100)-(300, 300), vbBlue
Picture1.Line (100, 300)-(300, 100), vbBlue
и фрагмент
'Это фото вашего друга, рисуем значок:
Picture1.Circle (200, 200), 20
Picture1.Circle (200, 200), 70
Picture1.Circle (200, 200), 120
Picture1.Circle (200, 200), 170
которые в нашей программе встретились по два раза, а когда число фото вырастет, то встретятся многократно.
В этом случае программисты всего мира поступают так. Они придумывают повторяющимся фрагментам имена, например,