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


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