Blog JAMcode

Ejercicios Propuestos Programación Caso 1: Dados tres números A, B y C, determinar si la suma de una pareja de ellos es igual al tercer número, si se cumple esta condición imprima un mensaje que diga “Iguales” y en  caso contrario imprima “Distintos”. Caso 2: Diseñar un algoritmos para resolver una ecuación de segundo grado. Caso 3: En un supermercado el kilo de manzanas cuesta 25 nuevos soles. El kilo de peras cuesta 15 nuevos soles. Tienen una oferta permanente donde sí se compran 3 kilos o más de manzanas, el precio es 20 nuevos soles por kilo. Para el caso de las peras, si se compran 5 kilos o más, el precio es de 9 nuevos soles por  kilo. Se requiere un programa que dada la cantidad en kilos de peras y manzanas, imprima el total a pagar por manzanas, por peras y el total neto de la compra. Caso 4: Dado tres números realizar un algoritmo para determinar el menor, el medio y el mayor. Caso 5: Dado un tiempo en segundos, calcular los segundos restant

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

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

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 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

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()

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

Hallando la Suma de un Numero de 2 Dígitos en Visual Basic 2010 Sub Main()         Dim n As Integer         Dim uni, dec As Integer         Dim s As Integer         Console.Write("Ingrese Numero:")         n = Console.ReadLine         dec = n \ 10         uni = n Mod 10         s = uni + dec         Console.WriteLine("La Suma de sus digitos es:{0}", s)         Console.ReadLine()     End Sub

Programación Orientada a Objetos en PHP Creando Métodos SET y GET Crear la pagina "class_persona.php" ------------------------------------------------------------------------------------- class persona{ #propiedades var $nombres; var $apellidos; #metodos set y get function setNombres($nombres){ $this->nombres=$nombres; } function getNombres(){ return $this->nombres; } function setApellidos($apellidos){ $this->apellidos=$apellidos; } function getApellidos(){ return $this->apellidos; } } ----------------------------------------------------------------------------------- Crear la pagina "mostrar.php" ----------------------------------------------------------------------------------- $jhonatan = new persona(); $jhonatan->setNombres("Jhonatan"); $jhonatan->setApellidos("Abal Mejia"); echo "Nombres: ".$jhonatan->getNombres(); echo "Apellidos: ".$jhona

Programación Orientada a Objetos en PHP Creación de Clases y Objetos class persona{ //propiedades var $nom; var $ape; var $dni; //metodos function misdatos(){ $nom="Julia"; $ape="Pardo Rojas"; $dni="12345678"; echo $nom." ".$ape." ".$dni."; } function trabajar(){ echo "La persona trabaja"; } function estudiar(){ echo "La persona estudia"; } } //crear objetos $julia = new persona(); $julia->misdatos(); $julia->trabajar(); $julia->estudiar();

Tablero Ascii en Visual Basic.net Dim x As Integer For x = 1 To 255      Console.WriteLine(x & "-->" & Chr(x)) Next Console.ReadKey() --jhonatan abal mejia

Ejemplos de bucles anidados con FOR en Visual Basic.net 2010 Dim i, j As Integer Console.Title = "Bucle Anidado" Console.ForegroundColor = ConsoleColor.Yellow For i = 10 To 1 Step -1    For j = 1 To i       Console.Write("*")    Next j   Console.WriteLine() Next i Console.ReadKey() -------------------------------------------------------------------------------------

Ejemplos de bucles FOR ----------------------------------------------------- Factorial de un numero         Dim a, x As Long         Dim f As Integer=1         Console.Write("numero   :")         a = Console.ReadLine         Console.WriteLine("su factorial:")         For x = 1 To a             f = f * x         Next         Console.WriteLine(f)         Console.Read() ------------------------------------------------------- Divisores de un numero         Dim a, x As Integer         Console.Write("numero   :")         Console.Write("")         a = Console.ReadLine         Console.WriteLine("divisores:")         For x = 1 To a             If (a Mod x) = 0 Then                 Console.WriteLine(x)             End If         Next x         Console.Read() --------------------------------------------------------- Tabla de multiplicar de un numero         Dim n, x, p As Integer         Console.Write("Ingres

Bucle Anidado FOR en VISUAL BASIC.NET 2010  REM bucle for anidado         Dim i As Integer         Dim j As Integer         For i = 1 To 10             For j = 1 To i                 Console.Write("*")             Next             Console.WriteLine()         Next         Console.Read()

Modelo Relacional de Base de Datos Diseño Físico - Base de Datos VENTAS Creado en ERWIN para el SGBD ORACLE Prof. Jhonatan Abal Mejia

Ejemplo Propuesto de Formulario de Visual Basic.NET 2010 Private Sub btncalcular_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles btncalcular.Click         REM var         Dim ht, he As Integer         Dim ch, ss, vhe, sn As Double         REM leer         ht = txtht.Text         ch = txtch.Text         ss = ht * ch         REM proceso         If ht > 40 Then             he = ht - 40             vhe = he * (ch + (ch * 0.5))                   End If         sn = ss + vhe         REM escribir         txtss.Text = "S/." & ss.ToString( "###,##0.00" )         txthe.Text = he         txtvhe.Text = "S/." & vhe.ToString( "###,##0.00" )         txtsn.Text = "S/." & sn.ToString( "###,##0.00" )     End Sub

Solucion del Ejercicio Propuesto: "Diagrama de Actividades para el Caso de Uso - Buscar Datos" Prof. Jhonatan Abal Mejia

Ejercicios de Bucle FOR en Visual Basic.NET 1. Leer un rango de números enteros e imprimir x pantalla los pares encontrados         Dim vi, vf As Integer         Dim x As Integer         REM LEER         Console.Write("Ingrese Rango Inicial: ")         vi = Console.ReadLine         Console.Write("Ingrese Rango Final: ")         vf = Console.ReadLine         REM PROCESO         For x = vi To vf             If (x Mod 2) = 0 Then                 Console.WriteLine(x)             End If         Next         Console.ReadLine() 2. Leer un rango de números enteros e imprimir x pantalla los impares encontrados         Dim vi, vf As Integer         Dim x As Integer          REM LEER         Console.Write("Ingrese Rango Inicial: ")         vi = Console.ReadLine         Console.Write("Ingrese Rango Final: ")         vf = Console.ReadLine         REM PROCESO         For x = vi To vf             If (x Mod 2) <> 0 The

Ejercicios de Algoritmos Secuenciales Resueltos en Visual Basic 2010 Ejemplo1: Hallar el área de un trapecio        REM variable        Dim bma, bme, h, A As Double         REM leer         Console.Write("base mayor:")         bma = Console.ReadLine         Console.Write("base menor:")         bme = Console.ReadLine         Console.Write("altura:")         h = Console.ReadLine         REM proceso         A = ((bma + bme) / 2) * h         REM escribir         Console.WriteLine("area del trapecio:" & A)         Console.Read() Ejemplo2:  Un vendedor que tiene su sueldo base, recibe una comisión del 10% del total de las ventas del mes. Él quiere saber cuánto ganará en un mes.         REM variable         Dim sb, nv, ns As Double         REM leer         Console.Write("sueldo base:")         sb = Console.ReadLine         Console.Write("total de ventas:")         nv = Console.ReadLine         REM proces

Ejercicios de Bucles en Visual Basic.net 1. Crear un programa que lea un rango de números e imprima los pares. 2. Crear un programa que lea un rango de números  e imprima los múltiplos de 5 3. Crear un programa que lea un número entero e imprima sus divisores 4. Crear un programa que lea un número entero e imprima su tabla de multiplicar. 5. Crear un programa que lea un numero entero y determine si es primo 6. Crear un programa que lea dos números enteros y halle su MCM 7. Crear un programa que lea dos números enteros y halle su MCD Atte. Prof. Jhonatan Abal Mejia

Web.config Web.config es el archivo principal de opciones de configuración para una aplicación web en ASP.NET. El archivo es un documento XML que define información de configuración concerniente a la aplicación web. El archivo web.config contiene información que controla la carga de módulos, configuraciones de seguridad, configuraciones del estado de la sesión, opciones de compilación y el lenguaje de la aplicación. El archivo web.config contiene también la cadenas de conexión a la base de datos. Ahora probaremos en un web form: Imports System.Data.SqlClient Partial Class altausuario Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Button1.Click Try Dim cadena As String cadena = ConfigurationManager.ConnectionStrings("administracion").ConnectionString Dim conexion As New SqlConnection(cadena) conexion.Open() Dim com