Расчетная программа. Добавить комментарии к коду

@Dimakol1 · Регистрация: 16.03.2012

Студворк — интернет-сервис помощи студентам

Закоментировать программный код как можно подробнее

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Option Explicit
Dim polyTest As New Polygon, PredX As Single, PredY As Single
Public di As Long, CentX As Integer, CentY As Integer
 
 
Private Sub CenterMass_Click()
polyTest.Triangulation
Raschet.Visible = True
End Sub
Private Sub Raschet_Click()
polyTest.ОтобразитьРассчётЦентраМасс
End Sub
 
Private Sub TextSetting_Click()
TextWork.Show
End Sub
Private Sub Form_Load()
Randomize
With picTest
.Move 0, 0, ScaleWidth, ScaleHeight
.FillStyle = vbSolid
End With
End Sub
Private Sub new_poligon_Click()
picTest.Cls
polyTest.new_poligon
PredX = 0
PredY = 0
Raschet.Visible = False
End Sub
 
Private Sub picTest_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'****************полином*****************
picTest.Line (X, Y - 2)-(X, Y + 2)
picTest.Line (X - 2, Y)-(X + 2, Y)
 
If PredX <> 0 And PredY <> 0 Then
picTest.Line (PredX, PredY)-(X, Y)
End If
 
PredX = X
PredY = Y
 
polyTest.Point X, Y
 
If Button = 2 Then
picTest.Cls
Set polyTest.Device = picTest
With picTest
.FillColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
polyTest.Draw
End With
End If
 
'****************траектория*****************
'If PredX <> 0 And PredY <> 0 Then
'picTest.Line (PredX, PredY)-(X, Y)
'End If
 
'PredX = X
'PredY = Y
'List1.AddItem (X & "_" & Y)
 
'polyTest.Point X, Y
 
'If Button = 2 Then
'Beep
'Set polyTest.Device = picTest
'picTest.
'polyTest.Draw
'End If
'***************
End Sub

Памирыч · 27.04.2012, 11:04

Комментарий модератора

Dimakol1, больше не называйте свои темы "Интересный код". Во-первых, в нем нет ничего интересного, во-вторых, это нарушение Правил

@nio · 27.04.2012, 11:12

Сообщение от Dimakol1

Закоментировать программный код как можно подробнее

Ок, ща закоментруем

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
'Option Explicit
'Dim polyTest As New Polygon, PredX As Single, PredY As Single
'Public di As Long, CentX As Integer, CentY As Integer
 
 
'Private Sub CenterMass_Click()
'polyTest.Triangulation
'Raschet.Visible = True
'End Sub
'Private Sub Raschet_Click()
'polyTest.ОтобразитьРассчётЦентраМасс
'End Sub
 
'Private Sub TextSetting_Click()
'TextWork.Show
'End Sub
'Private Sub Form_Load()
'Randomize
'With picTest
'.Move 0, 0, ScaleWidth, ScaleHeight
'.FillStyle = vbSolid
'End With
'End Sub
'Private Sub new_poligon_Click()
'picTest.Cls
'polyTest.new_poligon
'PredX = 0
'PredY = 0
'Raschet.Visible = False
'End Sub
 
'Private Sub picTest_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'****************полином*****************
'picTest.Line (X, Y - 2)-(X, Y + 2)
'picTest.Line (X - 2, Y)-(X + 2, Y)
 
'If PredX <> 0 And PredY <> 0 Then
'picTest.Line (PredX, PredY)-(X, Y)
'End If
 
'PredX = X
'PredY = Y
 
'polyTest.Point X, Y
 
'If Button = 2 Then
'picTest.Cls
'Set polyTest.Device = picTest
'With picTest
'.FillColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
'polyTest.Draw
'End With
'End If
 
'****************траектория*****************
'If PredX <> 0 And PredY <> 0 Then
'picTest.Line (PredX, PredY)-(X, Y)
'End If
 
'PredX = X
'PredY = Y
'List1.AddItem (X & "_" & Y)
 
'polyTest.Point X, Y
 
'If Button = 2 Then
'Beep
'Set polyTest.Device = picTest
'picTest.
'polyTest.Draw
'End If
'***************
'End Sub

Всё огонь! закоментировал

Теперь код стал еще интереснее

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

Расчетная программа. Добавить комментарии к коду

Решение

Решение