Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / простенькая задача / 7 сообщений из 7, страница 1 из 1
15.06.2004, 11:16
    #32561170
Лёшик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простенькая задача
Приветствую всех кто сюда заглянул, и кто не заглянул, ну и т.д
Люди добрые, сами мы не местные, помогите, кто чем может...Ну так вот. Допустим мне надо перемножить два числа. Одно находится в текст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 и материться. Что делать?
...
Рейтинг: 0 / 0
15.06.2004, 11:20
    #32561179
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простенькая задача
А просто
текст3 = текст1 * текст2
не работает?
...
Рейтинг: 0 / 0
15.06.2004, 11:23
    #32561187
Alexander Popov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простенькая задача
Может у тебя эта переменная уже задана?
...
Рейтинг: 0 / 0
15.06.2004, 11:25
    #32561193
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простенькая задача
а без Set и использованием cint ?
...
Рейтинг: 0 / 0
15.06.2004, 11:28
    #32561201
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простенькая задача
ключевое слово Set используется для присваивания объектов
Для присваивания "обычных" переменных используется слово Let (можно опустить)
...
Рейтинг: 0 / 0
15.06.2004, 11:42
    #32561241
Лёшик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простенькая задача
а ну да. Просто я помню, что в qbasic млжно было так, путем типа let
Все понятно, спасиб, попробую
...
Рейтинг: 0 / 0
21.06.2004, 20:30
    #32570514
vev
vev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простенькая задача
Зачем так мудрить (конечно, может я чего не понимаю...), но в бейсике есть функция для преобразования из символьного типа в числовой...
Вот мой альтернативный фрагмент:
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
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / простенькая задача / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]