Не приводит значение текстового поля к типу 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, спасибо, мы тоже действительно хотим помочь человеку, но пока переключишься с этих дис, ча, делет, крон с ума сойдёшь.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@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