CODIGO DE USUARIO VB .NET

IR AL EDITOR DE LA DATASET

SELECT        COUNT(*), users AS userinput, [password] AS passinput
FROM            USUARIO
GROUP BY users, [password]
HAVING        (COUNT(*) = 1) AND (users = ?) AND ([password] = ?)

Read More

PRACTICAS DE WORD

HAGA CLICK AQUI

Read More

https://hss.hsselite.com/walls/bw/d/?v=5

Read More

DESCARGAR ELIMINADOR DE VIRUS ACCESO DIRECTO

HAGA CLICK AQUI PARA DESCARGAR EL ARCHIVO

Read More

PROGRAMA PARA SUMAR DOS NÚMEROS

Read More

TAREAS PARA PRIMERO INFORMÀTICA PARA EL MARTES 20-06-2017

• Realizar un programa que permita mostrar si un número es entero, positivo, negativo o cero.
• Realizar un programa que permita ingresa dos números y determinar enteros son iguales o no.
• Realizar un programa que permita mostrar el día de la semana correspondiente a un número entero dado

Read More

DESCARGAR BD PROVINCIAS, CANTONES Y PARROQUIAS

https://drive.google.com/file/d/0ByN53CLmL2esVUdzSjVCTHEwbW8/view?usp=sharing

Read More

CODIGO FUENTE ESTUDIANTES COMPLETO

Public Class Estudiantes
    Public Function CEDULA(ByVal NC As String) As Integer

        If Len(Trim(NC)) = 13 Or Len(Trim(NC)) = 10 Then
            Dim si As Integer
            Dim sp As Integer
            Dim st As Integer
            Dim X As Integer
            Dim cp As Integer
            Dim dg As Integer
            Dim dv As Integer
            Dim p As Integer
            cp = Val(Mid$(NC, 1, 2))
            si = 0
            sp = 0
            If cp > 0 And cp < 23 Then
                For X = 1 To 9 Step 2
                    dg = Val(Mid$(NC, X, 1))
                    p = dg * 2
                    If p > 9 Then
                        p = p - 9
                    End If
                    si = si + p
                Next X
                For X = 2 To 8 Step 2
                    sp = sp + Val(Mid$(NC, X, 1))
                Next X
                st = sp + si
                dv = Fix(st / 10) * 10 + 10 - st
                If dv = 10 Then
                    dv = 0
                End If
                If dv = Val(Mid$(NC, 10, 1)) Then
                    CEDULA = 1
                Else
                    CEDULA = 0
                End If
            Else
                CEDULA = 0
            End If
        Else
            CEDULA = 0
        End If
    End Function
    Sub deshabilitar()
        Principio.Enabled = False
        Anterior.Enabled = False
        Siguiente.Enabled = False
        Ultimo.Enabled = False
        Nuevo.Enabled = False
        Guardar.Enabled = True
        Cancelar.Enabled = True
        Eliminar.Enabled = False
        Modificar.Enabled = False
        Buscarnom.Enabled = False
        Buscarced.Enabled = False
        Actualizar.Enabled = False
        Salir.Enabled = False
        '*************
        Cod_estTextEdit.Enabled = True
        CedulaTextEdit.Enabled = True
        Apenom_estTextEdit.Enabled = True
        Prov_nacComboEdit.Enabled = True
        Cant_nacComboEdit.Enabled = True
        Parr_nacComboEdit.Enabled = True
        Fecha_nacDateTimeEdit.Enabled = True
        Prov_resComboEdit.Enabled = True
        Cant_resComboEdit.Enabled = True
        Parr_resComboEdit.Enabled = True
        Barr_ciudTextEdit.Enabled = True
        Calle_prinTextEdit.Enabled = True
        Calle_secTextEdit.Enabled = True
        ReferenciaTextEdit.Enabled = True
        Tel_convTextEdit.Enabled = True
        Tel_celTextEdit.Enabled = True
        Corr_electTextEdit.Enabled = True
        Tipo_sangTextEdit.Enabled = True
        GeneroComboEdit.Enabled = True
        Est_civilComboEdit.Enabled = True
        ReligionComboEdit.Enabled = True
        Coleg_procedenciaTextEdit.Enabled = True
        Gru_etnComboBox.Enabled = True
        NacionalidadTextEdit.Enabled = True
        PesoTextEdit.Enabled = True
        OcupacionTextEdit.Enabled = True
        EstaturaTextEdit.Enabled = True
        Lug_trabTextEdit.Enabled = True
        FotoPicturefoto.Enabled = True
    End Sub
    Sub habilitar()
        Principio.Enabled = True
        Anterior.Enabled = True
        Siguiente.Enabled = True
        Ultimo.Enabled = True
        Nuevo.Enabled = True
        Guardar.Enabled = False
        Cancelar.Enabled = False
        Eliminar.Enabled = True
        Modificar.Enabled = True
        Buscarnom.Enabled = True
        Buscarced.Enabled = True
        Actualizar.Enabled = True
        Salir.Enabled = True
        '*************
        Cod_estTextEdit.Enabled = False
        CedulaTextEdit.Enabled = False
        Apenom_estTextEdit.Enabled = False
        Prov_nacComboEdit.Enabled = False
        Cant_nacComboEdit.Enabled = False
        Parr_nacComboEdit.Enabled = False
        Fecha_nacDateTimeEdit.Enabled = False
        Prov_resComboEdit.Enabled = False
        Cant_resComboEdit.Enabled = False
        Parr_resComboEdit.Enabled = False
        Barr_ciudTextEdit.Enabled = False
        Calle_prinTextEdit.Enabled = False
        Calle_secTextEdit.Enabled = False
        ReferenciaTextEdit.Enabled = False
        Tel_convTextEdit.Enabled = False
        Tel_celTextEdit.Enabled = False
        Corr_electTextEdit.Enabled = False
        Tipo_sangTextEdit.Enabled = False
        GeneroComboEdit.Enabled = False
        Est_civilComboEdit.Enabled = False
        ReligionComboEdit.Enabled = False
        Coleg_procedenciaTextEdit.Enabled = False
        Gru_etnCombobox.Enabled = False
        NacionalidadTextEdit.Enabled = False
        PesoTextEdit.Enabled = False
        OcupacionTextEdit.Enabled = False
        EstaturaTextEdit.Enabled = False
        Lug_trabTextEdit.Enabled = False
        FotoPicturefoto.Enabled = False
    End Sub

    Private Sub Estudiantes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'BDDECEDataSet.CANTONES1' Puede moverla o quitarla según sea necesario.
        Me.CANTONESTableAdapter.Fill(Me.BDDECEDataSet.CANTONES)
        'TODO: esta línea de código carga datos en la tabla 'BDDECEDataSet.PROVINCIAS1' Puede moverla o quitarla según sea necesario.
        Me.PROVINCIASTableAdapter.Fill(Me.BDDECEDataSet.PROVINCIAS)
        'TODO: esta línea de código carga datos en la tabla 'BDDECEDataSet.DOCENTES' Puede moverla o quitarla según sea necesario.
        Me.DOCENTESTableAdapter.Fill(Me.BDDECEDataSet.DOCENTES)
        'TODO: esta línea de código carga datos en la tabla 'BDDECEDataSet.CANTONES' Puede moverla o quitarla según sea necesario.
        Me.CANTONESTableAdapter.Fill(Me.BDDECEDataSet.CANTONES)
        'TODO: esta línea de código carga datos en la tabla 'BDDECEDataSet.PARROQUIAS' Puede moverla o quitarla según sea necesario.
        Me.PARROQUIASTableAdapter.Fill(Me.BDDECEDataSet.PARROQUIAS)
        'TODO: esta línea de código carga datos en la tabla 'BDDECEDataSet.PROVINCIAS' Puede moverla o quitarla según sea necesario.
        Me.PROVINCIASTableAdapter.Fill(Me.BDDECEDataSet.PROVINCIAS)
        Me.ESTUDIANTESTableAdapter.Fill(Me.BDDECEDataSet.ESTUDIANTES)

        Cod_estTextEdit.Enabled = False
        CedulaTextEdit.Enabled = False
        Apenom_estTextEdit.Enabled = False
        Prov_nacComboEdit.Enabled = False
        Cant_nacComboEdit.Enabled = False
        Parr_nacComboEdit.Enabled = False
        Fecha_nacDateTimeEdit.Enabled = False
        Prov_resComboEdit.Enabled = False
        Cant_resComboEdit.Enabled = False
        Parr_resComboEdit.Enabled = False
        Barr_ciudTextEdit.Enabled = False
        Calle_prinTextEdit.Enabled = False
        Calle_secTextEdit.Enabled = False
        ReferenciaTextEdit.Enabled = False
        Tel_convTextEdit.Enabled = False
        Tel_celTextEdit.Enabled = False
        Corr_electTextEdit.Enabled = False
        Tipo_sangTextEdit.Enabled = False
        GeneroComboEdit.Enabled = False
        Est_civilComboEdit.Enabled = False
        ReligionComboEdit.Enabled = False
        Coleg_procedenciaTextEdit.Enabled = False
        Gru_etnCombobox.Enabled = False
        NacionalidadTextEdit.Enabled = False
        PesoTextEdit.Enabled = False
        OcupacionTextEdit.Enabled = False
        EstaturaTextEdit.Enabled = False
        Lug_trabTextEdit.Enabled = False
        FotoPicturefoto.Enabled = False
    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        deshabilitar()
        Dim cod As Integer
        ESTUDIANTESBindingSource.MoveLast()
        cod = Cod_estTextEdit.Text
        cod = (CInt(cod) + 1)
        ESTUDIANTESBindingSource.AddNew()
        Cod_estTextEdit.Text = cod.ToString("000000000")
    End Sub

    Private Sub Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Guardar.Click
        ESTUDIANTESBindingSource.EndEdit()
        ESTUDIANTESTableAdapter.Update(Me.BDDECEDataSet.ESTUDIANTES)
        MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
        habilitar()
    End Sub

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        Try
            If MsgBox("Deseas eliminar el registro?", CType(vbQuestion + vbYesNo, MsgBoxStyle), _
                      "Eliminar registro") = vbNo Then Exit Sub
            ESTUDIANTESBindingSource.RemoveCurrent()
            ESTUDIANTESTableAdapter.Update(Me.BDDECEDataSet.ESTUDIANTES)

        Catch ex As Exception
            ' ex.Message.ToUpper()
            MsgBox("Lo sentimos su Base de Datos se encuentra vacia", MsgBoxStyle.Exclamation, "Datos")
        End Try
    End Sub


    Private Sub Siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Siguiente.Click
        ESTUDIANTESBindingSource.MoveNext()
    End Sub

    Private Sub Anterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anterior.Click
        ESTUDIANTESBindingSource.MovePrevious()
    End Sub

    Private Sub Principio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Principio.Click
        ESTUDIANTESBindingSource.MoveFirst()
    End Sub

    Private Sub Ultimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ultimo.Click
        ESTUDIANTESBindingSource.MoveLast()
    End Sub

    Private Sub Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Modificar.Click
        deshabilitar()
        CedulaTextEdit.Enabled = False
    End Sub

    Private Sub Cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancelar.Click
        ESTUDIANTESBindingSource.CancelEdit()
        habilitar()
    End Sub

    Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click
        'Principal.Show()
        'Me.Hide()
        End

    End Sub

    Private Sub BuscarCed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscarced.Click
        Dim buscarcedula As String
        buscarcedula = InputBox("Introduzca el Nùmero de Cèdula: ", "Busqueda de Datos")
        Me.ESTUDIANTESTableAdapter.buscarcedula(Me.BDDECEDataSet.ESTUDIANTES, buscarcedula)
    End Sub

    Private Sub BuscarNom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscarnom.Click
        Dim buscarnom As String
        buscarnom = InputBox("Introduzca el Nombre: ", "Busqueda de Datos")
        Me.ESTUDIANTESTableAdapter.buscarnombres(Me.BDDECEDataSet.ESTUDIANTES, buscarnom)
    End Sub


    Private Sub Actualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Actualizar.Click
        Me.ESTUDIANTESTableAdapter.Fill(Me.BDDECEDataSet.ESTUDIANTES)

    End Sub


    Private Sub FotoPicturefoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FotoPicturefoto.Click
        Try
            OpenFileDialog1.Title = "Abrir Imagen"
            OpenFileDialog1.FileName = "Imagenes"
            OpenFileDialog1.Filter = "All Files |*.*"
            OpenFileDialog1.ShowDialog()
            FotoPicturefoto.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
        Catch ex As Exception
            'Do Nathing End Try
        End Try
    End Sub

    Private Sub Prov_nacComboEdit_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Prov_nacComboEdit.SelectedIndexChanged
        Me.CANTONESTableAdapter.buscarcanton(Me.BDDECEDataSet.CANTONES, Prov_nacComboEdit.SelectedValue)
    End Sub

    Private Sub Cant_nacComboEdit_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cant_nacComboEdit.SelectedIndexChanged
        Me.PARROQUIASTableAdapter.buscarparroquia(Me.BDDECEDataSet.PARROQUIAS, CInt(Prov_nacComboEdit.SelectedValue), CInt(Cant_nacComboEdit.SelectedValue))
    End Sub

    Private Sub Prov_resComboEdit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Prov_resComboEdit.SelectedIndexChanged
        Me.CANTONES1TableAdapter.buscarcanton1(Me.BDDECEDataSet.CANTONES1, Prov_resComboEdit.SelectedValue)
    End Sub

    Private Sub Cant_resComboEdit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cant_resComboEdit.SelectedIndexChanged
        Me.PARROQUIAS1TableAdapter.buscarparroquia1(Me.BDDECEDataSet.PARROQUIAS1, CInt(Prov_resComboEdit.SelectedValue), CInt(Cant_resComboEdit.SelectedValue))
    End Sub

    Private Sub Fecha_nacDateTimeEdit_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fecha_nacDateTimeEdit.ValueChanged

    End Sub

    Private Sub PrintPreviewControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.Show()
    End Sub

    Private Sub Gru_etnCombobox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub CedulaTextEdit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub CedulaTextEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CedulaTextEdit.Click
        If Trim(CedulaTextEdit.Text) <> "" Then
            If CEDULA(CedulaTextEdit.Text) = False Then
                MsgBox("Cedula Incorrecta", MsgBoxStyle.Information, "MENSOOOO..... XD")
            End If
        End If
    End Sub
End Class

Busqueda de cantones

SELECT CodProv, CodCant, Canton FROM CANTONES1 WHERE (CodProv = ?)

Busqueda de Cantones y Parroquias

SELECT Codprov, Provincia, codcant, Canton, codparr, parroquia FROM PARROQUIAS WHERE (Codprov = ?) AND (codcant = ?)

Read More

PREGUNTAS PROYECTO ESCOLAR

DECARGAR EL ARCHIVO DE LAS PREGUNTAS

Read More

LOGOTIPO FIESTA DE LA LECTURA

DESCARGUEN PDF LOGOTIPO

Read More

DICCIONARIO DE DATOS

Read More

EJERCICIOS DIAGRAMAS ENTIDAD RELACION

https://drive.google.com/file/d/0ByN53CLmL2escUg4RnRGbktBQms/view?usp=sharing

Read More

CÓDIGO DE LA CALCULADORA

Public Class Form1
    Dim DATO As Double
    Dim DATO2 As Double
    Dim RESUL As Double
    Dim OPE As Double

    Private Sub Buttonsuma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsuma.Click
        OPE = 1
        DATO = Val(TextBox1.Text)
        TextBox1.Clear()
    End Sub

    Private Sub Buttonresta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonresta.Click
        OPE = 2
        DATO = Val(TextBox1.Text)
        TextBox1.Clear()

    End Sub

    Private Sub Buttonmultiplicacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonmultiplicacion.Click
        OPE = 3
        DATO = Val(TextBox1.Text)
        TextBox1.Clear()
    End Sub

    Private Sub Buttondivision_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttondivision.Click
        OPE = 4
        DATO = Val(TextBox1.Text)
        TextBox1.Clear()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        DATO2 = Val(TextBox1.Text)
        If OPE = 1 Then
            RESUL = DATO + DATO2
            TextBox1.Text = RESUL
        Else
            If OPE = 2 Then
                RESUL = DATO - DATO2
                TextBox1.Text = RESUL
            Else
                If OPE = 3 Then
                    RESUL = DATO * DATO2
                    TextBox1.Text = RESUL
                Else
                    If OPE = 4 Then
                        RESUL = DATO / DATO2
                        TextBox1.Text = RESUL
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text & 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text & 2
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text & 3
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = TextBox1.Text & 4
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text & 5
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = TextBox1.Text & 6
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = TextBox1.Text & 7
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text = TextBox1.Text & 8
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text & 9
    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text = TextBox1.Text & 0
    End Sub
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox1.Text = ""
    End Sub
End Class

Read More

EJERCICIOS DE HERRAMIENTAS CASE - DIAGRAMAS ENTIDAD RELACION

EJERCICIO 4

A partir del siguiente supuesto diseñar el modelo entidad-relación:

“Se desea diseñar una base de datos para almacenar y gestionar la información empleada por una empresa dedicada a la venta de automóviles, teniendo en cuenta los siguientes aspectos:

●     La empresa dispone de una serie de coches para su venta. Se necesita conocer la matrícula, marca y modelo, el color y el precio de venta de cada coche.

●     Los datos que interesa conocer de cada cliente son el NIF, nombre, dirección, ciudad y número de teléfono: además, los clientes se diferencian por un código interno de la empresa que se incrementa automáticamente cuando un cliente se da de alta en ella.

●     Un cliente puede comprar tantos coches como desee a la empresa. Un coche determinado solo puede ser comprado por un único cliente.

●     El concesionario también se encarga de llevar a cabo las revisiones que se realizan a cada coche. Cada revisión tiene asociado un código que se incrementa automáticamente por cada revisión que se haga. De cada revisión se desea saber si se ha hecho cambio de filtro, si se ha hecho cambio de aceite, si se ha hecho cambio de frenos u otros.

●     Los coches pueden pasar varias revisiones en el concesionario”.

EJERCICIO 5

A partir del siguiente supuesto diseñar el modelo entidad-relación:

·       “La clínica “SAN PATRÁS” necesita llevar un control informatizado de su gestión de pacientes y médicos. De cada paciente se desea guardar el código, nombre, apellidos, dirección, población, provincia, código postal, teléfono y fecha de nacimiento.

·         De cada médico se desea guardar el código, nombre, apellidos, teléfono y especialidad.

·         Se desea llevar el control de cada uno de los ingresos que el paciente hace en el hospital.

·         Cada ingreso que realiza el paciente queda registrado en la base de datos.

·         De cada ingreso se guarda el código de ingreso (que se incrementará automáticamente cada vez que el paciente realice un ingreso), el número de habitación y cama en la que el paciente realiza el ingreso y la fecha de ingreso.

·         Un médico puede atender varios ingresos, pero el ingreso de un paciente solo puede ser atendido por un único médico. Un paciente puede realizar varios ingresos en el hospital”.

EJERCICIO 6

A partir del siguiente enunciado, diseñar el modelo entidad-relación.

“En la biblioteca del centro se manejan fichas de autores y libros. En la ficha de cada autor se tiene el código de autor y el nombre. De cada libro se guarda el código, título, ISBN, editorial y número de página. Un autor puede escribir varios libros, y un libro puede ser escrito por varios autores. Un libro está formado por ejemplares. Cada ejemplar tiene un código y una localización. Un libro tiene muchos ejemplares y un ejemplar pertenece sólo a un libro.

Los usuarios de la biblioteca del centro también disponen de ficha en la biblioteca y sacan ejemplares de ella. De cada usuario se guarda el código, nombre, dirección y teléfono. 

Los ejemplares son prestados a los usuarios. Un usuario puede tomar prestados varios ejemplares, y un ejemplar puede ser prestado a varios usuarios. De cada préstamos interesa guardar la fecha de préstamo y la fecha de devolución”.

EJERCICIO 7

 “A un concesionario de coches llegan clientes para comprar automóviles. De cada coche interesa saber la matrícula, modelo, marca y color. Un cliente puede comprar varios coches en el concesionario. Cuando un cliente compra un coche, se le hace una ficha en el concesionario con la siguiente información: dni, nombre, apellidos, dirección y teléfono.

Los coches que el concesionario vende pueden ser nuevos o usados (de segunda mano).

De los coches nuevos interesa saber el número de unidades que hay en el concesionario.

De los coches viejos interesa el número de kilómetros que lleva recorridos.

El concesionario también dispone de un taller en el que los mecánicos reparan los coches que llevan los clientes. Un mecánico repara varios coches a lo largo del día, y un coche puede ser reparado por varios mecánicos. 

Los mecánicos tienen un dni, nombre, apellidos, fecha de contratación y salario. Se desea guardar también la fecha en la que se repara cada vehículo y el número de horas que se tardado en arreglar cada automóvil”.

EJERCICIO 8

La liga de fútbol profesional, presidida por Don Ángel María Villar, ha decidido informatizar sus instalaciones creando una base de datos para guardar la información de los partidos que se juegan en la liga.

Se desea guardar en primer lugar los datos de los jugadores. De cada jugador se quiere guardar el nombre, fecha de nacimiento y posición en la que juega (portero, defensa, centrocampista…). Cada jugador tiene un código de jugador que lo identifica de manera única.

De cada uno de los equipos de la liga es necesario registrar el nombre del equipo, nombre del estadio en el que juega, el aforo que tiene, el año de fundación del equipo y la ciudad de la que es el equipo. Cada equipo también tiene un código que lo identifica de manera única. Un jugador solo puede pertenecer a un único equipo.

De cada partido que los equipos de la liga juegan hay que registrar la fecha en la que se juega el partido, los goles que ha metido el equipo de casa y los goles que ha metido el equipo de fuera. Cada partido tendrá un código numérico para identificar el partido. 

También se quiere llevar un recuento de los goles que hay en cada partido. Se quiere almacenar el minuto en el que se realizar el gol y la descripción del gol. Un partido tiene varios goles y un jugador puede meter varios goles en un partido.

Por último se quiere almacenar, en la base de datos, los datos de los presidentes de los equipos de fútbol (dni, nombre, apellidos, fecha de nacimiento, equipo del que es presidente y año en el que fue elegido presidente). Un equipo de fútbol tan sólo puede tener un presidente, y una persona sólo puede ser presidente de un equipo de la liga.

Read More

EVALUACIÓN PRIMER PARCIAL - PRIMER QUIMESTRE - DÉCIMO C

COPIEN EN TEXTO DEL ARCHIVO PDF Y PEGUELO EN UN DOCUMENTO NUEVO DE WORD, LUEGO AGRÉGUELE IMÁGENES Y LO QUE SE LE SOLICITA EN EL EJEMPLO.


HAGA CLICK PARA IR A LA EVALUACIÓN EN WORD

Read More

VISOR DE IMAGENES

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            PictureBox1.Load(OpenFileDialog1.FileName)
        End If

    End Sub
End Class

Read More

TAREA PRIMERO INFORMÀTICA PREVIO A LA EVALUACIÓN PRIMER PARCIAL

REALIZAR LOS SIGUIENTES PROGRAMAS.

1. Calcula el precio de un viaje sabiendo que este se paga por km y cada km se paga por 2 dólares
2. Mostrar cuantos euros son una cantidad dada ingresada en dólares
3. Mostrar el nuevo salario de un empleado si obtuvo un incremento del 8% sobre el salario:
4. Dada la cantidad de Billetes 5,10,20 mostrar el importe total:
5. Convertir una distancia en metros a kilómetros:
6. Dados dos números calcula la suma, la resta, la multiplicación y división:

Read More