Почему зависает мой проект?

@dzeon · Регистрация: 24.05.2013

Студворк — интернет-сервис помощи студентам

Вот мой проект самолёта после клика на нём он должен там три раза пролететь туда сюда а на втором разе он зависает.
Вложение 272903
Помогите разобраться пожалуйста.
Заранее спасибо.
Система windows xp visual basic 6.0

Добавлено через 24 минуты
методом тыка выяснил что зависание связано както со временем, если скорость быстрее то не зависает если перемещение самолета замедляеш то зависает. Как быть?

morgann55 · 26.05.2013, 04:04

Заархивируй проект и прикрепи к сообщению - и нам будет легче до НЕГО добраться и ПравилаФорума не будешь нарушать )))

@dzeon · 26.05.2013, 09:25 **[ТС]**

fly.7z

@proft · 26.05.2013, 10:19

Dzeon! А самолётик должен пролететь до противоположной стороны и обратно?

Добавлено через 2 минуты
Вот так попробуй)

Visual Basic
1
2
3
4
5
6
7
Private Sub Image1_Click()
Dim i As Double
 
For i = 1 To 3
move_1
Next i
End Sub

Добавлено через 34 минуты
Я шаг увеличил, так получается)))
Такое ощущение что переполняется возможность переменной координаты)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim x As Double
Dim i As Integer
 
Private Sub move_1()
      Image1.Visible = True
      Image1.Left = 360
      x = Image1.Left
      Do While x <= 7000
              x = x + 0.022
                      Image1.Left = x
      Loop
      Image1.Visible = False
      
      Image2.Visible = True
      Image2.Left = 7000
      x = Image2.Left
      Do While x > 360
              x = x - 0.022
                      Image2.Left = x
      Loop
      Image2.Visible = False
      Image1.Left = 360
      Image1.Visible = True
End Sub
 
Private Sub Image1_Click()
For i = 1 To 3
move_1
Next i
End Sub

@dzeon · 26.05.2013, 10:41 **[ТС]**

Так немного лучше но быстро а я хочу добиться более плавного движения.
Просто обидно а если я начну что то по серьёзнее писать и мне надо будет добится более плавного движения
то я столкнусь с этой проблемой

Кстати я думал это из за того что vb 6.0 устарел и плохо работает на windows xp.
я вчера поставил себе visual basic 2005 expres там такого глюка нету но я немогу в нем сделать чтоб картинка переворачивалась и самолётик летел обратно.
Вот и делемма какую технологию осваивать если простейшие примеры не получается реализовать, эх обидно.

morgann55 · 26.05.2013, 12:35

Чтоб летал медленнее надо увеличить паузу между "кадрами" - используй Timer или функцию Sleep...

morgann55 · 26.05.2013, 13:29

Вот твой проект, работающий через Timer

@dzeon · 26.05.2013, 13:52 **[ТС]**

Сообщение от morgann55

Вот твой проект, работающий через Timer

Спасибо большое то что нужно, буду дальше осваиваться.

@Pro_grammer · 26.05.2013, 13:52

Упростил код, убрал GoTo

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@dzeon 0 / 0 / 0 Регистрация: 24.05.2013 Сообщений: 10

	Почему зависает мой проект? 26.05.2013, 00:28. Показов 1870. Ответов 8 Метки нет (Все метки) Вот мой проект самолёта после клика на нём он должен там три раза пролететь туда сюда а на втором разе он зависает. Вложение 272903 Помогите разобраться пожалуйста. Заранее спасибо. Система windows xp visual basic 6.0 Добавлено через 24 минуты методом тыка выяснил что зависание связано както со временем, если скорость быстрее то не зависает если перемещение самолета замедляеш то зависает. Как быть? 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	26.05.2013, 04:04
	Заархивируй проект и прикрепи к сообщению - и нам будет легче до НЕГО добраться и ПравилаФорума не будешь нарушать ))) 0

@dzeon 0 / 0 / 0 Регистрация: 24.05.2013 Сообщений: 10
	26.05.2013, 09:25 [ТС]
	fly.7z 0

@dzeon 0 / 0 / 0 Регистрация: 24.05.2013 Сообщений: 10
	26.05.2013, 10:41 [ТС]
	Так немного лучше но быстро а я хочу добиться более плавного движения. Просто обидно а если я начну что то по серьёзнее писать и мне надо будет добится более плавного движения то я столкнусь с этой проблемой Кстати я думал это из за того что vb 6.0 устарел и плохо работает на windows xp. я вчера поставил себе visual basic 2005 expres там такого глюка нету но я немогу в нем сделать чтоб картинка переворачивалась и самолётик летел обратно. Вот и делемма какую технологию осваивать если простейшие примеры не получается реализовать, эх обидно. 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	26.05.2013, 12:35
	Чтоб летал медленнее надо увеличить паузу между "кадрами" - используй Timer или функцию Sleep... 0

Почему зависает мой проект?

Решение