| | Silvia Cannon Cup - TAÇA THIMED |  |
|
+4Odd BraKe NK-ALaN NK(e30)DarK 8 participantes |
|
| Autor | Mensagem |
|---|
NK(e30)DarK
Membro Nightkids VII
N Points : 5237
Em Atividade nos Jogos: : Pangya, Trackmania e Ragnarok
Reputação : 39
Data de nascimento : 14/06/1989
Data de inscrição : 06/02/2010
Idade : 34
Localização : Itaquaquecetuba-SP
 |  Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Sáb Jun 01, 2013 8:00 pm | |
| Dark 3x0 John  | |
|
 | |
Tr1st4n(e40)
Membro Nightkids VI
N Points : 843
Em Atividade nos Jogos: : PangYa, DDTank
Reputação : 14
Data de nascimento : 23/02/1994
Data de inscrição : 29/03/2010
Idade : 30
Localização : Floripa, SC
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Sáb Jun 01, 2013 8:01 pm | |
| Tr1st4n x Johnwally (3x0)  | |
|
| | |
Monstrin(e6)Nk
Membro Nightkids V
N Points : 664
Em Atividade nos Jogos: : Pangya
Reputação : 4
Data de nascimento : 30/07/1985
Data de inscrição : 17/09/2010
Idade : 38
Localização : Fortaleza-ce
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Dom Jun 02, 2013 2:00 pm | |
| Dark, atualiza minha pontuação, tem a partida com o brake e essa com o John... Monstrin 3 x 0 John  | |
|
| | |
NK(e30)DarK
Membro Nightkids VII
N Points : 5237
Em Atividade nos Jogos: : Pangya, Trackmania e Ragnarok
Reputação : 39
Data de nascimento : 14/06/1989
Data de inscrição : 06/02/2010
Idade : 34
Localização : Itaquaquecetuba-SP
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Ter Jun 04, 2013 12:46 pm | |
| atualizei;
vamo gnt, ate esse fds terminar todos os jogos! | |
|
| | |
BraKe
Capitão de Equipe
N Points : 2606
Em Atividade nos Jogos: : PangYa
Reputação : 8
Data de nascimento : 27/10/1993
Data de inscrição : 29/10/2010
Idade : 30
Localização : São Paulo
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Ter Jun 04, 2013 1:50 pm | |
| Bom, Dark, te chamei três vezes no domingo e você não respondeu nenhuma delas, cada hora aquele status estava diferente, no Titan Boo, na sala 106, na quina do estado de SP, mas acho que esse ultimo era seu estado de espirito.
Peço para os meus adversários que restam que digam aqui um horário que provavelmente possivelmente pode ser que fiquem online no fim de semana para que nos encontremos e finalizemos esses jogos com a devia graciosidade. É, eu sei temos um problema de comunicação as vezes, eu costumo complicar isso, como na infância que eu tive um problema de comunicação que foi diagnosticado apenas como uma simples timidez. Minha mãe, no auge de sua preocupação, temia que possuísse um certo grau de autismo, quando soube de suas suspeitas até lembro de ter me divertido durante um tempo falando com a língua enrolada e batendo a cabeça contra a parede, apenas para assustá-la...
-Mas eles não querem saber disso.
É, você tem razão. Ah, esse é o Horácio, meu macaquinho falante.
Mas enfim, Dark, Mota e Tristan. Estou a disposição em qualquer horário no fim de semana. | |
|
| | |
NK(e30)DarK
Membro Nightkids VII
N Points : 5237
Em Atividade nos Jogos: : Pangya, Trackmania e Ragnarok
Reputação : 39
Data de nascimento : 14/06/1989
Data de inscrição : 06/02/2010
Idade : 34
Localização : Itaquaquecetuba-SP
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Ter Jun 04, 2013 6:11 pm | |
| Foi mal brake, eu até vi sua msg mas vc ja tinha saido. Vou explicar: eu estava on , jogando sim, mas tacando pra frente so pra pegar cristais. E nem olhava pra tela. levei qse 30 min pra terminar 9h . Tudo pq estava ocupado olhando pro meu notebook criando e comentando isso pra entregar hoje (passei 3 dias fazendo esse trabalho). Ainda tinha q criar um Word e um PPT explicando sobre o programa. - Spoiler:
- Citação :
Private Sub butAgendar_Click()
If lstDestino.Text = "" Then
MsgBox ("Voce não escolheu o destino!")
ElseIf optEconomica.Value = False And optComum.Value = False And optExecutiva.Value = False Then
MsgBox ("Voce não escolheu a classe do Vôo - Economica / Comum / Executiva")
ElseIf LstEmpresa.Text = "" Then
MsgBox ("Voce nao escolheu a empresa prestadora do serviço!")
ElseIf txtNome.Text = "" Then
MsgBox ("Voce nao preencheu o nome do Passageiro")
ElseIf txtCPF.Text = "" Then
MsgBox ("Voce nao preencheu o CPF!")
ElseIf optVISA.Value = False And optMaster.Value = False And optDinheiro.Value = False Then
MsgBox ("Voce não escolheu a forma de Pagamento - VISA / MASTER / DINHEIRO")
ElseIf chkDesistencia.Value = False Then
MsgBox ("Voce não assinalou o termo de desistencia!")
ElseIf chkTermos.Value = False Then
MsgBox ("Voce não assinalou o termo de serviço!")
Else
Dim preco As Currency
preco = 50
If lstDestino.Text = "Belo Horizonte" Then
preco = preco + 100
ElseIf lstDestino.Text = "Brasília" Then
preco = preco + 180
ElseIf lstDestino.Text = "Curitiba" Then
preco = preco + 80
ElseIf lstDestino.Text = "Florianopolis" Then
preco = preco + 120
ElseIf lstDestino.Text = "Porto Alegre" Then
preco = preco + 150
ElseIf lstDestino.Text = "Salvador" Then
preco = preco + 200
End If
If LstEmpresa.Text = "TAM" Then
preco = preco + 20
ElseIf LstEmpresa.Text = "GOL" Then
preco = preco + 15
ElseIf LstEmpresa.Text = "AZUL" Then
preco = preco + 10
ElseIf LstEmpresa.Text = "AIR" Then
preco = preco + 30
ElseIf LstEmpresa.Text = "WEBJET" Then
preco = preco + 5
End If
If optEconomica.Value = True Then
preco = preco * 0.85
ElseIf optExecutiva.Value = True Then
preco = preco * 1.15
End If
If optVISA.Value = True Then
preco = preco - (preco * 0.1)
ElseIf optMaster.Value = True Then
preco = preco - (preco * 0.05)
End If
If chkIdaVolta.Value = True Then
preco = preco * 2
End If
FormatCurrency (preco)
MsgBox ("Viagem Agendada com Sucesso. O valor ficou em " & FormatCurrency(preco))
Dim plan As Worksheet
Dim line As Integer
Set plan = Worksheets("Viagens Agendadas")
With plan
line = .UsedRange.Rows.Count + 1
.Cells(line, 1).Value = txtNome
.Cells(line, 2).Value = txtCPF
.Cells(line, 3).Value = cmbPartida
.Cells(line, 4).Value = lstDestino
.Cells(line, 5).Value = LstEmpresa
If chkIdaVolta.Value = True Then
Cells(line, 6).Value = "Sim"
Else
Cells(line, 6).Value = "Não"
End If
If optComum.Value = True Then
Cells(line, 7).Value = "COMUM"
ElseIf optEconomica.Value = True Then
Cells(line, 7).Value = "ECONOMICA"
ElseIf optExecutiva.Value = True Then
Cells(line, 7).Value = "EXECUTIVA"
End If
Cells(line,  .Value = preco
If optDinheiro.Value = True Then
Cells(line, 9).Value = "DINHEIRO"
ElseIf optVISA.Value = True Then
Cells(line, 9).Value = "VISA"
ElseIf optMaster.Value = True Then
Cells(line, 9).Value = "MASTER"
End If
End With
chkTermos.Value = False
chkDesistencia.Value = False
optVISA.Value = False
optMaster.Value = False
optDinheiro.Value = False
txtNome.Text = ""
txtCPF.Text = ""
LstEmpresa.Text = "TAM"
chkIdaVolta.Value = False
optComum.Value = False
optEconomica.Value = False
optExecutiva.Value = False
lstDestino.Text = "Belo Horizonte"
chkTermos.Enabled = False
chkDesistencia.Enabled = False
optVISA.Enabled = False
optMaster.Enabled = False
optDinheiro.Enabled = False
txtNome.Enabled = False
txtCPF.Enabled = False
LstEmpresa.Enabled = False
chkIdaVolta.Enabled = False
End If
End Sub
Private Sub ButCalcular_Click()
Dim preco As Currency
preco = 50
If lstDestino.Text = "Belo Horizonte" Then
preco = preco + 100
ElseIf lstDestino.Text = "Brasília" Then
preco = preco + 180
ElseIf lstDestino.Text = "Curitiba" Then
preco = preco + 80
ElseIf lstDestino.Text = "Florianopolis" Then
preco = preco + 120
ElseIf lstDestino.Text = "Porto Alegre" Then
preco = preco + 150
ElseIf lstDestino.Text = "Salvador" Then
preco = preco + 200
End If
If LstEmpresa.Text = "TAM" Then
preco = preco + 20
ElseIf LstEmpresa.Text = "GOL" Then
preco = preco + 15
ElseIf LstEmpresa.Text = "AZUL" Then
preco = preco + 10
ElseIf LstEmpresa.Text = "AIR" Then
preco = preco + 30
ElseIf LstEmpresa.Text = "WEBJET" Then
preco = preco + 5
End If
If optEconomica.Value = True Then
preco = preco * 0.85
ElseIf optExecutiva.Value = True Then
preco = preco * 1.15
End If
If optVISA.Value = True Then
preco = preco - (preco * 0.1)
ElseIf optMaster.Value = True Then
preco = preco - (preco * 0.05)
End If
If chkIdaVolta.Value = True Then
preco = preco * 2
End If
lblMsg.Caption = "O valor ficou em " & FormatCurrency(preco)
End Sub
Private Sub chkDesistencia_Click()
End Sub
Private Sub chkIdaVolta_Click()
End Sub
Private Sub lstDestino_Change()
End Sub
Private Sub LstEmpresa_Click()
If LstEmpresa.Text = "" Then
txtNome.Enabled = False
Else
txtNome.Enabled = True
End If
End Sub
Private Sub chkTermos_Click()
End Sub
Private Sub optComum_Click()
chkIdaVolta.Enabled = True
LstEmpresa.Enabled = True
End Sub
Private Sub optDinheiro_Click()
chkDesistencia.Enabled = True
chkTermos.Enabled = True
End Sub
Private Sub optEconomica_Click()
chkIdaVolta.Enabled = True
LstEmpresa.Enabled = True
End Sub
Private Sub optExecutiva_Click()
chkIdaVolta.Enabled = True
LstEmpresa.Enabled = True
End Sub
Private Sub optMaster_Click()
chkDesistencia.Enabled = True
chkTermos.Enabled = True
End Sub
Private Sub optVISA_Click()
chkDesistencia.Enabled = True
chkTermos.Enabled = True
End Sub
Private Sub txtCPF_Change()
If txtCPF.Text = "" Then
optVISA.Enabled = False
optMaster.Enabled = False
optDinheiro.Enabled = False
Else
optVISA.Enabled = True
optMaster.Enabled = True
optDinheiro.Enabled = True
End If
End Sub
Private Sub txtNome_Change()
If txtNome.Text = "" Then
txtCPF.Enabled = False
Else
txtCPF.Enabled = True
End If
End Sub
Private Sub UserForm_Click()
End Sub
ele ta todo bagunçado e nem eh uma versão final. mas eh isso. amanha a noite estarei on. farei um trabalho tb, mas eh mais simples. | |
|
| | |
gordinho
Membro Red
N Points : 671
Em Atividade nos Jogos: : Pangya
Reputação : 7
Data de nascimento : 17/08/1994
Data de inscrição : 12/11/2011
Idade : 29
Localização : Sao Paulo Interlagos ' zona sul '
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Ter Jun 11, 2013 5:00 pm | |
| Resultado do meu ultimo jogo Ontem com o mota (ate q fim KKK' )  Uploaded with ImageShack.us | |
|
| | |
NK(e30)DarK
Membro Nightkids VII
N Points : 5237
Em Atividade nos Jogos: : Pangya, Trackmania e Ragnarok
Reputação : 39
Data de nascimento : 14/06/1989
Data de inscrição : 06/02/2010
Idade : 34
Localização : Itaquaquecetuba-SP
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Seg Ago 26, 2013 8:33 am | |
| Então, vamos continuar esse torneio? O unico inativo agora é o Odd e o Tristan, mas isso pode ser facilmente resolvido, uma vez que podemos dar W.O. nos demais jogos ou mesmo substitui-los.
Não podemos "manchar" o nome do Thi com um torneio incompleto. | |
|
| | |
BraKe
Capitão de Equipe
N Points : 2606
Em Atividade nos Jogos: : PangYa
Reputação : 8
Data de nascimento : 27/10/1993
Data de inscrição : 29/10/2010
Idade : 30
Localização : São Paulo
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Seg Ago 26, 2013 2:04 pm | |
| Bom...como eu postei anteriormente, só me dizer um horário qualquer que estou disponível pra jogar...o fds qualquer horario e durante a semana, antes das 16hrs... | |
|
| | |
DedeeH(e64)
Coach
N Points : 2414
Em Atividade nos Jogos: : Pangya
Reputação : 17
Data de nascimento : 14/04/1993
Data de inscrição : 09/04/2010
Idade : 31
Localização : Marilia - SP
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED Seg Ago 26, 2013 3:16 pm | |
| Bora colocar isso pra funcionar estou jogando todos os dias ^^ soh marcar | |
|
| | |
Conteúdo patrocinado
| | Assunto: Re: Silvia Cannon Cup - TAÇA THIMED | |
| |
|
| | |
| | Silvia Cannon Cup - TAÇA THIMED | |
|
