Mensajes

¿Lo que esta en negro es un anuncio subliminal o algo?

Pone "Chicheta, Chincheta" ... 

Ademas , ¿Que es un .zip.html?


Ademas, solo te contesta uno, que casualmente solo se ha registrado para decirte a ti lo wapo que eres 

Hola, estoy empezando en esto y necesito ayuda en un ejercicio, consiste en hacer una calculadora con VB, es de HxC. Se supone que la he terminado, pero me salen muchos errores con las variables StrOper y LongValor. Dejo el código y los errores. A ver si alguien me puede ayudar.

Código [Seleccionar] Expandir

Public Class Calculadora

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim StrOper As String
        Dim LngValor As Long


    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Cmd0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd0.Click
        TextBox1.Text() = TextBox1.Text & "0"
    End Sub

    Private Sub Cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd1.Click
        TextBox1.Text() = TextBox1.Text & "1"
    End Sub

    Private Sub Cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd2.Click
        TextBox1.Text = TextBox1.Text & "2"
    End Sub

    Private Sub Cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd3.Click
        TextBox1.Text = TextBox1.Text & "3"
    End Sub

    Private Sub Cmd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd4.Click
        TextBox1.Text = TextBox1.Text & "4"
    End Sub

    Private Sub Cmd5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd5.Click
        TextBox1.Text = TextBox1.Text & "5"
    End Sub

    Private Sub Cmd6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd6.Click
        TextBox1.Text = TextBox1.Text & "6"
    End Sub

    Private Sub Cmd7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd7.Click
        TextBox1.Text = TextBox1.Text & "7"
    End Sub

    Private Sub Cmd8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd8.Click
        TextBox1.Text = TextBox1.Text & "8"
    End Sub

    Private Sub Cmd9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd9.Click
        TextBox1.Text = TextBox1.Text & "9"
    End Sub

    Private Sub Cmdmas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmdmas.Click
        StrOper = "+"
        LngValor = TextBox1.Text
        TextBox1.Text = ""
    End Sub

    Private Sub Cmdmenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmdmenos.Click
        StrOper = "-"
        LngValor = TextBox1.Text
        TextBox1.Text = ""
    End Sub

    Private Sub Cmdpor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmdpor.Click
        StrOper = "*"
        LngValor = TextBox1.Text
        TextBox1.Text = ""
    End Sub

    Private Sub Cmdentre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmdentre.Click
        StrOper = "/"
        LngValor = TextBox1.Text
        TextBox1.Text = ""
    End Sub

    Private Sub CmdIgual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdIgual.Click
        If StrOper = "+" Then
            TextBox1 = LngValor + TextBox1.Text
        End If
        If StrOper = "-" Then
            TextBox1 = LngValor - TextBox1.Text
        End If
        If StrOper = "*" Then
            TextBox1 = LngValor * TextBox1.Text
        End If
        If StrOper = "/" Then
            TextBox1 = LngValor / TextBox1.Text
        End If
    End Sub
End Class

Errores

Código [Seleccionar] Expandir


Variable local sin utilizar: 'StrOper'.
Variable local sin utilizar: 'LangValor'.


Código [Seleccionar] Expandir


No se ha declarado el nombre 'StrOper'.
No se ha declarado el nombre 'LangValor'.


Estos dos ultimos salen mucho, por cada vez que uso esas variables.

Roma Total War esta exageradisimo. Y cambiando de tema, aunque dentro de la estrategia, esta el Sim City 4.

El Societies va despues del 4 pero es una ***** comprado con el 4.

Toma, esto me sirvio a mi de mucho.

http://www.illasaron.com/tele/php.htm

muchas gracias, me es muy útil.

Queda genial, por cierto, creo que alli estuve yo xD ¿Es la opera de paris o algo de eso?

No te he aclarado nada, yo tambien quiero que me lo aclaren xD

Nose por que situa a todo el mundo en Amsterdam xDD a mi tambien , y he mirado en google y mucha otra gente tambien.

Exactamente.