Entradas

Mostrando entradas de octubre, 2012

Control ListBox Visual Basic

Imagen
Manejo de Listas control ListBox - Visual Basic 2010 Código fuente del formulario: Private Sub btntodos1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntodos1.Click         Dim i As Integer         If lsttabla1.Items.Count > 0 Then 'Si no está en vacio la lista             'Recorremos el ListBox1             For i = 0 To lsttabla1.Items.Count - 1                 lsttabla2.Items.Add(lsttabla1.Items(i))             Next             'Borramos la lista             lsttabla1.Items.Clear()         End If         'cuenta los valores de la lista         txttotal1.Text = lsttabla1.Items.Count         txttotal2.Text = lsttabla2.Items.Count     End Sub     Private Sub btnadd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd1.Click         lsttabla1.Items.Add(txtvalor1.Text)               txtvalor1.Clear()         txtvalor1.Focus()         'cuenta los valores de la lista         txttotal

Operador Resto(%) PHP

Imagen
Solución de Ejercicios PHP: 1. Leer un numero entero de 3 cifras y halle la suma de sus cifras Forma 1:   if (isset($_POST["btnenviar"])){                 //entrada de datos                 $num = $_POST["txtnum"];                 //proceso                 $cen = (int)($num / 100);        //obtiene la centena                 $resto = (int)($num % 100);   //variable auxiliar para obtener la decena                 $dec = (int)($resto / 10);        //obtiene la decena                 $uni = (int)($resto % 10);       //obtiene la unidad                 $sd = $cen + $dec + $uni;                 //salida de datos                 echo "Centena: ".$cen;                 echo "Resto: ".$resto;                 echo "Decena: ".$dec;                 echo "Unidad: ".$uni;                 echo "La Suma de Digitos: ".$sd;                  }   ?> Forma 2:   if (isset($_PO

Procedimientos Almacenados ORACLE

EJEMPLOS DE INSERTAR CON PROCEDIMIENTOS ALMACENADOS ORACLE 11G /*creacion de la tabla*/ create table clientes( idcliente varchar2(5)primary key, nombres varchar2(55), apellidos varchar2(55), dni varchar2(8) ); /*creacion del procedimiento almacenado*/ CREATE OR REPLACE PROCEDURE pa_grabar(id IN varchar2, nom IN varchar2, ape IN varchar2, dni IN varchar2) AS BEGIN INSERT INTO clientes VALUES(id,nom,ape,dni); END; /*ejecutar el procedimiento almacenado*/ EXECUTE pa_grabar('C0010','Juan','Perez Rios', '12345678');

Ejercicios Visual Basic.NET

Ejercicios Propuestos Visual Basic.NET  Desarrolle los siguientes casos propuestos: 1. Crear un programa que lea un número entero de 3 cifras y halle la suma de sus cifras. 2. Crear un programa que lea un número entero de 4 cifras y halle la media de sus cifras. 3. Crear un programa que lea un número entero de las siguientes cifras: Si es de una o dos cifras halle su cuadrado, Si es de tres cifras halle su raíz cúbica, Si es de cuatro cifras halle el producto de sus cifras, caso contrario halle la suma de sus cifras. 4.  Crear un programa que lea un número entero de cinco cifras y sume los pares. 5.  Crear un programa que lea un número entero de cualquier cifra y halle la suma. 6. Crear un programa que lea un número entero de cinco cifras y cuente cuantos pares e impares tiene el número. Prof. Jhonatan Abal Mejia

Números Capicua Visual Basic

Hallando números capicua de cualquier cifra (Utilizando la funcion de cadena )         REM VAR         Dim num, n As String         Dim rpta As String         REM LEER         Console.Write("Ingrese Numero: ")         num = Long.Parse(Console.ReadLine)         REM PROCESO         n = StrReverse(num)  'Devuelve una cadena en la que se ha invertido el orden de caracteres         If n = num Then             rpta = "ES UN NUMERO CAPICUA"         Else             rpta = "NO ES CAPICUA"         End If         REM ESCRIBIR         Console.WriteLine(rpta)         Console.ReadLine()

Numero Capicua Visual Basic

Obtener Numero Capicua de 3 Cifras en VISUAL BASIC 2010         Dim num, uni, aux, dec, cen As Integer         Dim rpta As String         Console.Write("Ingrese Numero de 3 Cifras:")         num = Console.ReadLine         If num >= 100 And num <= 999 Then             cen = num \ 100             aux = num Mod 100             dec = aux \ 10             uni = aux Mod 10             If cen = uni Then                 rpta = "Numero es Capicua"             Else                 rpta = "Numero no es Capicua"             End If         Else             rpta = "Numero fuera de intervalo"         End If               Console.WriteLine(rpta)         Console.ReadKey() 'Prof. jhonatan abal mejia