Исправить ошибку 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

SoftIce · 27.02.2017, 13:50

И где? Здесь даже For-а ни одного нет.

@Анна121 · 27.02.2017, 14:02 **[ТС]**

For вот но почему-то от 1 до 6

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
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)
 
1 Select Case tru(i)
2 Case 1 ' раскосная треугольная
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 'полураскосная верх.
15 Form15.Line (x11, Y1)-(x0, Y2): Form15.Line (x21, Y1)-(x0, Y2)
 
16 Case 3 'п/р низ
17 Form15.Line (x12, Y2)-(x0, Y1): Form15.Line (x22, Y2)-(x0, Y1)
 
18 Case 4 ' крестовая
19 Form15.Line (x11, Y1)-(x22, Y2): Form15.Line (x21, Y1)-(x12, Y2)
 
20 Case 5 ' ромбическая
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 ' ромбическая с шпренгелями
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 ' ромбическая с усиленным шпренгелем
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 ' портальная
57 Form15.Line (x11, Y1)-(x0, Y2): Form15.Line (x21, Y1)-(x0, Y2)
58 1 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 2 Form15.Show
75 End Sub

SoftIce · 27.02.2017, 14:09

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

почему-то от 1 до 6

А это Вы должны знать почему

А в ошибке прямо указано "For без Next"
Другими словами, Вам нужно куда-то воткнуть Next

, возможно между 73 и 74 строками

.

@Анна121 · 27.02.2017, 14:21 **[ТС]**

Если вставить Next между 73 и 74 строками то пишет что Next без For.

SoftIce · 27.02.2017, 14:27

Вы можете код полностью показать, а не кусками ?

@Анна121 · 27.02.2017, 14:37 **[ТС]**

Он очень длинный поэтому я не стала весь копировать. Тут максимум 1500 символов можно отправлять.
Как я понимаю у меня что-то не так с циклом.

Это кусок от черты до черты.

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
    Private Sub Com_prosmotr_Click()
    'чтение файла сокращеной информации
    Open "1.tmp" For Output As #2
    Open file$ For Input As #1
    While Not EOF(1)
    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$
    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
    Form15.Show
    End Sub

@Sur_L · 27.02.2017, 15:00

Ну по структуре сюда надо

Code
1
2
3
4
2   End Select
Next i
Form15.Show
End Sub

@Анна121 · 27.02.2017, 15:43 **[ТС]**

Спасибо большое!
Теперь выдает 75 ошибку при доступе к файлу и выделяет желтым 4 строчку. Что делать?

SoftIce · 27.02.2017, 15:51

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

Спасибо большое!

Получилось со второго раза? Я Вам то же самое говорил.

Имя файла задано у Вас? Что в переменной file$ ?

@Анна121 · 27.02.2017, 16:02 **[ТС]**

Понятия не имею что в переменной. Мне кажется что там надо имя файла написать потому что перед этим идет этот код и там ничего не присвоено этой переменной.

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
    Private Sub savetmpfile()
    'считывает файл 1 и записывает в него файл 2
    Open "2.tmp" For Output As #1 'для записи
    Open "1.tmp" For Input As #2 'для считывания
    Line Input #2, a1$
    Print #1, ob_name
    Line Input #2, a1$
    Print #1, vr
    Line Input #2, a1$
    Print #1, soor
    Line Input #2, a1$
    Print #1, ko
    Line Input #2, a1$
    Print #1, ku
    Line Input #2, a1$
    Print #1, ktn
    Line Input #2, a1$
    Print #1, kp
    Line Input #2, a1$
    Print #1, Dr
    Line Input #2, a1$
    Print #1, zakr
    Line Input #2, a1$
    Print #1, a(0)
    Line Input #2, a1$
    Print #1, Hsoor
    Line Input #2, a1$
    Print #1, tm
    While Not EOF(2)
    Line Input #2, a1$
    Print #1, a1$
    Wend
    Close #1: Close #2
    Kill "1.tmp"
    Name "2.tmp" As "1.tmp"
    End Sub
    Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label17.Visible = True
    End Sub
    Private Sub Com_prosmotr_Click()
    'чтение файла сокращеной информации
    Open "1.tmp" For Output As #2
    Open file$ For Input As #1
    While Not EOF(1)
    Line Input #1, aaaa1$
    Print #2, aaaa1$
    Wend
    Close
    Open "1.tmp" For Input As #2

SoftIce · 27.02.2017, 16:09

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

Понятия не имею что в переменной.

Я тоже не экстрасенс. По всей видимости, это глобальная переменная, и ей где то должно присваиваться значение.

Добавлено через 2 минуты
Кстати, что это? Копирование файла? А о FileCopy что-нибудь слышали?

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

Visual Basic
1
2
3
4
5
6
Open "1.tmp" For Output As #2
Open file$ For Input As #1
While Not EOF(1)
Line Input #1, aaaa1$
Print #2, aaaa1$
Wend

Close

@Анна121 · 27.02.2017, 20:11 **[ТС]**

Переменной ни где не присваивается значение. А если написать 2.tmp то пишет что неправильное имя или номер файла и выделяет желтым 44 строчку. Я поставила там 2 вместо 1 и теперь выделилась эта строчка

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

Line Input #2, a1$

и пишет ввод за меткой конца файла. Что это значит?

@fever brain · 27.02.2017, 20:49

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

и пишет ввод за меткой конца файла. Что это значит?

