Сложение в столбике

@Sergey198826 · Регистрация: 10.03.2011

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

Вот мой код

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
113
114
115
116
117
118
119
120
121
122
Option Explicit
 
Private Sub Command1_Click()
 
Dim paramA As Long 'колличество чисел столбце
    Dim paramB As Double 'интенсивность(колличество обьектов)
    Dim paramC As Long 'критическое время(поставте к примеру 5)
    
    Dim r1%, t1%, u%, r11%, r111%
Dim t111 As Double
Dim t112 As Double
Dim t113 As Double
 
Dim t11 As Double
Dim t12 As Double
Dim t13 As Double
 
Dim w11 As Double
Dim w12 As Double
Dim w13 As Double
 
Dim t1L As Double
Dim t1R As Double
Dim t1F As Double
 
 
 
Dim paramK1 As Integer 'этот параметр задает нижнюю границу при котором будет выполняться определенное условие 1 (здесь всегда нужно ставить 0)
Dim paramK2 As Integer 'этот параметр задает верхнюю границу при котором будет выполняться определенное условие 1 ( здесь может быть любое число от 0 до 100,т.к я использую генератор случ чисел с диапазоном 100(например пусть будет 34))
Dim paramK3 As Integer 'этот параметр задает нижнюю границу при котором будет выполняться определенное условие 2 (здесь всегда стоит число на единицу большее чем в предыдущем параметре т.е 34+1=35 ставим 35)
Dim paramK4 As Integer 'этот параметр задает верхнюю границу при котором будет выполняться определенное условие 2 (то же любое число например 78)
Dim paramK5 As Integer 'этот параметр задает нижнюю границу при котором будет выполняться определенное условие 3 (здесь всегда стоит число на единицу большее чем в предыдущем параметре т.е 78+1=79 ставим 79)
Dim paramK6 As Integer 'этот параметр задает верхнюю границу при котором будет выполняться определенное условие 3 (здесь всегда нужно ставвить 100)
Dim paramK11 As Integer 'этот параметр задает скорость приближения обьекта при условии 1 (диапазон чисел которые подставляються в текст бокс примерно от 10 до 70, но лучше брать 13 или 14 и тд до 20)
Dim paramK22 As Double 'этот параметр задает квадратичное откланение при условии 1 ( вписываеться от 0 до 1 поэтому стоит значение дабл, я обычно беру 0.5 или 0.45 или 0.6)
Dim paramK33 As Integer 'этот параметр задает скорость приближения обьекта при условии 2 (диапазон чисел которые подставляються в текст бокс примерно от 10 до 70, но лучше брать 13 или 14 и тд до 20)
Dim paramK44 As Double 'этот параметр задает квадратичное откланение при условии 2 ( вписываеться от 0 до 1 поэтому стоит значение дабл, я обычно беру 0.5 или 0.45 или 0.6)
Dim paramK55 As Integer 'этот параметр задает скорость приближения обьекта при условии 3 (диапазон чисел которые подставляються в текст бокс примерно от 10 до 70, но лучше брать 13 или 14 и тд до 20)
Dim paramK66 As Double 'этот параметр задает квадратичное откланение при условии 3 ( вписываеться от 0 до 1 поэтому стоит значение дабл, я обычно беру 0.5 или 0.45 или 0.6)
 
Dim paramQ11 As Double 'этот параметр задает радиус поворота обьекта для условия 1 ( вводяться любое число от 5 до14)
Dim paramQ12 As Double 'этот параметр задает радиус поворота обьекта для условия 2 ( вводяться любое число от 5 до14)
Dim paramQ13 As Double 'этот параметр задает радиус поворота обьекта для условия 3 ( вводяться любое число от 5 до14)
 
 
 
    
    paramK1 = Val(Text5.Text)
  paramK2 = Val(Text6.Text)
  paramK3 = Val(Text7.Text)
  paramK4 = Val(Text8.Text)
  paramK5 = Val(Text9.Text)
  paramK6 = Val(Text10.Text)
  paramK11 = Val(Text11.Text)
  paramK22 = Val(Text12.Text)
  paramK33 = Val(Text13.Text)
  paramK44 = Val(Text14.Text)
  paramK55 = Val(Text15.Text)
  paramK66 = Val(Text16.Text)
  paramQ11 = Val(Text18.Text)
  paramQ12 = Val(Text19.Text)
  paramQ13 = Val(Text20.Text)
    paramA = Val(Text1.Text)
    paramB = Val(Text2.Text)
    paramC = Val(Text17.Text)
   
    'ну а теперь сама програма
    
    For u = 1 To paramA
    r1 = Int(Rnd * 100) + 1 'запускаю первый генератор случайных чисел который выбрасывает мне заданное колличество случ чисел (для примера возьмем 10)
    t1 = -Log(r1 / 100) * 3600 / (paramB + 1) 'далше я запускаю расчет времени появления обьекта
    If (t1 <= paramC) Then t1 = 0 'здесь я сравниваю все выпавшие 10 чисел(времен появления) с заданным мною критическим временем (paramC)
                                  'если выпавшее время больше критического то вместо него записываеться 0, столбик по прежнему состоит из 10 чисел но некоторые из них
                                  'превращены в 0 при соблюденнии условия If (t1 <= paramC) Then t1 = 0
    r111 = Int(Rnd * 100) + 1 'запускаю новый генератор
t11 = Log(Sqr(2 * 3.14) * paramK22 * (r111 / 100)) 'дальше идут вычесления необходимые мне для вычисления t111
    w11 = t11
    If t11 < 0 Then w11 = -1
    If t11 > 0 Then w11 = 1
t12 = Log(Sqr(2 * 3.14) * paramK44 * (r111 / 100)) 'дальше идут вычесления необходимые мне для вычисления t112
    w12 = t12
    If t12 < 0 Then w12 = -1
    If t12 > 0 Then w12 = 1
t13 = Log(Sqr(2 * 3.14) * paramK66 * (r111 / 100)) 'дальше идут вычесления необходимые мне для вычисления t113
    w13 = t13
    If t13 < 0 Then w13 = -1
    If t13 > 0 Then w13 = 1
    t111 = Format(paramK11 + w11 * Sqr(2 * paramK22 * paramK22 * w11 * t11), "0.00") 'здесь вычисляеться скорость прохождения участка обьектом при условии1
    t112 = Format(paramK33 + w12 * Sqr(2 * paramK44 * paramK44 * w12 * t12), "0.00") 'здесь вычисляеться скорость прохождения участка обьектом при условии2
    t113 = Format(paramK55 + w13 * Sqr(2 * paramK55 * paramK66 * w13 * t13), "0.00") 'здесь вычисляеться скорость прохождения участка обьектом при условии3
    t1R = Format(paramQ11 / t111, "0.00") 'здесь я нахожу время прохождения обьектом участка при условии 1
    t1L = Format(paramQ12 / t112, "0.00") 'здесь я нахожу время прохождения обьектом участка при условии 2
    t1F = Format(paramQ13 / t113, "0.00") 'здесь я нахожу время прохождения обьектом участка при условии 3
    If (t1 = 0) Then t111 = 0 'здесь я задаю услови при котором t111 зануляеться если t1 было равно 0
    If (t1 = 0) Then t112 = 0 'здесь я задаю услови при котором t112 зануляеться если t1 было равно 0
    If (t1 = 0) Then t113 = 0 'здесь я задаю услови при котором t113 зануляеться если t1 было равно 0
    If (t1 = 0) Then t1R = 0 'здесь я задаю услови при котором t1R зануляеться если t1 было равно 0
    If (t1 = 0) Then t1L = 0 'здесь я задаю услови при котором t1L зануляеться если t1 было равно 0
    If (t1 = 0) Then t1F = 0 'здесь я задаю услови при котором t1F зануляеться если t1 было равно 0
    
   
      Select Case r111 'затем я задаю условие
  Case paramK1 To paramK2 'если выпавшее случайное число находиться в данном заданом ранее диапазоне то
    Label1 = Label1 & t1 & "R" & t111 & "/" & t1R & vbCrLf 'в первом лейбле записываеться данные значения например 47R11,86/0,72(R-означает направо) если t1 ,если t1 было равно 0 то в лейбле будет показано 0R0/0
  Case paramK3 To paramK4 'если выпавшее случайное число находиться в данном заданом ранее диапазоне то
    Label1 = Label1 & t1 & "L" & t112 & "/" & t1L & vbCrLf 'в первом лейбле записываеться данные значения например 56L16,76/0,62(L-означает налево) если t1 ,если t1 было равно 0 то в лейбле будет показано 0L0/0
  Case paramK5 To paramK6 'если выпавшее случайное число находиться в данном заданом ранее диапазоне то
     Label1 = Label1 & t1 & "F" & t113 & "/" & t1F & vbCrLf 'в первом лейбле записываеться данные значения например 45F15,56/0,67(F-означает прямо) если t1 ,если t1 было равно 0 то в лейбле будет показано 0F0/0
    End Select
      Next u
   
    'в итоге появляеться столбик из 10 чисел который выглядит премерно так
'47R11,86/0,72
'0R0/0
'56L16,76/0,62
'45F15,56/0,67
'и т.д (разумееться что числа и буквы могут изменяться)
 
End Sub
 Private Sub Form_Load()
  Randomize
End Sub

Не могли бы вы подсказать каким образом можно сделать так чтобы после того как выскачит столбик например такой
47R11,86/0,72
0R0/0
56L16,76/0,62
45F15,56/0,67
програма бы складывала последние числа в столбике то есть 0,72+0+0,62+0,67 до тех пор пока их сумма не достигнет граничного значения(которое должно вводиться в текст бокс) и затем прога выдает результат: кол-во оставшихся чисел, и суммы оставшихся и сложенных чисел.То есть если взять этот столбик то допустим граничное значение я возьму 1,5. Програма начинает считать 0,72+0=0,72+0,62=1,34+0,67=2,01>1,5 значит 0,67 не складываеться и прога показывает что несложенных чисел 1(0,67 сами числа показывать не надо только их колличество) сумма сложенных 1,34
суииа несложенных 0,67.

@Alex77755 · 13.04.2011, 23:32

выделить число можно так

Visual Basic
1
2
3
4
5
6
Option Explicit
Private Sub Комманда1_Click()
Dim S As String
S = "47 R11 , 86 / 0, 72"
MsgBox "твоё число:  " & CDbl(Split(S, "/")(1))
End Sub

А складывать в цикле с проверкой условия. Любой. Например:

Visual Basic
1
2
3
4
5
Do While Sum < 1.5
Loop
или
While Sum < 1.5
Wend

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