Unir Formularios en Visual Studio.NET

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim form1 As New Form1
Me.Enabled = False ' Ocultamos el principal y lo deshabilitamos
Me.Hide()
Form1.Show()
End Sub

Calculadora Básica

Programa en Visual Studio 2010
Descargar

Public Class frmCalculadora
Dim Num1
Dim Num2
Dim Resultado
Dim OtroNumero
Dim Operacion = ""

Private Sub BTN_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_0.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 0
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_1.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 1
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_2.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 2
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_3.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 3
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_4.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 4
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_5.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 5
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_6.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 6
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_7.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 7
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_8.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 8
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_9.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 9
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_Div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Div.Click
Num1 = Me.TXT_Resultado.Text
Operacion = "Division"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_CE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_CE.Click
Me.TXT_Resultado.Text = "" 'Borra todo el textbox'
End Sub

Private Sub BTN_Multiplicacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Multiplicacion.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Multiplicacion"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_Resta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Resta.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Resta"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_Suma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Suma.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Suma"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_Decimal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Decimal.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Me.TXT_Resultado.Text = Num1 & ","
End Sub

Private Sub BTN_XelvadoY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_XelvadoY.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "X Elevado a la Y"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_RaizCuadrada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_RaizCuadrada.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Raiz Cuadrada"
Resultado = Math.Sqrt(d:=Val(Num1))
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Elevado2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Elevado2.Click
'Boton Elevado a la 2 con su funcion'
Num1 = Me.TXT_Resultado.Text
Resultado = Val(Num1) ^ 2
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Elevado3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Elevado3.Click
'Boton Elevado a la 3 con su funcion'
Num1 = Me.TXT_Resultado.Text
Resultado = Val(Num1) ^ 3
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Elevado4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Elevado4.Click
'Boton Elevado a la 4 con su funcion'
Num1 = Me.TXT_Resultado.Text
Resultado = Val(Num1) ^ 4
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Igual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Igual.Click
Num2 = Me.TXT_Resultado.Text
If Operacion = "Suma" Then
Resultado = Val(Num1) + Val(Num2)
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "Resta" Then
Resultado = Num1 - Num2
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "Multiplicacion" Then
Resultado = Num1 * Num2
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "Division" Then
Resultado = Num1 / Num2
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "X Elevado a la Y" Then
Resultado = Val(Num1) ^ Val(Num2)
Me.TXT_Resultado.Text = Resultado
End If
End Sub
End Class

Programa con listbox

http://rapidshare.com/files/451578090/ejemplo_listbox.rar

Public Class Form1

Private Sub cmdcerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcerrar.Click
Me.Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox1.Text = ""
Me.ListBox1.Items.Clear()
' Asignar los valores para "anclar" los controles al formulario
' Asignamos True a la propiedad AutoScroll y dejamos los controles
' como están por defecto:
Me.AutoScroll = True
' El TextBox1 se anclará a Arriba, Izquierda y Derecha
TextBox1.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right
' El botón Añadir lo hará Arriba y a la derecha:
cmdadd.Anchor = AnchorStyles.Top Or AnchorStyles.Right
' El listbox lo hará en los cuatro vértices:
ListBox1.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Bottom
' El botón cerrar sólo lo hará a la derecha y abajo
cmdcerrar.Anchor = AnchorStyles.Right Or AnchorStyles.Bottom
End Sub

Private Sub cmdadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd.Click
ListBox1.Items.Add(TextBox1.Text)
End Sub

Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
If e.KeyCode = Keys.Delete Then
'Borrar las palabras seleccionadas del listbox
Dim i As Integer
'
With ListBox1
For i = .SelectedItems.Count - 1 To 0 Step -1
.Items.Remove(.SelectedItems.Item(i))
Next
End With
End If
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
' Cuando pulsamos en un elemento de la lista...
With ListBox1
TextBox1.Text = .GetItemText(.SelectedItem)
End With
End Sub
End Class

Taller Grado 5

Ejercicio 1

¿A que lado de la celda se alinea por defecto un texto? ¿Y una fecha?

Si se introduce el dato 16.259,59 ¿dónde se alineará? ¿Y si se introduce el dato 16 259,59?

¿Qué tipo de dato es 6/95? ¿Y el dato 16 6/95?

Si el texto introducido en una celda no cabe en ella por ser más largo y dos celdas a la derecha de la misma hay introducido un dato, ¿dónde se visualizará el texto? ¿qué celdas lo contienen?

Al introducir una fórmula en una celda, ésta muestra el resultado de la misma, ¿cómo se puede observar la sintaxis de la fórmula?

¿El dato (19) y el -19 son iguales?

¿Se interpreta igual el valor 1 1/2 que el valor 1,5? ¿Y el valor 1/2 al valor 0,5?

Ejercicio 2

¿Son correctas las siguientes relaciones?
Fórmula Resultado o equivalencia
=6+10/2 El resultado es 8.
=12-10*2 El resultado es -8
=4+6^2 El resultado es 100
=2*5^2+10 Es equivalente a 60
=25*2-4+3 Es equivalente a 25
Fórmulas con fechas
="31/10"-"16-8-98" Calcula el número de días que transcurren entre el 16-8-98 y el 31-10-99.
="5-12"+15 Proporciona la fecha 20 de diciembre del año en curso.


Ejercicio 3

Crear la tabla que muestra la figura, siendo los datos que contiene de tipo texto y número. Una vez creada la tabla introducir en la columna Totales la fórmula que sume, para cada producto, los costes de los tres meses.

(Tabla en TABLERO)

Una vez completada la tabla, modificar los datos que contienen las celdas de tipo número. Observar que los resultados de las fórmulas irán cambiando según se realicen las modificaciones en las celdas de las cuales dependen. Las fórmulas se actualizan automáticamente y en tiempo real.

Montar un video en Flash

Debe tener el video grabado, tambien sirve en formato .FLV

Pasos a seguir:

Archivo
Importar
Importar Video
(Seleccionamos) En el equipo
Examinar... (Buscamos la ruta del Video)
Siguiente
(Seleccionamos) Flujo de Flash Video Streaming Service
Siguiente
Aspecto (Aqui podemos seleccionar el tipo de reproductor y tamaño que deseamos)
Siguiente
Finalizar

Nota: Grabar el archivo

Comando para unir dos peliculas en flash

Pasos a seguir:

Acciones
Navegador/Red
Loadmovie

Nota: Puede copiar esta instrucción cambiando la ruta de su pelicula en .SWF


on(release){
loadmovie("D:\ Templates para Blog\ dos.swf", 0)
}

Presentación