Исправить ошибку For without Next

@Анна121 · Регистрация: 24.01.2017

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

Выбор типа решетки в конструкции

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
1   Select Case tru(i)
2    Case 1 [COLOR="SeaGreen"]' раскосная треугольная[/COLOR]
3        If res = 0 Then
4        res = 1
5        Else
6        res = 0
7        End If
8        If res = 0 Then
9        Form15.Line (x11, Y1)-(x22, Y2)
10        End If
11        If res = 1 Then
12        Form15.Line (x21, Y1)-(x12, Y2)
13        End If
        
14    Case 2 [COLOR="seagreen"]'полураскосная верх.[/COLOR]
15        Form15.Line (x11, Y1)-(x0, Y2): Form15.Line (x21, Y1)-(x0, Y2)
 
16    Case 3 [COLOR="seagreen"]'п/р низ[/COLOR]
17        Form15.Line (x12, Y2)-(x0, Y1): Form15.Line (x22, Y2)-(x0, Y1)
 
18    Case 4 [COLOR="seagreen"]' крестовая[/COLOR]
19        Form15.Line (x11, Y1)-(x22, Y2): Form15.Line (x21, Y1)-(x12, Y2)
 
20    Case 5 [COLOR="seagreen"]' ромбическая[/COLOR]
21        X1 = (x11 + x12) / 2: X2 = (x21 + x22) / 2
22        Y = Y2 + h(i) / 2
23        Form15.Line (x0, Y1)-(X1, Y): Form15.Line (X2, Y)-(x0, Y1)
24        Form15.Line (x0, Y2)-(X1, Y): Form15.Line (X2, Y)-(x0, Y2)
 
25    Case 6[COLOR="seagreen"] ' ромбическая с шпренгелями[/COLOR]
26        X1 = (x11 + x12) / 2: X2 = (x21 + x22) / 2
27        Y = Y2 + h(i) / 2 '
 
28        x3 = (x0 + X1) / 2:
29        x4 = (X2 + x0) / 2
30        y3 = Y1 + (Y - Y1) / 2
31        x5 = (X1 + x0) / 2: x6 = (X2 + x0) / 2
32        y4 = Y + (Y2 - Y) / 2
 
33        Form15.Line (x0, Y1)-(X1, Y): Form15.Line (X2, Y)-(x0, Y1)
34        Form15.Line (x0, Y2)-(X1, Y): Form15.Line (X2, Y)-(x0, Y2)
 
35        Form15.Line (x11, Y1)-(x3, y3): Form15.Line (x21, Y1)-(x4, y3)
36        Form15.Line (x12, Y2)-(x5, y4): Form15.Line (x22, Y2)-(x6, y4)
 
37    Case 7[COLOR="seagreen"] ' ромбическая с усиленным шпренгелем[/COLOR]
38        X1 = (x11 + x12) / 2: X2 = (x21 + x22) / 2
39        Y = Y2 + h(i) / 2
40        x3 = (x0 + X1) / 2: x4 = (X2 + x0) / 2
41        y3 = Y1 + (Y - Y1) / 2
42        x5 = (X1 + x0) / 2: x6 = (X2 + x0) / 2
43        y4 = Y + (Y2 - Y) / 2
44        x7 = (x11 + X1) / 2: x8 = (X2 + x21) / 2
45        X9 = (x11 + x0) / 2: X10 = (x0 + x21) / 2
46        x01 = (X1 + x12) / 2: x02 = (X2 + x22) / 2
47        x03 = (x0 + x12) / 2: x04 = (x0 + x22) / 2
48        Form15.Line (x0, Y1)-(X1, Y): Form15.Line (X2, Y)-(x0, Y1)
49        Form15.Line (x0, Y2)-(X1, Y): Form15.Line (X2, Y)-(x0, Y2)
    
50        Form15.Line (x11, Y1)-(x3, y3): Form15.Line (x21, Y1)-(x4, y3)
51        Form15.Line (x12, Y2)-(x5, y4): Form15.Line (x22, Y2)-(x6, y4)
 
52        Form15.Line (x7, y3)-(x3, y3): Form15.Line (x8, y3)-(x4, y3)
53        Form15.Line (X9, Y1)-(x3, y3): Form15.Line (X10, Y1)-(x4, y3)
 
54        Form15.Line (x01, y4)-(x5, y4): Form15.Line (x02, y4)-(x6, y4)
55        Form15.Line (x03, Y2)-(x5, y4): Form15.Line (x04, Y2)-(x6, y4)
 
56    Case 8 [COLOR="seagreen"]' портальная[/COLOR]
57        Form15.Line (x11, Y1)-(x0, Y2): Form15.Line (x21, Y1)-(x0, Y2)
58 [COLOR="Blue"]1 [/COLOR]        k(i) = k + 1
59        If k(i) = nro(i) Then
60        GoTo 2
61         End If
62        x3 = x21 + (-x21 + x22) / nro(i) * k
63        x4 = x21 + (-x21 + x0) / nro(i) * k
64        x5 = x11 - (x11 - x12) / nro(i) * k
65        x6 = x11 - (x11 - x0) / nro(i) * k
66        x7 = x21 + (-x21 + x22) / nro(i) * (k + 1)
67        x8 = x11 - (x11 - x12) / nro(i) * (k + 1)
 
68        y3 = Y1 - (Y1 - Y2) / nro(i) * k
69        y4 = Y1 - (Y1 - Y2) / nro(i) * (k + 1)
 
70        Form15.Line (x3, y3)-(x4, y3): Form15.Line (x5, y3)-(x6, y3)
71        Form15.Line (x4, y3)-(x7, y4):  Form15.Line (x6, y3)-(x8, y4)
72        GoTo 1
73        End Select
74 [COLOR="blue"]2[/COLOR] Form15.Show
75 End Sub

@fever brain · 28.02.2017, 10:35

Пробуй так, в том месте ошибки не будет
я там закоментировал где чо добавил
далее будет Overflow - переполнение (ошибка присвоения данных) ...

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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
Private Sub Com_prosmotr_Click()
    'чтение файла сокращеной информации
    Open "1.tmp" For Input As #1
    Open "2.tmp" For Output As #2
    While Not EOF(2)
        Line Input #1, aaaa1$
        Print #2, aaaa1$
    Wend
    Close
    Open "1.tmp" For Input As #2
    
    Line Input #2, a1$
    ob_name = a1$
    Line Input #2, a1$
    vr = a1$
    Line Input #2, a1$
    soor = a1$
    Line Input #2, a1$
    ko = a1$
    Line Input #2, a1$
    ku = a1$
    Line Input #2, a1$
    ktn = a1$
    Line Input #2, a1$
    kp = a1$
    Line Input #2, a1$
    Dr = a1$
    Line Input #2, a1$
    zakr = a1$
    Line Input #2, a1$
    a(0) = a1$
    Line Input #2, a1$
    h(i) = a1$
    'ДОБАВЛЕННО
    Close
    Open "proba.ddd" For Input As #2
    '======================================
    Line Input #2, a1$ 'участки
    For i = 1 To ku
        Input #2, Hu(i), tru(i), kpan(i)
    Next
    Line Input #2, a1$ 'оттяжки
    For i = 1 To ko
        Input #2, Hott(i), Rott(i), kott(i), Fott(i), Pott(i)
    Next
    
    Line Input #2, a1$ 'переломы поясов
    For i = 1 To kp
        Input #2, Hper(i), aper(i)
    Next
    
    Line Input #2, a1$ 'пояса
    For i = 1 To ku
        Input #2, tpp(i), Dpp(i), Fpp(i), rpp(i), Ipp(i)
    Next
    Line Input #2, a1$ 'распорки
    For i = 1 To ku
        Input #2, tprp(i), DpRp(i), FpRp(i), rpRp(i)
    Next
    
    Line Input #2, a1$ 'раскосы
    For i = 1 To ku
        Input #2, tprk(i), DpRk(i), FpRk(i), rpRk(i)
    Next
    
    Line Input #2, a1$ 'шпренгели
    For i = 1 To ku
        Input #2, tpsh(i), Dpsh(i), Fpsh(i), rpsh(i)
    Next
    Close
    Load Form15
    
    For j = 1 To ku
        If tru(j) = 8 Then GoTo 4
        n = n + kpan(j): b1 = Hu(j) / kpan(j): E1 = n - kpan(j) + 1
        For i = E1 To n
            tru(i) = tru(j):
            nro(i) = nrou(j): b(i) = b1
            tp(i, 1) = tpp(j): d(i, 1) = Dpp(j): f(i, 1) = Fpp(j)
            tp(i, 2) = tprp(j): d(i, 2) = DpRp(j): f(i, 2) = FpRp(j)
            tp(i, 3) = tprk(j): d(i, 3) = DpRk(j): f(i, 3) = FpRk(j)
            tp(i, 4) = tpsh(j): d(i, 4) = Dpsh(j): f(i, 4) = Fpsh(j)
        Next i
