Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2014, 17:39   #1
Nalesnii
 
Регистрация: 23.05.2014
Сообщений: 5
По умолчанию Подскажите что не так)

Код:
Private Sub CommandButton1_Click()

Dim SP(6)  ' 
Dim TS '
Dim SD '
Dim NS '
Dim OBT ' 
TS = Val(TextBox1.Text)
OBT = Val(TextBox2.Text)
OT = Val(TextBox3.Text)
T = 90

For SD = 1 To 3
For NS = 1 To 2
If SP(SD * NS) = 1 Then
TS(SD) = TS(SD) / 2
SP(i * 2) = 1
End If
Next
Next
OBT(NS) = OBT(NS) + TS(SD)
For NS = 1 To 2
If OBT(NS) <= 90 Then
ks = ks + 1
End If
Next
End Sub
Ругается на выделеную строчку.
OBT(NS) = OBT(NS) + TS(SD)

Последний раз редактировалось Nalesnii; 29.05.2014 в 17:40. Причина: опечатка
Nalesnii вне форума Ответить с цитированием
Старый 29.05.2014, 17:47   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
OBT(NS) + TS(SD)
Эти переменные у тебя не описаны как массив в отличие от Dim SP(6)
Разницу видишь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 29.05.2014, 17:52   #3
Nalesnii
 
Регистрация: 23.05.2014
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Эти переменные у тебя не описаны как массив в отличие от Dim SP(6)
Разницу видишь?
Оно начинает ругаться на OBT = Val(TextBox2.Text)
После того как проставил
Nalesnii вне форума Ответить с цитированием
Старый 29.05.2014, 17:53   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

не так у Вас название темы! Это я Вам как модератор говорю.

а по сути программы, есть скалярные величины (ну простые переменные, а есть МАССИВЫ). Так вот, смешивать их НЕЛЬЗЯ.
Если Вы объявили переменную как обычную переменную ( TS, например), но писать TS(SD) нельзя, это недопустимо!!

p.s. думаю, что Вам нужно объявить массивы:
Код:
Dim TS(6) '
Dim SD '
Dim NS '
Dim OBT(6) ' 
TS(1) = Val(TextBox1.Text)
OBT(1) = Val(TextBox2.Text)
T = 90

For SD = 1 To 3
For NS = 1 To 2
но это всё равно не будет работать.
Я не знаю, какую задачу Вы решаете, но решаете Вы её неверно...
Например, бессмыслено что-то читать из массива, если Вы в этот массив ничего не записывали. Значения сами по себе в массиве не возникнут..
Serge_Bliznykov вне форума Ответить с цитированием
Старый 29.05.2014, 18:01   #5
Nalesnii
 
Регистрация: 23.05.2014
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
не так у Вас название темы! Это я Вам как модератор говорю.

а по сути программы, есть скалярные величины (ну простые переменные, а есть МАССИВЫ). Так вот, смешивать их НЕЛЬЗЯ.
Если Вы объявили переменную как обычную переменную ( TS, например), но писать TS(SD) нельзя, это недопустимо!!

p.s. думаю, что Вам нужно объявить массивы:
Код:
Dim TS(6) '
Dim SD '
Dim NS '
Dim OBT(6) ' 
TS(1) = Val(TextBox1.Text)
OBT(1) = Val(TextBox2.Text)
T = 90

For SD = 1 To 3
For NS = 1 To 2
но это всё равно не будет работать.
Я не знаю, какую задачу Вы решаете, но решаете Вы её неверно...
Например, бессмыслено что-то читать из массива, если Вы в этот массив ничего не записывали. Значения сами по себе в массиве не возникнут..
Ну это я понял натупил но все равно эта строчка ругается OBT(NS) = OBT(NS) + TS(SD)
Nalesnii вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подскажите, что у меня не так _Freak_ Общие вопросы Delphi 6 13.10.2013 02:39
Ошибка! Подскажите что не так? stear Общие вопросы C/C++ 7 10.12.2009 16:12
Подскажите, что не так SWAT Паскаль, Turbo Pascal, PascalABC.NET 0 15.06.2009 15:15
Подскажите что не так... SynonymMixer Работа с сетью в Delphi 10 26.01.2009 23:49
Подскажите что тут не так!? dcl Общие вопросы Delphi 5 28.03.2007 08:15