Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 4
1

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

27.04.2012, 10:28. Показов 937. Ответов 2
Метки нет (Все метки)

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

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
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.04.2012, 10:28
Ответы с готовыми решениями:

Добавить комментарии к коду
нужно прокомментировать код mov ax,@data mov ds,ax mov cx,br mov si,offset mas xor ax, ax ...

Добавить комментарии к коду
Здравствуйте. Кто сможет закомментировать код? &lt;script language=&quot;JavaScript&quot;&gt; var elements =...

Добавить комментарии к коду
Кто нибудь напишите подробный комментарий к коду ни СИ. Можно подробней по &quot;#define size 5&quot; и int...

Добавить комментарии к коду. Сравнение чисел
Здравствуйте, очередной вопрос от меня. Нужно разобрать код (добавив комментарии) Задание:...

2
Памирыч
27.04.2012, 11:04
  #2
 Комментарий модератора 
Dimakol1, больше не называйте свои темы "Интересный код". Во-первых, в нем нет ничего интересного, во-вторых, это нарушение Правил
3
6029 / 3436 / 335
Регистрация: 14.06.2009
Сообщений: 8,136
Записей в блоге: 2
27.04.2012, 11:12 3
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от 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
Всё огонь! закоментировал
Теперь код стал еще интереснее
4
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2012, 11:12

Добавить комментарии к коду (список - стек)
//Список вида &quot;стек&quot; #include &lt;iostream&gt; using namespace std; //объявляем структуру с...

LPC214X. Нужно добавить комментарии к коду на Си и АСМ.
Недавно начал изучать программирования процессоров, и наткнулся на ассемблер и в книги по которой...

LPC214X. Нужно добавить комментарии к коду на Си и АСМ (задание 2)
Закомментируйте пожалуйста эту программу, а то в книги нету толкового объяснения #include...

Объясните что делает данная программа и напишите комментарии к коду
Что эта программа делает и если можно комментарии к ней (C++) #include &lt;stdio.h&gt; #include...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.