Bienvenidos a mi blog de Programación, aquí podrás encontrar algún ejemplo de lenguajes como Java, python, C#, C++, Visual Basic, php. Scripts de Base de Datos como T-SQL, PL/SQL y MySQL.
Copyright® - JAMcode
Diagrama de Actividades
Obtener enlace
Facebook
X
Pinterest
Correo electrónico
Otras aplicaciones
Solucion del Ejercicio Propuesto: "Diagrama de Actividades para el Caso de Uso - Buscar Datos"
Module Module1 Sub Bienvenida() 'Programa que muestra un MENSAJE, almacenado en una VARIABLE Dim MEN As String 'VARIABLE MEN = "Bienvenidos al Microsoft Visual Studio.net 2008" Console.Write(MEN) Console.Read() End Sub Sub Mensaje() 'Programa que muestra MENSAJE, almacenado en una VARIABLE Dim Mens As String 'VARIABLE Mens = "Desarrollando aplicaciones en consola.net" Console.WriteLine(Mens) Console.Read() End Sub Sub Mensaje_vertical() 'Programa que muestra MENSAJE en forma VERTICAL, almacenado en una VARIABLE Dim MV As String 'VARIABLE MV = "Desarrollando aplicaciones en MS Visual Basic.net" Console.WriteLine(MV) Console.WriteLine(MV) Console.WriteLine(MV) Console.Read() End Sub Sub Sumar() 'Programa que SUMA 2 numeros enteros, solo con variables Dim n1, n2, S As Integer 'VARIABLES REM LEER n1 = Console.ReadLine n2 = Console.ReadLine REM PROCESO S = n1 + n2 REM ESCRIBIR Console.WriteLine...
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 ...
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');
Comentarios