Не приводит значение текстового поля к типу Single

@irineyxxx · Регистрация: 18.09.2011

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

Хотел в программе написать вот такой код:

Visual Basic
1
2
Dim a,b,c As Single
a = CSng(Text1.Text)

но она не защитывает данное слово : "CSng " ??/ почему ? кто знает ??

Visual Basic
1
2
3
4
5
Dim S, H, V As Single
S = CSng(Vtext01.Text)
H = CSng(Vtext02.Text)
V = 1 / 3 * H * S
Text1.Text = V

вот, где ошибка ???

SoftIce · 28.10.2011, 15:52

Сообщение от irineyxxx

DIM a,b,c AS SINGLE

КТО? Вас так учил объявлять переменные? Вы где учитесь? Я даже дальше смотреть не буду.
А кстати CSNG что-то мне нигде не встречалось.
Text1.Text =str( V)'на всякий случай

Добавлено через 12 минут
Vtext01.Tex - может это это не VB.

@irineyxxx · 28.10.2011, 15:54 **[ТС]**

SoftIce.net, Теперь у меня Text1.Text - не находит...че делать ?

@Ципихович Эндрю · 28.10.2011, 15:56

Вам же сказали

Сообщение от SoftIce.net

КТО? Вас так учил объявлять переменные?

поправьте, выложите, тогда посмотрят

Сообщение от irineyxxx

Теперь у меня Text1.Text - не находит...че делать ?

Памирыч · 28.10.2011, 16:00

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
    Dim S As Single, H As Single, V As Single
    S = CSng(Vtext01.Text)
    H = CSng(Vtext02.Text)
    V = 1 / 3 * H * S
    Text1.Text = V
End Sub

У меня все выводит. Переменные объявлять нужно правильно, это не .NET, чтоб объявлять пачку переменных разом.
Ну и наведи порядок уже в именах контроллов

@irineyxxx · 28.10.2011, 16:03 **[ТС]**

Памирыч, Выдает такую ошибку, когда внутри программы ввожу значения...

Compile error:
Method or data member not found

@irineyxxx · 28.10.2011, 16:05 **[ТС]**

Visual Basic 6 Portable - вот такой у меня Basic.

Памирыч · 28.10.2011, 16:07

Сообщение от irineyxxx

когда внутри программы ввожу значения

Еще в редакторе кода или в уже запущенной программе отслеживаются значения например при изменении значения Текстбокса?
Проект бы прикрепить неплохо

@irineyxxx · 28.10.2011, 16:13 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
Private Sub Command2_Click()
Dim u,v,x,d As Single
u = CSng(Text6.Text)
v = CSng(Text7.Text)
x = u + v
d = (2*Sin(x+0.5)^2) / Sqr(Exp(x)+2)
End Sub

только вот не говорите, что у меня тут тоже ошибки

Добавлено через 40 секунд
Private Sub Command2_Click()

Добавлено через 1 минуту
Вот смотрите, когда я останавливаюсь тут, v = CSNG(Text7. (имеются такие подсказки ) >> Count,Item,LBound,UBound

Добавлено через 17 секунд
.Text >> нету

SoftIce · 28.10.2011, 16:25

Visual Basic
1
2
3
4
5
6
7
Private SUB Command2_Click()
 DIM u,v,x,d AS SINGLE
 u = CSNG(Text6.Text)
 v = CSNG(Text7.Text)
 x = u + v 
d = (2*SIN(x+0.5)^2) / SQR(EXP(x)+2)
 END SUB

Как всё запущено.
Хоть кол на голове. Правильно и всё.

Памирыч · 28.10.2011, 16:28

Сообщение от irineyxxx

только вот не говорите, что у меня тут тоже ошибки

Тебе говорили-говорили, как переменные объявлять правильно, а ты все мимо ушей пропустил.

SoftIce · 28.10.2011, 16:38

Напиши в начале модуля Option Explicit. Он не врет.Слушай его. А то с твоими вариантами чёрт ногу сломит.
Блин, или я лопухнулся, он же их объявил как вариант. И Option Explicit ругатся не будет.

Памирыч · 28.10.2011, 16:55

SoftIce.net, В том и соль, что так он их от эксплисита спрятал, но можно сказать, никак не объявил.

Добавлено через 1 минуту
irineyxxx,
Запусти следующий код, думаю, многое встанет на свои места

Visual Basic
1
2
3
4
Dim A, B, C As Integer
MsgBox A
MsgBox B
MsgBox C

@gitarillo · 28.10.2011, 17:17

irineyxxx, чтобы было все переменные с новой строки и проблем не будет.

Visual Basic
1
2
3
Dim S As Single
Dim H As Single
Dim V As Single

Кстати это является хорошим стилем построения кода.
И выражение V = 1 / 3 * H * S записано не верно. Приоритет операций какой.
V = (1 / 3 )* H * S - правильная запись.
Далее.
При таком объявлении, что?

Visual Basic
1
Dim S, H, V As Single

S, H - Variant
V - Single
Но после

Visual Basic
1
2
S = CSng(Vtext01.Text)
H = CSng(Vtext02.Text)

Тип у всех Single .

@irineyxxx · 28.10.2011, 17:43 **[ТС]**

gitarillo, спасибо

SoftIce · 28.10.2011, 18:19

gitarillo, спасибо, мы тоже действительно хотим помочь человеку, но пока переключишься с этих дис, ча, делет, крон с ума сойдёшь.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730
	28.10.2011, 15:54 [ТС]
	SoftIce.net, Теперь у меня Text1.Text - не находит...че делать ? 0

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730
	28.10.2011, 16:03 [ТС]
	Памирыч, Выдает такую ошибку, когда внутри программы ввожу значения... Compile error: Method or data member not found 0

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730
	28.10.2011, 16:05 [ТС]
	Visual Basic 6 Portable - вот такой у меня Basic. 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.10.2011, 16:38
	Напиши в начале модуля Option Explicit. Он не врет.Слушай его. А то с твоими вариантами чёрт ногу сломит. Блин, или я лопухнулся, он же их объявил как вариант. И Option Explicit ругатся не будет. 0

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730
	28.10.2011, 17:43 [ТС]
	gitarillo, спасибо 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.10.2011, 18:19
	gitarillo, спасибо, мы тоже действительно хотим помочь человеку, но пока переключишься с этих дис, ча, делет, крон с ума сойдёшь. 0