Conectar-se

Esqueci minha senha

Últimos assuntos
» Novo endereço da XCreator
Qua 16 Mar 2011, 08:49 por vinians

» C++? ajuda
Qui 17 Fev 2011, 16:42 por Henrique_GJ

» dúvida em centralizar arma e player
Dom 30 Jan 2011, 17:08 por AndersonXD

» GO linguagem de programação da Google !!
Qui 27 Jan 2011, 21:04 por vinians

» [Duvida]esqueci o código pra mudar o tamanho da room
Qui 13 Jan 2011, 15:12 por mystery_boy_maker

» show_message_ext duvida
Qua 22 Dez 2010, 21:36 por mystery_boy_maker

» Testes com C & Allegro
Seg 13 Dez 2010, 14:31 por vinians

» FreeBasic - Código completo Snake
Seg 13 Dez 2010, 11:13 por tblima123

» Me apresentando...
Sab 11 Dez 2010, 22:26 por vinians

» URL Reverse
Sab 11 Dez 2010, 22:23 por vinians

Parceiros
Seja nosso parceiro, adicione nosso button em seu portal!


• • •

• • •

• • •
[parceiro 3]

Teste de movimento com setas do teclado

Ir em baixo

Teste de movimento com setas do teclado

Mensagem por Convidad em Seg 11 Out 2010, 20:16

Código:
#Include "fbgfx.bi"

Windowtitle "Bolinha"

Screenres 640, 480, 32, 2, 0

Screenset 1, 0

Dim Shared As Integer x = 320
Dim Shared As Integer y = 240

Do

    If Multikey(FB.SC_LEFT) Then
        x = x - 1
    EndIf
   
    If Multikey(FB.SC_RIGHT) Then
        x = x + 1
    EndIf
   
    If Multikey(FB.SC_UP) Then
        y = y - 1
    EndIf
   
    If Multikey(FB.SC_DOWN) Then
        y = y + 1
    EndIf
               
    Cls()
       
    Circle(x, y), 30, Rgb(255,255,255)
   
    Screencopy()

Loop While Not Multikey(FB.SC_ESCAPE)


Não ficou lá essas coisas mas o círculo se move... mal... mas move XP

...mestre vinians, poderia explicar os muitos erros deste exemplo por favor?

t+

Convidad
Convidado


Voltar ao Topo Ir em baixo

Re: Teste de movimento com setas do teclado

Mensagem por vinians em Seg 11 Out 2010, 20:23

fabio escreveu:
Código:
#Include "fbgfx.bi"

Windowtitle "Bolinha"

Screenres 640, 480, 32, 2, 0

Screenset 1, 0

Dim Shared As Integer x = 320
Dim Shared As Integer y = 240

Do

    If Multikey(FB.SC_LEFT) Then
        x = x - 1
    EndIf
   
    If Multikey(FB.SC_RIGHT) Then
        x = x + 1
    EndIf
   
    If Multikey(FB.SC_UP) Then
        y = y - 1
    EndIf
   
    If Multikey(FB.SC_DOWN) Then
        y = y + 1
    EndIf
               
    Cls()
       
    Circle(x, y), 30, Rgb(255,255,255)
   
    Screencopy()

Loop While Not Multikey(FB.SC_ESCAPE)


Não ficou lá essas coisas mas o círculo se move... mal... mas move XP

...mestre vinians, poderia explicar os muitos erros deste exemplo por favor?

t+
"mestre vinians" essa é boa. Mas voltando ao seu exemplo, basta colocar sleep(5) depois
ScreenCopy() que funfa direitim.
Isso ocorre porque sem o sleep() ele acaba por "perder" algumas mensagens que o teclado envia. O Sleep() chama o famoso process_messages() internamente, oque garante a entrega das mensagens. Basicamente é isso Very Happy

_________________
we love to make games!
avatar
vinians
Editor

Masculino
Mensagens : 85
Data de inscrição : 24/08/2009
Localização : Rio de Janeiro

http://www.xcreator.com.br

Voltar ao Topo Ir em baixo

Re: Teste de movimento com setas do teclado

Mensagem por Convidad em Seg 11 Out 2010, 20:27

Perfeito, como sempre!... agora, por que razão, motivo ou circunstância, o botão fechar da janela não fecha a janela?

t+

Convidad
Convidado


Voltar ao Topo Ir em baixo

Re: Teste de movimento com setas do teclado

Mensagem por vinians em Seg 11 Out 2010, 21:31

fabio escreveu:Perfeito, como sempre!... agora, por que razão, motivo ou circunstância, o botão fechar da janela não fecha a janela?

t+
Very Happy
É o seguinte, o Alt + F4 gera um codigo especial para a funcao inkey$ do Free Basic. Sendo assim basta incluir um "and" no seu "while" veja:

Código:

Loop While (Not Multikey(FB.SC_ESCAPE)) and (inkey$ <> Chr(255) + "k")
No FreeBasic toda vez que uma tecla especial é pressionada gera-se um codigo chr$(255) + alguma coisa dependendo da tecla. Para o fechamento de janela é "k".
flws!

_________________
we love to make games!
avatar
vinians
Editor

Masculino
Mensagens : 85
Data de inscrição : 24/08/2009
Localização : Rio de Janeiro

http://www.xcreator.com.br

Voltar ao Topo Ir em baixo

Re: Teste de movimento com setas do teclado

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum