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=9539)

pkfire 17.10.2009 23:19
Помогите пожалуста
 
я новичок и плохо в программировании понимаю, делаю простую фунцкию:

Код:
status = 1
If KeyDown(208)
status + 1
endIf
но при нажатии на эту клавишу статус не прибавляется(

Android 17.10.2009 23:46
Ответ: Помогите пожалуста
 
Код:
status = 1
If KeyDown(208)
status = status + 1
End If

Hurrit 18.10.2009 00:07
Ответ: Помогите пожалуста
 
Чувак изучи сначала основы программирование, а то ты не сможешь написать нфс, кризис и прочее!!!11!

EvilChaotic 18.10.2009 01:15
Ответ: Помогите пожалуста
 
Он не будет прибавлятся = ) Т.к. ты в эту переменную пихаешь 1цу в цикле.. если у тебя вообще это в цикле....
Код:
global Status%
Код:
Function NewStatus()
;status = 1
If KeyHit(208) = 1
status% = status%  + 1
EndIf
End Function
Попробуй, закоменти строчку status = 1 А во вторых надо писать так.. status = status + 1.. И я думаю сюда подойдет KeyHit а не Down.

moka 18.10.2009 02:24
Ответ: Помогите пожалуста
 
Код:
Graphics 400,300
Repeat
 If KeyHit(208)
  status%=status+1
 EndIf
 Print status
 Flip
 Cls
Until KeyHit(0)
Писал в броузере, могут быть ошибки.

pkfire 18.10.2009 10:59
Ответ: Помогите пожалуста
 
спс всем!у меня еще один вопрос
я тут делаю наипростейшее меню
PHP код:
Graphics 800, 600

Global status% = 1
; типа делаю переменные цвета текста
RedNew% = 100 
BlurNew% = 100
GreenNew% = 100

RedOpt% = 100
BlurOpt% = 100
GreenOpt% = 100

RedExit% = 100
BlurExit% = 100
GreenExit% = 100

; условия при которых меняется цвет
If staus%=1 
RedNew% = 250 And BlurNew% = 0 And GreenNew% = 0 And RedOpt% = 100 And BlurOpt% = 100 And GreenOpt% = 100 And RedExit% = 100 And BlurExit% = 100 And GreenExit% = 100
EndIf
If status% = 2 
RedNew% = 100 And BlurNew% = 100 And GreenNew% = 100 And RedOpt% = 250 And BlurOpt% = 0 And GreenOpt% = 0 And RedExit% = 100 And BlurExit% = 100 And GreenExit% = 100
EndIf

If status% = 3
RedNew% = 100 And BlurNew% = 100 And GreenNew% = 100 And RedOpt% = 100 And BlurOpt% = 100 And GreenOpt% = 100 And RedExit% = 250 And BlurExit% = 0 And GreenExit% = 0
EndIf

While Not KeyHit(1)
; при нажатии на клавишу статус меняется
If KeyHit(208) = 1
status% = status%  + 1
EndIf
; создаем сам текст
SetFont ArialBlFNT
Color RedNew%,BlurNew%,GreenNew%
Text 350, 200, "New Game" 
Color RedOpt%,BlurOpt%,GreenOpt%
Text 355,250, "Options"
Color RedExit%,BlurExit%,GreenExit%
Text 365,300, "Exit"

Wend
End 
Меню доделовать не стал т.к. при нажатие на клавишу цвет не меняется(
Помогите плиз!

EvilChaotic 18.10.2009 12:30
Ответ: Помогите пожалуста
 
Код:
Graphics 800, 600,16,0

Global status% = 1
; типа делаю переменные цвета текста
Global  RedNew% = 100
Global BlurNew% = 100
Global GreenNew% = 100

Global RedOpt% = 100
Global BlurOpt% = 100
Global GreenOpt% = 100

Global RedExit% = 100
Global BlurExit% = 100
Global GreenExit% = 100

; условия при которых меняется цвет

While Not KeyHit(1)
; при нажатии на клавишу статус меняется
If KeyHit(208) = 1
status% = status%  + 1
If status > 3 Then status = 1
EndIf

Select status%
        Case 1
                RedNew% = 250
                BlurNew% = 0
                GreenNew% = 0
                RedOpt% = 100
                BlurOpt% = 100
                GreenOpt% = 100
                RedExit% = 100
                BlurExit% = 100
                GreenExit% = 100
        Case 2
                RedNew% = 100
                BlurNew% = 100
                GreenNew% = 100
                RedOpt% = 250
                BlurOpt% = 0
                GreenOpt% = 0
                RedExit% = 100
                BlurExit% = 100
                GreenExit% = 100
        Case 3
                RedNew% = 100
                BlurNew% = 100
                GreenNew% = 100
                RedOpt% = 100
                BlurOpt% = 100
                GreenOpt% = 100
                RedExit% = 250
                BlurExit% = 0
                GreenExit% = 0
        Default
                RedNew% = 100
                BlurNew% = 100
                GreenNew% = 100
                RedOpt% = 100
                BlurOpt% = 100
                GreenOpt% = 100
                RedExit% = 100
                BlurExit% = 100
                GreenExit% = 100
End Select
; создаем сам текст
;SetFont ArialBlFNT

Color RedNew%,BlurNew%,GreenNew%
Text 350, 200, "New Game"
Color RedOpt%,BlurOpt%,GreenOpt%
Text 355,250, "Options"
Color RedExit%,BlurExit%,GreenExit%
Text 365,300, "Exit"
;Tem
Color 255,255,255
Text 20,20,"Status " + Status
 Flip
Cls

Wend
Наверное секцию смены цвета тоже нужно было добавить в цикл = ))))))
А вообще это очень плохая реализация подцвета текста в меню. Нужно проверять координаты мыши в координатах позоции тексту, что-то типо невидимого ректа, который возвратит 1цу если пересеклась мышь с ним, а если возвратит 1цу можно и задать определенному тексту цвет = )

ABTOMAT 18.10.2009 14:21
Ответ: Помогите пожалуста
 
pkfire, зачем And юзаешь? And - это конъюнкция, в данном случае не нужна. Если хочешь чтоб несколько операторов были выполнены подряд - пиши каждый на своей строчке. Или используй двоеточие, если хочешь уместить их в одну строку.

SetFont - в цикле не нужен совершенно.
И да, действительно реализация плохая.
Советую почитать справку по всем операторам, которые ты используешь. Видно явное непонимание того, что они делают, отсюда такие несуразности в коде.

ІГРОГРАЙКО 18.10.2009 19:55
Ответ: Помогите пожалуста
 
Чувак наверно толька начал програмировать и думает что ему тут все сразу возьмутса помогать. Да тебе помогут. Но лучше б ты попрактиковалса сам примерно пол года. Сам выучиш - будеш знать, а будеш спрашвать - ничево в мозгах не останетса и всегда надо будет начинать с начала...>>:(


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

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