Java: Suma de los primeros n numeros enteros impares positivos

Escribir un programa que determine la suma de los primero n numeros enteros impares positivos. Por ejemplo, si n es igual a 5, deberias determinar  + 1 + 3 + 5 + 7 + 9.

El siguiente es le codigo:

public static void sumNPositiveOddIntegers() {
            System.out.println("Escriba un numero entero...");
            Scanner kb = new Scanner(System.in);
            int n = kb.nextInt();
           
                        int x = 1;
                        int sum = 0;
                        for(int i = 0; i < n; i++)
                        {
                        sum += x;
                        x += 2;
                        System.out.println(x);
                        }
                        System.out.println("The sum of first " + n + " positive odd integers is: " + sum);
                       

                        }




Explicacion del codigo: 

public static void sumNPositiveOddIntegers(): Como vamos a imprimir el resultado utilizamos void. 

 Scanner kb = new Scanner(System.in): Declaramos la variable kb con el metodo Scanner para leer desde el teclado.

int n = kb.nextInt(): Asignamos a la variable n el valor entero desde el teclado.

 int x = 1, sum = 0: Inicializamos las variable x y sum.

 for(int i = 0; i < n; i++): Este ciclo inicializa la variable i con el valor 0. Luego dice mientras i sea menor que n, entonces el valor de i hira aumentando.

sum += x: La variable suma almacenara el valor de x durante el ciclo.

x += 2: x aumentara de dos en dos para filtrar los numeros impares. Por eso la inicializamos en 1.

System.out.println(x): Imprimira el valor de x que son los numeros enteros positivos impares. 

Finalmente, la ultima linea de codigo imprime la suma de los sumeros anteriores. 






Java: Determinar si un numero es divisible por otro numero

Un numero x es divisible por y si al dividirlos el residuo es cero. Escribe un programa que determine si un numero es disible por otro numero. Leer ambos numeros del teclado. 


public static void divisible() {

            Scanner kb = new Scanner(System.in);
            System.out.println("Entrar un numero x...");
            int x = kb.nextInt();
            System.out.println("Entrar un numero y...");
            int y = kb.nextInt();

            if (x % y == 0) {

                  System.out.println(x + " es divisible por " + y);

            } else {

                  System.out.println(x + " es divisible por " + y);
            }

      }



Explicacion del codigo:

public static void divisible(): Aqui el metodo es void porque no va a retornar ninguna variable, sino a imprimir un resultado mediante System.out.println. 

Scanner kb = new Scanner(System.in): en este programa vamos a leer dos numeros del teclado. Scanner sirve para lograr ese objetivo. Nota: para poder utilizar Scanner hay que importarla libreria de Scanner al programa mediante la siguente linea de codigo: import java.util.Scanner;

System.out.println("Entrar un numero x..."): System.out.println imprime un mensaje en la consola. En este caso le da instrucciones al usuario.

int x = kb.nextInt(): Aqui declaramos la variable x de tipo int que va a ser igual a la variable kb que declaramos en Scanner. Es punto nextInt() porque va a tomar el siguente numero entero que inserte el usuario al techado y se va a almacenar en x. 

Luego se repite el proceso para la variable y.

if (x % y == 0): Para obtener el residio de la division entre dos numeros utilizamos el metodo Mod. En Java es representado por el simbolo de porciento (%). 


El resto del codigo imprime que x es divisible por y si el residuo es cero, o de lo contrario imprime que no es divisible. 













Tamaño de archivo en Visual Basic 6.0

El siguiente programa tomara un archivo de su computadora y dira el tamaño en bytes del mismo.

Para realizar este programa debemos crear un formulario con un command button en este caso lo llame cmdcalcular.

A continucacion escribir el siguiente codigo en el boton calcular:



Option Explicit

Private Sub cmdcalcular_Click()

Dim tamano As Long
If Dir$("C:\bueno.jpg") <> vbNullString Then
   tamano = FileLen("C:\bueno.jpg")
   MsgBox tamano & " bytes"
Else
   MsgBox "El archivo no existe"
End If

End Sub



* Tener en cuenta que en donde dice "C:\bueno.jpg" pondras la direccion en donde se encuentra el archivo al que quieres medir el tamaño.



Photo Play by AmputeeWrecks


Como hacer el efecto bokeh con tu camara

En este tutorial les mostrare como hacer el efecto bokeh con luces redondeadas en el fondo.

¿Que es el Bokeh?
En fotografia "bokeh" es desenfoque de una imagen o la forma en la que el lente hace puntos de luz fuera de foco.

¿Que necesitas?
Luces de navidad
Un objeto
Una camara profesional y un lente

Detalles de la foto
Exposure time: 1/10 seg
Apertura : f/5.6
Focal lenght: 55.0mm

Camara usada: Canon eos Rebel T3
Lente usado: EF-S 18-55mm


¿Como lograrlo?

Para lograr este efecto debes establecer una apertura baja en los settings de tu camara, en mi caso como ya mencione anteriormente una de f/5.6. Mientras mas pequeno sea el numero de la apertura mas se abrira el lente de tu camara permitiendo entrar mas luz al mismo y por ende esto ayudara a conseguir el efecto.

Tambien debes cambiar el ISO a 1600 para aumentar la sensibilidad de mi camara a la luz como lo hice en mi caso para lograr el efecto.

Para este tutorial necesitaras unas luces navidenas ordinarias. Para lograr este efecto es necesario poner una distancia del objeto a enfocar y las luces de aproximadamente un metro (en mi caso las luces se encuentran colgadas en la pared a un metro detras del objeto).  El truco esta en acercar el lente lo mas posible al objeto, en mi caso un frasco de helado y enfocarlo con el lente. El resultado: La imagen de arriba.










VB6: Tipo de triangulo


Escriba un programa que lea tres longitudes y determine si forman o no un triángulo. Si es un triángulo determine de que tipo de triángulo se trata entre: equilátero (si tiene tres lados iguales), isósceles (si tiene dos lados iguales) o escaleno (si tiene tres lados desiguales). Considere que para formar un triángulo se requiere que: "el lado mayor sea menor que la suma de los otros dos lados".

Para realizar este programa crear un formulario en Visual Basic 6.0 con 3 textboxes llamados txtl1, txtl2 y txtl3. De igual manera crear dos command buttons llamados cmdcalcular y cmdlimpiar. A continuacion el codigo necesario para resolver este ejercicio.


Option Explicit

Dim triangulo As Boolean

Function limpiar()
txtl1.Text = ""
txtl2.Text = ""
txtl3.Text = ""
txtl1.SetFocus
End Function

Private Sub cmdcalcular_Click()

If Val(txtl1.Text) > Val(txtl2.Text) And Val(txtl1.Text) > Val(txtl3.Text) Then


If Val(txtl1.Text) < Val(txtl2.Text) + Val(txtl3.Text) Then

triangulo = True

Else

triangulo = False

End If


Else

If Val(txtl2.Text) > Val(txtl3.Text) Then


If Val(txtl2.Text) < Val(txtl1.Text) + Val(txtl3.Text) Then

triangulo = True

Else

triangulo = False

End If

Else


If Val(txtl3.Text) < Val(txtl1.Text) + Val(txtl2.Text) Then

triangulo = True

Else

triangulo = False

End If

End If

End If


If triangulo = False Then

MsgBox "No es un triangulo. Vuelve a intentarlo"

limpiar

Else


If Val(txtl1.Text) = Val(txtl2.Text) And Val(txtl2.Text) = Val(txtl3.Text) Then

MsgBox "Equilatero"

Else

If Val(txtl1.Text) = Val(txtl2.Text) Or Val(txtl1.Text) = Val(txtl3.Text) Or Val(txtl2.Text) = Val(txtl3.Text) Then

MsgBox "Isoceles"

Else

If Val(txtl1.Text) <> Val(txtl2.Text) And Val(txtl2.Text) <> Val(txtl3.Text) Then

MsgBox "Escaleno"

End If

End If

End If

End If



End Sub

Private Sub cmdlimpiar_Click()

limpiar


End If


End Sub

 

Photo Cloudy with a chance of hope by iNeedChemicalX


Numeros narcisistas en Visual Basic 6.0

Un número narcisista es aquel que es igual a la suma de cada uno de sus dígitos elevados a la "n" potencia (donde "n" es el número de cifras del número).

Ejemplo 153 es un numero narcisista porque 
13 + 53 + 33 = 1 + 125 + 27 = 153

En el programa escribiras un numero entero cualquiera y el te dira si es narcisista o no. Para este programa sera necesario crear un formulario con un textbox llamado txtvalor y un command button llamado cmdcalcular. Escribir el siguiente codigo.


Dim entrada, salida, i, n As Integer

Option Explicit

Private Sub cmdcalcular_Click()
salida = 0
entrada = txtvalor.Text
n = Len(entrada)

For i = 1 To n
salida = salida + Val(Mid(entrada, i, 1) ^ n)

Next

If txtvalor = salida Then

MsgBox "Es un numeros narcisista"

Else

MsgBox "No es un numeros narcisista"

End If

txtvalor.SetFocus
End Sub



Foto marine - 3 by matmoon