4   Next j
    
    j = 1: aper(0) = a(0): aper(Per + 1) = a(n):
    Hper(Per + 1) = Int(Z1 * 100) / 100
    For i = 1 To hpan
        hpan(i) = hpan(i - 1) + b(i):
        If tru(i) = 8 Then GoTo 10
40
        h(i) = h(i) + b(i)
        
        '      then 20 'j=j-1 : goto 20
        If Int(hpan(i) * 100) / 100 > Int(Hper(j) * 100) / 100 Then
            j = j + 1: h(i) = 0: GoTo 40
        End If
        '      if Per<=j then 30'
        If aper(j) <> aper(j - 1) Then GoTo 30
        
20      h(i) = 0: a(i) = aper(j): Print "a=a": GoTo 10:
30      '?i,j,hpan(i)
        a(i) = aper(j - 1) - (aper(j - 1) - aper(j)) * h(i) / (Hper(j) - Hper(j - 1))
        jjj$ = "###.### aper=###.### hpan= ###.### hper=###.### # #"
        
        If a(i) = aper(j) Then j = j + 1: h(i) = 0 'Aper(j)<>Aper(j+1)
        
10      Print "a("; i; ")="; USING; jjj$; a(i); aper(j); hpan(i); Hper(j); j; Per
    Next i
    
    
    x0 = 5040
    Y2 = 5000
    
    For i = 1 To 6
        a1 = a(i)
        x11 = x0 + a(i - 1) / 2
        x21 = x0 - a(i - 1) / 2
        x12 = x0 + a(i) / 2
        x22 = x0 - a(i) / 2
        
        Y1 = Y2
        Y2 = Y1 - h(i)
        Form15.Line (x11, Y1)-(x12, Y2): Line (x21, Y1)-(x22, Y2)
        Form15.Line (x12, Y2)-(x22, Y2) ' распорки
        
        Select Case tru(i)
            Case 1 ' раскосная треугольная
                If res = 0 Then
                    res = 1
                Else
                    res = 0
                End If
                If res = 0 Then
                    Form15.Line (x11, Y1)-(x22, Y2)
                End If
                If res = 1 Then
                    Form15.Line (x21, Y1)-(x12, Y2)
                End If
                
            Case 2 'полураскосная верх.
                Form15.Line (x11, Y1)-(x0, Y2): Form15.Line (x21, Y1)-(x0, Y2)
                
            Case 3 'п/р низ
                Form15.Line (x12, Y2)-(x0, Y1): Form15.Line (x22, Y2)-(x0, Y1)
                
            Case 4 ' крестовая
                Form15.Line (x11, Y1)-(x22, Y2): Form15.Line (x21, Y1)-(x12, Y2)
                
            Case 5 ' ромбическая
                X1 = (x11 + x12) / 2: X2 = (x21 + x22) / 2
                Y = Y2 + h(i) / 2
                Form15.Line (x0, Y1)-(X1, Y): Form15.Line (X2, Y)-(x0, Y1)
                Form15.Line (x0, Y2)-(X1, Y): Form15.Line (X2, Y)-(x0, Y2)
                
            Case 6 ' ромбическая с шпренгелями
                X1 = (x11 + x12) / 2: X2 = (x21 + x22) / 2
                Y = Y2 + h(i) / 2 '
                
                x3 = (x0 + X1) / 2:
                x4 = (X2 + x0) / 2
                y3 = Y1 + (Y - Y1) / 2
                x5 = (X1 + x0) / 2: x6 = (X2 + x0) / 2
                y4 = Y + (Y2 - Y) / 2
                
                Form15.Line (x0, Y1)-(X1, Y): Form15.Line (X2, Y)-(x0, Y1)
                Form15.Line (x0, Y2)-(X1, Y): Form15.Line (X2, Y)-(x0, Y2)
                
                Form15.Line (x11, Y1)-(x3, y3): Form15.Line (x21, Y1)-(x4, y3)
                Form15.Line (x12, Y2)-(x5, y4): Form15.Line (x22, Y2)-(x6, y4)
                
            Case 7 ' ромбическая с усиленным шпренгелем
                X1 = (x11 + x12) / 2: X2 = (x21 + x22) / 2
                Y = Y2 + h(i) / 2
                x3 = (x0 + X1) / 2: x4 = (X2 + x0) / 2
                y3 = Y1 + (Y - Y1) / 2
                x5 = (X1 + x0) / 2: x6 = (X2 + x0) / 2
                y4 = Y + (Y2 - Y) / 2
                x7 = (x11 + X1) / 2: x8 = (X2 + x21) / 2
                X9 = (x11 + x0) / 2: X10 = (x0 + x21) / 2
                x01 = (X1 + x12) / 2: x02 = (X2 + x22) / 2
                x03 = (x0 + x12) / 2: x04 = (x0 + x22) / 2
                Form15.Line (x0, Y1)-(X1, Y): Form15.Line (X2, Y)-(x0, Y1)
                Form15.Line (x0, Y2)-(X1, Y): Form15.Line (X2, Y)-(x0, Y2)
                
                Form15.Line (x11, Y1)-(x3, y3): Form15.Line (x21, Y1)-(x4, y3)
                Form15.Line (x12, Y2)-(x5, y4): Form15.Line (x22, Y2)-(x6, y4)
                
                Form15.Line (x7, y3)-(x3, y3): Form15.Line (x8, y3)-(x4, y3)
                Form15.Line (X9, Y1)-(x3, y3): Form15.Line (X10, Y1)-(x4, y3)
                
                Form15.Line (x01, y4)-(x5, y4): Form15.Line (x02, y4)-(x6, y4)
                Form15.Line (x03, Y2)-(x5, y4): Form15.Line (x04, Y2)-(x6, y4)
                
            Case 8 ' портальная
                Form15.Line (x11, Y1)-(x0, Y2): Form15.Line (x21, Y1)-(x0, Y2)
1               k(i) = k + 1
                If k(i) = nro(i) Then GoTo 2
                x3 = x21 + (-x21 + x22) / nro(i) * k
                x4 = x21 + (-x21 + x0) / nro(i) * k
                x5 = x11 - (x11 - x12) / nro(i) * k
                x6 = x11 - (x11 - x0) / nro(i) * k
                x7 = x21 + (-x21 + x22) / nro(i) * (k + 1)
                x8 = x11 - (x11 - x12) / nro(i) * (k + 1)
                
                y3 = Y1 - (Y1 - Y2) / nro(i) * k
                y4 = Y1 - (Y1 - Y2) / nro(i) * (k + 1)
                
                Form15.Line (x3, y3)-(x4, y3): Form15.Line (x5, y3)-(x6, y3)
                Form15.Line (x4, y3)-(x7, y4):  Form15.Line (x6, y3)-(x8, y4)
                GoTo 1
                
2       End Select
    Next i
    Form15.Show
End Sub

Добавлено через 10 минут
В этой строчке
tp(i, 3) = tprk(j): d(i, 3) = DpRk(j): f(i, 3) = FpRk(j)
Ошибка переполнения связанна с типом данных
у тебя f гдето объявленна как Integer() а должно быть Double
Вообще в таких расчетах избегай Integer этот тип принимает число менее 32768 а там попытка присвоения 345476

