GENERAR LAS SIGUIENTES PRACTICAS:
jueves, 29 de marzo de 2012
miércoles, 21 de marzo de 2012
lunes, 27 de febrero de 2012
lunes, 20 de febrero de 2012
martes, 17 de enero de 2012
sábado, 14 de enero de 2012
palabras, busqueda front page
Odin, Thor, Balder, Loki, Ragnarok, Valquiria, frigga,
Bragi, Idun, Frey, Freya, Brunilda, Siglinda, Beowulf,
Cerbero, Pegaso, Gorgona, Medusa, Leviatan, Kraken, Mitgard,
Valhala, Quimera, Centauro, Minotauro, Chie, kukulcán, cabrakán,
Chirakan, Huecuvú, Huitzilopochtli, Inti, manitu, Quetzalcoátl, Tezcatlipoca,
Tonatiu, Áton, Banshee, Hathor, Anubis, Amon, Osiris,
Orion, Ra, Shai, Sobek, Onuris, Xibalba, Xiquiripat,
Kami sama, Sheng long, Amaterasu, Kamehameha, Orochi, Akuma, shinigami
Bragi, Idun, Frey, Freya, Brunilda, Siglinda, Beowulf,
Cerbero, Pegaso, Gorgona, Medusa, Leviatan, Kraken, Mitgard,
Valhala, Quimera, Centauro, Minotauro, Chie, kukulcán, cabrakán,
Chirakan, Huecuvú, Huitzilopochtli, Inti, manitu, Quetzalcoátl, Tezcatlipoca,
Tonatiu, Áton, Banshee, Hathor, Anubis, Amon, Osiris,
Orion, Ra, Shai, Sobek, Onuris, Xibalba, Xiquiripat,
Kami sama, Sheng long, Amaterasu, Kamehameha, Orochi, Akuma, shinigami
miércoles, 4 de enero de 2012
Programacion boton terminar (examen alumnos)
Label10.Visible = True
Label11.Visible = True
Label10.Caption = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text)
Label10.Font = "Viner Hand ITC"
Label10.Font.Size = 80
Label10.TextAlign = fmTextAlignCenter
'Label10.AutoSize = True
If Label10 <= 50 Then
Label10.ForeColor = &HFF&
Else
Label10.ForeColor = &HFF00&
End If
If Label10 >= 60 Then
Label11 = "FELICIDADES PASASTE"
Label11.Font = "Viner Hand ITC"
Label11.Font.Size = 30
Label11.TextAlign = fmTextAlignCenter
Label11.AutoSize = True
Label11.ForeColor = &HFF00&
Else
Label11 = "LASTIMA REPROBASTE"
Label11.Font = "Viner Hand ITC"
Label11.Font.Size = 30
Label11.TextAlign = fmTextAlignCenter
Label11.AutoSize = True
Label11.ForeColor = &HFF&
End If
Label11.Visible = True
Label10.Caption = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text)
Label10.Font = "Viner Hand ITC"
Label10.Font.Size = 80
Label10.TextAlign = fmTextAlignCenter
'Label10.AutoSize = True
If Label10 <= 50 Then
Label10.ForeColor = &HFF&
Else
Label10.ForeColor = &HFF00&
End If
If Label10 >= 60 Then
Label11 = "FELICIDADES PASASTE"
Label11.Font = "Viner Hand ITC"
Label11.Font.Size = 30
Label11.TextAlign = fmTextAlignCenter
Label11.AutoSize = True
Label11.ForeColor = &HFF00&
Else
Label11 = "LASTIMA REPROBASTE"
Label11.Font = "Viner Hand ITC"
Label11.Font.Size = 30
Label11.TextAlign = fmTextAlignCenter
Label11.AutoSize = True
Label11.ForeColor = &HFF&
End If
Suscribirse a:
Entradas (Atom)