X-Wing v1.2 & TIE-Fighter v1.2

[Danya aka Spiridon]

Игра X-Wing v1.2 (Полная обновлённая версия) - http://danya.tumin.net/files/X-Wing%20v1.2.exe! Качаем! Цель игры - уничтожить как можно больше X-Wing'ов за 60 секунд.

З.Ы. Писал я её на Visual Basic 6.0!

[GSerg]

Мог бы и не говорить, на чём писал

Увидев самолётик, я им попытался сразу управлять, дабы скорее окунуться в хардкорный космосим... А оказалось... Извини, конечно, но это пишется за 10 минут
Кстати, знаешь, сколько сотен я щёлкаю за 1 минуту? Не скажу, испугаешься. А знаешь как? У тебя форма изменяемого размера, а новые координаты самолёта рассчитываются как rnd в границах формы. Уменьшаем размер формы до минимума и с бешеной скоростью кликаем практически неподвижный Х
И ещё. Процесс не самовыгружается, висит, вражина, в памяти. Сколько раз пускал, столько их и висит.

[Danya aka Spiridon]

Хорошо. Сделаю, чтобы форму нельзя было изменить. А как сделать чтобы при нажатии на крестик игра выгружалась из процессов? Что еще не так?

З.Ы. Ну не 10 минут!

[Danya aka Spiridon]

Вот у меня еще вопрос, у меня есть форма frmAbout, мне надо чтобы при её открытии форма с игрой "блокировалась", то есть пока не закроешь frmAbout - начать играть нельзя. Надо чтобы она как бы "прилипла" сверху к форме с игрой! Как это программно сделать (а может не программно). Help me please!

[Aleksej]

Код: Выделить всё

Form1.Show vbModal


[Danya aka Spiridon]

Спасибо! А насчёт выгрузки из процессов никто помочь не может?

[Aleksej]

Код: Выделить всё

Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long


[Danya aka Spiridon]

А в 2000/ХР это работать будет? Это в самое начало вставлять?

[Aleksej]

Requires Windows NT 3.1 or later; Requires Windows 95 or later, а вызвать при выходе из программы.

[Danya aka Spiridon]

Смотри у меня есть начало кода:

Dim ClickStatictic As Integer
Dim CurrentTimer As Integer

Option Explicit

куда и что мне вставлять???

[Danya aka Spiridon]

Help me please!

[Aleksej]

[url]
http://bbs.vbstreets.ru/viewtopic.php?t=4957
[/url]

[GSerg]

Я бы глянул на исходник, дабы выяснить, почему не выгружается

[Danya aka Spiridon]

Не... не могу... Я заметил, что если я делаю окно с игрой главной (первым при загрузке), оно нормально выгружается!

[Danya aka Spiridon]

Я думаю, может убрать форму где спрашивается про начать или нет игру, а вместо него сделать просто MsgBox при загрузке игры? Но как сделать чтобы таймер не начинал идти пока я не нажму Yes?

[Danya aka Spiridon]

Вот, переделал дизайн, исправил кое-что из вышеперечисленного (не исправил фигню с выгрузкой из процессов при выходе):

http://danya.tumin.net/files/TIE-Fighter%20v1.0.exe

[Danya aka Spiridon]

Народ! Ау! Что еще не так???

[Danya aka Spiridon]

Представьте, что вы бета-тестеры этой игры! Что в неё не так, кроме того, что она не выгружается при нажатии на X?! (Сюжет и геймплей тоже не в счёт )

З.Ы.

[mark+]

Ндаа. Всё гениальное - просто. END - для выхода.
Или
Unload Form1
Unload Form2
Unload Form...

[Danya aka Spiridon]

Как мне это поможет? Мне надо чтобы при нажатии на крестик, программа выгружалась из процессов! Можешь код предложить?

[Sanya Z]

Кхе...ты бы хоть иконку прицела на другую поменял, а то что это за плюсик? А также я бы тебе посответовал сделать подсчет процентов попадания, уровни сложности (скорость появления кораблей и т.д.). помню давно сам такое писал

[Danya aka Spiridon]

Кхе...ты бы хоть иконку прицела на другую поменял, а то что это за плюсик? А также я бы тебе посответовал сделать подсчет процентов попадания, уровни сложности (скорость появления кораблей и т.д.). помню давно сам такое писал

Я же давал уже новый линк - http://danya.tumin.net/files/TIE-Fighter%20v1.0.exe! У меня клавная проблема с выгрузкой из процессов!

[Sanya Z]

Так тебе же написали:

Ндаа. Всё гениальное - просто. END - для выхода.
Или
Unload Form1
Unload Form2
Unload Form...

Нажатие на "крестик" - это событие формы QueryUnload

Код: Выделить всё

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Unload me 'Если у тебя всего одна форма

End Sub

Вроде долно работать

[Sanya Z]

Кстати, а чтобы выгружалась форма с вопросом "Хочешь играть?", то это также делается:

Код: Выделить всё

Private Sub cmdYes_Click() 'Если хотят поиграть
frmIgra.visible=true
...
Unload Me
end

Private Sub cmdNo_Click() 'Если они потеряли сознание :twisted:
MsgBox "Приходите ещё" 'Это к примеру
Unload Me
end

Вроде так

[Danya aka Spiridon]

Sanya Z Фенькс! Только не так надо:

Код: Выделить всё

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload me
End Sub

А вот так (;)):

Код: Выделить всё

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End
End Sub

[Danya aka Spiridon]

ВСЁ КАЧАЕМ TIE-FIGHTER V1.0 (FINAL) - http://danya.tumin.net/files/TIE-Fighter%20v1.0.exe!

[Sanya Z]

ВСЁ КАЧАЕМ TIE-FIGHTER V1.0 (FINAL) - http://danya.tumin.net/files/TIE-Fighter%20v1.0.exe!

А ты маньяк ...А теперь не расслабляться! Продолжаем работать

[Danya aka Spiridon]

Всмысле маньяк???

[Sanya Z]

Всмысле маньяк???

Это я про то, что новые версии лепишь (Final там и все такое)

[Danya aka Spiridon]

Sanya Z
А! Ну... я просто все баги исправил, и решил финальную сделать!