Grand Chase Worlds

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Bem-Vindo a GC World !


    [VB] Fazendo calculadora! IMPERDIVEL

    Skeletoon Surf
    Skeletoon Surf
    [E] Estágiario
    [E] Estágiario


    Mensagens : 35
    Data de inscrição : 23/03/2011

    [VB] Fazendo calculadora! IMPERDIVEL Empty [VB] Fazendo calculadora! IMPERDIVEL

    Mensagem por Skeletoon Surf Dom Mar 27, 2011 12:09 pm

    [b]Conteudo do Topico
    1.Calculadora com 5 funcoes
    2.Botoes que abrem sites ou programas


    Primeiramente abra o seu Vb(Virtual Basic) Va em New Project e depois em windows application Como na imagem abaixo
    [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

    Depois Va em toolbox e adicione 3 textbox e 5 button, Exatamente como na imagem abaixo
    [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

    Agora vamos Nomear os botoes, clik uma vez no botao 1 e caso vc nao tenha uma janelinha do lado do programa chamada properties aperte f4.
    Na janelinha procure text e muda esse text para + e de enter omo na imagem abaixo
    [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

    Faca isso como todos os botoes sendo que
    Button1=+
    Button2=-
    Button3=*
    Button4=/
    Button5=^ ou seja:Potenciacao

    Agora vem a parte dificil

    Fassa assim : Clik 2 Vezes no botao +

    Nao clik agora so escreve ond ta a seta piscando

    Copie e cole o seguinte codigo:

    If Button1.Enabled = True Then TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]


    Agora vou postar os outros codigo , para voltar clique em form1.vb design nas abas em cima

    Button 2 (-)code:

    If Button2.Enabled = True Then TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

    Button 3(*) code:

    If Button3.Enabled = True Then TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

    Button 4(/) code:

    If Button4.Enabled = True Then TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

    Button 5(^) Code:

    If Button5.Enabled = True Then TextBox3.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)


    Agora Teste , Clik no play la em cima e teste
    no textbox1 coloque um numero
    No 2 coloque outro
    Clik em + ou - ou * ou / ou ^ e veja o resultado no 3
    Se Vc quiser rodar como .exe
    Salve no botao salve all e dps clik em build e build..... e vai na pasta e procura o .exe

    Alguma Duvida??, Comente
    Algum erro ?? , Corrija

      Tópicos semelhantes

      -

      Data/hora atual: Sex Nov 22, 2024 8:04 am