NOTICIAS

Loading...

miércoles, 8 de febrero de 2012

jueves, 16 de junio de 2011

Formula para ejercicio 3








Determinar PI de un nro
Label1.Text = nro * Math.PI

Raiz de un nro
Label1.Text = Math.Sqrt(nro)


Elevar nros
Label1.Text = nro * Math.Exp(nro_a_elevar)

INICIO EJERCICIO 4
nro = InputBox("Ingrese el nro")
nros(0) = nro + 1
nros(1) = nro + 2
nros(2) = nro + 3
nros(3) = nro + 4
nros(4) = nro + 5
For i = 0 To nros.Length-1
ListBox1.Items.Add(nros(i) * nros(i))
Ò
ListBox1.Items.Add(nros(i) * math.exp(2))


Next

Operadores en Visual

Mod (Operador, Visual Basic)Divide dos números y devuelve sólo el resto.
number1 Mod number2
Partes--------------------------------------------------------------------------------
number1
Obligatoria. Cualquier expresión numérica.

number2
Obligatoria. Cualquier expresión numérica.

Tipos admitidos----------------------------------------------------
Todos los tipos numéricos. Esto incluye los tipos sin signo, los tipos de punto flotante y los tipos Decimal.
Resultado-------------------------------------------------
El resultado es el resto que queda después de dividir number1 entre number2. Por ejemplo, la expresión 14 Mod 4 se evalúa como 2.

Comentario------------------------------------------
Si number1 o number2 es un valor de coma flotante, se devuelve el resto en punto flotante de la división. El tipo de datos del resultado es el tipo de datos más pequeño que puede contener todos los valores posibles que resultan de la división con los tipos de datos de number1 y number2.

Si number1 o number2 se evalúa como Nothing, se trata como si fuese cero.

Los operadores relacionados son los siguientes:

\ (Operador, Visual Basic) devuelve el cociente entero de una división. Por ejemplo, la expresión 14 \ 4 se evalúa como 3.

El / (Operador, Visual Basic) devuelve el cociente completo, incluso el resto, como un número en punto flotante. Por ejemplo, la expresión 14 / 4 se evalúa como 3,5.

Intento de dividir por cero
Si number2 se evalúa como cero, el comportamiento del operador Mod depende del tipo de datos de los operandos. Una división de enteros produce una excepción DivideByZeroException. Una división de punto flotante devuelve NaN.

Fórmula equivalente
La expresión a Mod b es equivalente a cualquiera de las fórmulas siguientes:

a - (b * (a \ b))

a - (b * Fix(a / b))
Mid
Devuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.
Public Shared Function Mid( _
ByVal str As String, _
ByVal Start As Integer, _
Optional ByVal Length As Integer _
) As String
Parámetros
--------------------------------------------------------------------------------
str
Requerido. Expresión de tipo String de la que se devuelven caracteres.

Start
Requerido. Expresión Integer. La posición inicial de los caracteres que se devuelven. Si Start es mayor que el número de caracteres de str, la función Mid devuelve una cadena de longitud cero (""). Start está basado en uno.

Length
Opcional. Expresión Integer. Número de caracteres que se va a devolver. Si se omite o si existen menos caracteres del número especificado por Length en el texto (incluido el carácter en la posición Start), se devuelven todos los caracteres desde la posición de inicio hasta el final de la cadena.

Ejemplo ---------------------------------------------
En este ejemplo se utiliza la función Mid para devolver un número de caracteres especificado de una cadena.
' Creates text string.
Dim TestString As String = "Mid Function Demo" ' Returns "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3) ' Returns "Demo".
Dim LastWord As String = Mid(TestString, 14, 4) ' Returns "Function Demo".
Dim MidWords As String = Mid(TestString, 5)

martes, 14 de junio de 2011

Ejercicios grado

1. Dado un nro. de hata 5 digitos. Mostrar su valor en letras
Ejemplo:
234 doscientos treinta y cuatro


2. Crear un programa que pida el radio de una circunferencia y que calcule la longitud de la misma así como el área incluida dentro.

3. Crear un programa que calcule la fuerza de atracción gravitacional entre dos masas,
M1 y M2 situadas a una distancia R.


4. Mostrar en forma de tabla, el cuadrado y el cubo de los 5 primeros números enteros que siguen a uno introducido por teclado.
Los datos deben aparecer ajustados a la derecha siguiendo el siguiente formato:
Numero Cuadrado Cubo
------ -------- ----
xxx xxxx xxxxxx


5. Escribir un programa que lea el valor de un ángulo en radianes y muestre su valor engrados, minutos y segundos.

6. Leer tres números enteros y, si el primero de ellos es negativo, calcular el producto de los tres, en caso contrario calcular la suma de ellos.

7. Escribir un programa que pida un año y diga si es bisiesto o no.
Nota: Un año es bisiesto si es múltiplo de 4 salvo el caso en que sea múltiplo de
100, que no es bisiesto, y no sea múltiplo de 400. Por ejemplo, el año 1900 no fue
bisiesto, el 2000 sí y el 2100 no lo es.


8. Almacenando en Arreglos genere un programa que calcule el factorial ( n! ) de un número entero positivo leído por teclado.
Nota: Probar el programa con los números 6, 7, 8, 9...

9. Almacenando en Arreglos, crear un programa que pida un numero real y muestre la tabla de multiplicar correspondiente a dicho número de manera que tanto los valores de los factores como del producto se presenten encolumnados y con una precisión de 2 dígitos.

10. Almacenando en Arreglos, Realizar un programa que lea 20 números (entre el 1 y el 10) y muestre aquel o aquellos que hayan aparecido más veces.
El programa preguntará si se quieren introducir los 20 números y en el caso en que la respuesta sea negativa rellenará el array con números aleatorios.


11. Escribir un programa que pida un array de caracteres por pantalla e invierta el orden de los caracteres mostrándolo por pantalla. La inversión se hará sin utilizar otro array auxiliar.

12. Realizar un programa que maneje un array de enteros a través de un menú con seis opciones:
1.- Añadir un elemento al array (comprobando que el array no esté lleno)
2.- Eliminar un elemento del array (comprobando que el array no esté vacío)
3.- Listar el contenido del array
4.- Contar las apariciones de un número en el array
5.- Calcular la media y el máximo de los elementos del array
0.- Terminar


13. Con ayuda de un arreglo de 6X6 genere el juego del Bingo, este debe modificarse cada 10 segundos, no sin antes preguntar al usuario si desea generarlo

14. Ingrese un arreglo bidimensional de 8X8, en el cual se permita digitar cualquier letra del alfabeto de acuerdo al tamaño del array, al final debe indicar cuál fue la letra que se ingreso más veces.

15. Con ayuda de un arreglo de 12X5 Genere un programa que permita el ingreso de la lista de estudiantes con sus respectivas notas, presentar el más alta nota de promedio, la más baja y las notas que se repiten, junto con el nombre del alumno


16. Genere un programa para sacar nros perfectos.
Nota: Un número perfecto es aquél tal que la suma de sus divisores menos el propio número es el propio número.
Ejemplos: 6 ⇒ Divisores(6) = {1, 2, 3, 6} Suma = 1 + 2 + 3 + 6 – 6 = 6 ⇒ N.º Perfecto
10 ⇒ Divisores(10) = {1, 2, 5, 10} Suma = 1 + 2 + 5 + 10 – 10 ≠ 10 ⇒ No perfecto

17. Elaborar un programa que llene una matriz de 6X6 de valores aleatorios. A continuación el programa debe mostrar por pantalla. Opcional: El programa puede también mostrar las sumas de las filas y las columnas

18. Genere los nros primos 1 al 100 almacene los valores en un array, sume los 50 primeros y muestre los primos en listbox de manera inversa

19.Mostrar un auto desplazándose por pantalla, debe indicar el tiempo en todo momento

20.Mostrar un balòn desplazandose por la pantalla debe mostrar la posiciòn del objeto en todo momento al igual que el tiempo

jueves, 4 de febrero de 2010

Sentencia for basica


AQUI EL CÓDIGO

If TextBox1.Text = "" Or ComboBox1.Text = "Escoja operación" Then
MsgBox("Espacio en blanco o no se escogio operación")

Else
If ComboBox1.Text = "*" Then
For i = 1 To 12
total = i * TextBox1.Text
'MsgBox(total)

ListBox1.Items.Add(i & " " & " X " & TextBox1.Text & " = " & total)
Next
Endif
Endif

uso sentencia for dentro de visual basic 2008


Aqui el código
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or ComboBox1.Text = "Escoja operación" Then
MsgBox("Espacio en blanco o no se escogio operación")
Else
If ComboBox1.Text = "*" Then
For i = 1 To 12
total = i * TextBox1.Text
'MsgBox(total)
ListBox1.Items.Add(i & " " & " X " & TextBox1.Text & " = " & total)
Next
Endif
Endif

sábado, 28 de junio de 2008

Aprender FLASH

Lo9s mejores sites con tutoriales de flash: