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]

Exercício do artigo "Parte III"

Ir em baixo

Exercício do artigo "Parte III"

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

Ao final do artigo nosso amigo vinians deixou um exercício para resolução do problema com o "risco" na tela, eis aqui a solução que usei:

*** Se vc ainda não encontrou a solução não leia, tente fazer sozinho! ***
Spoiler:
'------------------
'Programa Principal
'------------------

Windowtitle "Ataque Mortal"

Screenres 640, 480, 32, 2, 0

Screenset 1, 0

Dim Shared As Integer x = 0

While (Inkey$() = "") And x < 640 <--- adicionei um AND pra quando o círculo chegar ao final da tela o programa ser encerrado automaticamente

Cls() <--- limpa o buffer para montar a nova imagem

Circle(x, 240), 70, Rgb(255,255,255)

x = x + 1

Sleep(5)

Screencopy()

Wend

t+


Última edição por fabio em Seg 11 Out 2010, 19:17, editado 1 vez(es)

Convidad
Convidado


Voltar ao Topo Ir em baixo

Re: Exercício do artigo "Parte III"

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

fabio escreveu:Ao final do artigo nosso amigo vinians deixou um exercício para resolução do problema com o "risco" na tela, eis aqui a solução que usei:

*** Se vc ainda não encontrou a solução não leia, tente fazer sozinho! ***
Spoiler:
'------------------
'Programa Principal
'------------------

Windowtitle "Ataque Mortal"

Screenres 640, 480, 32, 2, 0

Screenset 1, 0

Dim Shared As Integer x = 0

While (Inkey$() = "") And x < 640 <--- adicionei um AND pra quando o círculo chegar ao final da tela o programa ser encerrado automaticamente

Cls() <--- limpa o buffer para montar a nova imagem

Circle(x, 240), 70, Rgb(255,255,255)

x = x + 1

Sleep(5)

Screencopy()

Wend

t+
Exatamente, não leia caso você não saiba! Promete?
Mais é isso mesmo, e o Fabio ainda deu uma "enfeitada" que ficou legal la como "AND". Parabéns amigão!
No próximo artigo teremos um desafio um pouco "menos facil", por isso, fiquem ligados!

_________________
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: Exercício do artigo "Parte III"

Mensagem por tblima123 em Dom 17 Out 2010, 08:40

Eu não olhei o spoiler !!! Very Happy
Bincadeira, eu não me aguentei Crying or Very sad

Mas ficou demais cara, com esse simples exercicio o camarada consegue fixar bem a aula na caixola.

Outra coisa, não estamos mais só!!! Laughing
avatar
tblima123
Ocasional

Mensagens : 54
Data de inscrição : 06/11/2009

Voltar ao Topo Ir em baixo

Re: Exercício do artigo "Parte III"

Mensagem por vinians em Dom 17 Out 2010, 10:59

tblima123 escreveu:Eu não olhei o spoiler !!! Very Happy
Bincadeira, eu não me aguentei Crying or Very sad

Mas ficou demais cara, com esse simples exercicio o camarada consegue fixar bem a aula na caixola.

Outra coisa, não estamos mais só!!! Laughing
Pretendendo colocar alguns "OVos de Páscoa" no proximo artigo, realmente ajuda a ficar legal o conteúdo.
O Fabio é amigão da XCreator de longa data, já até criamos projetos juntos, fico muito feliz que está participando do forum (que ele ajudou a criar).
Mas é isso ai pessoal, participando assim todos nós aprendemos cada vez mais! (Além de ser muito legal, e criar novas amizades)

_________________
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: Exercício do artigo "Parte III"

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