cardinal да это то что нужно...пасибо......тему можно уже закрыть......

Это сообщение отредактировал(а) Vadok - 23.12.2003, 19:57

Цитата

Вот то, что человек хотел: Код Text(2) = CInt(Text(0)) + CInt(Text(1))

Я так не думаю. В этом коде есть ошибка
Дело в том, что при text(1)="" произойдет ошибка
Попробуйте так:

Код

Text(2)=Val(Text(0))+Val(Text(1))

Цитата

Я так не думаю. В этом коде есть ошибка

Пока ее там нет .
Человек спроосил:

Цитата

если я ввожу число в 1 textbox "1" а во втором 2 textbox " 2" то в третем должно получиться "3"

Я ему и ответил, а для того чтобы все всегда работало так как хочется надо проверять содержание TextBox`ов и соответственно реагировать.
p.s.

Код

Text(2)=Val(Text(0))+Val(Text(1))

car + dinal = 0

Все верно! Так и должно быть, а ты попробуй в своем примере что-нибудь написать...
Сразу скажет Error. А все потому, что Text(1)="". А дабы не делать проверку на "" и на IsNumeric мой вариант оптимален
А если хочешь, чтобы получилось Cardinal , надо так:

Код

Text(2)=Text(0) & Text(1)

А дабы ваще оригинально было, стоит вначале проверить Text(0) и Text(1) на IsNumeric, а потом вабрать метод сложения

Цитата

car + dinal = 0

Да я хотел сказать, что сделали мы то, что дает нам непонятный результат. Ошибку должен выдавать, а мы должны на нее реагировать.

Цитата

А дабы не делать проверку на "" и на IsNumeric мой вариант оптимален

В том то и дело, что делать ее надо, а все остальное - это плохой стиль программирования (мое личное мнение) потому, что в длинной проге мы потом долго будем искать возникновение ошибки (если забудем о встроеной нами отличной подставе). Мы допустили, что пользователь не ввел никакого значения, а потом удивляемся почему наш пентюк полчаса трещал и выдал результат, который нас не удовлетворяет. Ну опечатался пользователь и ввел 76н6 + 54 и что за результат он получит? Вообще надо пользоваться компонентом Microsoft Masked Edit Control в таких ситуациях.

Цитата

А если хочешь, чтобы получилось Cardinal , надо так...

Спасибо!

Ну в чем проблема?

Код

If IsNumeric(Text(0)) And IsNumeric(Text1(1)) Then   Text(2)=Text(0)+Text(1)   Else   Text(2)=Text(0) & Text(1) End If

блин всё и так работало ...чё вы опять начинаете

лутше...помогите над темой " Сохранение" ....

Black_Star, не ты меня не понял. Проблемы тут нет - просто или у тебя калькулятор или у тебя слеплялка текста , а смысла в двух вещах одновременно я не вижу. Поэтому один из случаев надо исключать либо с помощью "маски", либо сообщением об ошибке.
Vadok, ну ты блин даешь! Я даже тему в FAQ открыл:
http://forum.vingrad.ru/index.php?act=ST&f=33&t=16498
Тебе уже все объяснили!
Если ты хочешь, чтобы за тебя все сделали, то пиши в раздел "Работа"

cardinal да там всё только через АРИ функции.... мне всё равно что через ini что через dat всё равно ...просто надо что бы прога читала то что написано в том файле в который она сохроняет...и всё ..там не нужны АПИ функиции ...

Цитата

там не нужны АПИ функиции

Нужны, не нужны... Какая разница? Результат важен, а он будет именно такой как ты хочешь. Я не понимаю почему ты так боишься API. Ну сложно по началу, но дак так всегда.
Ну а если не хочешь API, то используй Write, Print, Read, Get или Put - что тебе больше нравиться. Как уже давно было написано на форуме - надо только поискать.

Цитата

Нужны, не нужны... Какая разница? Результат важен!

Полность поддерживаю !!!

cardinal я пишу проги ...методом изучения....и до АПИ функций я ещё не дошёл...

Подскажите как мне сделать следующее:


Private Sub TextBox1_Change()
??????????? - необходимо чтобы значение textbox записывалось в ячейку А1 на листе1
End Sub

Цитата(cardinal @ 23.12.2003, 16:37)

Text(2) = CInt(Text(0)) + CInt(Text(1))

Цитата(cardinal @ 8.1.2004, 23:31)

Text(2)=Val(Text(0))+Val(Text(1))

Господа, у текстбокса есть свойство Value...