Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Числа по порядку... 
:(
    Опции темы
APro
  Дата 2.6.2007, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 328
Регистрация: 5.12.2006

Репутация: нет
Всего: 1
Как мне сделать так, чтоб переменной X приравнивались числа по порядку (по таймеру)

В Delphi это делалось просто
Код

For x:=1 to 10
MessageDlg x


А когда я делаю так в VB:
Код

For x = 1 to 10
MsgBox x
Next x


У меня показывает 11.

А как мне сдалать так, чтоб (по таймеру) было 1, 2, 3,..., 9, 10

Print x


--------------------
Никогда не спорь с дураком, другие могут не заметить между вами разницы.
Чем реже открываешь рот, тем меньше слышишь глупостей.
PM MAIL WWW ICQ   Вверх
20071231
Дата 2.6.2007, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 26.5.2007
Где: Россия, Белая Кал итва

Репутация: нет
Всего: нет
Поясни где у тебя показывает 11?
PM MAIL   Вверх
bom
Дата 2.6.2007, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
Код

Private Sub Timer1_Timer()
x = IIf(x < 10, x + 1, x)
End Sub


Это сообщение отредактировал(а) bom - 2.6.2007, 13:30
PM MAIL   Вверх
Akina
Дата 2.6.2007, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(APro @  2.6.2007,  11:30 Найти цитируемый пост)
У меня показывает 11

У тебя 11 может показывать не в цикле (там у тебя последовательно выводится 1, 2 ... 10), а ПОСЛЕ цикла. 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
APro
  Дата 2.6.2007, 22:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 328
Регистрация: 5.12.2006

Репутация: нет
Всего: 1
Цитата(Akina @ 2.6.2007,  14:42)
Цитата(APro @  2.6.2007,  11:30 Найти цитируемый пост)
У меня показывает 11

У тебя 11 может показывать не в цикле (там у тебя последовательно выводится 1, 2 ... 10), а ПОСЛЕ цикла.

Я тока начинающий (но продвинутый)! Немогу разобратся, в начале или в конце цыкла.
Можешь написать мне код, чтоб по таймеру у меня печаталось от 1 до 10? (Print x)
 smile 


--------------------
Никогда не спорь с дураком, другие могут не заметить между вами разницы.
Чем реже открываешь рот, тем меньше слышишь глупостей.
PM MAIL WWW ICQ   Вверх
Akina
Дата 2.6.2007, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(APro @  2.6.2007,  23:03 Найти цитируемый пост)
Можешь написать мне код, чтоб по таймеру у меня печаталось от 1 до 10? (Print x)

Начало тебе уже bom написАл. Так что есть некоторые сомнения в продвинутости...

Код

Option Explicit

Dim x As Integer

Private Sub Form_Load
x=0
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
x = x + 1
Label1.Caption = CStr(x)
If x >= 10 Then
   Timer1.Enabled = False
End If
End Sub



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
DrBoom
Дата 18.6.2007, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


QIP VB-SDK Developer
*


Профиль
Группа: Участник
Сообщений: 83
Регистрация: 19.2.2006

Репутация: нет
Всего: нет
Народ, за чем таймер? Можно проще...

Код

 Dim i As Integer

 For i=1 to 10
  MsgBox i 'вывод))
 Next i
 i=i-1 'или  если так нужно i=10 (вариантов много=))) )

или
Код

 i=0
 Do until i=10
  i=i+1
  MsgBox i 'вывод))
 Loop
PM MAIL ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0486 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.