Четверг, 28 Марта 2024, 22:05

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Basic » В чём ошибка? Я написал прогу на Blitz Basic 3d (Blitz Basic 3d)
В чём ошибка? Я написал прогу на Blitz Basic 3d
sanya9411Дата: Среда, 23 Ноября 2011, 00:14 | Сообщение # 1
частый гость
Сейчас нет на сайте
Graphics 400,300
; создать переменные, содержащие координаты пикселя
Global x=200
Global y=150
; эта переменная содержит число ударов о стенку
Collisions=0
; CONSTANTS
; коды клавиш
Const UPKEY=208, LEFTKEY=203, RIGHTKEY=205
; MAIN LOOP
WhileNot KeyDown (1)
; выводить текст в верхнем левом углу
Locate 0,0
Print " Press the arrow keys to move the pixel arownd."
; Вывести число столкновений
Print " Collisions: " + coliisions

; перенести пользователя в зависимости от нажатой клавиши
If KeyDonw (UPKEY)
y=y-5
ElseIf KeyDown (DOWNKEY)
y=y+5
ElseIf KeyDonw (LEFTKEY)
x=x-5
ElseIf KeyDown (RIGHKEY)
x=x+5
EndIf

; вызвать функцию CheckForCollisions и определить, произошло ли столкновение
Collisions = CheckForCollisions (Collisions)
; вывести пиксел на экран
Plot x,y

; wait a (fraction of a ) sec
Delay 100
; END OF MAIN LOOP

; FUNCTIONS

; Function CheckForCollisions (collisions)-возращает число ударов, проверяет, произошло ли столкновение
; collisions : число столкновений на момент вызова функции
Function CheckForCollisions (Collisions)

; если пиксель вне экрана, то произошло столкновение
If x <=0 Or x >= 400 Or y < 0 Or y > = 300
Collisions = Collisions + 1 ; увеличить collisions
Cls ; очистить экран
Text 100,150, " A Collision Has Occured "
Delay 1000 ; подождать секудну
Cls ; очистить экран
x = 200 ;восстановить x
y = 150 ; восстановить у
EndIf

востановить число соударений
Return Collisions
End Function
Помогите пожалуйсто!!!
Kefir87Дата: Среда, 23 Ноября 2011, 00:43 | Сообщение # 2
участник
Сейчас нет на сайте
И, какая ошибка? Мы ведь не экстрасенсы
Figure09Дата: Среда, 23 Ноября 2011, 00:49 | Сообщение # 3
постоянный участник
Сейчас нет на сайте
Что должно в итоге то получиться?

Добавлено (23.11.2011, 00:49)
---------------------------------------------
Конец цикла где у тебя епт?
после Delay 100 добавь Wend


Безумие сделает жизнь веселей.
sanya9411Дата: Среда, 23 Ноября 2011, 17:34 | Сообщение # 4
частый гость
Сейчас нет на сайте
Добавил программа ругается пишет что While

Добавлено (23.11.2011, 10:57)
---------------------------------------------
Народ вы где?

Добавлено (23.11.2011, 17:34)
---------------------------------------------
;demo09-01.bb - Demonstrates Pixel Collisions
Graphics 400,300

;create variables that define coordinate position of pixel
Global x = 200
Global y = 150

;This variable contains the amount of times a collision has occured
collisions = 0

;CONSTANTS
;These are the key code constants
Const UPKEY = 200, DOWNKEY = 208, LEFTKEY = 203, RIGHTKEY = 205

;MAIN LOOP
While Not KeyDown (1)

;Print text in upper left corner
Locate 0,0

Print "Press the arrow keys to move the pixel around."

;Print the number of collisions
Print "Collisions: " + collisions

;Move player around depending on the key he pressed
If KeyDown(UPKEY)
y = y - 5
ElseIf KeyDown(DOWNKEY)
y = y + 5
ElseIf KeyDown(LEFTKEY)
x = x - 5
ElseIf KeyDown(RIGHTKEY)
x = x + 5
EndIf

;Call the CheckForCollisions function and determine if a collision occurred
collisions = CheckForCollisions(collisions)

;Draw the pixel on the screen
Plot x,y

;wait a (fraction of a )sec
Delay 100
Wend
;END OF MAIN LOOP

;FUNCTIONS

;Function CheckForCollisions(collisions) - Returns number of total collisions, tests for new ones
;collisions: the number of collisions at the time of calling the function
Function CheckForCollisions(collisions)

;If the pixel is offscreen, report a collision
If x <= 0 Or x >= 400 Or y <= 0 Or y >= 300
collisions = collisions + 1 ;increment collisions
Cls ;clear the screen
Text 100,150,"A Collision Has Occured"
Delay 1000 ;wait a sec
Cls ;clear screen again
x = 200 ;reset x
y = 150 ;reset y
EndIf

;return the amount of collisions
Return collisions
End Function
Вот вам рабочий реальный код!!!!!!!

Форум игроделов » Программирование » Basic » В чём ошибка? Я написал прогу на Blitz Basic 3d (Blitz Basic 3d)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг