Tutoriales, peliculas y mas.: octubre 2016

martes, 25 de octubre de 2016

Como conectar una base de datos de SQL server en visual basic

Hola amigos espero que estén teniendo un excelente día, hoy les enseñare como crear una conexion a su base de datos ya creada en SQL server 2008 0 2010 para que se guarden directamente los datos que ingresemos en visual basic.

Bien empezamos creando una clase en mi casa yo le llame conexion, una ves que tengamos creada la
clase tecleamos el siguiente código.

Imports System.Data.SqlClient (Importamos la libreria de sql para que puede establecerce la conexion)
Public Class conexion (Clase creada ya mencionada)
Protected cnn As New SqlConnection (Creamos una variable de tipo sqlconnection)
Protected idusuario As Integer
Public Function conectado() (Creamos una función publica en este caso le llame conectado)
Try
cnn = New SqlConnection("data source=(local);initial catalog=db-asistencia;integrated security=true") (Inicialicemos la conexion data source es de que manera esta tu BD en mi caso es local, Initial catalogo ahi pondremos el nombre tal cual esta nuestra BD en SQL server y por ultimo tecleamos securiry = true)

cnn.Open() (Abrimos la conexion)
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
Public Function desconectado()
(Ponemos en un try y cacth para que nos mande un mensaje del error)
Try
If cnn.State = ConnectionState.Open Then
cnn.Close()
Return True
Else
Return False
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function

End Class

Y con esto seria todo amigos muchas gracias !

jueves, 20 de octubre de 2016

Como hacer una sopa de letras en Java

Hola amig@s espero que estén teniendo un muy buen día hoy les presentare un programa en java lo desarrolle con el compilador de netbeans, bueno el programa en si trata de un entretenido juego el ya famosisimo sopa de letras. el usuario tendrá que teclar una palabra en español y otra en ingles, automaticamente se capturara y asomara una sopa de letras donde tenemos que buscar la palabra que ingresamos entre todas las palabras que se encuentran, cabe recordar que tecleamos 2 palabras una en español y otra en ingles, así que las 2 palabras se encontraran revueltas en la sopa de letras,solo basta con buscarlas.

Bien este es un programa muy complejo te puede ayudar como algún proyecto, una tarea o simplemente pasarte el rato jugando este entretenido juego.

Bien tecleamos el siguiente código:

Creamos un nuevo proyecto llamado sopa

package sopa;
Importamos las librerías que nos van a servir
el J0ptionpane es para sacar una ventana para poder teclear la palabra

import javax.swing.JOptionPane;
import java.util.Random;
public class Sopa {
public static void main(String[] args) {
juego jsdel=new juego();
String pala= new String("MAESTRO");
String pala2= new String("TEACHER");
char alfab[ ] = {'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'};
char[][] sopa = new char[10][10];
String opciones;opciones="0";
int opci2;opci2=0;
while (opci2<3){
System.out.println("");
System.out.println("1. NUEVA PALABRA");
System.out.println("2. BUSQUEDA");
System.out.println("3. SALIR");
System.out.println("");
opciones=JOptionPane.showInputDialog(null,"Teclee la opcion","SOPA DE LETRAS",JOptionPane.QUESTION_MESSAGE);
opci2=Integer.parseInt(opciones);
switch (opci2){
case 1:{
pala=jsdel.asignar(pala);
pala2=jsdel.asignar2(pala2);
break;
}
case 2:{
jsdel.buscar(sopa, alfab, pala, pala2);
break;
}
case 3:{
JOptionPane.showMessageDialog(null, "Gracias por jugar");
break;
}
}

}
}

static class juego{
public String asignar(String pala3){
pala3=JOptionPane.showInputDialog(null,"Palabra en Español","SOPA DE LETRAS",JOptionPane.QUESTION_MESSAGE);
pala3=pala3.toUpperCase();
return (pala3);
}
public String asignar2(String pala4){
pala4=JOptionPane.showInputDialog(null,"Significado en Ingles","SOPA DE LETRAS",JOptionPane.QUESTION_MESSAGE);
pala4=pala4.toUpperCase();
return (pala4);
}
public void buscar(char[][] sopa2, char[] alfab2, String pala3, String pala4){
String opcion, opcion2;
Random r = new Random();
int x,i,j,p,b;
p=0;b=0;
b=r.nextInt(3);
for (i=0; i<10; i++)
for (j=0;j<10;j++){
x= r.nextInt(26);
sopa2[j][i]=alfab2[x];
}
if (b==0) {
x= r.nextInt(3);
for (i=0; i<pala3.length(); i++){
p=p+1;
sopa2[x+p][i]=pala3.charAt(i);
}
}
if (b==1) {
x= r.nextInt(6);
for (i=0; i<pala3.length(); i++){
p=p+1;
sopa2[x][p]=pala3.charAt(i);
}
}
if (b==2) {
x= r.nextInt(6);
for (i=0; i<pala3.length(); i++){
p=p+1;
sopa2[p][x]=pala3.charAt(i);
}
}
if (b==3) {
x= r.nextInt(6);
for (i=0; i<pala3.length(); i++){
p=p+1;
sopa2[i][x+p]=pala3.charAt(i);
}
}
for (i=0; i<10; i++){
for (j=0; j<10; j++)
System.out.print(sopa2[j][i]+" ");
System.out.println();
}

opcion=JOptionPane.showInputDialog(null,"Palabra buscada","SOPA DE LETRAS",JOptionPane.QUESTION_MESSAGE);
opcion=opcion.toUpperCase();
if (opcion.equals(pala3)){
opcion2=JOptionPane.showInputDialog(null,"Traduccion","SOPA DE LETRAS",JOptionPane.QUESTION_MESSAGE);
opcion2=opcion2.toUpperCase();
if (opcion2.equals(pala4))
JOptionPane.showMessageDialog(null,"Respuesta correcta ","SOPA DE LETRAS",JOptionPane.INFORMATION_MESSAGE );
else
JOptionPane.showMessageDialog(null,"Respuesta incorrecta ","SOPA DE LETRAS",JOptionPane.INFORMATION_MESSAGE );
}
else
JOptionPane.showMessageDialog(null,"Palabra no encontrada " );
}

}
}

Y solo resta nada mas que divertirse! saludos..

Descarga el proyecto aquí:
https://ouo.io/dUaXfz

miércoles, 19 de octubre de 2016

Como hacer un cronometro en visual basic

Muy buen día estén teniendo amigos bienvenidos una ves mas hoy veremos como realizar un cronometro en visual basic
para comenzar tenemos que diseñar un ventana o un form que quede mas o menos así:

para empezar a diseñar el cronometro nescesitaremos de una herramienta llamada timer lo podemos buscar en el cuadro de herramientas de nuestro lado izquierdo, nos vamos a componentes y de ahí en la parte de abajo se encuentra el timer lo seleccionamos y automaticamente se pondrá en nuestro proyecto.

ya que tengamos habilitado el timer lo seleccionamos dando un clic y nos vamos a las propiedades que se encuentra de lado derecho, concretamente en donde dice intervalo, ahí le pondremos 1000

Posteriormente le damos doble clic al timer y pondremos el siguiente código

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Nota los ceros que están en el form son labels
Timer 1 es la clase o el nombre que da por defecto al añadir el componente timer
Timer1.Interval = 10
Label4.Text += 1
If Label4.Text = "60" Then
Label3.Text += 1
Label4.Text = 0
End If
If Label3.Text = 60 Then
Label2.Text += 1
Label3.Text = 0
End If

'If Label2.Text = 60 Then
'Label1.Text += 1
'Label4.Text = 0
'End If
End Sub

Hacemos doble clic en el botón iniciar de nuestro botón del formulario y inicialicemos el timer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Hacemos doble clic en el botón de detener de nuestro formulario y pondremos lo siguiente:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub

Hacemos doble clic en el botón de reiniciar y ponemos lo siguiente:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = "0"
Label2.Text = "00"
Label3.Text = "00"
Label4.Text = "0"
End Sub

Descarga el proyecto aquí:
http://kudoflow.com/2Jdt

Y con esto seria todo ponga lo en practica y verán!! hasta la próxima saludos amigos!.

Metodo congruencial no lineal en visual basic - Numero aleatorios

Hola amigos bienvenidos una ves mas a mi blog, hoy sera el ultimo método que les presentare del proyecto de números aleatorios en visual basic en su versión 2010 y 2012, Números aleatorios es un tema que se ve en la carrera de sistemas computacionales concretamente en inteligencia artificial, realizando ejercicios de libros algunos fáciles y otros complejos,¿ pero pasarlo a un lenguaje de programacion? si es posible como muchos demás problemas que nos marcan en nuestras escuelas solo es cuestión de analizar y plantear bien como pasarlo o plasmarlo en un lenguaje de programacion.

Comenzamos creando una ventana o interfaz como quiera llamarla en visual basic, la ventana deberá quedar mas o menos así:

Claro cada quien creara la ventana a su gusto y creatividad.

Para este ejemplo se nesecitaran 8 textbox y 3 botones

En el botón generar pondrán el siguiente código:
Public Class ventanaACNL

Private Sub Gcm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click
Utilizaremos 4 variables 1 tipo integer o entero, otra tipo string o cadena y 2 de tipo double
Dim n_periodo As Integer
Dim semillita As String
Dim multiplicar As Double
Dim nuevo_multi As Double
'^ 2
Dim a As Double = texta.Text
Dim b As Double = textb.Text
Dim c As Double = textc.Text
Dim m As Double = textm.Text
Dim s As Double = semilla.Text

n_periodo = text1.Text
For i = 1 To n_periodo

semillita = semilla.Text
multiplicar = (a * s ^ 2 + b * s + c) Mod m
text4.Text = multiplicar

nuevo_multi = text4.Text
s = nuevo_multi
text3.Text = text3.Text & vbCrLf & "Periodo [" & i & "] " & text4.Text & ""
If i = n_periodo Then
Label1.Text = "Resultado:"
End If

Next i
End Sub
Botón que se encarga de salir
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()

End Sub
Botón que se encarga de limpiar el formulario
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
text1.Clear()
text3.Clear()
text4.Clear()
semilla.Clear()
texta.Clear()
textb.Clear()
textc.Clear()
textm.Clear()

End Sub
End Class

Con esto se finaliza todos los métodos de números aleatorios, cualquier duda me pueden escribir a mi correo electrónico el cual es

sleon_10@hotmail.com

Descarga el proyecto aquí
http://kudoflow.com/2JU2

saludos!!

Metodo congruencial multiplicativo en visual basic - Numeros aleatorios

Hola amigos espero tengan un excelente día, aquí la continuación de los números aleatorios en este caso sera el método congruencial multiplicativo.

Crean una ventana o interfaz como quieran llamarle parecida a esta:

Donde contendrá los numero de periodos, la semilla , y las dos constantes K y G

bien ahora en el botón generar pondrán el siguiente código:

los nombres de las variables son para el textbox numero de pedidos es text1, para el textbox semilla es semilla para el textbox k es textk, para el textbox G es testg, el textbox grande de en medio es text3 y por ultimo el textbox de abajo es text4
Public Class ventanaCmulti
Private Sub Gcm_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click
Utilizaremos 5 variables 1 de tipo integer y 4 de tipo double
Dim n_periodo As Integer
Dim multiplicar As Double
Dim nuevo_multi As Double
Dim a As Double
Dim m As Double
n_periodo = text1.Text
For i = 1 To n_periodo
a = 5 + 8 * textk.Text
m = 2 ^ textg.Text

multiplicar = (a * semilla.Text) Mod m
text4.Text = multiplicar

nuevo_multi = text4.Text
semilla.Text = nuevo_multi
text3.Text = text3.Text & vbCrLf & "Periodo [" & i & "] " & text4.Text & ""
If i = n_periodo Then
Label1.Text = "Resultado:"
End If
Next i
End Sub
Boton de limpiar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
text1.Clear()
text3.Clear()
text4.Clear()
semilla.Clear()
textk.Clear()
textg.Clear()

End Sub
Boton de salir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()

End Sub
End Class
Descarga el proyecto aquí:
https://ouo.io/QABD8X

Algoritmo lineal2 en visual basic - Numeros aleatorios

Hola amig@s, aquí la continuación de los números aleatorios en esta oportunidad sera el algoritmo lineal 2, utilizando otra formula.

Deberemos crear una ventana parecida a esta:

Utilizaremos 7 textbox y 3 botones

Ojo el numero de periodos es el text1, semilla es la semilla, k es textk, G es textg, constante(c) es constanteA, el cuadro de en medio es text3 y el texbox de abajo es text4

En el botón generar ponemos el siguiente código:
Public Class ventanaAL2

Private Sub Gcm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click
Utilizamos 1 variable de tipo integer y 6 variables de tipo double
Dim n_periodo As Integer
Dim multiplicar As Double
Dim nuevo_multi As Double
Dim a As Double
Dim m As Double
Dim m2 As Double
Dim result As Double
n_periodo = text1.Text
For i = 1 To n_periodo
a = 1 + 4 * textk.Text
m = 2 ^ textg.Text
m2 = m - 1

multiplicar = (a * semilla.Text + constanteA.Text) Mod m
text4.Text = multiplicar

nuevo_multi = text4.Text
semilla.Text = nuevo_multi
result = semilla.Text / m2

text3.Text = text3.Text & vbCrLf & "Periodo: [" & i & "] " & text4.Text & " result:" & result
If i = n_periodo Then
Label1.Text = "Resultado:"
End If
Next i
End Sub
Boton de salir
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()

End Sub
Boton de limpiar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
text1.Clear()
semilla.Clear()
constanteA.Clear()
text3.Clear()
text4.Clear()
textk.Clear()
textg.Clear()

End Sub
End Class

Descarga el proyecto aquí:
http://kudoflow.com/2JPC

martes, 18 de octubre de 2016

Algoritmo lineal en visual basic - Numeros aleatorios

Muy buen día amig@s, bienvenidos a mi blog, les presentare la continuación de los números aleatorios en este caso sera el algoritmo lineal.

Crean una ventana similar a esta:

Donde tendrás que poner 6 textbox y 3 botones

Ojo el text1 es el numero de periodos, semilla es la semilla, constanteM es constante(x), constanteA es constante(c) text3 es el cuadro de en medio y text4 el textbox te abajo (un poco revuelto en los nombres por eso la explicación a como se llaman los textbox en la ventana creada.

En el botón generar pondrán el siguiente código:

Public Class ventanaAL

Private Sub Gcm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click

Crean 5 variables 1 de tipo integer, otra de tipo string o cadena y 3 de tipo double

Dim n_periodo As Integer

Dim semillita As String

Dim multiplicar As Double

Dim nuevo_multi As Double

Dim divisor As Double

n_periodo = text1.Text

For i = 1 To n_periodo

semillita = semilla.Text

multiplicar = (constanteM.Text * semilla.Text + constanteA.Text) Mod 100

text4.Text = multiplicar

nuevo_multi = text4.Text

semilla.Text = nuevo_multi

divisor = text4.Text / 99

text3.Text = text3.Text & vbCrLf & "Periodo [" & i & "] " & text4.Text & " result: " & divisor

If i = n_periodo Then

Label1.Text = "Resultado:"

End If

Next i

End Sub

Boton de limpiar

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

text1.Clear()

semilla.Clear()

constanteM.Clear()

constanteA.Clear()

text4.Clear()

text3.Clear()

End Sub

Boton de salir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form1.Show()

Me.Hide()

End Sub

End Class
Descarga el proyecto aquí:
http://kudoflow.com/2JKJ

Multiplicador constante en visual basic - Numeros aleatorios

Muy buen día Amig@s, aquí la continuación de números aleatorios hoy sera el multiplicador constante.

Empezamos creando una ventana similar a esta:
:

Nesceitaremos 5 textbox y 3 botones, donde contendrá el numero de periodos, la constante y por supuesto la semilla, el cuadro de en medio es donde se desglozara la operación.

Ojo text1 es el numero de periodos, el text2 es la constante, semilla es la semilla, text3 es el cuadro de en medio y text4 es el de abajo

En el botón generar ingresamos el siguiente código:
Public Class ventanaMC

Private Sub Gcm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click
Creamos 6 variables, 2 de tipo integer y 4 de tipo double
Dim n_periodo As Integer
Dim tamaño As Integer
Dim multiplicador As Double
Dim nuevo_multi As Double
Dim constante As Double
Dim divisor As Double

n_periodo = text1.Text
For i = 1 To n_periodo
constante = text2.Text
multiplicador = constante * semilla.Text

text4.Text = multiplicador

tamaño = Len(text4.Text)
If tamaño = 7 Then
text4.Text = "0" & multiplicador
End If

If tamaño = 6 Then
text4.Text = "00" & multiplicador
End If

If tamaño = 5 Then
text4.Text = "000" & multiplicador
End If

If tamaño = 4 Then
text4.Text = "0000" & multiplicador
End If

If tamaño = 3 Then
text4.Text = "00000" & multiplicador
End If
nuevo_multi = Mid(text4.Text, 3, 4)
semilla.Text = nuevo_multi
divisor = nuevo_multi / 10000

text3.Text = text3.Text & vbCrLf & "Periodo [" & i & "] " & text4.Text & " N°centro: " & nuevo_multi & " = " & divisor

If i = n_periodo Then
Label1.Text = "Resultado:"
End If

Next i
End Sub
Boton para limpiar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
text1.Clear()
text2.Clear()
text3.Clear()
text4.Clear()
semilla.Clear()

End Sub
Boton para salir
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()

End Sub
End Class
Descarga el proyecto aquí:
http://kudoflow.com/2JDg

Productos medios en visual basic - numeros aleatorios

Muy buen día amigos bienvenidos a mi blog hoy continuare con los números aleatorios, en este caso serán productos medios en visual basic en su versión 2010 o 2012

Empezaremos creando una ventana similar a esta:

Nescesitaremos tener 5 textbox y 3 botones

En el botón generar tecleamos el siguiente código:

Ojo el text1 es el numero de periodos, el text2 es la semilla1 y semilla es la semilla2, el cuadro de en medio es el text3 y por ultimo el text4 es el de abajo

Public Class ventanaPM

Private Sub Gcm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click

Se crean 5 variables 2 de tipo integer y 3 de tipo double

Dim n_periodo As Integer

Dim tamaño As Integer

Dim multiplicador As Double

Dim nuevo_multi As Double

Dim divisor As Double

n_periodo = text1.Text

For i = 1 To n_periodo

multiplicador = text2.Text * semilla.Text

text4.Text = multiplicador

tamaño = Len(text4.Text)

If tamaño = 8 Then

nuevo_multi = Mid(text4.Text, 3, 4)

text2.Text = semilla.Text

semilla.Text = nuevo_multi

End If

If tamaño = 7 Then

text4.Text = "0" & multiplicador

nuevo_multi = Mid(text4.Text, 3, 4)

text2.Text = semilla.Text

semilla.Text = nuevo_multi

End If

If tamaño = 6 Then

nuevo_multi = Mid(text4.Text, 2, 4)

text2.Text = semilla.Text

semilla.Text = nuevo_multi

End If

If tamaño = 5 Then

text4.Text = "0" & multiplicador

nuevo_multi = Mid(text4.Text, 2, 4)

text2.Text = semilla.Text

semilla.Text = nuevo_multi

End If

If tamaño = 4 Then

text4.Text = "00" & multiplicador

nuevo_multi = Mid(text4.Text, 2, 4)

text2.Text = semilla.Text

semilla.Text = nuevo_multi

End If

divisor = nuevo_multi / 10000

'nuevo_multi = Mid(text4.Text, 3, 4)

'text2.Text = nuevo_multi

text3.Text = text3.Text & vbCrLf & "Periodo [" & i & "] " & text4.Text & " N°centro: " & nuevo_multi & " = " & divisor

If i = n_periodo Then

Label1.Text = "Resultado:"

End If

Next i

End Sub

Boton de salir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form1.Show()

Me.Hide()

End Sub

Boton de limpiar

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

text1.Clear()

text2.Clear()

text3.Clear()

text4.Clear()

semilla.Clear()

End Sub

End Class

Descarga el proyecto aquí:
http://kudoflow.com/2J0Q

Numeros aleatorios en visual basic - cuadrados medios

Muy buen día tengan todos amig@s, hoy les traigo código en visual basic, como hacer números aleatorios en este caso cuadrados medios.

El programa completo me quedo así:

Los pondré por secciones hoy sera el ejemplo de cuadrados medios

1.- Crean una ventana así, donde en los cuadrados medios te piden los periodos y una semilla, utilizaremos 4textbox y 3 botones para generar el procedimiento, limpiarlo y por supuesto salir.

En el botón generar va el siguiente código:

Ojo el text1 es el textbox del numero de peridos, el text2 es la semilla, el text3 es el cuadro de en medio y el text4 es el textbox de abajo.

Public Class ventanaCM

Private Sub Gcm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click

Creamos 5 variables 2 de tipo integer y 3 de tipo double

Dim n_periodo As Integer

Dim tamaño As Integer

Dim cuadrado As Double

Dim nuevo_cuadrado As Double

Dim divisor As Double

n_periodo = text1.Text

For i = 1 To n_periodo

cuadrado = text2.Text ^ 2

text4.Text = cuadrado

tamaño = Len(text4.Text)

If tamaño = 8 Then

nuevo_cuadrado = Mid(text4.Text, 3, 4)

text2.Text = nuevo_cuadrado

End If

If tamaño = 7 Then

text4.Text = "0" & cuadrado

nuevo_cuadrado = Mid(text4.Text, 3, 4)

text2.Text = nuevo_cuadrado

End If

If tamaño = 6 Then

nuevo_cuadrado = Mid(text4.Text, 2, 4)

text2.Text = nuevo_cuadrado

End If

If tamaño = 5 Then

text4.Text = "0" & cuadrado

nuevo_cuadrado = Mid(text4.Text, 2, 4)

text2.Text = nuevo_cuadrado

End If

If tamaño = 4 Then

text4.Text = "00" & cuadrado

nuevo_cuadrado = Mid(text4.Text, 2, 4)

text2.Text = nuevo_cuadrado

End If

divisor = text2.Text / 10000

'If tamaño = 3 Then

'text4.Text = "00000" & cuadrado

'End If

'nuevo_cuadrado = Mid(text4.Text, 3, 4)

'text2.Text = nuevo_cuadrado

text3.Text = text3.Text & vbCrLf & "Periodo [" & i & "] " & text4.Text & " N°centro: " & nuevo_cuadrado & " = " & divisor

If i = n_periodo Then

Label1.Text = "Resultado:"

End If

Next i

End Sub

Este boton es el boton de salir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form1.Show()

Me.Hide()

End Sub

Este boton es el de limpiar

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

text2.Clear()

text1.Clear()

text3.Clear()

text4.Clear()

End Sub

End Class

Descarga le proyecto aquí:
http://uii.io/6fvil

lunes, 17 de octubre de 2016

Como hacer una calculadora en visual basic

Hola amig@s para los que estén usando el lenguje de programacion de visual basic en su versión 2010 0 2012 aquí les traigo este ejemplo de como hacer una calculadora.

Crean una ventana así o como quieran decorar la, siempre y cuando mantenga la escencia de la calculadora.

Public Class Form1
.....creamos dos variables llamadas r y c.
Dim r As Double
Dim c As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
A los textbox le ponemos esta propiedad para que solo acepte numero y no letras.
Private Sub TxtCal_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCal.KeyPress
If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True

End If
End Sub

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

End Sub
En cada boton le agreamos esa liena de codigo ---- txtCal es el nombre que le puse al textbox
Private Sub Boton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton1.Click
If TxtCal.Text > "0" Then
TxtCal.Text = TxtCal.Text + Boton1.Text
Else
TxtCal.Text = Boton1.Text
End If

Private Sub Boton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton2.Click
If TxtCal.Text > "0" Then
TxtCal.Text = TxtCal.Text + Boton2.Text
Else
TxtCal.Text = Boton2.Text

End If
End Sub

Private Sub Boton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton3.Click
If TxtCal.Text > "0" Then
TxtCal.Text = TxtCal.Text + Boton3.Text
Else
TxtCal.Text = Boton3.Text
End If
End Sub

Private Sub Boton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton4.Click
If TxtCal.Text > "0" Then
TxtCal.Text = TxtCal.Text + Boton4.Text
Else
TxtCal.Text = Boton4.Text
End If
End Sub

Private Sub Boton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton5.Click
If TxtCal.Text > "0" Then
TxtCal.Text = TxtCal.Text + Boton5.Text
Else
TxtCal.Text = Boton5.Text
End If
End Sub

Private Sub Boton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton6.Click
If TxtCal.Text > "0" Then
TxtCal.Text = TxtCal.Text + Boton6.Text
Else
TxtCal.Text = Boton6.Text
End If
End Sub

Private Sub Boton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton7.Click
If TxtCal.Text > "0" Then
TxtCal.Text = TxtCal.Text + Boton7.Text
Else
TxtCal.Text = Boton7.Text
End If
End Sub

Private Sub Boton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton8.Click
If TxtCal.Text > "0" Then
TxtCal.Text = TxtCal.Text + Boton8.Text
Else
TxtCal.Text = Boton8.Text
End If
End Sub

Private Sub Boton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton9.Click
If TxtCal.Text > "0" Then
TxtCal.Text = TxtCal.Text + Boton9.Text
Else
TxtCal.Text = Boton9.Text
End If
End Sub
En este boton solo se le añadio 0 para al momento de compilar siempre aparesca 0 en el textbox
Private Sub Boton0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton0.Click
TxtCal.Text = Boton0.Text
End Sub
Este es el boton para borrar
Private Sub borrado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles borrado.Click
TxtCal.Text = 0
igual.Visible = True

End Sub
Boton de igual
Private Sub igual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles igual.Click
If c = 1 Then
r = r + TxtCal.Text
TxtCal.Text = r
Else
If c = 2 Then
r = r - TxtCal.Text
TxtCal.Text = r
Else
If c = 3 Then
r = r * TxtCal.Text
TxtCal.Text = r
Else
r = r / TxtCal.Text
TxtCal.Text = r
End If
End If
End If

End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuma.Click

r = Val(TxtCal.Text)
TxtCal.Text = BtnSuma.Text
c = 1
End Sub

Private Sub Boton17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton17.Click
r = Val(TxtCal.Text)
TxtCal.Text = Boton17.Text
c = 2
End Sub

Private Sub Boton18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton18.Click
r = Val(TxtCal.Text)
TxtCal.Text = Boton18.Text
c = 3
End Sub

Private Sub Boton19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton19.Click
r = Val(TxtCal.Text)
TxtCal.Text = Boton19.Text
c = 4
End Sub
End Class

Descarga el proyecto:
http://uii.io/LIiApf

miércoles, 12 de octubre de 2016

Juegos para niños

Aquí algunos juegos entretenidos para los peques de diversión y de enseñanza.

1.- Peppa paintbox este juego consiste en pintar a peppa y a george seguramente los peques les encantara.

2.- Tablas de multiplicar muy buen juego para que a los niños no se les olviden las tablas de multiplicar

3.- Peppa y los 3 cerditos, otro gran juego de peppa y sus amigos pero en esta ocasión los niños se adentraran en la famosisima historia de los 3 cochinitos.

Para saber mas de juegos y aplicaciones en android visita mi canal de youtube link: https://www.youtube.com/channel/UCI4oQ3jGr4Z3lzLoaoX2t1g

martes, 11 de octubre de 2016

Youx APK aplicacion para ver videos de adultos (XXX)

Aplicacion para poder visualizar vídeos de adultos completamente gratis. esta aplicacion esta en apk ya que no se encuentra en la tienda de aplicaciones de google pero en este video te explico los pasos para poder instalarla. tengan un exelente dia.

Descarga este delicioso pack papu:
http://uii.io/SvZP6c

lunes, 10 de octubre de 2016

Computadora rapida ¿como dejar tu pc rapida? aqui algunos consejos.

Nuestra pc en muchas ocasiones es nuestro centro de atención donde muchos la utilizan para realizar tareas, jugar o para muchas actividades pero en muchas ocasiones suele a quedar lenta aquí algunos consejos que te ayudaran a mejorar el rendimiento de tu pc.

Teclear la tecla de windows + R y entraran al modo ejecutable, posteriormente teclar porcentaje y temp y dar aceptar

Les saldra algo como esto.

Marcan todo con ctrl + e y lo eliminan esto es todo nuestros archivos temporales que genera nuestra pc de modo que mientras mas se llene mas lenta va quedando.

Otro método que pueden hacer es realizar un comprobacion de errores en el disco duro se van a disco C, teclea click derecho información y de ahi a herramientas, posteriormente le dan a comprobar
reinician su pc y empezara la comprobacion.

Otro método similar es liberar espacio en este caso hacen el mismo procedimiento que esta arriba pero en lugar de seleccionar herramientas, seleccionan en general le dan al botón liberar espacio y ahí seleccionan lo que vayan a eliminar y posteriormente le dan a aceptar.

Otro metodo recomendable es

Desfragmentar el disco duro cada 3 meses.
Tener programas que ayuden a la optimizacion de tu pc

Programas recomendados

Ccleaner

este programa es muy util para la limpieza de tu pc y poder desinstalar programas rapidamente.

Link de descarga

https://ccleaner-portable.uptodown.com/windows

2. Tuneup utilities portable

Link de descarga

http://www.uptodown.com/windows/buscar/tuneup-utilities-portable

viernes, 7 de octubre de 2016

Nueva aplicacion de facebook mas rapida y ligera.

Facebook lanzo una aplicacion ya disponible en la playstore, mas rápida y ligera con mas de 100 millones de descargas, es una buena opción para aquellas personas que no quieran gastar muchos datos moviles, de igual manera al momento de descargar solamente pesa 8mb, lo cual es muy opción para el almacenamiento del dispositivo móvil. ya que su versión completa pesa alrededor de 50mb y esto incrementa al momento de ser instalada en el almacenamiento del móvil y conforme lo vayan utilizando.

Capturar muchos pokemons en pokemon go.

Pokemon go es una app que se puede encontrar de manera gratuita en la playstore en cualqiuier dispositivo android. pero requiere de una conexion a internet para poder salir a capturar en distintos sitios de tu ciudad lo que consume gran cantidad de datos moviles,teniendo en cuenta que tambien tienes que activar tu GPS lo cual consume demaciada bateria.

Pero si tu no tienes el tiempo para salir a capturar o no quieres consumir tus datos moviles.

Te presento una aplicacion que se encarga de capturar por ti. Se llama Pokebot, esta aplicacion se conecta con tu cuenta de google play o de entrenador pokemon y realizas unos ajustes que veras acontinuacion:

Paso 1 descargar la aplicacion desde la pagina oficial
http://pokebot.pub/

una ves instalada les saldra si se quieren conectar por su cuenta de google play o entrenador pokemon ahi las que ustedes elijan

Paso 2 les saldra esta interfaz donde deben irse a ajustes

Paso 3 al darle a ajustes les saldra esto donde deben irse a ubicacion

Paso 4 le dan en buscar lugar y escriben una zona cercana a donde ustedes viven esto es importe por que asi no hay riesgo de baneo, luego le dan al boton buscar ahora. en mi caso soy de yucatan y pondria merida por ejemplo. les saldra un mesnaje de su ubicacion y le das aceptar y posteriormente guardar posicion.

Paso 5 volvemos al menu de opciones, le dan a velocidad y retraso y en max velocidad le dan a 3, max distancia le dan a 2000 y asi como la captura deberia quedar estos son los aspectos mas importantes para evitar el baneo. las demas opciones estan a su gusto saludos!

Conoce los fichajes mas caros del mundo hasta el momento.

Los equipos europeos de futbol de gran jerarquia gastan muchisimo dinero en fichajes que les ayuden a poder ganar trofeos y esten en la cima, pero ¿sabes cuanto han gastado estos equipos en grandes jugadores? por eso es que hoy te traigo los fichajes mas caros de la historia.

1.- Gareth Bale
Del totthenham al real madrid
El real madrid gasto nada mas ni menos que 101 millones de euros por el gales

2.- Cristiano Ronaldo
Del manchester united al real madrid
El real madrid pago 94 millones de euros por cristiano ronaldo.

3.- Gonzalo Higuain
Del napoles a la juventus
La juve pago 90 millones de euros por el argentino siendo el fichaje mas caro de la juventus en su historia.

4.- Neymar Jr
Del santos al barcelona
El barcelona pago 88 millones de euros por neymar

5.- Luis Suarez
Del liverpool al barcelona
El barsa pago 81.72 millones de euros por el uruguayo

6.- Angel di maria
Del real madrid al manchester united
El united pago 75 millones de euros por el fideo

7.- James Rodriguez
Del monaco al real madrid
El real madrid pago 75 millones de euros por james!

8.- Kevin de Bruyne
Del wolsfburgo al manchester city
El city pago 74 millones de euros por el belga

9.- Zinedine Zidane
Del juventus al real madrid
El madrid pago 73 millones de euros por zizou que en esa epoca fue el fichaje mas caro de la historia

10.- Zlatan Ibrahimovic
Del inter de milan al barcelona
El barsa pago 69 millones de euros

martes, 25 de octubre de 2016

jueves, 20 de octubre de 2016

miércoles, 19 de octubre de 2016

martes, 18 de octubre de 2016

lunes, 17 de octubre de 2016

miércoles, 12 de octubre de 2016

martes, 11 de octubre de 2016

lunes, 10 de octubre de 2016

viernes, 7 de octubre de 2016

Entrada destacada