@Анна121 · 28.02.2017, 10:36 **[ТС]**

Так у меня уже вся прога с

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub savetmpfile()
'считывает файл 1 и записывает в него файл 2
Dim i&, j&
i = FreeFile
Open "2.tmp" For Output As #i 'для записи
j = FreeFile
Open "proba.ddd" For Input As #j 'для считывания
Line Input #j, a1$
Print #i, ob_name
Line Input #j, a1$
Print #i, vr

Мне что теперь заново все переделывать на

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Com_prosmotr_Click()
    'чтение файла сокращеной информации
    Open "1.tmp" For Input As #1
    Open "2.tmp" For Output As #2
    While Not EOF(2)
        Line Input #1, aaaa1$
        Print #2, aaaa1$
    Wend
    Close
    Open "1.tmp" For Input As #2
    
    Line Input #2, a1$
    ob_name = a1$
    Line Input #2, a1$
    vr = a1$

?????

@fever brain · 28.02.2017, 10:42

Нашел !
это Module1

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Global a(100), b(100), tr(100), tru(100), h(100) As Integer
Global nro(100), nrou(100), kpan(100), Hu(100), Hper(100), aper(100)  As Integer
Global Hott(10), Rott(10), kott(10), Fott(10), Pott(10) As Integer
Global n, ko, kp, ku, ktn As Single
Global tm, zakr As String
Global htn(100), tn(100), ftn(100)  As Integer
Global tp(100, 100), d(100, 100), f(100, 100) As Integer
Global tpp(100), tprp(100), tprk(100), tpsh(100) As Integer
Global Dpp(100), DpRp(100), DpRk(100), Dpsh(100) As Integer
Global Fpp(100), FpRp(100), FpRk(100), Fpsh(100) As Integer
Global rpp(100), Ipp(100), rpRp(100), rpRk(100), rpsh(100) As Integer
Sub main()
Load Form1
Form1.Show
End Sub

, f(100, 100) As Integer

@Анна121 · 28.02.2017, 10:45 **[ТС]**

И что тут теперь типы поменять?

@fever brain · 28.02.2017, 10:55

Сообщение от Анна121

Мне что теперь заново все переделывать

Ты сделай чтобы у тебя хотябы эта процедура правильно отработала

Добавлено через 1 минуту
Вот я сам поменял, нажал кнопку заменить >заменить все совпадения автоматически

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Global a(100), b(100), tr(100), tru(100), h(100) As Double
Global nro(100), nrou(100), kpan(100), Hu(100), Hper(100), aper(100)  As Double
Global Hott(10), Rott(10), kott(10), Fott(10), Pott(10) As Double
Global n, ko, kp, ku, ktn As Single
Global tm, zakr As String
Global htn(100), tn(100), ftn(100)  As Double
Global tp(100, 100), d(100, 100), f(100, 100) As Double
Global tpp(100), tprp(100), tprk(100), tpsh(100) As Double
Global Dpp(100), DpRp(100), DpRk(100), Dpsh(100) As Double
Global Fpp(100), FpRp(100), FpRk(100), Fpsh(100) As Double
Global rpp(100), Ipp(100), rpRp(100), rpRk(100), rpsh(100) As Double
Sub main()
Load Form1
Form1.Show
End Sub

Добавлено через 3 минуты
Теперь эта кнопка не ругается, ошибки не возникает
значит все правильно. Смотри сама где чо должно получиться ?

Добавлено через 3 минуты

Сообщение от Анна121

Dim i&, j&
i = FreeFile

Это пока не пиши, а то запутаешься, так как у тебя уже присутствуют в процедуре
использования именно этих переменных, можно было и другое имя дать ...

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

@Анна121 · 28.02.2017, 11:08 **[ТС]**

Переполнение выскочило в этой строчке про которую ты говорил f(i, 3) = FpRk(j)

@fever brain · 28.02.2017, 11:33

Сообщение от Анна121

Переполнение выскочило в этой строчке про которую ты говорил f(i, 3) = FpRk(j)

Ну вот, значит мы в одном течении плывем )
найди модуль с именем Module1 и вставь туда мою интерпритацию, чо будет ?

хочу заметить что в этом модуле не все объявленные типы объявленны как Double (16-значное число с плавающей точкой, короче для сложных расчетов самое оно)
Global tpp(100), tprp(100), tprk(100), tpsh(100) As Double
Тип Double присвоен только переменной , tpsh(100) As Double
все другие автоматически будут считаться типом Variant
По хорошему я бы написал так:
Global a(100) As Double, b(100) As Double, tr(100) As Double, tru(100) As Double, h(100) As Double
или так:
Global a#(100), b#(100), tr#(100), tru#(100), h#(100)

# Такая запись присваевает всем переменным в строчке тип Double
если интересно это будет Integer a%(100) , это Long a&(100) и тд...

К чему я это говорю, к тому что неверное присвоение типов в дальнейшем неизбежно вызовет ошибку

@Анна121 · 28.02.2017, 11:45 **[ТС]**

Дело в том что я поменяла типы в модуль 1 как у тебя и он выдал эту ошибку

Добавлено через 3 минуты
или мне в модуле 1 надо написать только это?

Сообщение от fever brain

Global a#(100), b#(100), tr#(100), tru#(100), h#(100)

Добавлено через 19 секунд
и то что ниже черты

@fever brain · 28.02.2017, 11:55

Ну конечно все надо менять, не ужели вы думаете у меня хватит терпения за вас сделать вашу-же работу
и здесь выложить чтобы показать как это надо сделать?

я ж только первую строчку показал

Добавлено через 3 минуты

Сообщение от Анна121

Дело в том что я поменяла типы в модуль 1 как у тебя и он выдал эту ошибку

Это ошибка переполнения связанная с типом INTEGER

Не верите зайдите в окно Immediate в то время когда возникнет ошибка

и напишите там в нем
print typename (f) [нажать ENTER]

@Анна121 · 28.02.2017, 12:06 **[ТС]**

Я имела ввиду что сделала модуль 1 как здесь ты писал

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Global a(100), b(100), tr(100), tru(100), h(100) As Double
Global nro(100), nrou(100), kpan(100), Hu(100), Hper(100), aper(100)  As Double
Global Hott(10), Rott(10), kott(10), Fott(10), Pott(10) As Double
Global n, ko, kp, ku, ktn As Single
Global tm, zakr As String
Global htn(100), tn(100), ftn(100)  As Double
Global tp(100, 100), d(100, 100), f(100, 100) As Double
Global tpp(100), tprp(100), tprk(100), tpsh(100) As Double
Global Dpp(100), DpRp(100), DpRk(100), Dpsh(100) As Double
Global Fpp(100), FpRp(100), FpRk(100), Fpsh(100) As Double
Global rpp(100), Ipp(100), rpRp(100), rpRk(100), rpsh(100) As Double
Sub main()
Load Form1
Form1.Show
End Sub

Добавлено через 40 секунд
и программа все равно ругает ту строчку переполненную

@fever brain · 28.02.2017, 12:12

Давай я скину проект с рабочей версией

@Анна121 · 28.02.2017, 12:32 **[ТС]**

У тебя несоответствие типов здесь
Line Input #2, a1$
h(i) = a1$

Добавлено через 8 минут
a1$ пишет что String (строковый тип как я понимаю) а h(i) это Double

@fever brain · 28.02.2017, 12:43

Сообщение от Анна121

У тебя несоответствие типов здесь

Это у тебя, я только две строчки исправил и модуль

Integer и Double это числовые типы, допускают только значения от -9999... до 9999...
также допускают присвоение строчных типов если в строке будет число
например если твоя a1$ = "9"
если твоя a1$ = "некое слово" то будет ошибка
что это значит?

