Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/14: Рейтинг темы: голосов - 14, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 15.10.2010
Сообщений: 9
1

Блок-схема (схема нуждается в проверке)

21.11.2010, 22:06. Просмотров 2779. Ответов 3
Метки нет (Все метки)

Блок-схемы чертить никогда не умел, поэтому прошу помощи у знатоков. Нашёл в инэте прогу, которая схемы строит автоматически, по коду, но есть сомнения по поводу правильности построенного.
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Private Sub CommandButton5_Click()
CommandButton5.ControlTipText = "Нажмите для исследования!"
Dim L As Integer
L = TextBox1
Dim Rc As Single
Rc = TextBox2
Dim Hk As Integer
Hk = TextBox3
Dim n As Integer
n = TextBox4
Dim U As Double
For U = 1800 To 10000
    L = L + 300
    If L >= 10300 Then Exit For
    Range("G" & (U - 1799)) = L
    Dim E As Double
    E = (0.25 * (L ^ 2) + (Hk ^ 2) - (n ^ 2) - (2 * Rc * Hk)) / (2 * Hk)
    Dim Rпр As Double
    Rпр = 0.5 * E + (Sqr(0.25 * (E ^ 2) + H))
    Range("I" & (U - 1799)) = Rпр
Next
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Лист1'!$G$1:$G$28"
ActiveChart.SeriesCollection(1).Values = "='Лист1'!$I$1:$I$28"
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
End Sub
 
Private Sub Image1_Click()
End Sub
 
Private Sub Label11_Click()
 
End Sub
 
Private Sub TextBox1_Change()
TextBox1.ControlTipText = "Введите нужное значение для расчёта базы автомобиля"
If IsNumeric(TextBox1.Value) = False Then
    MsgBox "Введена не цифра, введите цифровое значение L, которое должно быть больше 0", vbCritical, "Ошибка ввода"
End If
End Sub
Private Sub TextBox2_Change()
TextBox2.ControlTipText = "Введите нужное значение для расчёта свободного радиуса колеса"
If IsNumeric(TextBox2.Value) = False Then
    MsgBox "Введена не цифра, введите цифровое значение Rc, которое должно быть больше 0", vbCritical, "Ошибка ввода"
End If
End Sub
Private Sub TextBox3_Change()
TextBox3.ControlTipText = "Введите нужное значение для расчёта Hk"
If IsNumeric(TextBox3.Value) = False Then
    MsgBox "Введена не цифра, введите цифровое значение Hk, которое должно быть больше 0", vbCritical, "Ошибка ввода"
End If
End Sub
Private Sub TextBox4_Change()
TextBox4.ControlTipText = "Введите нужное значение для расчёта n"
If IsNumeric(TextBox4.Value) = False Then
    MsgBox "Введена не цифра, введите цифровое значение n, которое должно быть больше 0", vbCritical, "Ошибка ввода"
End If
End Sub
Private Sub CommandButton1_Click()
CommandButton1.ControlTipText = "Нажмите для вычисления!"
Dim L As Integer
L = TextBox1
Dim Rc As Single
Rc = TextBox2
Dim Hk As Integer
Hk = TextBox3
Dim n As Integer
n = TextBox4
Dim E As Double
E = (0.25 * (L ^ 2) + (Hk ^ 2) - (n ^ 2) - (2 * Rc * Hk)) / (2 * Hk)
Range("B2").Name = "E"
Range("B2").Value = E
End Sub
Private Sub CommandButton2_Click()
CommandButton2.ControlTipText = "Нажмите для вычисления!"
Dim Rc As Single
Rc = TextBox2
Dim Hk As Integer
Hk = TextBox3
Dim n As Integer
n = TextBox4
Dim H As Double
H = (n ^ 2) * (Hk - Rc) / (2 * Hk)
Range("D2").Name = "H"
Range("D2").Value = H
End Sub
Private Sub CommandButton3_Click()
CommandButton3.ControlTipText = "Нажмите для вычисления!"
Dim L As Integer
L = TextBox1
Dim Rc As Single
Rc = TextBox2
Dim Hk As Integer
Hk = TextBox3
Dim n As Integer
n = TextBox4
Dim E As Double
E = (0.25 * (L ^ 2) + (Hk ^ 2) - (n ^ 2) - (2 * Rc * Hk)) / (2 * Hk)
Dim H As Double
H = (n ^ 2) * (Hk - Rc) / (2 * Hk)
Dim Rпр As Double
Rпр = 0.5 * E + (Sqr(0.25 * (E ^ 2) + H))
Range("C4").Name = "Rпр"
Range("C4").Value = Rпр
End Sub
Private Sub CommandButton4_Click()
CommandButton4.ControlTipText = "Нажмите для прочтения теоретической части"
UserForm2.Show
End Sub
Блок-схема построенная прогой:
http://img.ii4.ru/images/2010/11/21/66483_1.jpg
http://img.ii4.ru/images/2010/11/21/66484_22.jpg
http://img.ii4.ru/images/2010/11/21/66485_3.jpg
http://img.ii4.ru/images/2010/11/21/66487_4.jpg
http://img.ii4.ru/images/2010/11/21/66488_5.jpg
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2010, 22:06
Ответы с готовыми решениями:

Блок схема ( схема алгоритма )
Доброго времени суток . Есть вот такая програмка : bool checktwo(const int x); int main(){ ...

Нужна схема СМ Beko WKB61041, Схема любой модели с модулем, как на фото
Нужна схема любой модели с модулем, как на фото. ...

блок-схема
Ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в А тонн. Ежегодный план отлова...

Блок-схема
Необходимо поменять местами главную и побочную диагонали в двумерном массиве, программу написал, но...

3
0 / 0 / 0
Регистрация: 15.10.2010
Сообщений: 9
01.12.2010, 10:03  [ТС] 2
никто не знает?
0
11025 / 3472 / 602
Регистрация: 13.02.2009
Сообщений: 10,333
01.12.2010, 20:36 3
Госты знают
0
0 / 0 / 0
Регистрация: 15.10.2010
Сообщений: 9
01.12.2010, 23:30  [ТС] 4
гост это хорошо, знать бы как его правильно применить
ps Просто жесть, программу проще написать чем эту схему составить...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2010, 23:30

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Блок-схема
Если не сложно, то составьте пожалуста блок - схему к этой программе(можно даже в Paint) Program...

блок схема!!!
Ни разу не чертил блок схема графики паскаль!!! прошу помочь начертить блок схему =) uses...

Блок-схема!
Помогите составить блок-схему!!! Пожалуйста!

блок- схема
Один из простейших способов шифровки состоит в табличной замене одного символа на другой. Выбрать...


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

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

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