Conectar-se

Esqueci minha senha

Últimos assuntos
» Novo endereço da XCreator
Teste de movimento com setas do teclado EmptyQua 16 Mar 2011, 08:49 por vinians

» C++? ajuda
Teste de movimento com setas do teclado EmptyQui 17 Fev 2011, 16:42 por Henrique_GJ

» dúvida em centralizar arma e player
Teste de movimento com setas do teclado EmptyDom 30 Jan 2011, 17:08 por AndersonXD

» GO linguagem de programação da Google !!
Teste de movimento com setas do teclado EmptyQui 27 Jan 2011, 21:04 por vinians

» [Duvida]esqueci o código pra mudar o tamanho da room
Teste de movimento com setas do teclado EmptyQui 13 Jan 2011, 15:12 por mystery_boy_maker

» show_message_ext duvida
Teste de movimento com setas do teclado EmptyQua 22 Dez 2010, 21:36 por mystery_boy_maker

» Testes com C & Allegro
Teste de movimento com setas do teclado EmptySeg 13 Dez 2010, 14:31 por vinians

» FreeBasic - Código completo Snake
Teste de movimento com setas do teclado EmptySeg 13 Dez 2010, 11:13 por tblima123

» Me apresentando...
Teste de movimento com setas do teclado EmptySab 11 Dez 2010, 22:26 por vinians

» URL Reverse
Teste de movimento com setas do teclado EmptySab 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 Empty 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

Teste de movimento com setas do teclado Empty 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!
vinians
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

Teste de movimento com setas do teclado Empty 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

Teste de movimento com setas do teclado Empty 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!
vinians
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

Teste de movimento com setas do teclado Empty 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


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