AJUDA EM: CALCULADORA VB2008

ROCKGUY 14/04/2012 21:11:05
#399893
Alguem pode me ajudar em uma calculadora que eu estou fazendo no visual basic ?

ai vai uma print dela:


como vcs podem perceber, ela nao eh uma calculadora comum, ela vai servir para fazer codigos:
exemplo:. [ô]Clicando em H-O-J-E ira aparecer 8-15-10-5, os numeros serão os codigos para eu me comunicar com alguem,
PS:talvez mudarei as letras para numeros, tornando o codigo mais dificil !

oque eu quero é, quando clicar em [Ô]A[Ô], aparecer no TextBox, [Ô]1[Ô], e assim sucessivamente

eu sei q eh facil, soq eu comecei hj no Visual Basic 2008

#Sou novo aqui no forum XD
ROBIU 15/04/2012 09:53:54
#399903
Esta é a função:

 Function LetraIndex(ByVal Caracter As Char) As Integer
        Dim Letra() As String = {[Ô]A[Ô], [Ô]B[Ô], [Ô]C[Ô], [Ô]D[Ô], [Ô]E[Ô], [Ô]F[Ô], [Ô]G[Ô], [Ô]H[Ô], [Ô]I[Ô], [Ô]J[Ô], [Ô]K[Ô], [Ô]L[Ô], [Ô]M[Ô], [Ô]N[Ô], [Ô]O[Ô], [Ô]P[Ô], [Ô]Q[Ô], [Ô]R[Ô], [Ô]S[Ô], [Ô]T[Ô], [Ô]U[Ô], [Ô]V[Ô], [Ô]W[Ô], [Ô]X[Ô], [Ô]Y[Ô], [Ô]Z[Ô]}
        For i As Integer = 1 To Letra.Length + 1
            If Letra(i - 1) = Caracter Then
                Return i
                Exit For
            End If
        Next

    End Function


No Button1_Click, por exemplo, coloca isso:

TextBox1.Text = IIf(TextBox1.Text = [Ô][Ô], LetraIndex(Button1.Text), TextBox1.Text & [Ô]-[Ô] & LetraIndex(Button1.Text))


E coloca igual em todos Buttons, menos o Button Separador (O último), que não será necessário e pode ser substituído por um ButtonOk, ou ButtonTransferir, por exemplo.

[txt-color=#0000f0]DICAS: [/txt-color]
1. Regras do Fórum
2. Na hora de criar um tópico, coloque a compatibilidade correta. VB2008 é VB.NET. Isso facilita as respostas.
ROCKGUY 15/04/2012 12:09:24
#399913
Obrigado Ajudou muito !!!

Thank You Very Much Rsrrsrsrrsrs
ROCKGUY 15/04/2012 19:52:52
#399924
Amigo, o codigo esta meio errado, quando coloco ele no botão 2, ele continua colocando o numero 1, oq fazer ?
ROBIU 15/04/2012 20:00:12
#399926
Posta o código que você colocou no button2. será que você renomeou para ficar assim:

TextBox1.Text = IIf(TextBox1.Text = [Ô][Ô], LetraIndex([txt-color=#e80000]Button2.Text[/txt-color]), TextBox1.Text & [Ô]-[Ô] & LetraIndex([txt-color=#e80000]Button2.Text[/txt-color]))

Se não renomear ele vai verificar o index do Text do Button1. Você deve renomear para todos buttons.
FEDERHEN 16/04/2012 08:15:50
#399939
Este tópico está com classificação errada !!!
Tópico encerrado , respostas não são mais permitidas
Voltar