Line Input #2, a1$ - произвело чтение строчки с какимто набором символов которые не являются числом

@Анна121 · 28.02.2017, 12:48 **[ТС]**

С ума сойти... у меня уже в глазах рябит от этой программы

и как вы работаете программистами...это ж сколько терпения надо...

Добавлено через 1 минуту
я решила эти 2 строчки пока что зеленым сделать
и он теперь выделил желтым вот здесь третью строчку
Line Input #2, a1$ 'шпренгели
For i = 1 To ku
Input #2, tpsh(i), Dpsh(i), Fpsh(i), rpsh(i)
Next

и опять пишет 62 ошибку

@fever brain · 28.02.2017, 13:03

Сообщение от Анна121

у меня уже в глазах рябит от этой программы и как вы работаете программистами

У меня тоже в глазах рябит от этой программы, а еще мозоли на пальцах
от учебной информации что приходиться писать по ходу..

Сообщение от Анна121

и опять пишет 62 ошибку

Что она значит?, вы думаете мне делать нечего чтобы номер ошибки знать что оно значит ))
я на английском кое как понимаю, в основном через гугл-перевод ))

Добавлено через 3 минуты

Сообщение от Анна121

я решила эти 2 строчки пока что зеленым сделать

Их не надо зеленым делать а надо разбираться, что за ошибка иначе
дальше набор ошибок силно увеличится, закрашивать зеленым это не всегда полезно

@Анна121 · 28.02.2017, 13:07 **[ТС]**

вы извините что я не написала текст ошибки потому что думала что программисты знают уже наизусть все ошибки по номерам.
62 ошибка это input past end of file

@fever brain · 28.02.2017, 13:12

Сообщение от Анна121

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

Это тебе их надо по номерам знать, мне то зачем ?
в моей практике почти небывает ошибок

@Анна121 · 28.02.2017, 17:47 **[ТС]**

ладно. давай хотя бы с этой процедурой разберемся

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе. Самым главным критерием для меня было создание паролей, в котором отсутствуют знаки: \| 1 l I Обработка содержит реквизиты: -. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .

@Анна121 0 / 0 / 0 Регистрация: 24.01.2017 Сообщений: 32
	28.02.2017, 10:45 [ТС]
	И что тут теперь типы поменять? 0

@Анна121 0 / 0 / 0 Регистрация: 24.01.2017 Сообщений: 32
	28.02.2017, 11:08 [ТС]
	Переполнение выскочило в этой строчке про которую ты говорил f(i, 3) = FpRk(j) 0

@Анна121 0 / 0 / 0 Регистрация: 24.01.2017 Сообщений: 32
	28.02.2017, 12:32 [ТС]
	У тебя несоответствие типов здесь Line Input #2, a1$ h(i) = a1$ Добавлено через 8 минут a1$ пишет что String (строковый тип как я понимаю) а h(i) это Double 0

@Анна121 0 / 0 / 0 Регистрация: 24.01.2017 Сообщений: 32
	28.02.2017, 12:48 [ТС]
	С ума сойти... у меня уже в глазах рябит от этой программы и как вы работаете программистами...это ж сколько терпения надо... Добавлено через 1 минуту я решила эти 2 строчки пока что зеленым сделать и он теперь выделил желтым вот здесь третью строчку Line Input #2, a1$ 'шпренгели For i = 1 To ku Input #2, tpsh(i), Dpsh(i), Fpsh(i), rpsh(i) Next и опять пишет 62 ошибку 0

@Анна121 0 / 0 / 0 Регистрация: 24.01.2017 Сообщений: 32
	28.02.2017, 13:07 [ТС]
	вы извините что я не написала текст ошибки потому что думала что программисты знают уже наизусть все ошибки по номерам. 62 ошибка это input past end of file 0

@Анна121 0 / 0 / 0 Регистрация: 24.01.2017 Сообщений: 32
	28.02.2017, 17:47 [ТС]
	ладно. давай хотя бы с этой процедурой разберемся 0