1. Bajo q estructura de base de datos o archivo de sistema trabajan los sistemas operativos:

1. Que es lo q realiza el msconfig en el sistema operativo window px:

Definición de MSConfig(System Configuration Utility). Herramienta de Windows que permite configurar el sistema y especialmente el inicio del sistema operativo. MSConfig es un programa que viene en todos los Windows desde 1995 exceptuando Windows 2000.MSConfig permite modificar los programas que se iniciarán junto con el sistema operativo, editar algunos archivos de configuración como SYSTEM.INI, WIN.INI, BOOT.INI, AUTOEXEC.BAT, CONFIG.SYS y controlar básicamente los servicios de Windows.Se puede acceder a esta herramienta en Windows desde Inicio - Ejecutar escribiendo "msconfig", en cualquier sistema donde el usuario tenga privilegios de administrador.Deshabilitar programas que se inicien con Windows usando MSConfigLa utilidad principal del MSConfig es editar la lista de archivos (programas) que se cargan al iniciar Windows de forma rápida (en lugar de tener que modificar el Registro de Windows).Modificar los archivos de inicio del sistema requiere ciertos conocimientos y astucia. Windows suele tener múltiples programas innecesarios que se cargan al iniciar, con MSConfig, el usuario puede escoger cual cargar y cual no. Lo recomendable es investigar sobre cada uno de los archivos que se cargan en el inicio y decidir si se desea permitir o no.

ADO

file://C:\Documents and Settings\ALUMNO\Escritorio\para\prog

Probabilidades

Ç =INTERCECCION

È=UNION

http://actividadesinfor.webcindario.com/probabilidad.htm
ejemplo(01):

En una determinada población el 50% ha estado casado alguna vez, el 50% tiene menos de 70 años y el 80% no padece ninguna enfermedad contagiosa. De estos últimos el 60% tiene menos de 70 años y el 40% ha estado casado alguna vez. De los que han estado casados alguna vez, sólo el 20% tiene menos de 70 años. El 10% de la población reune las tres condiciones. Representar la información anterior en un diagrama de Venn.
Solución
(Por comodidad en la representación consideramos que la población tiene 100 personas)
Sea C el conjunto de los que han estado casados alguna vez.
“ B “ tienen menos de 70 años.
“ E “ no padecen enfermedad contagiosa.
Se verifica :
card ( C ) = 50% de la población; card (E) = 80%; card (B) =50%:
card (E Ç B) = 48%; card (E Ç C) = 32%; card (C Ç B) = 10%;
card (C Ç E Ç B) = 10% ____________________________________________________________________

ejemplo(02):

En una determinada población, el 70% son aficionados al fútbol, el 60% al tenis y el 65% al baloncesto. El 45% lo son al fútbol y al tenis, el 40% al tenis y al baloncesto y el 50% al fútbol y al baloncesto, mientras que el 30% lo son a los tres deportes. ¿Cuál es la probabilidad de que un individuo escogido al azar no sea aficionado a ninguno de los tres deportes?
Solución
Pasamos al contrario, es decir calculamos en primer lugar la probabilidad de que sea aficionado al menos a uno de los tres.
p( FÈTÈB) = 0,70 + 0,60 + 0,65 - 0,45 - 0,40 - 0,50 + 0,30 = 0,90
Por lo tanto p(“no sea aficionado a ningún deporte de los tres”) = 1 - 0,90 = 0,10.

____________________________________________________________________

ejemplo(03):

Lanzamos un dado hasta observar por segunda vez un 6. Hallar la probabilidad de que tal cosa suceda antes del quinto lanzamiento.
Solución
Observar un 6 por segunda vez (antes del 5º) puede ocurrir al 2º, 3º ó 4º lanzamiento,
P(ocurra en 2º) =1/36; 6 y 6
P(ocurra en 3º) = 2. (5/6).(1/36)= 5/108; 6  6,  6 6 (dos 6 y otro número cualquiera)
P(ocurra en 4º) = 3. (25/36).(1/36) = 25/432; 66 (dos 6 y los otros dos nº cualesquiera 3 formas para esta situación).
P(observar un 6 por segunda vez antes del 5º lanzamiento)= 1/36 + 5/108 + 25/432 = 0,132

==================================================================

____________________________________________________________________

*****Se lanza una moneda y si sale cara se ponen 7 bolas blancas en una urna y si sale cruz se ponen 4 blancas. Se vuelve a lanzar la moneda y se ponen 5 o 2 bolas negras, según se saque cara o cruz. Despues se saca una bola de urna así compuesta. Veamos las distintas posibilidades:

Si queremos la probabilidad de que sea blanca, se tendrá:
p(B) =7/48 + 7/36 + 1/9 +1/6= 89/144 = 0,62
(El teorema de la probabilidad total formaliza este resultado).
Si sabemos que la bola que ha salido es blanca ¿cuál es la probabilidad de que hayan salido dos caras?
Teníamos los siguientes resultados :
Se extrae blanca cuando CC: 0,14
“ blanca cuando CF: 0,20
“ blanca cuando FC: 0,11 blanca : 0,62
“ blanca cuando FF: 0,17
Esto puede interpretarse así: de cada 62 veces que extraemos blanca, 14 veces ocurre cuando sale CC, luego la proporción es 0,14/0,62 = 0,225%
Podemos afirmar pues que p(CC/B) = 0,225.
La fórmula de Bayes nos justifica este resultado.

¿QUE MAS TE GUSTARIA UNA CAMITA O UN POLO...?

Ejemplo 01:

Public Class Form1

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim salir As MsgBoxResult
salir = MsgBox("Desea salir del programa", MsgBoxStyle.YesNo, "Mi programa")
'aparece una ventana de opciones si o no
If salir = MsgBoxResult.No Then
e.Cancel = True
'e.cancel desactiva la salida
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.btncalc.Enabled = False
Me.btnnuevo.Enabled = False
End Sub
Function minus(ByVal a As Integer) As Boolean
If a >= 97 And a <= 122 Then
minus = True
Else
minus = False
End If
End Function
Function mayus(ByVal a As Integer) As Boolean
If a >= 65 And a <= 90 Then
mayus = True
Else
mayus = False
End If
End Function
Function especial(ByVal a As Integer) As Boolean

If a = 255 Or a = 233 Or a = 237 Or a = 13 Or a = 243 Or a = 250 Or a = 8 Or a = 27 Or a = 32 Or a = 241 Or a = 209 Then
especial = True
Else
especial = False
End If
End Function
Function numeros(ByVal a As Integer) As Boolean
If a >= 48 And a <= 57 Then
numeros = True
Else
numeros = False
End If
End Function

Private Sub txtnombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress
Static p As Boolean
If Asc(e.KeyChar) = 13 Then 'si presiona enter entoces
Me.txtedad.Focus()
End If
If Asc(e.KeyChar) = 32 Then ' si preciona espacio
p = True
Else
' si ingresa cualquiera de estas condiciones((funciones))
If minus(Asc(e.KeyChar)) Or mayus(Asc(e.KeyChar)) Or especial(Asc(e.KeyChar)) Then
'________________________________________________________
If Trim(Me.txtnombre.Text) = "" Or p Then ' si encuentra algun espacio
e.KeyChar = UCase(e.KeyChar) 'Combierte todo a MAYUSCULAS
Else
e.KeyChar = LCase(e.KeyChar) 'Combierte todo a minusculas
End If
p = False
'________________________________________________________
Else
'muestra el mensaje de error
MsgBox("Te equibocaste; El Dato Ingresado es Invalido", MsgBoxStyle.Critical, "Mensajes del Sistema..")
e.KeyChar = ChrW(0) 'borra lo almacenado en la variable
'-------------------- el cero indica que es NULO o NADA
End If
End If
End Sub

Private Sub txtedad_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtedad.KeyPress
If Asc(e.KeyChar) = 13 Then
Dim n As Integer
If Trim(Me.txtedad.Text) = "" Then
MsgBox("Es necesario que ingreses algun DATO", MsgBoxStyle.Critical, "Mensaje del Sistema")
Else
n = Me.txtedad.Text
'______________________________________________________-
If n >= 18 And n <= 65 Then
Me.txtsexo.Focus()
Else
MsgBox("Solo se permite la edad entre 18-65 años", MsgBoxStyle.Critical, "Mensajes del Sistema")
Me.txtedad.Text = ""
n = 0
End If
'_______________________________________________________-
End If

End If
End Sub

Private Sub txtsexo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtsexo.KeyPress
If Asc(e.KeyChar) = 13 Then

If Me.txtsexo.Text = "H" Or Me.txtsexo.Text = "h" Or Me.txtsexo.Text = "M" Or Me.txtsexo.Text = "m" Then

Me.txtsueldo.Focus()
Else
MsgBox("solo se permiten los simbolos H= hombre; M= mujer", MsgBoxStyle.Critical, "Mensaje del Sistema")
Me.txtsexo.Text = ""
End If
End If
End Sub
Dim s As Integer
Private Sub txtsueldo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtsueldo.KeyPress
If Asc(e.KeyChar) = 13 Then

'*************************************
If Trim(Me.txtsueldo.Text) = "" Then
MsgBox("Es necesario que ingreses algun DATO", MsgBoxStyle.Critical, "Mensaje del Sistema")
Else
s = Me.txtsueldo.Text
'_________________________________________________
If s >= 1000 And s <= 2000 Then
If Trim(Me.txtnombre.Text) = "" Or Trim(Me.txtedad.Text) = "" Or Trim(Me.txtsexo.Text) = "" Or Trim(Me.txtsueldo.Text) = "" Then
MsgBox("Es necesario que ingreses todos los DATOS", MsgBoxStyle.Critical, "Mensaje del Sistema")
Me.txtnombre.Focus()
Else
Me.btncalc.Enabled = True
Me.btnnuevo.Enabled = True
Me.btncalc.Focus()
End If

Me.btncalc.Focus()
Else
MsgBox("Solo se permiten Valores entre 1000-2000", MsgBoxStyle.Critical, "Mensaje del Sistema")
Me.txtsueldo.Text = ""
End If
'_________________________________________________
End If
'***********************************************************
End If
End Sub

Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
Close()
End Sub

Private Sub btnnuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnuevo.Click
Me.txtnombre.Text = ""
Me.txtedad.Text = ""
Me.txtsexo.Text = ""
Me.txtsueldo.Text = ""
Me.lblgrati.Text = ""
Me.lbldesc.Text = ""
Me.lbltotal.Text = ""
Me.txtnombre.Focus()
End Sub
Dim g As Integer
Dim d As Integer
Private Sub btncalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalc.Click

'______________________________________________________________
If Me.txtsexo.Text = "h" Or Me.txtsexo.Text = "H" Then
If Me.txtedad.Text >= 30 And Me.txtedad.Text <= 35 Then
g = Me.txtsueldo.Text * 0.15
Me.lblgrati.Text = g
Else
Me.lblgrati.Text = "0"
End If
End If
'______________________________________________________________

If Me.txtsexo.Text = "m" Or Me.txtsexo.Text = "M" Then
If Me.txtedad.Text >= 18 And Me.txtedad.Text <= 65 Then
d = Me.txtsueldo.Text * 0.5
Me.lbldesc.Text = d
Else
Me.lbldesc.Text = "0"
End If
End If
'______________________________________________________________
Dim t As Integer
t = (s + g - d)
Me.lbltotal.Text = t
Me.btnnuevo.Focus()
End Sub
End Class

Trabajos en Bisual Vasic.Net

Bueno aca les dejo mi
aporte:

Para todos los que deseen una ayuda oi guia el los trabajos dejados por los profes.