Это означает что файл пустой
Программа написанна неправильно номер файла нужно оределять через FreeFile

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

Visual Basic
1
2
3
4
5
6
    Dim i&, j&
    
    i = FreeFile
    Open "2.tmp" For Output As i 'для записи
    j = FreeFile
    Open "1.tmp" For Input As j 'для считывания

Не по теме:

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

У мальчиков -же, нет никакого терпения и усидчивости, а компенсируеться это развитой логикой
в данном случае я вижу что длинную программу для этого писать не нужно
можно загрузить текстовый файл полностью.
присвоить все переменные в программе, и выгрузить в другой файл
код получится намного короче, а главное намного понятнее

Добавлено через 8 минут
Этот код, с той-же функциональностью можно написать тремя строчками
первая строчка открытие файла
вторая строчка переменные
третяя сохранения файла с переменными. всё

Добавлено через 3 минуты
Жаль что я не знаю задачу целиком. а то может быть там можно обойтись копированием
что можно сделать не прибегая к VB6 ))

@Анна121 · 27.02.2017, 20:53 **[ТС]**

Дело не в терпении. Я вообще строитель по образованию. Мне нужно для диссертации исправить эту программу, т.к. она рассчитывает конструкцию по моему заданию. Я просто не знаю как по другому ее писать и все переделывать тоже не вариант потому что я вообще с программированием сталкиваюсь первый раз.

Добавлено через 3 минуты
Я могу скинуть тебе весь код в файле и ты посмотришь. В сообщение все не вмещается.

@fever brain · 27.02.2017, 20:56

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

Добавлено через 1 минуту
Конечно скинь, надо было сразу так и сделать

@Анна121 · 27.02.2017, 21:08 **[ТС]**

fever brain, в общем кидаю весь код. Я ее исправляю уже 2 месяца и что-то конца-края не видать. Может ты станешь светом в конце тоннеля))))

@fever brain · 27.02.2017, 21:22

Там у вас не все, там документ с кодом формы, в котором должны вызываться еще множество форм
Вам нужно было архив с проектом выложить, тогда был бы свет в конце тунеля
Запаковываете проект в архив (ZIP, RAR) здесь: >Управление вложениями >Выбор файла(архива) >отправить
Разобраться будет проще, я уже уйду сейчас, завтра будем разбираться

@Анна121 · 27.02.2017, 21:29 **[ТС]**

Вот архив

@fever brain · 27.02.2017, 21:55

Вот первая процедура которая начала ругаться в открытии
я немного исправил, остальное исправляйте сами. на примере сделанного

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Text1_Change()
    ob_name = Text1.Text
    Dim i&, j&
    i = FreeFile
    Open "1.tmp" For Input As i
    j = FreeFile
    Open "2.tmp" For Output As j
    a1$ = ""
    cht = 0
    While Not EOF(1)
        cht = cht + 1
        If cht = 1 Then Line Input #i, a1$: Print #j, Text1.Text Else Line Input #i, a1$: Print #j, a1$
    Wend
    Close #i: Close #j
    Kill "1.tmp"
    Name "2.tmp" As "1.tmp"
End Sub

Теперь будет ругаться на Kill "1.tmp" так как этот файл вызван другим файловым номером
гдето ранее в программе, скорее всего таким способом #2 и он заблокирован удалить невозможно
в коде он не закрыт (Close)

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений 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

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

Решение

Решение

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	27.02.2017, 13:50
	И где? Здесь даже For-а ни одного нет. 0

@Анна121 0 / 0 / 0 Регистрация: 24.01.2017 Сообщений: 32
	27.02.2017, 14:21 [ТС]
	Если вставить Next между 73 и 74 строками то пишет что Next без For. 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	27.02.2017, 14:27
	Вы можете код полностью показать, а не кусками ? 0

@Анна121 0 / 0 / 0 Регистрация: 24.01.2017 Сообщений: 32
	27.02.2017, 15:43 [ТС]
	Спасибо большое! Теперь выдает 75 ошибку при доступе к файлу и выделяет желтым 4 строчку. Что делать? 0

@Анна121 0 / 0 / 0 Регистрация: 24.01.2017 Сообщений: 32
	27.02.2017, 20:53 [ТС]
	Дело не в терпении. Я вообще строитель по образованию. Мне нужно для диссертации исправить эту программу, т.к. она рассчитывает конструкцию по моему заданию. Я просто не знаю как по другому ее писать и все переделывать тоже не вариант потому что я вообще с программированием сталкиваюсь первый раз. Добавлено через 3 минуты Я могу скинуть тебе весь код в файле и ты посмотришь. В сообщение все не вмещается. 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	27.02.2017, 20:56
	Ну так вот, у вас гдето в программе должен быть расчет конструкции вы его не показываете, а только показали ошибки, ошибки в НЕправильно написанной программе причем ошибки в длинющем списке ввода вывода который не так пишется Добавлено через 1 минуту Конечно скинь, надо было сразу так и сделать 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	27.02.2017, 21:22
	Там у вас не все, там документ с кодом формы, в котором должны вызываться еще множество форм Вам нужно было архив с проектом выложить, тогда был бы свет в конце тунеля Запаковываете проект в архив (ZIP, RAR) здесь: >Управление вложениями >Выбор файла(архива) >отправить Разобраться будет проще, я уже уйду сейчас, завтра будем разбираться 1