Memen_mtz

Bienvenidos: Hola, Bueno acontinuacion les mostrare como realice la practica, incluyendo unas pequeñas explicaciones de lo que yo entendi jaja!!,, y si no kieren leer las explicaciones pues tienen toda la facilidad de copiar el codigo y usarlo XD jaja!!,, funciona 100% ... Okey a darle!... EMPECEMOS LA PRACTICA 1a- Crear un objeto llamado Articulo que contenga atributos y un metodo(FUNCION). CREATE TYPE ARTICULO AS OBJECT ( IdArticulo NUMBER, Nombre VARCHAR2(30), Categoria VARCHAR2(20), Precio NUMBER, Unidades NUMBER, MEMBER FUNCTION Inventario(P IN NUMBER,U IN NUMBER) RETURN NUMBER, PRAGMA RESTRICT_REFERENCES(Inventario, WNDS) ); / Aqui se muestra como crear el Objeto y como se agrega el metodo al mismo para poder ser llamado despues.. ... "MEMBER FUNCTION Inventario(P IN NUMBER,U IN NUMBER) RETURN NUMBER" ... en esta parte se crea la funcion inventario en el cual se le agregan dos parametros tipo numericos 'P' y 'U' (Pueden llamarse como lo deseen),estos se utilizaran al momento de hacer las consultas... ... "PRAGMA RESTRICT_REFERENCES(Inventario, WNDS)" ... en esta parte se le declara al objeto que tiene incluido en el una funcion, en este caso llamada 'Inventario' 1b- Crear un objeto llamado Articulo que contenga atributos y un metodo(FUNCION). CREATE TYPE BODY ARTICULO AS MEMBER FUNCTION Inventario(P NUMBER,U NUMBER) RETURN NUMBER IS BEGIN RETURN (P*U); END; END; / Aqui se muestra como agregar el cuerpo de la funcion(nes) declaradas en el objeto, como se observa es semejante al codigo anterior pero despues de TYPE... se agrega la palabra BODY para el cuerpo... Ya en el BODY se agrega la funcion asi como se declaro, despues se realizan los procedimientos que va realizar la funcion declarada, en este caso ... "RETURN (P*U);" ...le estamos diciendo que regrese la multiplicacion del parametro uno('P') con el parametro dos('U'), y termina la funcion.. 2- Crear una tabla usando el objeto creado. CREATE TABLE ARTI OF ARTICULO; Esta parte es muy sencilla, lo que estamos haciendo es crear una tabla llamada 'ARTI', y luego con el 'OF' le estamos diciendo que obtenga los atributos y metodos del objeto 'ARTICULO'... y se crea la tabla con los campos, su tipo de dato y las funciones creadas.. 3- Agregar 4 elementos a la Tabla. Bueno este paso no creo que necesite explicacion ya que es bastante obvio jaja!.. pero saberlo no hace daño jaja En la parte de Inicio te vas a Explorador de Objetos, luego en tablas y buscas el nombre de la tabla que creaste, despues te vas a donde dice DATOS en la parte superior, y finalmente en Insertar Fila. 4- Sentencia SQL que muestre el contenido de la Tabla. SELECT * FROM ARTI; Bueno nomas ponemos asterisco para todos los campos y el nombre de la tabla creada despues del FROM. 5- Sentencia SQL que muestre el contenido de la tabla y el resultado de invocar al método. SELECT A.Inventario(A.PRECIO,A.UNIDADES) FROM ARTI A; Acontinuacion se muestra el un SELECT comun con el llamada de la funcion para esto es necesario en la parte donde declaras la tabla a buscar se le ponga un Alias en este caso ..."FROM ARTI A"... 'ARTI' es la tabla y 'A' es el Alias. Para el llamado de la funcion nomas se pone: Alias.NombreFuncion(parametro1,parametro2,...parametroN) como se muestra en la parte de arriba. en ejemplo se manda el precio y las unidades, los cuales son los campos de la tabal ARTI, que van hacer multiplicados por el Metodo Inventario y mostrar el resultado. 6- Escribir una sentencia SQL, que muestre la cantidad de artículos por categoría. SELECT Count(IDARTICULO) FROM ARTI GROUP BY CATEGORIA; Bueno, por ultimo tenemos que mostrar la cantidad de articulos que hay por categoria para esto nomas hacemos un "Count(IDARTICULO) ", esto quiere decir que nos va contar los articulos existentes en la tabla, el "GROUP BY CATEGORIA" , se encarga de los articulos contados los agrupe por el campo que pongamos despues del BY en este caso CATEGORIA. Bueno eso es todo por mi parte, espero que les sea util se les agradece a los que se tomaron el tiempo en leerlo jaja, espero que comprendan algo pues la vdd es nuevo esto para mi y lo que ven es lo que se. Gracias nuevamente y pues Exito!, que todos acompleten su Practica nos vemos en clase.

Que Hay!! Bueno aquí les va como hacer un pequeño programa en VisualStudio 2008 de Pilas Esta es la explicación de que es una pila mejor conocido como LIFO: Es una lista ordinal o estructura de datos en la que el modo de acceso a sus elementos es de tipo LIFO (del inglés Last In First Out, último en entrar, primero en salir) que permite almacenar y recuperar datos. Esta estructura se aplica en multitud de ocasiones en el área de informática debido a su simplicidad y ordenación implícita de la propia estructura. Para el manejo de los datos se cuenta con dos operaciones básicas: apilar (push), que coloca un objeto en la pila, y su operación inversa, retirar (o desapilar, pop), que retira el último elemento apilado. EMPECEMOS Antes que nada colocamos un Listbox, y ponemos un MenuStrip(Tambien se pueden agregar botones) en una nueva forma En el menú agregaremos las siguientes opciones: (o puedes usar 5 botones como gustes) *Agregar Elemento *Sacar Elemento *Limpiar Pila *Numero de Elementos *Elemento a Sacar Quedaria algo asi: Ahora vamos a codigo para agregar las funciones que realizaran todos los movimientos en pila.(para esto hacemos doble click en en la forma para ir a codigo) y dentro de LoadForm... ReDim Array(0) 'El ARRAY es el arreglo donde se va ir guardando todos los elementos de la pila se inicia en cero. Fuera del codigo de LoadForm... es decir abajo de Public Class Form... Dim ARRAY() As Integer 'Este es para crear el arreglo de Pilas. Ahora antes de End Class en lo ultimo del código, se pondrá las funciones para realizar todo lo que necesita la Pila. Esta Funcion Sirve para Limpiar el arreglo de Pila e iniciarla en 0. Function PilaClear(ByRef array() As Integer) As Integer() ReDim array(0) 'Establece el arreglo a ceros. Return array 'Esto es para que regrese la funcion el arreglo en ceros. End Function Esta Funcion sirve para Agregar un elemento a la Pila Function PilaPush(ByVal array() As Integer, ByVal elemento As Integer) As Integer() ReDim Preserve array(UBound(array) + 1) 'Aqui lo que hace es obtener el espacio para el siguiente elemento del arreglo array(UBound(array)) = elemento 'Remplaza el elemento en el espacio obtenido anteriormente Return array 'Regresa el arreglo con el nuevo elemento End Function Esta Funcion sirve para sacar un elemento de la Pila. Function PilaPop(ByRef array() As Integer) As Integer Dim i As Integer i = array(UBound(array)) 'Se declara un variable "i" donde se va almacenar el elemento a sacar ReDim Preserve array(UBound(array) - 1) 'Aqui borra del arreglo el ultimo elemento. Return i 'Regresa el elemento sacado. End Function Esta Funcion es para saber cuantos elementos hay en la Pila. Function pilacount(ByVal array() As Integer) As Integer Return UBound(array) 'Obtiene el numero de elementos en el arreglo de Pila. End Function Esta Funcion es para saber cual es el siguiente elemento a sacar de la Pila. Function pilapeek(ByVal array() As Integer) As Integer Return array(UBound(array)) 'Obtiene el ultimo elemento de Pila. End Function Ahora agregamos una funcion donde se va ir actualizando el Listbox que se puso, de cada movimiento que se haga. Function ActualizaListbox() Dim p As Integer ListBox1.Items.Clear() 'Se Limpia el Listbox For p = 1 To UBound(Array) 'Ciclo para leer todos los elementos del Arreglo de Pilas ListBox1.Items.Add(Array(p)) 'Se le va agregando cada elemento Next Return True End Function Bueno ahora usaremos el Menu(o Botones) para usuar estas Funciones y por fin poner en marcha esta Pila jeje!! para esto regresamos al diseño de la Forma. -Le hacemos doble click en AGREGAR ELEMENTO y ponemos el siguiente codigo: Dim n As Integer n = InputBox("Escribe el Numero a Agregar (Solo Numeros)","Agregar a Pila" ) 'Ventana para ingresar numero para el arreglo Array = PilaPush(Array, n) ' Se manda a llamar la funcio para agregar, se manda el arreglo y numero para el elemento. ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en SACAR ELEMENTO y ponemos el siguiente codigo: MsgBox("Elemento que se ha sacado de Pila: " & PilaPop(Array)) 'Mensaje donde se conocera el elemento sacado de la Pila. ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en LIMPIAR PILA y ponemos el siguiente codigo: PilaClear(Array) 'Se llama la funcion limpiar Arreglo ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en NUMERO DE ELEMENTOS y ponemos el siguiente codigo: MsgBox("Elementos en la Pila: " & pilacount(Array)) 'Mensaje donde se conocera el numero de elementos en Pila. ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en ELEMENTO EN SACAR y ponemos el siguiente codigo: MsgBox("Proximo Elemento a sacar de la Pila: " & pilapeek(Array)) 'Mensaje donde se conocera el elementos a sacar en Pila. ActualizaListbox() 'Se llama la funcion para actualizar Listbox Bueno esto ya seria todo el codigo ya nomas seria correrlo y walaa!! espero les sea util, abajo les dejo el Link del programa de Pilas por si tienen algun error o para los flojos que quieren el programa rapido , bueno eso es todo por hoy dejen sus comentarios. Gracias por visistar. nos vemos en el siguiente TUTORIAL . Cuidense, Les deseo lo mejor EXITO! VISTAS Aqui les dejo los ejemplos de agregar,sacar,elemento a salir y numero de elementos en PILA. -AGREGAR: -SACAR: -ELEMENTO A SALIR: -NUMERO DE ELEMENTOS:

Bienvenidos: Quee hay a Todos!! Bueno antes que nada quiero pedirles paciencia pues soy nuevo en esto jeje!!,, Bueno quiero decirles que me di de alta en Taringa por un motivo que estube notando en estos años que eh estado en la universidad y trata de lo siguiente: Bueno yo estudio Lic. en Informatica lo cual llevo materias de programación y siempre pero siempre que necesitaba programas hechos en VisualBasic no encontraba nada, tenias que profundizar demasiado y de hecho si encontraba lo que necesitaba pero en programacion muy primitiva, entonces clonclui que voy a usar a Taringa para enseñarles o proporcionarles programas hechos en VisualBasic 2008. Espero y en verdad ayudarlos y pues les deseo lo mejor, les pido pasiencia para ir subiendo cada uno de los tutoriales de dichas aplicaciones que valla subiendo. En la parte inferior de cada tutorial y esta, ire actualizandolas con cada tutorial que vaya haciendo para prevenir que lleguen a una pagina y de ahi puedan navegar a la que realmente necesiten. Bueno gracias de antemano por todo, les agradeceria con comentar lo que piensan respecto a cualquier cosa. Exito! Su amigo Guillermo TUTORIALES: -PROGRAMA DE PILA(LIFO) EN VISUAL BASIC Tutorial de como hacer una Pila - Visual Studio 2008 - Grafico -PROGRAMA DE COLA(FIFO) EN VISUAL BASIC Tutorial de como hacer una Cola - Visual Studio 2008 - Grafico

Que Hay!! Bueno aquí les va como hacer un pequeño programa en VisualStudio 2008 de Colas Esta es la explicación de que es una Cola mejor conocido como FIFO: También se le llama estructura FIFO (del inglés First In First Out), debido a que el primer elemento en entrar será también el primero en salir. Una cola (también llamada fila) es una estructura de datos, caracterizada por ser una secuencia de elementos en la que la operación de inserción push se realiza por un extremo y la operación de extracción pop por el otro. Las colas se utilizan en sistemas informáticos, transportes y operaciones de investigación (entre otros), dónde los objetos, personas o eventos son tomados como datos que se almacenan y se guardan mediante colas para su posterior procesamiento. Este tipo de estructura de datos abstracta se implementa en lenguajes orientados a objetos mediante clases, en forma de listas enlazadas. EMPECEMOS Antes que nada colocamos un Listbox, y ponemos un MenuStrip(Tambien se pueden agregar botones) en una nueva forma. En el menú agregaremos las siguientes opciones: (o puedes usar 5 botones como gustes) *Agregar Elemento *Sacar Elemento *Limpiar Cola *Numero de Elementos *Elemento a Sacar Quedaria algo asi: Ahora vamos a codigo para agregar las funciones que realizaran todos los movimientos en pila.(para esto hacemos doble click en en la forma para ir a codigo) y dentro de LoadForm... ReDim Array(0) 'El ARRAY es el arreglo donde se va ir guardando todos los elementos de la cola se inicia en cero. Fuera del codigo de LoadForm... es decir abajo de Public Class Form... Dim ARRAY() As Integer 'Este es para crear el arreglo de Cola. Ahora antes de End Class en lo ultimo del código, se pondrá las funciones para realizar todo lo que necesita la Cola. Esta Funcion Sirve para Limpiar el arreglo de Cola e iniciarla en 0. Function ColaClear(ByRef array() As Integer) As Integer() ReDim array(0) 'Establece el arreglo a ceros. Return array 'Esto es para que regrese la funcion el arreglo en ceros. End Function Esta Funcion sirve para Obtener el total de elementos en Cola Function ColaConteo(ByVal a() As Integer) As Integer Dim i, j As Integer j = 0 For i = 1 To UBound(a) ' Ciclo FOR para hacer la sumatoria del total de elementos en Cola j += 1 Next Return j End Function Esta Funcion sirve para Agregar un elemento a la Cola Function ColaPush(ByVal array() As Integer, ByVal elemento As Integer) As Integer() Dim i As Integer i = ColaConteo(array) 'Se llama la funcion para obtener el total de elementos en Cola ReDim Preserve array(i + 1) 'Aqui lo que hace es obtener el espacio para el siguiente elemento del arreglo array(i + 1) = elemento 'Remplaza el elemento en el espacio obtenido anteriormente Return array ' Regresa el arreglo con el nuevo elemento End Function Esta Funcion sirve para sacar un elemento de la Cola. Function ColaPop(ByRef array() As Integer) As Integer Dim n, i As Integer Dim b() As Integer n = ColaConteo(array) 'Obtenemos el total de elementos en Cola ReDim b(UBound(array) - 1) 'Se obtiene el elemento a Sacar For i = 2 To UBound(array) ' Ciclo para reacomodar la Cola b(i - 1) = array(i) Next n = array(1) 'Se asigna a la variable el elemento sacado ReDim array(UBound(b)) array = b Return n End Function Esta Funcion es para saber cual es el siguiente elemento a sacar de la Cola. Function Colapeek(ByVal array() As Integer) As Integer Dim n As Integer n = UBound(array) If n >= 1 Then Return array(1) Else Return array(0) End If End Function Ahora agregamos una funcion donde se va ir actualizando el Listbox que se puso, de cada movimiento que se haga. Function ActualizaListbox() Dim p As Integer ListBox1.Items.Clear() 'Se Limpia el Listbox For p = 1 To UBound(Array) 'Ciclo para leer todos los elementos del Arreglo de Colas ListBox1.Items.Add(Array(p)) 'Se le va agregando cada elemento Next Return True End Function Bueno ahora usaremos el Menu(o Botones) para usuar estas Funciones y por fin poner en marcha esta Cola jeje!! para esto regresamos al diseño de la Forma. -Le hacemos doble click en AGREGAR ELEMENTO y ponemos el siguiente codigo: Dim n As Integer n = InputBox("Escribe el Numero a Agregar (Solo Numeros)","Agregar a Cola" ) 'Ventana para ingresar numero para el arreglo Array = ColaPush(Array, n) ' Se manda a llamar la funcion para agregar, se manda el arreglo y numero para el elemento. ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en SACAR ELEMENTO y ponemos el siguiente codigo: MsgBox("Elemento que se ha sacado de Cola: " & ColaPop(Array)) 'Mensaje donde se conocera el elemento sacado de la Cola. ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en LIMPIAR COLA y ponemos el siguiente codigo: ColaClear(Array) 'Se llama la funcion limpiar Arreglo ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en NUMERO DE ELEMENTOS y ponemos el siguiente codigo: MsgBox("Elementos en la Cola: " & ColaConteo(Array)) 'Mensaje donde se conocera el numero de elementos en Cola. ActualizaListbox() 'Se llama la funcion para actualizar Listbox -Le hacemos doble click en ELEMENTO EN SACAR y ponemos el siguiente codigo: MsgBox("Proximo Elemento a sacar de la Cola: " & pilapeek(Array)) 'Mensaje donde se conocera el elementos a sacar en Cola. ActualizaListbox() 'Se llama la funcion para actualizar Listbox Bueno esto ya seria todo el codigo ya nomas seria correrlo y walaa!! espero les sea util, bueno eso es todo por hoy dejen sus comentarios. Gracias por visistar. nos vemos en el siguiente TUTORIAL . Cuidense, Les deseo lo mejor EXITO!

Buen Dia amigos T!'s Pues una vez mas les traigo unos dibujos que hice con pluma, lamentablemente no tengo el proceso completo pero el resultado es lo importante. Espero y sea de su agrado y si no agradeceria las criticas jaja, bueno los dibujos realmente son mios. Este es un intento de dibujar a Zooey Deschanel jeje, es tan perfecta ella! :3 ya tengo bastante que la dibuje pero no habia tenido tiempo para subirla, espero que tenga algun parentesco Ahora este es muy reciente, es una Rosa con un Tulipan bueno es lo que intentaba hacer jaja, la verdad todavia no adapto muy bien a la tecnica con pluma para los degradados y eso, pero no hay nada que con la practica no se mejore. Espero y les agrade. Gracias por tomarse la molestia de obserbarlas, y les agradesco a los que comenten. Saludos a todos y Exito.