Calculadora en Visual Basic

Aquí os dejo un programita hecho por mi en Visual Basic.
Es una calculadora bastante sencilla, que para los que quieran aprender Visual Basic les vendra bien.

Os adjunto el codigo fuente para el que quiera probarlo y modificarlo:

----------Calculadora-----------------
Private Sub Command1_Click()
res.Text = Val(num1.Text) + Val(num2.Text)
oper.Text = Val(oper.Text) + 1
End Sub

Private Sub Command2_Click()
res.Text = Val(num1.Text) - Val(num2.Text)
oper.Text = Val(oper.Text) + 1
End Sub

Private Sub Command3_Click()
res.Text = Val(num1.Text) * Val(num2.Text)
oper.Text = Val(oper.Text) + 1
End Sub

Private Sub Command4_Click()
If Val(num2.Text) > 0 Then
res.Text = Val(num1.Text) / Val(num2.Text)
oper.Text = Val(oper.Text) + 1
End If
End Sub

Private Sub Command5_Click()
Close
End Sub

Private Sub Timer1_Timer()
hora.Caption = Time
fecha.Caption = Date
End Sub
------------------------------------

Aquí el link para bajarla:

Calculadora v.1.1


Me gustaria que si alguien hace modificaciones me dejara algún comentario y posteara el codigo y así aprenderemos todos.

Un saludo!!

Francia utilizará listas negras contra los usuarios del P2P

Hoy en la página de El País aparece una mala noticia para los usuarios de p2p de Francia.
Dejo aquí la noticia integra:

El país vecino también anda a la gresca con sus internautas. Aquí el canon digital, allí listas negras. Nicolás Sarkozy ha anunciado medidas contra el uso de programas P2P, que pueden acarrear incluso la suspensión del servicio al internauta. Para evitar que el usuario suspendido cambie de operador; habrá listas negras.

La noticia ha sido tratada en más de un sitio, los bloggers han utilizado palabras como "acoso", "persecución" o "medida excesiva" para describir una situación que puede crear un precedente de cara a unas elecciones generales en las que los dos grandes partidos españoles defienden una política distinta respecto al canon digital. Aunque la medida francesa pueda parecer lejana, lo cierto es que España el P2P está en el punto de mira de la SGAE desde hace algún tiempo. El método francés se puede resumir en seis pasos que explica Adslnet.es:

1.Auotrité de Régulation Des Mesures Techniques (ARMT), el homólogo a la SGAE, detecta la presunta ilegalidad y envía una notificación al proveedor.

2.Si el usuario persiste en descargar archivos se enviará una nueva notificación al ISP, el propio operador se pondrá en contacto con el cliente para que cese su actividad.

3.Si el usuario insiste en su comportamiento, el ISP dispone de 6 meses de plazo para suspenderle el servicio durante un mes.

4.Si concluido el período de suspensión el usuario reincidiera, el ISP bloquearía su cuenta durante un año.

5.Para evitar la picaresca de que el usuario pueda contratar otro servicio de internet con otro operador (ISP) el organismo regulador francés (ARMT) mantendrá listas negras de los usuarios sancionados.

6.Si el usuario se considera perjudicado podrá acudir a un Comité de arbitraje que creará la propia Fundación. Aunque el usuario también puede acudir a la justicia ordinaria para defender su causa.

Para los que les gusta el p2p como a mí esperaremos que estas leyes no se impanten también en españa.

Un saludo!

Hola!!

Hoy estreno este blog. Espero que no me canse de actualizar y que os gusten las cosas que os iré dejando.
Para estrenar el blog una peli de estreno que estoy deseando ver, "Jumper".

La película trata sobre un joven que está recibiendo maltratos en un hogar de acogida descubre que tiene poderes para teletransportarse de un lugar a otro. Usará su habilidad para intentar descubrir al que cree responsable de la muerte de su madre, pero llamará la atención de la Agencia de Seguridad Nacional, y de otro joven con los mismos poderes...

Como aún no está en los cines os dejo un pequeño trailer para que os hagáis una idea.

Un saludo!!