|
2D-программирование Вопросы, касающиеся двумерного программирования |
17.10.2009, 23:19
|
#1
|
AnyKey`щик
Регистрация: 15.10.2009
Сообщений: 2
Написано 0 полезных сообщений (для 0 пользователей)
|
Помогите пожалуста
я новичок и плохо в программировании понимаю, делаю простую фунцкию:
status = 1
If KeyDown(208)
status + 1
endIf
но при нажатии на эту клавишу статус не прибавляется(
Последний раз редактировалось moka, 18.10.2009 в 02:22.
Причина: используй тэг [CODE]
|
(Offline)
|
|
17.10.2009, 23:46
|
#2
|
Бывалый
Регистрация: 29.03.2007
Сообщений: 662
Написано 199 полезных сообщений (для 448 пользователей)
|
Ответ: Помогите пожалуста
status = 1
If KeyDown(208)
status = status + 1
End If
|
(Offline)
|
|
18.10.2009, 00:07
|
#3
|
Мастер
Регистрация: 27.01.2008
Адрес: Россия, СКФО, ЧР, Грозный
Сообщений: 1,144
Написано 578 полезных сообщений (для 2,207 пользователей)
|
Ответ: Помогите пожалуста
Чувак изучи сначала основы программирование, а то ты не сможешь написать нфс, кризис и прочее!!!11!
|
(Offline)
|
|
18.10.2009, 01:15
|
#4
|
Мастер
Регистрация: 05.04.2008
Сообщений: 910
Написано 530 полезных сообщений (для 3,006 пользователей)
|
Ответ: Помогите пожалуста
Он не будет прибавлятся = ) Т.к. ты в эту переменную пихаешь 1цу в цикле.. если у тебя вообще это в цикле....
Function NewStatus()
;status = 1
If KeyHit(208) = 1
status% = status% + 1
EndIf
End Function
Попробуй, закоменти строчку status = 1 А во вторых надо писать так.. status = status + 1.. И я думаю сюда подойдет KeyHit а не Down.
|
(Offline)
|
|
18.10.2009, 02:24
|
#5
|
.
Регистрация: 05.08.2006
Сообщений: 10,429
Написано 3,454 полезных сообщений (для 6,863 пользователей)
|
Ответ: Помогите пожалуста
Graphics 400,300
Repeat
If KeyHit(208)
status%=status+1
EndIf
Print status
Flip
Cls
Until KeyHit(0)
Писал в броузере, могут быть ошибки.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
18.10.2009, 10:59
|
#6
|
AnyKey`щик
Регистрация: 15.10.2009
Сообщений: 2
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите пожалуста
спс всем!у меня еще один вопрос
я тут делаю наипростейшее меню
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
Меню доделовать не стал т.к. при нажатие на клавишу цвет не меняется(
Помогите плиз!
|
(Offline)
|
|
18.10.2009, 12:30
|
#7
|
Мастер
Регистрация: 05.04.2008
Сообщений: 910
Написано 530 полезных сообщений (для 3,006 пользователей)
|
Ответ: Помогите пожалуста
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цу можно и задать определенному тексту цвет = )
|
(Offline)
|
|
18.10.2009, 14:21
|
#8
|
Ференька
Регистрация: 26.01.2007
Адрес: улица Пушкина дом Колотушкина
Сообщений: 10,741
Написано 5,461 полезных сообщений (для 15,675 пользователей)
|
Ответ: Помогите пожалуста
pkfire, зачем And юзаешь? And - это конъюнкция, в данном случае не нужна. Если хочешь чтоб несколько операторов были выполнены подряд - пиши каждый на своей строчке. Или используй двоеточие, если хочешь уместить их в одну строку.
SetFont - в цикле не нужен совершенно.
И да, действительно реализация плохая.
Советую почитать справку по всем операторам, которые ты используешь. Видно явное непонимание того, что они делают, отсюда такие несуразности в коде.
__________________
Мои проекты:
Анальное Рабство
Зелёный Слоник
Дмитрий Маслов*
Различие**
Клюква**
* — в стадии разработки
** — в стадии проектирования
Для проектов в стадии проектирования приведены кодовые имена
|
(Offline)
|
|
18.10.2009, 19:55
|
#9
|
ПроЭктировщик
Регистрация: 20.06.2009
Адрес: Україна
Сообщений: 152
Написано 10 полезных сообщений (для 24 пользователей)
|
Ответ: Помогите пожалуста
Чувак наверно толька начал програмировать и думает что ему тут все сразу возьмутса помогать. Да тебе помогут. Но лучше б ты попрактиковалса сам примерно пол года. Сам выучиш - будеш знать, а будеш спрашвать - ничево в мозгах не останетса и всегда надо будет начинать с начала...
__________________
Blitz3D, XNA, WebGL, OpenGL, Unity3D
PC: ASUS A55VM Core i3 (2.4Ghz), 6 Gb RAM, Nvidia GF 630M GT 2Gb
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 09:26.
|