FORMULARIO DE USUARIO

Este video les permitira hacer el ingreso de usuario

Read More

DEBERES PARA EL 2017

HAGA CLICK AQUI

Read More

COMBO PARA CANTONES Y PARROQUIAS

Agregar en el DATASET de CANTONES

SELECT CodProv, CodCant, Canton FROM CANTONES WHERE Codprov=?

Agregar en el DATASET de PARROQUIAS

SELECT Codprov, Provincia, codcant, Canton, codparr, parroquia FROM PARROQUIAS WHERE Codprov=?  and Codcant=?

Private Sub Prov_nacComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Prov_nacComboBox.SelectedIndexChanged

        Me.CANTONESTableAdapter.BUSCARCANTON(Me.BDDECEDataSet.CANTONES, Prov_nacComboBox.SelectedValue)

    End Sub

  

    Private Sub Cant_nacComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cant_nacComboBox.SelectedIndexChanged

        Me.PARROQUIASTableAdapter.buscarparroquia(Me.BDDECEDataSet.PARROQUIAS, CInt(Prov_nacComboBox.SelectedValue), CInt(Cant_nacComboBox.SelectedValue))

    End Sub

Read More

MALLA DESARROLLO PROFESIONAL DOCENTE

Read More

BASE DE DATOS DECE

HAGA CLICK

Read More

CURSO DE EXCEL BASICO

HAGA CLICK AQUI

Read More

CÓDIGO FUENTE EDICION DATOS

Public Class Form1
    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
        Salir.Enabled = False
        Buscar.Enabled = False
        Actualizar.Enabled = False
        '*************
        CedulaTextEdit.Enabled = True
        NombresTextEdit.Enabled = True
        EdadTextEdit.Enabled = True
        SexoComboBox.Enabled = True
        FotoPictureBox.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
        Salir.Enabled = True
        Buscar.Enabled = True
        Actualizar.Enabled = True
        '*************
        CedulaTextEdit.Enabled = False
        NombresTextEdit.Enabled = False
        EdadTextEdit.Enabled = False
        SexoComboBox.Enabled = False
        FotoPictureBox.Enabled = False
    End Sub
    Private Sub Form1_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 'Mi_baseDataSet.Sujeto' Puede moverla o quitarla según sea necesario.
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        deshabilitar()
        SujetoBindingSource.AddNew()
        CedulaTextEdit.Focus()
    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
            SujetoBindingSource.RemoveCurrent()
            SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
        Catch ex As Exception
            MsgBox("Lo sentimos su Base de Datos se encuentra vacia", MsgBoxStyle.Exclamation, "Datos")
        End Try
    End Sub

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

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

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

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

    Private Sub Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Guardar.Click
        SujetoBindingSource.EndEdit()
        SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
        MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
        habilitar()
    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 Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click
        End
    End Sub
    Private Sub Cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancelar.Click
        SujetoBindingSource.CancelEdit()
        habilitar()
    End Sub
    Private Sub Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click
        Dim buscarce As String
        buscarce = InputBox("Introduzca el Nùmero de Cèdula: ", "Busqueda de Datos")
        Me.SujetoTableAdapter.buscarcedula(Me.Mi_baseDataSet.Sujeto, buscarce)
    End Sub

    Private Sub Actualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Actualizar.Click
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Buscar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar1.Click
        Dim buscarnom As String
        buscarnom = InputBox("Introduzca el Nombre: ", "Busqueda de Datos")
        Me.SujetoTableAdapter.buscarnombres(Me.Mi_baseDataSet.Sujeto, buscarnom)
    End Sub


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

BÚSQUEDA DE CÉDULA

SELECT cedula, Nombres, Edad, Sexo, foto FROM Sujeto WHERE (cedula = ?)

BÚSQUEDA DE NOMBRES

SELECT cedula, Nombres, Edad, Sexo, foto FROM Sujeto WHERE (Nombres LIKE '%' + ? + '%')

Read More

EDICIÓN EN VISUAL BASIC .NET

Imports System.Data.OleDb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        SujetoBindingSource.AddNew()
        CedulaTextEdit.Focus()
    End Sub

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        If MsgBox("Deseas eliminar el registro?", CType(vbQuestion + vbYesNo, MsgBoxStyle), _
                  "Eliminar registro") = vbNo Then Exit Sub
        SujetoBindingSource.RemoveCurrent()
        SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
    End Sub

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

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

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

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SujetoBindingSource.EndEdit()
        SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
        MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
    End Sub

Read More

CODIGO FUENTE NUEVO-GUARDAR-ELIMINAR

Imports System.Data.OleDb
Public Class Form1

    Dim connString As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                              & "D:\PRACTICA MI_BASE\Mi_base.accdb" & ";Persist Security Info=False;") 'CAMBIA LA RUTA

    Dim Conexión As OleDbConnection = New OleDbConnection

    Private Sub SujetoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.SujetoBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Mi_baseDataSet)

    End Sub

    Private Sub Form1_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 'Mi_baseDataSet.Sujeto' Puede moverla o quitarla según sea necesario.
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)

    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        Try
            CedulaTextEdit.Text = ""
            NombresTextEdit.Text = " "
            EdadTextEdit.Text = 0
            SexoTextEdit.Text = ""
            CedulaTextEdit.Select()
        Catch ex As Exception
            ex.Message.ToUpper()
        End Try
    End Sub

    Private Sub Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Guardar.Click
        'Abrimos la conexión
        Conexión.ConnectionString = connString
        Conexión.Open()

        'Guardamos solo 4 campos
        Dim str As String
        str = "insert into Sujeto ([Cedula], [Nombres], [Edad], [Sexo]) values (?, ?, ?, ?)"

        Dim cmd As OleDbCommand = New OleDbCommand(str, Conexión)
        cmd.Parameters.Add(New OleDbParameter("Cedula", CType(CedulaTextEdit.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Nombres", CType(NombresTextEdit.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Edad", CType(EdadTextEdit.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Sexo", CType(SexoTextEdit.Text, String)))
        Try
            cmd.ExecuteNonQuery()
            MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
        Conexión.Close()
    End Sub

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        If SujetoDataGridView.Rows.Count < 1 Then Exit Sub
        If MsgBox("Deseas eliminar el registro?", CType(vbQuestion + vbYesNo, MsgBoxStyle), _
                  "Eliminar registro") = vbNo Then Exit Sub

        Conexión.ConnectionString = connString
        Conexión.Open()

        Dim str As String

        str = "Delete from Sujeto Where Cedula = '" & CedulaTextEdit.Text & "'"
        Dim cmd As OleDbCommand = New OleDbCommand(str, Conexión)
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
        Try
            cmd.ExecuteNonQuery()
            MsgBox("Registro eliminado", MsgBoxStyle.Exclamation, "Eliminar registro")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)

        Conexión.Close()

    End Sub
End Class

Read More

PROYECTO EN VISUAL BASIC .NET CON ACCESS

HAGA CLICK AQUI PARA VER LOS VIDEOS DEL PROYECTO

Read More

TUTORIAL DE VISUAL BASIC .NET (VISUAL STUDIO 2010

HAGA CLICK PARA VER LOS VIDEOS DEL TUTORIAL

Read More

CONEXION BD ACCESS VB .NET

Imports System.Data.OleDb
Module Module1
    ' CREAR CONEXION

    Private ConecBD As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                           "Data Source=C:\Users\PCServifor\Documents\proyecto basededatos\estudiantes.accdb;")

    Public Sub Conectarse()
        Try
            ConecBD.Open()
            MsgBox("Conexion exitosa")
        Catch ex As Exception
            MsgBox("Conexion fallida")
        End Try
    End Sub
End Module

Read More

67 FORMULAS AVANZADAS PARA PRACTICAS

HAGA CLICK PARA VER LAS PRACTICAS

Read More

FORMULAS PARA PRACTICAR

Haga click aquì para ver la pràctica.

Read More

CONEXION DE BD DENTRO DE UN PROYECTO

CREAR UN MODULO DENTRO DEL PROYECTO 

Imports System.Data.OleDb

Module funcionesDb

    ' CREAR CONEXION

    Private ConecBD As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                         "Data Source=BDInventario.accdb;")
    Public Sub Conectarse()
        Try
            ConecBD.Open()
            MsgBox("Conexion exitosa")
        Catch ex As Exception
            MsgBox("Conexion fallida")
        End Try
    End Sub


End Module

CÓDIGO EN EL FORMULARIO

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Conectarse()
    End Sub

Read More

VIDEO DE CONEXION DE UNA BASE DE DATOS ACCESS CON VB .NET

https://www.youtube.com/watch?v=Mr832Tc_LIg&list=PLpOqH6AE0tNic0oQ_sqQLCNfaL5oEEBo6&index=25

Read More

PRACTICAS DE EXCEL BASICO

Haga click en este link para ver las practicas de Excel.

Read More

BUSCAR Y REEMPLAZAR EN VB .NET

LLAMAR AL FORMULARIO

Private Sub SubIndiceButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SubIndiceButton2.Click
        frmReplace.Show()
End Sub

    Private Sub btnbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscar.Click

        Dim StartPosition As Integer
        Dim SearchType As CompareMethod

        StartPosition = InStr(1, Form1.RichTextBox1.Text, txtbuscar.Text, SearchType)

        If StartPosition = 0 Then
            MessageBox.Show("Palabra: '" & txtbuscar.Text.ToString() & "'No encontrada", "Búsqueda en el documento", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            Exit Sub
        End If

        form1.richtextbox1.Select(StartPosition - 1, txtbuscar.Text.Length)
        form1.richtextbox1.ScrollToCaret()
        Form1.Focus()


    End Sub



    Private Sub btnbuscarsiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscarsig.Click

        Dim StartPosition As Integer = form1.richtextbox1.SelectionStart + 2
        Dim SearchType As CompareMethod

        StartPosition = InStr(StartPosition, Form1.RichTextBox1.Text, txtbuscar.Text, SearchType)

        If StartPosition = 0 Then
            MessageBox.Show("Palabra: '" & txtbuscar.Text.ToString() & "' No encontrada", "Búsqueda en el documento", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            Exit Sub
        End If

        Form1.RichTextBox1.Select(StartPosition - 1, txtbuscar.Text.Length)
        Form1.RichTextBox1.ScrollToCaret()
        Form1.Focus()

    End Sub



    Private Sub btnReemplazar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReemplazar.Click

        If form1.richtextbox1.SelectedText.Length <> 0 Then
            form1.richtextbox1.SelectedText = txtreemplazar.Text
        End If

        Dim StartPosition As Integer = form1.richtextbox1.SelectionStart + 2
        Dim SearchType As CompareMethod

        StartPosition = InStr(StartPosition, Form1.RichTextBox1.Text, txtbuscar.Text, SearchType)

        If StartPosition = 0 Then
            MessageBox.Show("Palabra: '" & txtbuscar.Text.ToString() & "' No encontrada", "Búsqueda en el documento", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            Exit Sub
        End If

        form1.richtextbox1.Select(StartPosition - 1, txtbuscar.Text.Length)
        form1.richtextbox1.ScrollToCaret()
        Form1.Focus()

    End Sub



    Private Sub btnReemplazartodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReemplazartodo.Click


        Dim currentPosition As Integer = form1.richtextbox1.SelectionStart
        Dim currentSelect As Integer = form1.richtextbox1.SelectionLength

        form1.richtextbox1.Rtf = Replace(form1.richtextbox1.Rtf, Trim(txtbuscar.Text), Trim(txtreemplazar.Text))
        form1.richtextbox1.SelectionStart = currentPosition
        form1.richtextbox1.SelectionLength = currentSelect

        Form1.Focus()

    End Sub

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO "COMERCIO" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "COMERCIO" EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

BARRA DE ESTADO Y ZOOM EN .NET

BARRA DE ESTADO

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        dirty = True
        Dim contp As Integer
        Dim pal As String
        For i = 1 To RichTextBox1.Text.Length
            pal = (Mid(RichTextBox1.Text, i, 1))
            If pal = " " Then
                contp = contp + 1
            End If
        Next
        ToolStripStatusLabel3.Text = contp + 1
    End Sub

ZOOM

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        If TrackBar1.Value = 1 Then
            RichTextBox1.ZoomFactor = 1
        ElseIf TrackBar1.Value = 2 Then
            RichTextBox1.ZoomFactor = 2
        ElseIf TrackBar1.Value = 3 Then
            RichTextBox1.ZoomFactor = 3
        ElseIf TrackBar1.Value = 4 Then
            RichTextBox1.ZoomFactor = 4
        ElseIf TrackBar1.Value = 5 Then
            RichTextBox1.ZoomFactor = 5
        ElseIf TrackBar1.Value = 6 Then
            RichTextBox1.ZoomFactor = 6
        ElseIf TrackBar1.Value = 7 Then
            RichTextBox1.ZoomFactor = 7
        ElseIf TrackBar1.Value = 8 Then
            RichTextBox1.ZoomFactor = 8
        ElseIf TrackBar1.Value = 9 Then
            RichTextBox1.ZoomFactor = 9
        ElseIf TrackBar1.Value = 10 Then
            RichTextBox1.ZoomFactor = 10
        End If
    End Sub

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO PARALELO "C" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "C" EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO PARALELO "B" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "B" PRACTICAS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO PARALELO "A" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "A" EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

EJERCICIOS PARA SEGUNDO BACHILLERATO CIENCIAS PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: SEGUNDO CIENCIAS EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO PARALELO "D" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "D" EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

FORMULARIO PARA BUSCAR PALABRAS EN VB .NET

BOTÓN PARA ACCEDER AL FORMULARIO
      BuscarForm.Show()

FORMULARIO BUSCAR
 Form1.RichTextBox1.Find(ComboBox1.Text)
 Form1.RichTextBox1.Focus()

Read More

ORTOGRAFÍA .NET

Dim speller As Object
        Dim txt As String
        Dim new_txt As String
        Dim pos As Integer

        speller = CreateObject("Word.Basic")

        speller.FileNew()
        speller.Insert(RichTextBox1.Text)
        speller.ToolsSpelling()
        speller.EditSelectAll()
        txt = speller.Selection()


        If RSet(txt, 1) = vbCr Then _
            txt = LSet(txt, Len(txt) - 1)
        new_txt = ""
        pos = InStr(txt, vbCr)
        Do While pos > 0
            new_txt = new_txt & LSet(txt, pos - 1) & vbCrLf
            txt = RSet(txt, Len(txt) - pos)
            pos = InStr(txt, vbCr)
        Loop
        new_txt = new_txt & txt
        speller.FileExit(2)
        RichTextBox1.Text = new_txt

Read More

TAREA DE PRIMERO BACHILLERATO SECCIÓN VESPERTINA

Haga click aqui

Read More

Código fuente para abrir un archivo de word en VB .net

código fuente para abrir un archivo de word

Read More

NEGRITA, CURSIVA, SUBRAYADO Y DOBLE SUBRAYADO.

Sub cambiarestilo(ByVal estiloselec As FontStyle)

        Dim estilo As FontStyle = RichTextBox1.SelectionFont.Style

        If estiloselec = FontStyle.Bold Then

            If RichTextBox1.SelectionFont.Bold = False Then
                estilo += FontStyle.Bold
            Else
                estilo -= FontStyle.Bold
            End If

        ElseIf estiloselec = FontStyle.Italic Then

            If RichTextBox1.SelectionFont.Italic = False Then
                estilo += FontStyle.Italic
            Else
                estilo -= FontStyle.Italic
            End If

        ElseIf estiloselec = FontStyle.Underline Then

            If RichTextBox1.SelectionFont.Underline = False Then
                estilo += FontStyle.Underline
            Else
                estilo -= FontStyle.Underline
            End If

        ElseIf estiloselec = FontStyle.Strikeout Then

            If RichTextBox1.SelectionFont.Strikeout = False Then
                estilo += FontStyle.Strikeout
            Else
                estilo -= FontStyle.Strikeout
            End If

        End If

        RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, estilo)

    End Sub

--------------------------------------

En cada Botón

cambiarestilo(FontStyle.Bold)
cambiarestilo(FontStyle.Italic)
cambiarestilo(FontStyle.Underline)
cambiarestilo(FontStyle.Strikeout)

Read More

Video de un Editor

https://www.youtube.com/watch?v=EIbL-SkMqx0

Read More

CODIFICACIÓN DE COMBOBOX FUENTE

Imports System.Drawing.Text
Imports System.IO
Public Class Form1
    Private Sub CarregarFont()
        If My.Computer.FileSystem.FileExists(Application.StartupPath & "\font.txt") = False Then
            Dim fi As New System.IO.StreamWriter(Application.StartupPath & "\font.txt")
            Dim family As FontFamily
            For Each family In FontFamily.Families
                If family.IsStyleAvailable(FontStyle.Bold) = False Then Exit For
                fi.WriteLine(family.Name)
            Next family
            fi.Close()
        End If
        '-------------------------------------------------------------------------------------------/
        Dim linha As New StreamReader(Application.StartupPath & "\font.txt")
        Do While Not linha.EndOfStream
            txtFont.Items.Add(linha.ReadLine)
        Loop
        linha.Close()
    End Sub

    Private Sub txtSize_ValueChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtSize.ValueChanged
        Dim f As New Font(RichTextBox1.SelectionFont.FontFamily, txtSize.Value)
        RichTextBox1.SelectionFont = f
    End Sub
    Private Sub txtFont_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtFont.SelectedIndexChanged
        Dim f As New Font(txtFont.Text, RichTextBox1.SelectionFont.Size)
        RichTextBox1.SelectionFont = f
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CarregarFont()
    End Sub
End Class

Read More

CODIGO DEL EDITOR DE TEXTOS

Les dejo aqui los codigos:

Abrir:
Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filter = "Text [*.txt*]|*.txt|All Files [*,*]|*,*"
Open.CheckFileExists = True
Open.Title = "Abrir Archivo"
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
document.Text = myStreamReader.ReadToEnd()
Catch ex As Exception

End Try

Guardar:
Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter = "Text (*.txt)|*.txt|HTML(*.html*)|*.html|PHP(*.php*)|*.php*|All files(*.*)|*.*"
Save.CheckPathExists = True
Save.Title = "Guardar como"
Save.ShowDialog(Me)
Try
myStreamWriter = System.IO.File.AppendText(Save.FileName)
myStreamWriter.Write(document.text)
myStreamWriter.Flush()
Catch ex As Exception

End Try

Copiar: document.copy()
Cortar: document.Cut()
Pegar: document.Paste()
Undo: document.Undo()
Redo: document.Redo()

Fuente:
Try Dim dlg As FontDialog = New FontDialog dlg.Font = document.font If dlg.showdialog = System.Windows.Forms.DialogResult.OK Then document.Font = dlg.Font End If
Catch ex As Exception: End Try

Color:
Try Dim dlg As ColorDialog = New ColorDialog dlg.Color = document.Forecolor If dlg.ShowDialog = System.Windows.Forms.DialogResult.Ok Then document.Forecolor = dlg.Color End If
Catch ex As Exception

End Try

Otro código

Los codigos son:

Nuevo:
document.Clear

Abrir:
Dim open As New OpenFileDialog Dim myStreamReader As System.IO.StreamReader open.Filter = "Text[*.txt*]|*.txt|All Files [*.*]|*.*" open.CheckFileExists = True open.Title = "Abrir Archivo" open.ShowDialog(Me) Try open.OpenFile() myStreamReader = System.IO.File.OpenText(open.FileName) document.Text = myStreamReader.ReadToEnd Catch ex As Exception End Try

Guardar Como:
Dim save As New SaveFileDialog Dim myStreamWriter As System.IO.StreamWriter save.Filter = "Text (*.txt)|*.txt|HTML(*.html*)|*.html|PHP(*.php*)|*.php*|All Files(*.*)|*.*" save.CheckPathExists = True save.Title = "Guardar Como" save.ShowDialog(Me) Try myStreamWriter = System.IO.File.AppendText(save.FileName) myStreamWriter.Write(document.Text) myStreamWriter.Flush() Catch ex As Exception End Try

Salir:
End

Deshacer:
document.Undo

Rehacer:
document.Redo

Copiar:
document.Copy

Pegar:
document.Paste

Cortar:
document.Cut

Seleccionar Todo:
document.SelectAll

Limpiar Texto:
document.Clear

Fuente:
Try Dim dlg As FontDialog = New FontDialog dlg.Font = document.Font If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then document.Font = dlg.Font End If Catch ex As Exception End Try

Color de Fuente:
Try Dim dlg As ColorDialog = New ColorDialog dlg.Color = document.ForeColor If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then document.ForeColor = dlg.Color End If Catch ex As Exception End Try

Color de Fondo:
Try Dim dlg As ColorDialog = New ColorDialog dlg.Color = document.BackColor If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then document.BackColor = dlg.Color End If Catch ex As Exception End Try

Read More

MENU PRINCIPAL CON RIBBON EN VISUAL BASIC .NET

Haga click para ver el video

Read More

VIDEO EJEMPLO DE NORMALIZACION

Read More

USUARIO, CONTRASEÑA Y MENÚ PRINCIPAL EN VISUAL BASIC .NET 2010

USUARIO Y CONTRASEÑA

MENU PRINCIPAL

Read More

Características de Windows 10

Read More

COMBINACIONES DE TECLAS PARA MANEJAR MICROSOFT WORD 2010

HAGA CLICK PARA VISUALIZAR EL LISTADO

Read More

EVALUACIÓN DEL PRIMER PARCIAL DE SISTEMAS MULTIUSUARIOS Y EN RED

HAGA CLICK AQUI PARA REALIZAR SU EVALUACION

Read More

EVALUACIÓN DEL PRIMER PARCIAL DE ANÁLISIS Y DISEÑO DE SISTEMAS INFORMÁTICOS Y DE GESTION

HAGA CLICK AQUI PARA INICIAR SU EVALUACIÒN

Read More

EVALUACIÓN DEL PRIMER PARCIAL - TERCERO INFORMATICA

Hagan click para resolver el examen.

Read More

10/6/16

Read More

FOLLETO DE ANÁLISIS Y DISEÑO DETALLADO DE APLICACIONES INFORMÁTICAS Y DE GESTIÓN

Haga click para acceder al Link

Read More

HERRAMIENTAS CASE - BASES DE DATOS

Haga click aqui, para ver los videos.

Read More

Programación en Visual Basic. Net con Visual Studio 2010

https://www.youtube.com/playlist?list=PLZPrWDz1MoloGD4irFB-YMIKvUYNu1i3m

Read More

FORMAS DE RESPALDAR LA INFORMACION

     CUANDO EL SISTEMA OPERATIVO SE ENCUENTRE LLENO DE VIRUS, LENTO Y LAS APLICACIONES DEMORAN EN CARGAR O EJECUTAR.

• Primeramente creamos una carpeta en el escritorio llamado RESPALDOS o si tuviéramos unidad D, hiciéramos lo mismo.
• Copiamos a la Carpeta RESPALDOS todos los documentos de Word, Excel, Powerpoint, etc que el cliente considere importantes.
• Luego de respaldar la información, procedemos para reiniciar el computador e insertar el CD o pendrive de Instalación del Sistema Operativo que desee instalar. Ejm: Windows xp, 7, 8 o 10.

  CUANDO EL SISTEMA OPERATIVO NO ARRANQUE Y EL COMPUTADOR ESTE COLGADO.

• Insertamos el CD o pendrive MULTIBOOT con el programa Hiren’s Boot.

• Antes de que se inicie el Sistema Operativo presionamos la tecla F9 (La tecla de función de Booteo depende de la marca de computador que usted tenga, observe al momento de encender el computador y dese cuanta de la tecla a utilizar).

• Procedemos a realizar un click en Hiren's Boot CD y ejecutarlo.
• Nos encontraremos con varias opciones para reparar dispositivos tales como Disco duro, Booteo, recuperación de archivos, etc, pero la opcion principal para respaldar la información es presionar Enter en MINI XP.
• Esperamos que inicie nuestro MINI XP desde el Pendrive o CD del Hiren's Boot con la finalidad de que podamos tener acceso a los archivos o documentos que necesitemos respaldar, en vista a que no tenemos acceso al sistema operativo del computador.
• Buscamos dentro de las unidades de almacenamiento la información que necesitemos la copiamos en una carpeta llamada RESPALDO y luego la copiamos a nuestro pendrive.

Read More

INSTALANDO WINDOWS 7 Y OFFICE 2010

https://drive.google.com/open?id=0ByN53CLmL2esVnJaUmdBM3JUVzQ

Read More

EXAMEN III PARCIAL - II QUIMESTRE - PRIMERO BACHILLERATO CIENCIAS NOCTURNO

https://docs.google.com/spreadsheets/d/1jcWLy-rfWz5LeLj0Kq0ch0yyrUSlFfeDlC-sFqhu5fU/edit?usp=sharing

Read More