UNIDAD III

Menú Chido

Private Sub ABSTRACTOS_Click()
dATOSaBSTRACTOS.Show 1
End Sub
Private Sub araña_Click()
arregloypromedio.Show 1
End Sub
Private Sub BIENVENIDO_Click()
Bienvenido_a_VB.Show 1
End Sub
Private Sub BURBUJA_Click()
burbujamaymenyprom.Show 1
End Sub
Private Sub CALENDARIOx_Click()
calendario.Show 1
End Sub
Private Sub CAPTURENUM_Click()
captura.Show 1
End Sub
Private Sub CHICUADRADA_Click()
NUMCUACUB.Show 1
End Sub
Private Sub CHIQUITO_Click()
investmenu.Show 1
End Sub
Private Sub CONTADITOS_Click()
meses.Show 1
End Sub
Private Sub DATABASE_Click()
registraalumnos.Show 1
End Sub
Private Sub DEPRA_Click()
tienda.Show 1
End Sub
Private Sub DESPLEGA_Click()
desplegadatos.Show 1
End Sub
Private Sub DÍAS_Click()
diasvividos.Show 1
End Sub
Private Sub INCREMENTO_Click()
clickraton.Show 1
End Sub
Private Sub Label1_Click()
Label1 = Date
End Sub
Private Sub LISTA_Click()
listas.Show 1
End Sub
Private Sub METODO_Click()
metodo_de_seleccion.Show 1
End Sub
Private Sub MINaMAY_Click()
MinusAmAYU.Show 1
End Sub
Private Sub MINUTOS_Click()
hora.Show 1
End Sub
Private Sub MN_Click()
mariquita.Show 1
End Sub
Private Sub Panfila_Click()
Calculadora.Show 1
End Sub
Private Sub PAT_Click()
factoring.Show 1
End Sub
Private Sub SEGUIR_Click()
ulam.Show 1
End Sub
Private Sub SUMA_Click()
velos.Show 1
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub
Private Sub web_Click()
arreglo.Show 1
End Sub

Base de Datos "Registar Alumnos"

Global db As Database
Global tabla As Recordset
Private Sub Command1_Click()
tabla.AddNew
tabla!NOMBRE = UCase(Text1)
tabla!SEMESTRE = Combo2
tabla!GRUPO = Combo3
tabla!MATERIA = Combo4
tabla!CALIFICACION = UCase(Text2)
tabla!CARRERA = Combo1
tabla.Update
MsgBox "REGISTRADO"
limpia
Beep
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("G:\REGISTROALUMNOS\base de datos.mdb")
Set tabla = db.OpenRecordset("ALUMNOS")
End Sub
Sub limpia()
Text1 = ""
Text2 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
Combo4 = ""
End Sub

UNIDAD II

La tiendita

Private Sub Cmdeliminar_Click()
Dim eliminar As Integer
a = MsgBox("eliminar el registro", vbYesNo, "ventas")
If a = 6 Then
eliminar = Right(List1, 14)
Txtotal = Str(Val(Txtotal) - Val(eliminar))
Txtotal = Format(Txtotal, "###.00")
Else
Exit Sub
End If
List1.RemoveItem List1.ListIndex
End Sub
Private Sub cmdpagar_Click()
Dim cambio As Integer
cambio = InputBox("capture el pago", "ventas", 0)
cambio = cambio - Val(Txtotal)
MsgBox cambio
MsgBox Format(cambio, "###.00"), vbinformatio
End Sub
Private Sub Command1_Click()
If Comproducto = "pastel 3 leches" Then
Txtunitario.Text = Str(50)
Txtunitario = Format(Txtunitario, "###.00")
List1.AddItem (Comproducto) + Space(15) + (Txtunitario)
End If
If Comproducto = "gelatina italiana" Then
Txtunitario.Text = Str(120)
Txtunitario = Format(Txtunitario, "###.00")
List1.AddItem (Comproducto) + Space(15) + (Txtunitario)
End If
If Comproducto = "flan" Then
Txtunitario.Text = Str(350)
Txtunitario = Format(Txtunitario, "###.00")
List1.AddItem (Comproducto) + Space(15) + (Txtunitario)
End If
If Comproducto = "pay de fresa" Then
Txtunitario.Text = Str(50)
Txtunitario = Format(Txtunitario, "###.00")
List1.AddItem (Comproducto) + Space(15) + (Txtunitario)
End If
If Comproducto = "guayaveras" Then
Txtunitario.Text = Str(650)
Txtunitario = Format(Txtunitario, "###.00")
List1.AddItem (Comproducto) + Space(15) + (Txtunitario)
End If
Txtotal = Str(Val(Txtotal)) + Val(Txtunitario)
End Sub
Private Sub Form_Load()
Comproducto.AddItem "pastel 3 leches"
Comproducto.AddItem "gelatina italiana"
Comproducto.AddItem "flan"
Comproducto.AddItem "pay de fresa"
Comproducto.AddItem "guayaveras"
End Sub

Serie Ulam

Dim resultado, NUMERO As Integer
Private Sub Command1_Click()
NUMERO = InputBox("dame el numero a generar", "captura el numero", 0)
resultado = NUMERO Mod 2
Do While NUMERO = 1
If resultado = 0 Then
NUMERO = NUMERO / 2
Else
NUMERO = (NUMERO * 3) + 1
End If
List1.AddItem Str(NUMERO)
resultado = NUMERO Mod 2
Loop
End Sub

Click del ratón

Dim i As Integer
Private Sub cmdboton_Click()
i = i + 1
MsgBox i
End Sub