Topo
'----------------------------------------Declaração de Variaveis-----------
Dim Deus as Global
Dim Criação as Float
Dim Day as Integer
Dim Pecado as String
Dim Humanidade
Dim Resultado
Private Sub ()
'------------------Programação da terra-----------------------------------
For Day = 1 to 7
Select Case Day
Case Day = 1; Terra = Terra & "separação entre a luz e as trevas."
Case Day = 2; Terra = Terra & "Haja uma expansão no meio das águas, e haja separação entre águas e águas"
Case Day = 3; Terra = Terra & "Faça separação entre as aguas e a Terra e que na terra creça toda Flora"
Case Day = 4; Terra = Terra & "Apareça a separação de dia e noite, Sol e Lua e as estrelas, e que assim conte-se os dias e anos"
Case Day = 5; Terra = Terra & "Nasce os animais aquáticos e voadores"
Case Day = 6; Terra = Terra & "Nasce os animais terrestres e o homem."
Case Day = 7; Terra = Terra & "Descansou no 7ºDia de toda sua obra"
End Select
Next Day
'----------------------Vou criar uma regra -----------------------------
Pecado = "Comer da bananeira proíbida"
If Pecado = False Then
Resultado = "Vida Eterna ao Lado de Deus, no Paraíso"
Else Pecado = True Then
Resultado = "Morte, Destruição, VAzio, Frieza......"
End If
End Sub
Fui lógico? :riso:
Depois continuo com a outra parte se quiser
--------------------------------------------------------------
Brincadeiras a parte você quer que eu explique de que fora então? Me diga que ferramentas usar que eu explico.
Bom esse é meu ultimo post até Domingo, sou Adventista e guardo o Sábado como dia sagrado de descanso e comunhão com Deus, resumindo eu desligo minha chave do mundo e ligo minha chave em Deus 100%.
Não vou responder nenhum post entre o intervalo de 20:00h de Hoje e 20:00 de Sábado. Para a alegria de Todos :yelrotflm.
Deus Abençoe a todos! E tenham paciência comigo.
Publicidade:
Jogue Tibia sem mensalidades!
Taleon Online - Otserv apoiado pelo TibiaBR.
https://taleon.online







Curtir: 





Responder com Citação



