Começando no VB

[ruinas 0]

Ola pessoal eu sou programador em asp e quero começar com o VB.Eu fiz um programa aqui um Calculadora e ela nao mostra o resultado, o não há erros tambem, pode ser mais um erro de lógica minha, mais hoje é meu primeiro dia com VB.O Script esta abaixo:Private Sub ce_Click(Index As Integer)Text1.Text = ""End SubPrivate Sub cinco_Click(Index As Integer)Text1.Text = Text1.Text + "5"End SubPrivate Sub Divisao_Click(Index As Integer)valor = Val(Text1.Text)operacao = "divisao"Text1.Text = ""End SubPrivate Sub dois_Click(Index As Integer)Text1.Text = Text1.Text + "2"End SubPrivate Sub finalizar_Click(Index As Integer)EndEnd SubPrivate Sub Form_Load()MsgBox ("Seja bem vindo ao Ruinas Calculator!"), vbInformationEnd SubPrivate Sub Form_Unload(Cancel As Integer)MsgBox ("Obrigado por usar o nosso Software!"), vbInformationEnd SubPrivate Sub iqual_Click(Index As Integer)Select Case operacaoCase "soma"valor = Val(valor) + Val(Text1.Text)operacao = "subtracao"Text1.Text = Val(valor) + Val(Text1.Text)Case "subtracao"valor = Val(valor) - Val(Text1.Text)Case "multiplicao"valor = valor(valor) * Val(Text1.Text)Case "divisao"valor = Val(valor) / Val(Text1.Text)End SelectText1.Text = Str(valor)End SubPrivate Sub multiplicacao_Click(Index As Integer)valor = Val(Text1.Text)operacao = "multiplicacao"Text1.Text = ""End SubPrivate Sub nove_Click(Index As Integer)Text1.Text = Text1.Text + "9"End SubPrivate Sub oito_Click(Index As Integer)Text1.Text = Text1.Text + "8"End SubPrivate Sub quatro_Click(Index As Integer)Text1.Text = Text1.Text + "4"End SubPrivate Sub seis_Click(Index As Integer)Text1.Text = Text1.Text + "6"End SubPrivate Sub sete_Click(Index As Integer)Text1.Text = Text1.Text + "7"End SubPrivate Sub soma_Click(Index As Integer)valor = Val(Text1.Text)operacao = "soma"Text1.Text = ""End SubPrivate Sub subtracao_Click(Index As Integer)valor = Val(Text1.Text)operacao = "subtracao"Text1.Text = ""End SubPrivate Sub tres_Click(Index As Integer)Text1.Text = Text1.Text + "3"End SubPrivate Sub um_Click(Index As Integer)Text1.Text = Text1.Text + "1"End SubPrivate Sub zero_Click(Index As Integer)Text1.Text = Text1.Text + "0"End SubSe alguem puder dar uma ajuda eu fico grato...

[ruinas 0]

eu nao sou nenhum expert em VB para entender o codigo que mandou eu ver, eu so quero uma ajuda com o que eu postei

[_yky_ 0]

Oi...

Eu estava olhando sua logica e fiquei meio confuso, você poderia me mandar o fonte para eu dar uma olhadinha?

 

Eu achei que você usou muita coisa que não precisava mas para ter certeza eu precisaria ver todo o seu projeto.

 

meu e-mail

 

jr.service@pop.com.br

msn yky_1982@hotmail.com http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Veber 0]

tira a funcao STR(Valor)use CSTR(Valor) para converter para texto,