Pesquisar na Comunidade
Mostrando resultados para as tags ''vb2010''.
Encontrado 3 registros
-
como posso obter o tempo entre as frames de GIF's animados?
-
ao usar a propriedade TransparentKey(não entendi o motivo deste termo), eu meto a janela\form transparente. ao executar o programa: se maximizar, tudo normal. mas depois restaurar, eu perco o controlo da borda e barra de titulo. ao clicar nessas areas, a janela perde o focus(activando a janela que esta por tras). como posso evitar esse erro?
-
bom dia fiz esse código ele executado tudo mas quando digito a idade ele fecha gostaria de uma forcinha. Module Module1 Sub Main() Dim nome, endereco, telefone, cpf As String Dim idade As Integer Console.WriteLine("Seja bem Vindo....") Console.WriteLine("Para continuar escolha uma opção....") Console.WriteLine("1 - Para novo cadastro") Console.WriteLine("2 - Para Mensalidade") Console.WriteLine("3 - Para Sair") Dim opcao As Integer = Console.ReadLine() If opcao = 1 Then Console.WriteLine("Digite seu nome:") nome = Console.ReadLine() Console.Write("Digite seu cpf:") cpf = Console.ReadLine() Console.Write("Digite seu endereço:") endereco = Console.ReadLine() Console.Write("Digite seu telefone:") telefone = Console.ReadLine() Console.Write("Digite sua idade") idade = Console.ReadLine() Select Case idade Case 3 a 12 Console.WriteLine(nome + " Foi Cadastrado na modalidade Infantil, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais") Console.ReadKey() Case 13 a 17 Console.WriteLine(nome + " Foi Cadastrado na modalidade Juvenil, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais") Console.ReadKey() Case 18 a 100 Console.WriteLine(nome + " Foi Cadastrado na modalidade Adulto, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais") Console.ReadKey() End Select ElseIf opcao = 2 Then Console.WriteLine("Digite seu nome:") nome = Console.ReadLine() Console.Write("Digite seu cpf:") cpf = Console.ReadLine() Console.Write("O pagamento da mensalidade é de R$100.00 (cem reais) " + nome) Console.ReadKey() ElseIf opcao = 3 Then Console.WriteLine("Xau xau xau xau") Console.ReadKey() End If End Sub End Module
-
- vb
- visualbasic
-
(e %d mais)
Tags: