forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)
-   -   Вывод\отключение функций (http://forum.boolean.name/showthread.php?t=1237)

Valet 04.08.2006 19:58

Вывод\отключение функций
 
Во-первых, спасибо, что обратили внимание на мои возгласы! ;) А проблема в следующем. Мне не известно, каким макаром можно выводить и скрывать картинку на экран по нажатию ОДНОЙ И ТОЙ ЖЕ клавиши...Скажем карту местности и т.д. Потом следует еще одна трабла...Как при нажатии определенной кнопки на клаве вывести функцию, а при повторном нажатии - скрыть ее нафиг? Допустим в самой функции до цикла помещаются надписи, картинки и фон, а потом это все одним блоком выводится и скрывается...Надеюсь на содействие. :SOS:

tormoz 04.08.2006 20:20

Re: Вывод\отключение функций
 
Код:


If KeyHit(...)
  var=1-var
 
  If var
    ;go
  Else
    ;no_go
  EndIf
EndIf


alcoSHoLiK 04.08.2006 20:35

Re: Вывод\отключение функций
 
Цитата:

Сообщение от Valet
Мне не известно, каким макаром можно выводить и скрывать картинку на экран по нажатию ОДНОЙ И ТОЙ ЖЕ клавиши...

Необходимо создать переменную и изменять ее значение при нажатии клавиши.
Код:

varState = 0

If KeyHit(клавиша) Then
    If varState Then
        ;что-то сделать
    Else
        ;сделать что-то другое
    End If
    varState = 1 - varState
End If

Вопрос вообще логический, к программированию большого отношения не имеет...

Valet 04.08.2006 20:42

Re: Вывод\отключение функций
 
с нажатием понятно...спасибо. а как функцию убирать и вызывать? :wallbash:

alcoSHoLiK 04.08.2006 21:52

Re: Вывод\отключение функций
 
Я не совсем понял, что ты имеешь в виду. Делай цикл отдельно от функции, в ней только вывод объектов. Потом помещай функцию в цикл с условием, например:
Код:

While Not KeyHit(1)
    If varShow Then funcShow(): varShow = 0
    ...
    ...
    ...
    If что-нибудь Then varShow=1
Wend



Часовой пояс GMT +4, время: 08:18.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot