Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
15.06.2004, 11:16
|
|||
|---|---|---|---|
простенькая задача |
|||
|
#18+
Приветствую всех кто сюда заглянул, и кто не заглянул, ну и т.д Люди добрые, сами мы не местные, помогите, кто чем может...Ну так вот. Допустим мне надо перемножить два числа. Одно находится в текст1.text а второе в текст2.text значение нужно получить в текст3.text Я делаю так:Dim q as integer Dim w as integer Dim e as Integer set q = текст1.text set w = текст2.text set e = q*w текст3.text = e Так такой код не работает. Комп выделяет Dim q as integer и материться. Что делать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2004, 11:20
|
|||
|---|---|---|---|
|
|||
простенькая задача |
|||
|
#18+
А просто текст3 = текст1 * текст2 не работает? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2004, 11:23
|
|||
|---|---|---|---|
|
|||
простенькая задача |
|||
|
#18+
Может у тебя эта переменная уже задана? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2004, 11:28
|
|||
|---|---|---|---|
простенькая задача |
|||
|
#18+
ключевое слово Set используется для присваивания объектов Для присваивания "обычных" переменных используется слово Let (можно опустить) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2004, 11:42
|
|||
|---|---|---|---|
простенькая задача |
|||
|
#18+
а ну да. Просто я помню, что в qbasic млжно было так, путем типа let Все понятно, спасиб, попробую ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.06.2004, 20:30
|
|||
|---|---|---|---|
простенькая задача |
|||
|
#18+
Зачем так мудрить (конечно, может я чего не понимаю...), но в бейсике есть функция для преобразования из символьного типа в числовой... Вот мой альтернативный фрагмент: Dim a,b,c As Integer Private Sub Peremnojit() a = Val(text1.text) b = Val(text2.text) c = a*b text3.text = c End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/search_topic.php?author=aka47&author_mode=last_posts&do_search=1]: |
0ms |
get settings: |
8ms |
get forum list: |
10ms |
get settings: |
8ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
40ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
34ms |
get tp. blocked users: |
1ms |
| others: | 689ms |
| total: | 813ms |

| 0 / 0 |
