elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Temas
Páginas: [1]
1  Media / Diseño Gráfico / [Wallpaper Battleart] Carloswaldo Vs Goldmoon en: 23 Julio 2008, 21:28 pm
Pues eso, cuando la haga la pongo y cuando pongas la tuya edito y tambien la pongo.

Tipo: Wallpaper
Tamaño: 1280 x 800 (pa que quepa en mi pantalla xD)
Tema: Música.
Fecha: 1 semana desde ya.
2  Media / Diseño Gráfico / Quiero un reto en: 23 Julio 2008, 18:49 pm
Pues eso, busco darme de ostias a firmazo limpio. Quien quiera que ponga los limites el tema y demas...
3  Programación / Programación Visual Basic / Necesito ayuda encontrar codigo/programa en: 19 Mayo 2008, 00:46 am
Hola, hace unos dias creo que vi por aqui un tema de alguien que posteaba un programa para mandar mensajes de un pc a otro en una red y su respectivo código, pero no lo encuentro. A ver si alguien sabe de que estoy hablando y me puede echar una manita.

Gracias.

Encontrado...
Borrad o cerrad o lo que veais..  :-[
4  Foros Generales / Sugerencias y dudas sobre el Foro / Añadir norma en: 21 Enero 2008, 21:39 pm
Bueno, no se si estara ya como norma, ya que no encuentro el post de normas :xD :¬¬ Pero una sugerencia es que por norma no se pueda contestar a post que en el título lleven "AYUUUUDAAAAAAAAAAAA!!!!!" , ya que son MUY irritantes y no me gusta ni que me griten, ni que me manden.
5  Media / Juegos y Consolas / Ping Cs en: 20 Enero 2008, 19:55 pm
Tengo una conexion de 2.5mb de descarga y 0.5 mg de subida , sin embargo me sale un ping de 200... ¿Por que? ;D
6  Programación / Programación Visual Basic / Ayuda calculadora. en: 26 Diciembre 2007, 13:09 pm
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:
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:
Variable local sin utilizar: 'StrOper'.
Variable local sin utilizar: 'LangValor'.

Código:
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.
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines